Heli-Bomber 299
400 IF B=-1 THEN GOSUB 430
410 IF H=-1 THEN GOSUB 450
420 GOTO 150
430 FOR X=1 TO 10:SOUND 1,200-5*X,4:LOCA TE COL2+1,LIN2+1:PRINT"*";:NEXT X
440 LOCATE COL2+1,LIN2+1:PRINT" ";:SC=SC +10:G=-G:B=-B:RETURN
450 FOR X=LIN1 TO 20
460 LOCATE CL1+1,LN1+1:PRINT" ":LOCATE CL1+1,LN1+2:PRINT" ";
470 LOCATE COL1+1,LIN1+1:PRINT" ";:LOCA TE COL1+1,LIN1+1:PEN 2:PRINT CHR$(234);C HR$(235);:PEN 1
480 LN1=LIN1:CL1=COL1:LIN1=LIN1+1
490 SOUND 1,180-X,4
500 NEXT X
510 LOCATE COL1+1,LIN1+1:PRINT" ";:LOCA TE COL1+1,LIN+2:PRINT" ";:LOCATE 16,22: CALL 360:K=PEEK(367):IF K=231 OR K=233 T HEN 640
520 LIN1=0:COL1=INT(RND*31)
530 H=-H
540 RETURN
550 REM USER GRAPHICS
560 SYMBOL AFTER 230
570 SYMBOL 231,255,165,165,255,165,165,1 65,255
580 SYMBOL 232,24,126,126,126,60,24,24,2 55
590 SYMBOL 233,129,195,165,153,153,165,1 95,129
600 SYMBOL 234,0,0,195,255,15,7,0,0
610 SYMBOL 235,126,128,224,152,252,248,0 ,0
620 SYMBOL 236,195,195,36,24,24,36,195,1 95
630 GOTO 720
640 LOCATE 11,11:PEN 2:PRINT"END OF GAME ":PEN 1:LOCATE 8,3:PRINT"Your score was" ;sc;:IF sc>hs THEN HS=SC:PEN 1
650 LOCATE 10,15:PRINT"High score:";hs 660 FOR x=1 TO 600:NEXT x
670 LOCATE 5,17:PEN 3:PRINT"PRESS ANY KE Y TO START AGAIN":PEN 1