Ваша крепость, находящаяся в подземной пещере, при помощи бое-
вого лазера с ручным управлением отражает непрерывные атаки ско-
ростных вражеских истребителей. Игра требует хорошей реакции.
515 PRINT AT 7,0; INK 6;"
ПАУЗА=""H"" "
520 PRINT AT 9,2; INK 3;" -25
ОЧКОВ -55 ОЧКОВ"
530 PRINT AT 9,2; INK 6:"FG"
540 PRINT AT 9,17; INK 2;"CD"
550 PRINT AT 12,4; PAPER 1;" HA
ЖМИТЕ ЛЮБУЮ КЛАВИШУ "
570 FOR F=2 TO 6
580 PRINT AT 0,0; INK F;"
КРЕПОСТЬ В ПЕЩЕРЕ "
590 IF INKEY$<>"" THEN CLS : G
О TO 1000
595 PAUSE 14
600 NEXT F
610 GO TO 570
1000 FOR F=5 TO 16
1005 BEEP 005,20
1010 PRINT AT F,0; INK 6; PAPER
1; "H"
1020 NEXT F
1030 FOR F-0 TO 255
1040 PLOT INK 4;F,175
1050 DRAW INK 4;0,RND*-30+-9
1051 PLOT INK 4;F,0
1055 DRAW INK 4;0,RND*36+3
1060 NEXT F
1200 LET AX-12
1210 LET BX=1
1220 LET CX=INT (RND*10)+6
1230 LET DX-2B
1232 LET EX-INT (RND*10)+6
1235 LET FX-28
1240 LET SC=0
1250 LET LI=4
1260 POKE 23672,0: POKE 23673,0
1290 FOR G=0 TO 20 STEP 5
1300 FOR F=-10 TO 0 STEP 3: BEEP
.01,F+G: NEXT F
1310 PAUSE 3: NEXT G
1500 PRINT AT AX.BX; BRIGHT 1; I
NK 5;"£"
1510 IF INKEY$-"Q" AND AX>5 THEN
LET AX=AX-1: BEEP .001,60: PRI
NT AT AX+1,BX;" "
1520 IF INKEY$="A" AND AX<16 THE
N LET AX-AX+l: BEEP .001,66: PR
INT AT AX-1,BX;" "
1530 IF INKEYS="P" THEN GO SUB
3000
1540 IF INKEYS="H" THEN PAUSE 0
1600 PRINT AT CX.DX; BRIGHT 1; I
NK 2;"CD "
1605 PRINT AT EX,FX; BRIGHT 0; I
NK 6;"FG "
1610 LET DX-DX-2
1620 LET FX=FX-1
1630 IF DX=0 THEN GO SUB 3500
1634 IF FX-0 THEN GO SUB 3500
1700 IF SC>1000 AND SCcllOO THEN
GO SUB 3700
1710 IF SC>3000 AND SC<3100 THEN
GO SUB 3700
1720 IF SC>5000 AND SC<5100 THEN
GO SUB 3700
1730 IF SC>7000 AND SC<7100 THEN
GO SUB 3700
1990 PRINT INK 0;AT 0,0; PAPER
4;"СЧЕТ: ";SC;AT 0,24;"ЖИЗНИ: ";
LI;AT 0,11;"РЕКОРД: ";HI
2000 GO TO 1500
2550 NEXT G: NEXT F
3000 FOR F=1 TO 29 STEP 3
3010 PRINT AT AX,BX+F; INK 1;"BB
B"
3020 NEXT F
3025 BEEP .004,20 BEEP .004,40
3030 PRINT AT AX,BX+1;"
3040 IF AX=CX THEN PRINT AT CX,
DX; INK 6 PAPER 2;"EE": FOR F=0
TO 4: BEEP .001,55: NEXT F: LET
SC=SC+55: PRINT AT CX,DX;" ":
LET CX-INT (RND*10)+6: LET DX=28
3050 IF AX=EX THEN PRINT AT EX,
FX; INK 6, PAPER 2■"EE": FOR F=0
TO 4: BEEP .001,55: NEXT F: LET
SC-SC+25: PRINT AT EX,FX;" ":
LET EX=INT (RND*10)+6: LET FX=28
3100 RETURN
3500 LET LI-LI-1
3510 PRINT AT 0,31; PAPER 4; INK
0; FLASH 1;LI
3520 FOR F=0 TO 4
3530 FOR G=7 TO 1 STEP -1
3540 PRINT AT AX,BX, INK G;"A"
3545 BEEP .001,G+55
3550 NEXT G: NEXT F
3555 PRINT AT CX.DX+l;"
3556 PRINT AT EX,FX+1;" "
3560 IF LI-0 THEN GO TO 4000
3580 LET DX-28
3584 LET FX*28
3600 RETURN
3700 PRINT AT 11,5; INK 4;"ВАШ П
РИЗ:"; INK 5; BRIGHT 1;" + "; BR
IGHT 0: INK 6;"200 ОЧКОВ"
3705 FOR N=0 TO 1
3710 FOR G=0 TO 40 STEP 4
3720 FOR F=0 TO 15 STEP 4
3730 BEEP .02.F+G: NEXT F: NEXT
G
3740 NEXT N
3750 LET LI=LI+1
3760 FOR F=1 TO 40 LET SOSC+5
BEEP .001,45: PRINT AT 0,6; PAP
ER 2; INK 7;SC: NEXT F
3770 FOR F-5 TO 27
3780 PRINT AT 11,F;" ": NEXT F
3790 PRINT AT CX.DX;" ";AT EX
, FX;"
3800 LET DX=28: LET FX=28
3810 RETURN
4000 PRINT AT 10,7; FLASH 1; INK
4;"К О H E Ц ИГРЫ"
4001 FOR F-0 TO 100: BORDER 7: О
UT 34300,20: BORDER 0: NEXT F
4002 FOR F-0 TO 100 BORDER 7: О
UT 34350,100: OUT 34300,20: BORD
ER 0: NEXT F
4005 FOR F-0 TO 1
4010 BEEP .1,-30: BEEP .1.-20: В
EEP .1,-17: BEEP .1,-23
4015 NEXT F
4020 PRINT AT 12,4,"ВАША КРЕПОСТ
Ь РАЗРУШЕНА!"
4030 FOR F=-15 TO -35 STEP -5
4040 BEEP 13,F
4050 NEXT F
4060 PRINT AT 14,9;"ВЫ ПРОИГРАЛИ
t «1
4070 FOR F=0 TO 55
4080 BEEP 005,10: BEEP .005,20:
BEEP .005,0
4090 NEXT F
4100 IF SMI THEN LET HI-SC
4200 IF LI=0 THEN GO TO 4300
4300 LET T-PEEK 23672+256«PEEK 2
3673
4400 IF LI-0 THEN PRINT AT 18,3
; INK 5;"ВАШЕ ВРЕМЯ: ";T/50;" СЕ
КУНД"
4450 IF INKEY$<>"" THEN GO TO 4
450
4500 IF INKEY$="" THEN GO TO 45
00
4600 CLS : GO TO 500
9000 RESTORE 9000: POKE 23675,88
: POKE 23676,255: FOR F=0 TO 7:
FOR G=0 TO 7: READ A: POKE USR С
HR$ (144+F)+G,A: NEXT G: NEXT F:
RETURN
9010 DATA 192,240,80,127,127,80,
240,192
9020 DATA 0,0,0,255,255,0,0,0
9030 DATA 0,1,31,99,127,31,1,0
9040 DATA 48,248,24,238,238,24,2
48,48
9050 DATA 24,73,214,143,47,216,3
4,24
9060 DATA 0,12,62,199,255,62,120
,15
9070 DATA 62,124,216,216,124,52,
15,255
9080 DATA 1,1,1,1,1,1,1,255
1 GO ТО 10
2 CLEAR 64599: LOAD "chr"C0DE
64600
3 GO SUB 1000
4 RUN
5 GO TO 9000
В POKE 23606,88: POKE 23607,2
51: RETURN . REM RUS
9 POKE 23606,0: POKE 23607,60
: RETURN : REM LAT
10 PAPER 0: INK 7: BORDER 0: В
RIGHT 1: CLS : LET HI=0: GO SUB
8: GO SUB 500
20 LET T-300: LET P=1: LET SC«
0 LET L=0: LET D=0- LET A$="ADB
CD ": LET B$=A$. LET C$="HE FH
G " LET D$="MN0P": LET E$="
12 12 12
KL ]<L KL KL ":
LET A=5: LET B-15: LET C=1
30 BORDER 0 BRIGHT Is PRINT A
T 0,0; INK 0; PAPER 6; "
СЧЕТ НАИБ. СЧЕТ
";AT 0,10;SC;AT 0,25;HI;AT 21,0;
" ПРУД 1 ВРЕМЯ
": FOR F-l TO 15: PRINT AT F,0;
