300 Heli-Bomber
680 IF 1NKEY$<>"" THEN 680
690 IF INKEYS="" THEN 690 ELSE CLS 700 SC=0:GOSUB 720
710 GOTO 150
720 REM
730 FOR X= 0 TO 31
740 R=INT(RND*5)+17
750 FOR Y=R TO 21
760 LOCATE X+1,Y+1:PEN 3:PRINT CHR$(231) ;:PEN 1
770 NEXT Y,X
780 LOCATE 16,17:PRINT CHR$(232);
790 FOR X=17 TO 21
800 LOCATE 16,X+1:PRINT CHR$(233); 810 NEXT
820 LIN=10:COL=15:LOCATE COL+1,LIN+1:PRI NT"+";
830 LINI=0:COL1=INT(RND*31):LN=LIN:CL=C0
840 LOCATE COL1+1,LIN1+1:PEN 2:PRINT" " ;:LOCATE COL1+1,LIN1+1:PRINT CHR$(244);C HR$(245);:PEN 1
850 LN1=LIN1:CL1=COL1
860 6=1:H=1:8=1
870 RETURN
880 RESTORE 890:FOR X=360 TO 366:READ A: POKE X,A:NEXT: RESTORE:RETURN
890 DATA 205,96,187,50,111,1,201