На Ваш любимый утес решили напасть злобные кроты Они ведут
подкоп под утес и если Вы не прекратите это, то утес разрушится.
Кроты обитают в долине, в крепости, захваченной когда-то у мирных
жителей. Оттуда они и ведут свой подкоп. У Вас есть пушка, которая
может стрелять управляемыми снарядами, но достать крота, роющего
подкоп глубоко под землей, снаряд не может. Вам надо разрушить кре-
пость, стереть ее с лица земли тогда злым кротам ничего не оста-
нется, кроме как переселиться на новое место и оставить Вас и Ваш
утес в покое
Снаряды управляются клавишами "1" - выстрел в горизонтальном
направлении; "2" - перевод снаряда в вертикальное пикирование.
Прицеливайтесь точнее. Помните, что на каждый Ваш выстрел кро-
ты отвечают новыми трудовыми подвигами, углубляя подкоп, и прибли-
жая Вашу гибель.
1 GO TO 10
2 CLEAR 64599: LOAD "chr"CODE
64600
4 GO SUB 1000: RUN
5 SAVE "MOLE" LINE 2. STOP
8 POKE 23606,88 POKE 23607,2
51: RETURN
9 POKE 23606,0: POKE 23607,60
: RETURN
10 GO SUB 8: GO SUB 4000
15 GO SUB 8000: BORDER 5: PAPE
R 7: CLS
20 LET Vl=10: LET C0=0: LET 01
=V1+D1
25 INK 2- REM НАЧАЛО
30 PRINT AT 3,0;"ia8";AT 2,0;
"2*1(78 "
40 FOR A=4 TO 5: PRINT AT A,0;
"2*ia8" NEXT A
50 FOR B=6 TO 9: PRINT AT B,0;
"3*1Q8": NEXT В
60 FOR C=10 TO 15: PRINT AT C,
0;"4*ig8": NEXT С
70 FOR D=16 TO 20 PRINT AT D,
0;"5*igg": NEXT D
80 INK 4 FOR E=0 TO 31: PRINT
BRIGHT El;AT 21,E;"lq8": NEXT
E- FOP G=5 TO 17: PRINT BRIGHT
E1;AT 20,G:"iq8": NEXT G: PRIN
T BRIGHT El; AT 20 ■ 27 : "5*ig8"
82 PRINT INK 0;AT 21,17-D1;"H"
85 INK 0: PRINT INK 2;AT 20,5;
"128",AT 15,4;"igl";AT 9.3;"igl"
;AT 5,2:"ial"
90 REM КРЕПОСТЬ
100 FOR F=18 TO 26: PRINT INK
1;AT 20,F;"138"; INK 2;AT 19,F;
"iq8";AT 18,F;"128": NEXT F
110 PRINT INK 2;AT 17,18;"A A
A A A";AT 20,22;"B"
120 INK 1: REM ЧЕЛОВЕК С ПУШКОЙ
130 PRINT AT 0,0;"С";AT 1,0;"D"
;AT 1,1;
200 PAUSE 0
205 IF INKEY$="1" THEN GO TO 2
20
206 GO TO 204
210 GO TO 200
220 FOR Y=2 TO 30
225 INK 0: PRINT AT 1,Y;" F": P
AUSE #(6-D1)
230 IF INKEY$="0" THEN GO SUB
2000
240 NEXT Y
243 PRINT AT 1,Y;" "
250 BEEP .2,20: GO TO 205
1000 RESTORE 1000: POKE 23675,88
: POKE 23676,255: FOR W=0 TO 9
1010 READ S$
1020 FOR U=0 TO 7
1030 READ R: POKE USR Si+U.R
1040 NEXT U
1050 NEXT W
1060 DATA "A",219,219,255,255,12
6,255,255,255,"B",24,126,213,42,
213,42,213,42 "C",56,127,60,62,6
0,60,24,60."D",60,60,60,56,16,16
,16,60,"E",0,64,253,127,14,62, 25
5,255
1070 DATA "F",192,252,127,63,63,
127,252,192,"G",195,231,126,126,
126,126,60,24,"H",0,32,126,254,2
55,38,99,193,"I",66,36,24,129,66
,165,90,255,"3",129,65,66,34,20,
28,157,24
1080 RETURN
2000 FOR 1=1 TO 20
2005 LET Q=Y
2008 PRINT AT l,Q+l;" "
2010 PRINT INK 0;AT I-l.Q;" ";A
T I,Q;"G"
2012 IF ATTR (20,Q)=TI THEN LET
CO=CO+l
2022 NEXT I
2025 GO SUB 5000
2029 IF CO<152 THEN GO TO 245
2030 FOR T=0 TO 30: BEEP .1,T: N
EXT T: INK 1: PRINT FLASH 1;AT
9,7;"ВРАЖЕСКАЯ КРЕПОСТЬ",AT 11,1
1; " УНИЧТОЖЕНА" ; AT 14 ,9; "А ВАС ОТ
ДЕЛЯЕТ";AT 16,8;"ОТ СМЕРТИ ";01;
" ШАГ";
2032 IF 01>1 AND 01<5 THEN PRIN
Т FLASH 1;"А"
2035 IF 01>=5 THEN PRINT FLASH
1; "OB"
2040 POKE 23658,8: INPUT "СЫГРАЕ
M ЕЩЕ? (Y/N) :";BS
2045 FLASH 0: BRIGHT 0
2050 IF B$<>"Y" THEN STOP
2060 GO SUB 4000: GO TO 15
3000 FOR L=30 TO -30 STEP -1: BE
EP .08,L: NEXT L: PRINT FLASH 1
;AT 11,9;"HE ПОВЕЗЛО !!!1"
ЗОЮ GO SUB 8040
3020 IF AK>"Y" THEN STOP
3030 CLS : RETURN
4000 BRIGHT 0: BORDER 0: PAPER 5
: CLS : BEEP .1,0: BEEP .1.4: BE
EP 1,7: BEEP 3,12: BEEP .1,7:
BEEP .6,12
4005 PAUSE 3
4010 BEEP .1,12: BEEP .1,7: BEEP
.1.4 BEEP .3,0 BEEP 1,7 BEE
P .6,4
4053 INK 1: PRINT AT ll,9;"KPOTO
ВАЯ АТАКА"
4060 POKE 23658,8: INPUT "ИНСТРУ
КЦИЯ НУЖНА? (Y/N) :";R$
4070 IF R$="N" THEN GO TO 7020
4080 GO SUB 7000
4090 RETURN
5000 LET 01=Vl+6-Dl: PRINT INK
0;AT 21,01;"H";AT 21,01+1;" ": L
ET V1=V1-1
5020 IF 01=0 THEN GO SUB 6000:
GO TO 5040
5030 RETURN
5040 PRINT AT 11,3;"КРОТ УСПЕЛ С
ДЕЛАТЬ ПОДКОП...";AT 13,8;"И ОТ
ВАС ОСТАЛОСЬ";AT 15,9;".. МОКРОЕ
МЕСТО"
5050 GO SUB 8040
5060 IF A$<>"Y" THEN STOP
5070 CLS . GO SUB 4000 GO TO 15
6000 FOR T=20 TO 2 STEP -1
6010 PRINT AT T,0;"
6020 NEXT T
6030 PRINT AT 0,0;" ";AT 1,0;"
ti
6040 FOR S=1 TO 20: PRINT AT S,3
;"C";AT S+l,3;"D";AT S-1,3;" ":
BEEP .04,INT (18/S)
6050 NEXT S
6060 PRINT INK 2;AT 21,3;"I";AT
20,3;"3": BEEP .6,30
6070 RETURN
7000 CLS INK 0 PRINT '
ВЫ ДОЛЖНЫ ОТБИТЬ АТАКУ КРОТОВ,
КОТОРЫЕ ХОТЯТ РАЗРУШИТЬ ВАШ ЛЮ
БИМЫЙ УТЕС. ОПЛОТОМ КРОТОВ ЯВЛЯ-
ЕТСЯ ИХ КРЕПОСТЬ, ЕЕ-ТО ВЫ И ДО-
ЛЖНЫ УНИЧТОЖИТЬ ПРИ ПОМОЩИ УПРА-
ВЛЯЕМЫХ СНАРЯДОВ "
7010 PRINT ' "
КЛАВИША (1) - ЗАПУСКАЕТ СНАРЯД
КЛАВИША [О] - ПЕРЕВОДИТ ЕГО В
ПИКИРОВАНИЕ."
7015 PRINT
НО ПОМНИТЕ, ЧТО ЗЛОБНЫЕ КРОТЫ
ТОЖЕ HE СТОЯТ НА МЕСТЕ!"
7020 PRINT ' 1 '"ЗАДАЙТЕ УРОВЕНЬ С
ЛОЖНОСТИ {1-5) :...... (1=ПРОСТОЙ
... 5-СЛОЖНЫЙ)"
7021 INPUT 01
7025 IF DKl OR Dl>5 OR DloINT
D1 THEN GO TO 7020
7030 CLS : RETURN
8000 PRINT AT 20,0,"ЗАДАЙТЕ ПОГО
ДУ:"1"(1 - ЯСНО; 0 - ПАСМУРНО)":
INPUT "1 ИЛИ О :";Е1
8005 IF EloINT El OR EK0 OR El
>1 THEN GO TO 8000
8010 BRIGHT El
8020 IF El = l THEN LET TI = 121 : R
ETURN
8030 LET TI-57: RETURN
8040 POKE 23658,8: INPUT "ПОПРОБ
УЕТЕ ЕЩЕ PA3° (Y/N) :" ;A$
8050 RETURN
