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

   10!
   20! GOLDSCHMIDT 1985
   30!
   40! MIT DEM RADIERGUMMI SIND DIE 
   50! PUNKTE ZU ENTFERNEN
   60! DER GUMMI WIRD DURCH DIE 
   70! KURSORTASTEN BETAETIGT
   80!
   90 CLS
  100 POKE-5120,32
  110 FOR A=1 TO 10
  120 C=INT(40*RND(1))
  130 D=INT(23*RND(1))
  140 PRINT AT (D+1,C);"*"
  150 NEXT A
  160 PRINT AT(1,0);""
  170 POKE 30,0
  180 POKE 31,0
  190 H=5
  200 A=0:B=1:Z=0
  210 E=PEEK(30)
  220 F=PEEK(31)
  230 G=60*E+F
  240 PRINT AT(0,34);G
  250 IF G>150 THEN 520
  260 IF G<H THEN GOTO 310
  270 H=H+4
  280 E=INT(40*RND(1))
  290 F=INT(23*RND(1))+1
  300 PRINT AT(F,E);"*"
  310 R$=CHR$(PEEK(36))
  320 IF LEN(R$)=0 THEN 210
  330 C=A:D=B
  340 R=ASC(R$)
  350 IF R=8 THEN A=A-1
  360 IF R=9 THEN A=A+1
  370 IF R=10 THEN B=B+1
  380 IF R=11 THEN B=B-1
  390 IF A<0 THEN A=0
  400 IF A>39 THEN A=39
  410 IF B<1 THEN B=1
  420 IF B>23 THEN B=23
  430 PRINT AT(D,C);" "
  440 T=PEEK(40*B+A-5120)
  450 IF T<42 THEN GOTO 490
  460 Z=Z+1
  470 PRINT AT(0,12);Z
  480 BEEP
  490 IF R>9 THEN PRINT AT(B,A);"":GOTO 510
  500 PRINT AT(B,A);""
  510 GOTO 210
  520 CLS
  530 PRINT
  540 PRINT " NACH 150 SEKUNDEN:";Z;"TREFFER
  550 PRINT
  560 INPUT ">ENTER<";U
  570 GOTO 90