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

   10 REM SCHILDKROETEN FANGEN
   20 REM
   30 REM 30.11.85 . S. Goetze
   40 REM
   50 WINDOW:CLS
   60 PRINT AT(0,0);STRING$(40,"")
   70 PRINT AT(1,0);""+STRING$(38," ")+""
   80 PRINT AT(2,0);"         Schildkroeten fangen         "
   90 PRINT AT(3,0);""+STRING$(38," ")+""
  100 PRINT AT(4,0);STRING$(40,"")
  110 PRINT AT(8,10);"Sie steuern die Moeve"
  120 PRINT AT(10,12);"ueber die Tasten"
  130 PRINT AT(12,13);"'<-' und '->'"
  140 PRINT AT(14,11);"und muessen moegichst"    
  150 PRINT AT(16,7);"viele der 200 Schildkroeten"
  160 PRINT AT(18,17);"fangen."
  170 PRINT AT(23,30);"<ENTER>"
  180 IF INKEY$<>CHR$(13) THEN 180
  190 DIM S$(3)
  200 RE=100
  210 WINDOW:CLS
  220 S$(0)=""
  230 S$(1)=""
  240 S$(2)=" "
  250 F$="" 
  260 FL$="   " 
  270 FA=18
  280 FP=18
  290 PRINT AT(0,1);"SCHILDKROETEN: 0"
  300 PRINT AT(0,25);"GEFANGEN: 0"
  310 PRINT AT(2,FP);F$
  320 WINDOW 3,23,0,39
  330 FOR I=0 TO 21
  340 PRINT
  350 NEXT I
  360 G=0
  370 FOR J=1 TO 202
  380 IF INT(J/2)*2=J THEN P=INT(RND(1)*19)+1:ELSE P=INT(RND(1)*19)+18
  390 CA=0
  400 FOR I=0 TO 11
  410 EJ=JOYST$(1)
  420 IF EJ=1 THEN IF FP>0 THEN FP=FP-1
  430 IF EJ=2 THEN IF FP<37 THEN FP=FP+1
  440 IF FA<>FP THEN PRINT AT(2,FA);FL$:PRINT AT(2,FP);F$:FA=FP
  450 IF I<3 AND J<=200 THEN PRINT AT(23,P);S$(I)
  460 PRINT
  470 IF PEEK(-4999+FP)<>32 THEN CA=CA+1:BEEP
  480 NEXT I
  490 IF J<=200 THEN PRINT AT (0,15);J
  500 IF CA>0 THEN G=G+1:PRINT AT (0,35);G
  510 NEXT J 
  520 IF G<=RE THEN 600
  530 PRINT AT(12,2);"Als Moeve sind Sie unheimlich gut !"   
  540 PRINT AT(14,6);"Das ist ein Rekordergebnis."            
  550 RE=G
  560 GOTO 900
  600 IF G<100 THEN 700
  610 PRINT AT(12,7);"Nicht schlecht, aber ...."
  620 PRINT AT(14,5);"haben Sie gar kein Mitleid mit"
  630 PRINT AT(16,8);"den armen Schildkroeten"
  640 GOTO 900
  700 IF G<75 THEN 800
  710 PRINT AT(12,8);"Sie sind ein Tierfreund,"
  720 PRINT AT(14,7);"haetten es damit als Moeve"
  730 PRINT AT(16,8);"aber ganz schoen schwer."
  740 GOTO 900
  800 PRINT AT(12,7);"Als Moeve waeren Sie ...."
  810 PRINT AT(14,8);"ein totaler Versager."
  820 GOTO 900
  900 PRINT AT(23,30);"<ENTER>"
  910 IF INKEY$<>CHR$(13) THEN 910
  920 GOTO 210