5 DEFINT A-Z: POKE &HF731,0
10 CLS: LOCATE ,,0
20 PCLS
30 LINE (0,0)-(511,255),1,BF
40 LINE (70,30)-STEP(10,50),7,BF
45 LINE (80,30)-STEP(30,8),7,BF
50 LINE (80,55)-STEP(30,25),7,BF
60 LINE (83,60)-STEP(20,15),1,BF
70 CIRCLE (160,55),15,7,,,1
80 CIRCLE STEP(0,0),25,,,,1
90 PAINT STEP(18,0),7
100 LINE (210,30)-STEP(10,50),7,BF
110 LINE (260,30)-STEP(10,50),7,BF
120 LINE (220,30)-STEP(20,15),7:LINE -STEP(20,-15),7
130 LINE STEP(0,12)-STEP(-20,15),7: LINE -STEP(-20,-15),7
140 PAINT STEP(5,0),7
150 LINE (300,30)-STEP(10,50),7,BF
160 LINE (310,30)-STEP(30,8),7,BF
170 LINE (310,55)-STEP(30,25),7,BF
180 LINE (313,60)-STEP(20,15),1,BF
190 CIRCLE (390,80),50,7,,3.14,.5
200 CIRCLE STEP(0,0),40,,,3.14,.4
210 LINE (365,80)-STEP(9,0),7: LINE STEP(33,0)-STEP(9,0),7
220 PAINT STEP(-5,-2),7
230 LINE (370,55)-STEP(40,8),7,BF
240 PRINT CHR$(27);"3"
250 LOCATE 25,8:PRINT"С о с т а в и л"
260 LOCATE 19,9:PRINT"Х в о с т и к о в   В . Н ."
270 LOCATE 19,10:PRINT"Ф е в р а л ь   1 9 9 1 г ."
280 LOCATE 13,13:PRINT"П р а в и л а   н у ж н ы   ( Д / Н )   ?"
290 J$=INKEY$
300 IF J$="N" THEN 450
310 IF J$="D" THEN PRINT CHR$(27);"2": GOTO 330
320 GOTO 290
330 CLS: PCLS:PRINT"              П Р А В И Л А   И Г Р Ы
335 PRINT:PRINT"   Правила игры просты, но играть в нее очень сложно.
340 PRINT"Вам дано 50 снарядов и 3 ракетных установки. Главная
345 PRINT"цель игры сбить 20 бомб, которые летят на установку
350 PRINT"с верху, с целью подбить ее.
355 PRINT"   Клавиши управления ракетной установки:
360 LINE (23,113)-STEP(380,90),7,B
365 PRINT"                            Влево   Вправо
370 PRINT:PRINT"           Стрельба          Ь        Б
375 PRINT"                               X        B
380 PRINT"                  п  р  о  б  е  л"
385 LINE (226,144)-STEP(35,30),7,B
390 LINE STEP(37,0)-STEP(35,-30),7,B
395 LINE STEP(0,33)-STEP(-248,15),7,B
400 POKE -482,25: POKE -473,25: POKE -369,25
405 LOCATE 20,14:PRINT"Желаем успеха!"
410 PRINT:PRINT"             Нажмите клавишу <пробел>.";:LOCATE 1,1
415 A$=INKEY$: IF A$=" " THEN 440
420 GOTO 415
440 PRINT CHR$(27);"3"
450 CLS:PCLS:LOCATE 11,4:PRINT"В в е д и т е   с л о ж н о с т ь   ( 1 - 5 ) ."
455 LOCATE 21,6:PRINT"1   -   П о д г о т о в к а ."
456 LOCATE 21,7:PRINT"2   -   Н о в и ч о к ."
457 LOCATE 21,8:PRINT"3   -   У ч е н и к ."
458 LOCATE 21,9:PRINT"4   -   М а с т е р ."
459 LOCATE 21,10:PRINT"5   -   А с ."
460 C$=INKEY$
461 IF C$="1" THEN S=50: PRINTCHR$(27);"2": GOTO 500
462 IF C$="2" THEN S=40: PRINTCHR$(27);"2": GOTO 500
463 IF C$="3" THEN S=25: PRINTCHR$(27);"2": GOTO 500
464 IF C$="4" THEN S=15: PRINTCHR$(27);"2": GOTO 500
465 IF C$="5" THEN S=10: PRINTCHR$(27);"2": GOTO 500
495 GOTO 460
500 CLS:PCLS: O=0: Z=0: RX=23: MY=1: UP=12: UR=0
510 LINE (0,0)-(511,255),7,B
520 LINE (0,0)-(416,208),7,B
530 LINE -STEP(150,0),7
531 POKE -644,16:POKE -645,61:POKE -646,24:POKE -647,61:POKE -648,17
532 POKE -580,16:POKE -581,61: POKE -582,24: POKE -583,61:POKE -584,17
533 POKE -516,16: POKE -517,61: POKE -518,24: POKE -519,61: POKE -520,17
534 LOCATE 2,15:PRINT"Снаряды    ..................................................";:LOCATE 1,1
540 LOCATE 57,2:PRINT"Очки": LOCATE 57,3:PRINT O
550 LOCATE 56,5:PRINT"Попытки"
560 LOCATE 57,10:PRINT"Сбито": LOCATE 57,11:PRINT Z
570 LOCATE 55,12:PRINT"Сложность": LOCATE 58,13:PRINT C$
600 RP=-234
610 POKE RP,17: POKE RP+1,61: POKE RP+2,24: POKE RP+3,61: POKE RP+4,16
620 LOCATE 18,7:PRINT"Нажмите клавишу 'N'"
630 U$=INKEY$: IF U$="N" THEN 660
650 GOTO 630
660 LOCATE 15,7:PRINT"                               "
670 MX=INT(RND(1)*49)
675 IF Z=20 THEN 1400
680 IF MX<3 THEN 670
690 MY=MY+1
695 IF MY=12 THEN 1310
700 LOCATE MX,MY:PRINT"@";
710 FOR E=0 TO S
720 B=PEEK(&HF801) AND 4
730 V=PEEK(&HF808) AND 1
740 X=PEEK(&HF840) AND 128
750 IF B<>0 THEN 5030
760 IF V<>0 THEN 5000
770 IF X<>0 THEN 1000
780 NEXT E
790 LOCATE MX,MY:PRINT" ";
800 GOTO 670
1000 PX=RX+2: UP=UP+1: IF UP=63 THEN 1250
1010 LOCATE UP,15:PRINT" ";
1020 FOR PY=12 TO 1 STEP -1
1030 IF PY=MY AND PX=MX THEN 1100
1040 LOCATE PX,PY:PRINT".";
1050 FOR N=0 TO 10:NEXT N
1060 LOCATE PX,PY:PRINT" ";
1070 NEXT PY
1080 GOTO 720
1100 IF MY=2 THEN OO=100
1110 IF MY=3 THEN OO=90
1120 IF MY=4 THEN OO=80
1130 IF MY=5 THEN OO=70
1140 IF MY=6 THEN OO=60
1150 IF MY=7 THEN OO=50
1160 IF MY=8 THEN OO=40
1170 IF MY=9 THEN OO=30
1180 IF MY=10 THEN OO=20
1190 IF MY=11 THEN OO=10
1200 LOCATE MX,MY:PRINT OO: O=O+OO: LOCATE 57,3:PRINT O
1205 Z=Z+1: LOCATE 57,11:PRINTZ
1210 FOR H=0 TO 10: NEXT H
1220 LOCATE MX,MY:PRINT"    ";
1230 MY=1: GOTO 670
1250 LOCATE 1,15:PRINT"               У Вас кончились снаряды !                        ";: LOCATE 1,1
1260 LOCATE MX,MY:PRINT" "
1270 LOCATE 18,5:PRINT"Я очень сожалею."
1280 LOCATE 12,7:PRINT"Вы не смогли одержать победу."
1290 FOR F=0 TO 3000: NEXT F
1300 GOTO 10
1310 UR=UR+1:
1320 POKE RP-62,15: POKE RP-64,92: POKE RP-60,47: POKE RP-130,92: POKE RP-122,47: POKE RP-126,94:FOR Y=0 TO 1050: NEXT Y
1330 POKE RP-62,32: POKE RP-64,32: POKE RP-60,32: POKE RP-130,32: POKE RP-122,32: POKE RP-126,32: MY=1
1340 IF UR=1 THEN LOCATE 55,8:PRINT"               ": GOTO 670
1350 IF UR=2 THEN LOCATE 55,7:PRINT"               ": GOTO 670
1360 IF UR=3 THEN LOCATE 55,6:PRINT"               ":GOTO 1260
1400 LOCATE MX,MY:PRINT" "
1410 LOCATE 11,4:PRINT"Я поздравляю Вас !  Вы победили !"
1420 LOCATE 8,6:PRINT"И у Вас осталось еще несколико снарядов."
1430 LOCATE 10,8:PRINT"Вы храбрый и мужественный человек !"
1440 FOR W=0 TO 3500: NEXT W
1450 GOTO 10
5000 RP=RP-1: IF RP=-257 THEN RP=RP+1: GOTO 770
5010 POKE RP,17: POKE RP+1,61: POKE RP+2,24: POKE RP+3,61: POKE RP+4,16: POKE RP+5,32
5020 RX=RX-1: GOTO 780
5030 RP=RP+1: IF RP=-208 THEN RP=RP-1: GOTO 780
5040 POKE RP,17: POKE RP-1,32: POKE RP+1,61: POKE RP+2,24: POKE RP+3,61: POKE RP+4,16
5050 RX=RX+1: GOTO 780

