Bomb the city. From Tim Hartnell’s The Timex Sinclair 2068 Explored.
Appears on
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20083 to 20120. These tapes were compiled by Tony Willing.
Gallery
Source Code
2 LET h=0 4 IF h=0 THEN GO SUB 1000 5 LET s=0 10 PAPER 0: INK 6: BORDER 1 30 PRINT AT 21,0;"Difficulty (1 to 9) ?": LET d$=INKEY$: IF LEN d$<>1 OR CODE d$<49 OR CODE d$>57 THEN GO TO 30 32 CLS 35 LET d=12-VAL d$ 40 FOR a=0 TO 31 50 FOR b=d+INT (RND*d) TO 21 60 PRINT PAPER 0;AT b,a;CHR$ 146 70 NEXT b 80 NEXT a 90 LET u=0 100 LET p=0 110 LET f=0 130 PRINT AT 21,0;CHR$ 20+CHR$ 1+d$+" press any key to bomb" 140 PRINT AT u,p;: IF PEEK (PEEK 23684+256*PEEK 23685)=255 THEN GO TO 200 142 PRINT INK 4;CHR$ 144 144 IF f=0 THEN LET a=u: LET t=p 148 IF INKEY$<>"" THEN LET f=1 155 IF f=1 THEN PRINT AT a,t;"": LET a=a+1: IF a=22 THEN GO TO 340 157 PRINT AT a,t;: IF PEEK (PEEK 23684+256*PEEK 23685)=255 THEN GO TO 300 158 IF f=1 THEN PRINT INK 2;CHR$ 145: BEEP .01,60-a 160 LET p=p+1 170 PRINT AT u,p-1;" " 180 IF p=32 THEN LET p=0: LET u=u+1: BEEP .1,u 185 IF u=22 THEN GO TO 1200 190 GO TO 140 200 LET x=p*8: LET y=(21-u)*8 207 PLOT x,y 210 DRAW INK 6;INT (RND*256)-x,INT (RND*158)-y 220 BEEP 1,20: BEEP .01,10 230 NEXT a 235 GO TO 400 300 FOR a=a TO 21 310 IF RND>.99 THEN GO TO 340 315 BEEP .005,a-20 320 PRINT AT a,t;" " 325 LET s=s+1: IF s/250=INT (s/250) THEN POKE 23624,PEEK 23624+8 330 NEXT a 340 LET f=0: GO TO 140 400 IF h<s THEN LET h=s 410 PRINT AT 0,0;"score: ";s,"hi-score: ";h 420 GO TO 5 1000 DATA "a",0,0,96,126,127,8,16,0,"b",0,0,0,32,28,32,0,0,"c",255,153,153,255,255,153,153,255 1005 FOR f=1 TO 3 1007 READ a$ 1010 FOR a=0 TO 7 1020 READ b: POKE USR a$+a,b 1030 NEXT a 1045 NEXT f 1050 RETURN 1200 DATA 0,4,7 1210 FOR a=1 TO 3 1215 READ c 1220 FOR b=1 TO 3 1230 BEEP 1/3,c 1240 NEXT b 1250 NEXT a 1260 BEEP 1,12 1270 GO TO 32 1300 SAVE "NIGHTFALL" LINE 32 1310 STOP