Bazooka by Jim Gerrie

0 CLS:A=1:G=0:M=16384:C=0:D=0:F=0:B=RND(14):Y=32:X=0:K=0:S=0:LV=50:PRINT@269,"bazooka":FORF=1TO2500:NEXT

1 CLS:LV=LV+5:FORF=1TOLV:PRINT@INT(RND(.)*16)*Y+RND(30),"‰";:NEXT:F=RND(13):G=30:X=4:POKE16925,0:POKE16926,1

2 IFPEEK(M+Y*F+G)<>96THENPRINT@Y*F+G+A,"  ";:K=2-RND(3):F=F+K:IFF<.ORF>15THENF=F-K

3 POKEM+Y*F+G,45:PRINT@Y*F+G+1,"o  ";:SOUND1,1:G=G-A:SOUND90,1:IFG<=CTHEN9

4 PRINT@Y*B+C,":";:D=C:K=PEEK(2)ANDPEEK(17023):IFKTHENPRINT@Y*B+C," ";:B=B+(K=65ANDB>.)-(K=90ANDB<15)

5 ON-(K<>Y)GOTO2:PRINT@Y*B+C,":";:D=D+A:X=X-A:ON-(X=.)GOTO9:K=M+Y*B+D:IFPEEK(K)=137ORPEEK(K+A)=137THEN7

6 PRINT@Y*B+D," >";:D=D+A:ON-(PEEK(M+Y*B+D+A)=137)GOTO7:ON-(D<G)GOTO6:ON-(B=FANDD=G)GOTO8

7 PRINT@Y*B+D,"  ";:GOTO2

8 POKEM+Y*F+G+A,47:?@Y*F+G+A+A,"o ";:SOUND1,8:?@Y*F+G,"***";:SOUND50,8:S=S+A:X=0:HS=HS*-(S<=HS)-(S>HS)*S:GOTO1

9 ?@Y*B+C,"boom";:?S"TANKS HIT. HIGH"HS:?MID$("OUT OF ROCKETS. ",(X*16)+1);:INPUT"AGAIN";M$:ON-(M$<>"N")GOTO0

10 REM                                                                                             1         1         1

11 REM   1         2         3         4         5         6         7         8         9         0         1         2

12 REM789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890

13 REM bazooka BY JIM GERRIE

14 REM 2021 10-LINER CONTEST

15 REM INSPIRED BY ZX81 GAME

16 REM BY A. S. GALE 1982

17 REM USE: a & z TO MOVE :

18 REM AND space TO FIRE

19 REM YOU HAVE ONLY THREE

20 REM ROCKETS TO TAKE OUT

21 REM EACH ONCOMING TANK.

22 REM KILL IT AND YOU WILL

23 REM GET MORE ROCKETS TO

24 REM TAKE OUT MORE TANKS.