Anti-Aircraft Gunner

Gallery

Source Code

   3 LET D=0
   4 LET Q=0
   6 LET A=0
   8 FAST 
  10 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  12 LET A=A+1
  14 IF A=21 THEN GOTO 25
  20 GOTO 10
  25 SLOW 
  27 PRINT AT 4,0;"% "
  30 LET F=INT (RND*10)/2
  36 PRINT AT 20,16;"%*";AT 19,16;"%*"
  40 FOR C=0 TO 29 STEP 2
  50 PRINT AT 3,C;"% % \.'"
  52 IF INKEY$="V" THEN GOTO 90
  55 FOR E=1 TO F
  57 NEXT E
  60 NEXT C
  70 PRINT AT 3,30;"% "
  80 GOTO 30
  90 PRINT AT 18,16;" ";AT 18,16;"% ";AT 4,16;" ";AT 4,16;"% "
  92 LET Q=Q+1
  94 PRINT AT 18,2;Q;"% SHOTS"
  96 IF C=14 THEN GOTO 106
 100 IF Q>20 THEN GOTO 500
 102 GOTO 55
 106 PRINT AT 3,15;"% % % ";AT 2,15;"\' % \ '";AT 4,15;"\. % \ .";AT 4,15;"% % % ";AT 2,15;"% % % "
 108 PRINT AT 2,15;"\:'% \':";AT 4,15;"\:.% \.:";AT 4,15;"% % % ";AT 2,15;"% % % "
 120 LET D=D+1
 130 PRINT AT 18,23;D;"% HITS"
 135 IF Q>20 THEN GOTO 500
 140 GOTO 40
 500 PRINT AT 10,3;"GAME% OVER"
 510 PRINT AT 18,23;"% % "
 520 PRINT AT 18,23;D
 522 FOR Y=1 TO 4
 524 NEXT Y
 530 GOTO 510
 540 CLEAR 
 550 SAVE "1026%6"
 560 RUN