SYSTEM VARIABLES
PROG : 16509
D-FILE: 17807
VARS : 18600
E-LINE: 18733
STKBOT: 18733
STKEND: 18733
LEGEND
[A] means INVERSE A
{A} means GRAPHICS A
PRINT means treat as KEYWORD P
PROGRAM LISTING
1 LET S=0
10 REM STAR FIGHT/SLR 1983
20 LET A$=" {5}{6}{8} "
30 LET B$=" [ ][O][ ] "
40 LET I$=" {5}{7}{8} "
50 LET D$=" {6}{7}{7}{6}"
60 LET E$="{E}{1} {2}{4}"
70 LET F$="{8} {5}"
80 LET G$="{2}{4} {E}{1}"
90 LET H$=" {7}{6}{6}{7}"
100 LET A=0
110 LET B=0
120 LET C$=" "
130 LET H=1
140 LET V=1
150 LET A=INT (18*RND)
160 FOR B=0 TO 27
170 PRINT AT A,B;C$;AT A+1,B;A$;AT A+2,B;B$;AT A+3,B;I$;AT A+4,B;C$
180 PRINT AT 10,26;D$;AT 11,26;D$;AT 11,26;E$;AT 12,26;F$;AT 13,26;G$;AT 14,26;H$
190 LET X$=INKEY$
200 IF X$="N" THEN LET A=A-1 AND A<>0
210 IF X$="M" THEN LET A=A+(1 AND A<>17)
220 IF X$="F" THEN GOTO 500
230 NEXT B
240 REM **END OF GAME**
250 CLS
260 PRINT " SCORE=";S
270 PRINT AT 11,6;"GAME OVER"
280 PRINT AT 10,5;"**[*]**[*]**[*]**"
290 PRINT AT 11,15;"[*]"
300 PRINT AT 12,5;"**[*]**[*]**[*]**"
310 PRINT AT 11,5;"[*]"
320 PRINT AT 10,5;"[*]**[*]**[*]**[*]*"
330 PRINT AT 11,15;"*"
340 PRINT AT 12,5;"*[*]**[*]**[*]**[*]"
350 PRINT AT 11,5;"*"
360 PRINT AT 10,5;"*[*]**[*]**[*]**[*]"
370 FOR A=1 TO 2
380 NEXT A
390 PRINT AT 12,5;"[*]**[*]**[*]**[*]*"
400 GOTO 280
410 REM ****TRY FOR <100>******
500 IF A>=8 AND A<=16 THEN GOTO 520
510 GOTO 230
520 IF B>=24 THEN GOTO 540
530 GOTO 230
540 LET S=S+1
550 CLS
560 GOTO 10
600 REM SAVE "STAR FIGHTER"
610 SAVE "STAR FIGHTE[R]"
620 GOTO 1