sirene_sss.tap
sirene_sss.z80
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

    5 POKE 862,1
   10 CLS:WINDOW 8,23,5,39
   20 PRINT "         "      
   30 PRINT "                      "            
   40 PRINT "                      "      
   50 PRINT "           "  
   60 PRINT "                     "       
   70 PRINT "                       "      
   80 PRINT "             "
   85 WINDOW:POKE-5120,32
   90 PAUSE 20
  100 CLS
  110 INPUT "TONUMFANG EINGEBEN(HOEHE,TIEFE):";X,Y
  120 INPUT "LAENGE:";L
  125 INPUT "ANZAHL:";I
  130 OUT 136,128:OUT 128,0
  135 FOR K=1 TO I
  140 FOR A=Y TO X STEP-1
  150 OUT 128,5
  160 OUT 128,A
  170 FOR Q=1 TO L:NEXT Q            
  180 NEXT A
  190 FOR A=X TO Y
  200 OUT 128,5
  210 OUT 128,A
  220 FOR Q=1 TO L:NEXT Q
  230 NEXT A
  235 NEXT K
  240 OUT 128,3