Screenshot 1
2bc0 3973 0302 B ... JAEGER
JAEGER BEDIENFUNKTIONEN TASTE (P) --> LINKS TASTE (R) --> RECHTS LEERTASTE --> FEUER BEACHTEN: JEDER SCHUSS BEDEUTET ENERGIEVERLUST! .JE EHER DER METEOR GETROFFEN WIRD,DESTO ! HOEHER IST DIE PUNKTZAHL. SCHUSSVORRAT:30 METEORE:MAX.10 START? DANN ->
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 REM BEWEGUNG 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