Source Code
5 PAUSE 50
10 LET A=5
20 LET B=7
30 LET C=INT (RND*26)
40 LET D=INT (RND*17)
50 PRINT AT D,C;"%G"
60 PRINT AT A,B;" + "
70 PRINT AT A-1,B;" "
80 PRINT AT A+1,B;" "
90 IF INKEY$="5" THEN LET B=B-1
100 IF INKEY$="8" THEN LET B=B+1
110 IF INKEY$="7" THEN LET A=A-1
120 IF INKEY$="6" THEN LET A=A+1
130 IF INKEY$="0" THEN GOTO 150
140 GOTO 50
150 IF D<>A THEN GOTO 50
160 IF C=B THEN GOTO 170
170 PRINT AT D-1,C;"\'. \.'"
180 PRINT AT D,C;" % "
190 PRINT AT D+1,C;"\.' \'."
200 RUN
210 SAVE "1018%3"
220 CLS
230 PRINT "REAR GUNNER"
240 PRINT ,,"USE CURSOR KEYS TO MOVE ""+"" USE ""0"" TO FIRE AT ""%G"""
250 PRINT "PRESS ENTER TO PLAY"
260 INPUT Z$
270 RUN
