298 Heli-Bomber
160 LOCATE 16, 22:CALL 360:K=PEEK(367):I F K<>233 THEN 640
170 COL=COL-(2 AND INKEY(8)=0): IF COL<0 THEN COL=31
180 LIN=LIN-(2 AND INKEY(0)=0 AND LIN>0) 190 COL=COL+(2 AND INKEY(1)=0):IF COL >3 1 THEN COL=0
200 LOCATE CL+1,LN+1:PRINT" ":LOCATE COL +1,LIN+1:PRINT"+";:LN=LIN:CL=COL
210 IF COL1=30 THEN COL1=0:LIN1=INT(RND* 10)+1
220 LIN1=LIN1+(1 AND RND>0.7 AND LIN1<13
230 LIN1=LIN1+(1 AND RND>0.7 AND LIN1<13
240 LIN1=LIN1-(1 AND RND>0.7 AND LIN1>0) 250 COL1=COL1+(1 AND COL1<30)
260 LOCATE CL1+1,LN1+1:PRINT" ";:LOCATE
CL1+1,LN1+2:PRINT" ";:LOCATE COL1+1,LI N1+1:PEN 2:PRINT" ":LOCATE COL1+1,LIN1+ 2:PRINT CHR$(234);CHR$(235);:PEN 1:LN1=L IN1:CL1=COL1
270 IF G=1 AND RND>0.8 THEN LIN2=LIN1+2: COL2=COL1:6=-G:LN2=LIN1+2:COL2=COL2
280 IF 6=1 THEN 320
290 LIN2=LIN2+1
300 LOCATE CL2+1,LN2+1:PRINT" ";:LOCATE COL2+1,LIN2+1:PEN 1:PRINT CHR$(236);:LN2 =LIN2:CL2=COL2:SOUND 1,200,4:IF LIN2=21 THEN 640
310 LOCATE COL2+1,LIN2+2:CALL 360:K=PEEK (367):IF K=231 OR K=232 OR K=233 THEN LO CATE COL2+1,LIN2+1:PRINT" ";:LOCATE COL2 +1,LIN2+2:PRINT CHR$(236);:LOCATE COL2+1 ,LIN2+2:PRINT" ";:G=-6
320 IF INKEY(9)<>0 THEN 150
330 X=122:Y=42:PLOT X*2+64,Y*2+64,1 340 XX=COL*8:YY=LIN*8-172
350 YY=-YY
360 DRAWR (XX-X)*2+8,(YY-Y)*2-16,3
370 IF LIN =LIN1+1 AND (COL=COL1 OR COL= COL1+1) THEN H=-H
380 IF COL=COL2 AND LIN=LIN2 THEN B=-B 390 PLOT X*2+64,Y*2+64,0:DRAWR (XX-X)*2+ 8,(YY-Y)*2-16,0