Rear Gunner

Gallery

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