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,"базука":FORF=1TO2500:ДАЛЕЕ

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

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"ТАНК УДАР. ВЫСОКИЙ"HS:?MID$("ВНЕ РАКЕТЫ. ",(X*16)+1);:INPUT" СНОВА";M$:ON-(M$<>"N")GOTO0

10 REM                                                                                                                       1         1

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

12 REM789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890

Базука 13 REM ОТ ДЖИМА ДЖЕРРИ

14 REM 2021 10-LINER CONTEST

15 REM ВДОХИГРА ДЛЯ ZX81

16 REM А. С. Гейла, 1982 г.

17 REM USE: a & z ДЛЯ ПЕРЕМЕЩЕНИЯ:

18 REM И пробел, чтобы стрелять

19 REM У ВАС ТОЛЬКО ТРИ

20 РЕМ-РАКЕТ, КОТОРЫЕ НУЖНО ВЫНЕСТИ

21 REM КАЖДЫЙ ВСТРЕЧНЫЙ ТАНК.

22 REM УБЕЙ ЭТО, И ТЫ СДЕЛАЕШЬСЯ

23 REM ПОЛУЧИТЕ БОЛЬШЕ РАКЕТ

24 REM ВЫНИМАЙТЕ БОЛЬШЕ ТАКОВ.