City Bomb

Gallery

Source Code

  10 PRINT "DO YOU WISH INSTRUCTINS"
  20 INPUT C$
  30 IF CODE C$=62 THEN GOTO 800
  40 CLS 
  50 FOR X=0 TO 31
  60 FOR Y=INT (RND*11)+11 TO 19
  70 PRINT AT Y,X;"\' ";
  80 NEXT Y
  90 NEXT X
 100 LET A$=">=\.:\ '\:."
 110 LET C$="     "
 120 FOR H=1 TO 20 STEP 2
 130 FOR X=0 TO 31
 140 PRINT AT H,X,;A$;
 150 LET F=PEEK (PEEK 16398+1+PEEK 16399*256)
 160 IF NOT F=118 AND F>0 THEN GOTO 700
 180 IF INKEY$<>"" THEN GOTO 500
 190 PRINT AT H,X,C$;
 200 NEXT X
 210 NEXT H
 220 PRINT AT 0,10;"WELL DONE"
 230 STOP 
 500 FOR Y=H+1 TO 19
 510 PRINT AT Y,X;"\' ";
 530 PRINT AT Y,X;"\@@";
 540 NEXT Y
 550 PRINT AT H,X;C$
 560 LET X=INT ((RND*2)+X)
 570 GOTO 170
 700 PRINT AT 0,10;">=YOU CRASHED<=",H*31+X;"POINTS","ANOTHER GO?(Y)"
 710 INPUT C$
 720 IF C$="Y" THEN GOTO 10
 730 STOP 
 800 PRINT "CITY BOMB BY S.C.ADAMS"
 810 PRINT "----------------------"
 820 PRINT "YOU MUST BOMB AWAY THE CITY"
 830 PRINT "BY PRESSING THE NEW LINE"
 840 PRINT "KEY BEFORE LANDING"
 850 INPUT C$
 860 GOTO 40
 870 CLEAR 
 880 SAVE "1031%2"
 890 RUN