Flying Bomb 199
150 LOCATE 28,2:PRINT"	":LOCATE 27,2:
PEN 2:PRINT INT((17-H)*100-20):PEN 1
160 PEN 3:LOCATE 28,1:PRINT"	":LOCAT
E 27,1:PRINT(27-D)/5:PEN 1
170 LOCATE 28,3:PRINT"	":LOCATE 27,3:
PEN 3:PRINT S*2:PEN 1
180 LOCATE DK+1,HK+1:PRINT" ":LOCATE D+ 1,H+1:PRINT CHR$(231);CHR$(232);:HK=H:DK =D
190 IF INKEY$="" THEN 260
200 IF INKEY(1)=0 THEN S=S+5:IF S>195 TH EN S=195
210 IF INKEY(8)=0 THEN S=S-5:IF 5<45 THE N LOCATE 12,17:PRINT CHR$(24);"STALLED!" ;CHR$(24):GOTO 580
220 IF INKEY(0)=0 THEN H=H -0.1
230 IF INKEY(2)=0 THEN H=H+0.1:IF H>16.8 THEN 500
240 IF H<2.2 THEN H=2.2
250 IF INKEY(9)=0 THEN LOCATE DK+1,HK+1: PRINT CHR$(231);CHR$(233);:GOTO 310
260 IF H>13 AND D>27 THEN 520
270 REM *** MOVE CLOSER ***
280 DC=DC-S:D=INT((DIST-DC)/TH)
290 IF D>30 THEN GOTO 540
300 GOTO 140
310 REM *** BOMB DROPPED ***
320 Y=1:V=H+1:F=D+1:HK=V:DK=F
330 X=Y*Y* (1-5/200)
340 SOUND 1,120,4
350 V=V+X/40:F=F+Y/8
360 IF V>15 AND F>28 THEN 430
370 IF V>18.5 OR F>31 THEN 540
380 LOCATE DK+1,HK+1:PRINT" ";
390 LOCATE F+1,V+1:PRINT CHR$(234) 400 HK=V:DK=F
410 Y=Y+1:GOTO 330
420 REM *** WON GAME ***
430 LOCATE DK+1,HK+1:PRINT" ";
440 LOCATE I2,17:PEN 2: PRINT"CONGRATULAT IONS!":PEN 1
450 SC=SC+1:LOCATE 7,3:PEN 3:PRINT SC 460 LOCATE 32,15:PRINT " ";:LOCATE 31,16 :PRINT" ";:LOCATE 30,17:PRINT"	";:LOC
ATE 29,18:PRINT"