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

   10 REM TITELBILD
   20 WINDOW:CLS  
   30 PRINT AT(1,3);"JAEGER"
   40 PRINT AT(3,6);"BEDIENFUNKTIONEN"
   50 PRINT AT(4,2);"TASTE (P)  -->    LINKS"
   60 PRINT AT(5,2);"TASTE (R)  -->   RECHTS"
   70 PRINT AT(6,2);"LEERTASTE  -->   FEUER"
   80 PRINT AT(8,2);"BEACHTEN:"
   90 PRINT AT(9,3);"JEDER SCHUSS BEDEUTET"
  100 PRINT AT(10,7);"ENERGIEVERLUST!"
  110 PRINT AT(11,3);".JE EHER DER METEOR"
  120 PRINT AT(12,3);"GETROFFEN WIRD,DESTO !"
  130 PRINT AT(13,3);"HOEHER IST DIE PUNKTZAHL."
  140 PRINT AT(20,1);"SCHUSSVORRAT:30  METEORE:MAX.10"
  150 PRINT AT(23,3);"START? DANN -> <ENTER>"
  160 J$=INKEY$:IF J$=""GOTO 160
  170 WINDOW:FE=30:F1=1:CLS
  180 PRINT AT(1,20);" SCORE 0000 "
  190 PRINT AT(1,1);" LEVEL 0 "
  200 FOR M1=4 TO 13
  210 PRINT AT(M1,1);"#":NEXT M1
  215 FOR I=2 TO 30:PRINT AT(31,I);"":NEXT     
  220 REMBEWEGUNG METEOR
  230 FE=30:F1=1:GOTO 730
  240 FE=FE-1:F1=F1+1:PRINT AT(31,F1);"["
  250 IF FE<=5 AND FE>0 THEN PRINT AT(31,10);"LOW ENERGY"
  260 IF FE=0 THEN PRINT AT(31,10);"NO  ENERGY":GOTO 1040
  270 FOR I=28 TO 0 STEP-1
  280 PRINT AT(I,WA);""
  290 PRINT AT(I+1,WA);" "
  300 IF W=I AND V=WA GOTO 990
  310 NEXT I
  320 PRINT AT(0,WA);" ":PRINT AT(1,WA);" ":J=J+1:GOTO 750
  330 A=INT(RND(1)*10)+1:ME=ME+1:IF ME=11 GOTO 1050
  340 PRINT AT(3+ME,1);" "
  350 ON A GOTO 360,370,380,390,400,410,420,430,440,450,460
  360 X=15:GOTO 470
  370 X=16:GOTO 470
  380 X=17:GOTO 470
  390 X=18:GOTO 470
  400 X=19:GOTO 470
  410 X=20:GOTO 470
  420 X=21:GOTO 470
  430 X=22:GOTO 470
  440 X=23:GOTO 470
  450 X=24:GOTO 470
  460 X=25
  470 W=1:V=X:W1=1:V1=X
  480 PAPER 7:PRINT AT(W1,V1);" "
  490 PRINT AT(W,V);"#"
  500 PRINT AT(1,2);"LEVEL 5"
  510 B=INT(RND(1)*4)
  520 IF W>0 AND W<6 THEN LE=5:GOTO 560
  530 IF W>=6 AND W<11 THEN LE=4:GOTO 560
  540 IF W>=11 AND W<17 THEN LE=3:GOTO 560
  550 IF W>=17 AND W<23 THEN LE=2
  560 PRINT AT(1,2);"LEVEL",LE
  570 IF B=0 THEN R=1:S=1
  580 IF B=1 OR B=3 THEN R=1:S=0
  590 IF B=2 THEN R=1:S=-1
  600 W=W+R:V=V+S
  610 IF V<2 THEN V=2
  620 IF V>37 THEN V=37
  630 IF W>=29 GOTO 680
  640 V1=V-S:W1=W-R
  650 PRINT AT(W1,V1);" ":PRINT AT(W,V);"#":CX=0
  660 IF AM=1 THEN AM=0:GOTO 300
  670 J=J+1:GOTO 750
  680 PRINT AT(W-R,V-S);" "
  690 DATA 1,2,3,4
  700 READ E
  710 K=K-2000:PRINT AT(1,20);"SCORE",K
  720 IF E=3 GOTO 1050:ELSE GOTO 330
  730 WA=29
  739 IF WA<0 OR WA>30 THEN 750
  740 PRINT AT(30,WA-1);"  "
  750 C$=INKEY$
  760 IF C$=CHR$(9)THEN CX=CX+1:GOTO 820
  770 IF C$=CHR$(8)THEN CX=CX+1:GOTO 840
  780 IF C$=" "AND ST<>1 GOTO 240
  790 IF C$=""AND J=0 GOTO 330
  800 IF C$=""AND J<>0 GOTO 510
  810 IF C$<>""OR C$<>"P"OR C$<>"R"OR C$<>" "GOTO 750
  820 IF CX=3 THEN CX=0:GOTO 510
  830 WA=WA+1:GOTO 860
  840 IF CX=3 THEN CX=0:GOTO 510
  850 WA=WA-1:GOTO 870
  860 IF WA>37 THEN WA=37
  870 IF WA<0 THEN WA=0
  880 GOTO 739
  890 REM
  900 PRINT AT(1,20);"SCORE",K
  910 PRINT AT(I,WA-1);"   "
  920 IF I<24 THEN PRINT AT(I+2,WA-2);KX
  930 IF I>=24 THEN PRINT AT(I-2,WA-2);KX
  940 VB=(32-W)*8-8:WC=(V-1)*8+8
  950 PRINT AT(I,WA-1);"   ":PRINT AT(I-1,WA-1);"   ":PRINT AT(I+1,WA);" "
  960 IF I<24 THEN PRINT AT(I+2,WA-1);"    "
  970 IF I>=24 THEN PRINT AT(I-2,WA-1);"    "
  980 GOTO 330
  990 IF LE=5 THEN KX=1000:K=K+KX:GOTO 900
 1000 IF LE=4 THEN KX=700:K=K+KX:GOTO 900
 1010 IF LE=3 THEN KX=500:K=K+KX:GOTO 900
 1020 IF LE=2 THEN KX=300:K=K+KX:GOTO 900
 1030 IF LE=1 THEN KX=200:K=K+KX:GOTO 900
 1040 IF ME<>0 THEN ST=1:GOTO 750
 1050 IF K<0 GOTO 1180
 1060 IF K>=K1 GOTO 1110
 1070 IF K>=K2 GOTO 1130
 1080 IF K>=K3 GOTO 1150
 1090 IF K>=K4 GOTO 1160
 1100 IF K>=K5 GOTO 1170 ELSE 1250
 1110 K5=K4:K4=K3:K3=K2:K2=K1:K1=K
 1120 K5$=K4$:K4$=K3$:K3$=K2$:K2$=K1$:K1$="[":GOTO 1180
 1130 K5=K4:K4=K3:K3=K2:K2=K
 1140 K5$=K4$:K4$=K3$:K3$=K2$:K2$="[":GOTO 1180
 1150 K5=K4:K4=K3:K3=K:K5$=K4$:K4$=K3$:K3$="[":GOTO 1180
 1160 K5=K4:K4=K:K5$=K4$:K4$="[":GOTO 1180
 1170 K5=K:K5$="["
 1180 PRINT AT(1,2);"LEVEL 0"
 1190 PRINT AT(1,12);"IHR ERGEBNIS:"
 1200 WINDOW 3,20,5,31:CLS
 1210 PRINT AT(7,7);"SCORE            NAME
 1220 PRINT AT(8,7);"______________________"
 1230 IF K>=0 THEN PRINT AT(22,10);"TRAGEN SIE SICH EIN!":ELSE GOTO 1250        
 1240 PRINT AT(23,4);"MIT <ENTER> ABSCHLIESSEN!"
 1250 PRINT AT(10,8);"1.",K1,K1$
 1260 PRINT AT(12,8);"2.",K2,K2$
 1270 PRINT AT(14,8);"3.",K3,K3$
 1280 PRINT AT(16,8);"4.",K4,K4$
 1290 PRINT AT(18,8);"5.",K5,K5$
 1300 IF K1$="["THEN INPUT K1$     
 1310 IF K2$="["THEN INPUT K2$
 1320 IF K3$="["THEN INPUT K3$
 1330 IF K4$="["THEN INPUT K4$
 1340 IF K5$="["THEN INPUT K5$
 1350 PRINT AT(10,22);" ":PRINT AT(12,22);" ":PRINT AT(14,22);" "      
 1360 PRINT AT(16,22);" ":PRINT AT(18,22);" "
 1370 PAUSE 50:RESTORE:PRINT AT(1,28);" 0000":ME=0:K=0:J=0
 1380 WINDOW 0,3,12,31:CLS:WINDOW 3,31,0,31:CLS:ST=0:GOTO 200