Вы с миноискателем в руках и наушниками на голове разгуливаете
по полю...Чудес. И цель Ваша вовсе не мины, а сокровища, растущие
здесь как грузди, под землей. По изменению тона в наушниках. Вы мо-
жете примерно оценить расстояние до KJjafla: чем выше тон, тем ближе
клад. Найдите его, но время и число шагов, отведенных Ван на это
дело - ограничены. После успешного завершения поиска Вы попадете на
следующее поле, на котором "выросло" два клада - очистите и его, и
так далее. Чем больше номер поля, тем больше на нем кладов, следо-
вательно, тем труднее Вам ориентироваться, ведь зачастую приближе-
ние к одному кладу это удаление от другого, а ориентир у Вас преж-
ний - звук в наушниках.
1 GO ТО 10
2 CLEAR 64599: LOAD "chr"CODE
64600
4 GO SUB 4000: RUN
5 SAVE "TREASURE" LINE 2:STOP
8 POKE 23606,88: POKE 23607,2
51: RETURN
9 POKE 23606,0: POKE 23607,60
: RETURN
10 GO SUB 8: POKE 23658,8: LET
HI-0: BORDER 1: PAPER 7: INK 1:
BRIGHT 1: CLS
20 GO SUB 5000
25 GO SUB 5500
30 FOR T-l TO 10
40 LET N-T: LET MO-INT ((175*T
+95)/9): LET XM=15: LET УМ-10: G
О SUB 6000
50 CLS : PRINT AT YM.XM; FLASH
1;CHR$ 144: PRINT #0;AT 0,0;"PE
КОРД:";HI;AT 0,11;"СЧЕТ:";SC;AT
0,20;"ОСТАЛОСЬ: " ; # 1;AT 1,0;"* ПО
ИСК СОКРОВИЩ * СОКРОВИЩА: " ;N
1000 PAUSE 1: PAUSE (50-50»T+900
)/9: LET MO=MO-l: IF MO-O THEN
GO TO 8000
1010 LET M$(1)=STR$ MO: PRINT #0
;AT 0,29;M$(1)
1015 PRINT AT YM,XM;CHR$ 144: LE
T A$=INKEY$
1020 LET XM=XM+(A$="8" AND XM<31
)-(AS="5" AND XM>0): LET YM=YM+(
A$-"6" AND YM<21)-(A$="7" AND YM
>0)
1030 PRINT AT YM.XM; FLASH 1;CHR
$ 144
1035 GO SUB 7300
1040 GO SUB 7000
2000 GO TO 1000
2100 NEXT T
2200 GO TO 30
4000 RESTORE 4000: POKE 23675,88
: POKE 23676,255: FOR 1=0 TO 7:
READ BI: POKE USR "A"+I,BI: NEXT
I
4200 DATA 231,231,231,0,0,231,23
1,231
4210 RETURN
5000 RESTORE 5150: FOR 1-0 TO 4:
READ CR: FOR 3-0 TO 31: PRINT A
T CR,J;CHRS 144: NEXT 3: NEXT I
5100 PRINT AT 1,8;
"ПОИСКИ СОКРОВИЩ";AT 4,0;"
ДЛЯ ПОИСКОВ КЛАДОВ У ВАС ЕСТЬ
МЕТАЛЛОИСКАТЕЛЬ. РАССТОЯНИЕ ДО
КЛАДА ВЫ МОЖЕТЕ ОЦЕНИТЬ ПО ИЗМЕ-
НЕНИЮ ТОНА: ЧЕМ ОН ВЫШЕ,ТЕМ БЛИ-
ЩЕ СОКРОВИЩА."' "
КОГДА ВЫ НАЙДЕТЕ КЛАД,ВЫ ПЕРЕ-
ХОДИТЕ НА СЛЕДУЮЩЕЕ ПОЛЕ.ТАМ НА-
ДО НАЙТИ ДВА КЛАДА, И ТАК ДАЛЕЕ.
•I
5110 PRINT AT 14,11;"УДАЧИ ВАМ !
";AT 18,5;"НАЖМИТЕ "»Р"" ДЛЯ СТА
РТА"
5120 PAUSE О: LET AS-INKEYS: IF
А$о"Р" THEN GO ТО 5120
5150 DATA 0,2,16,20,21
5200 RETURN
5500 LET SC=0: DIM X(10): DIM Y(
10): DIM D(10): DIM T$(l,2): DIM
M$(1,3)
5600 RETURN
6000 CLS ■ PRINT AT 10,13;"ПОЛЕ
";T: PAUSE 50
6500 FOR 1=1 TO T
6510 LET X(I)-INT (RND*32): LET
Y(I)=INT (RND*22)
6520 NEXT I
6530 FOR 1-1 TO T
6540 FOR 3=2 TO T
6550 IF 1-3 THEN GO TO 6600
6560 IF X(I)-X(3) THEN GO TO 66
20
6570 NEXT 3
6600 NEXT I
6610 RETURN
6620 FOR K-l TO T
6630 FOR L=2 TO T
6640 IF K-L THEN GO TO 6700
6650 IF Y(K)-YfL) THEN GO TO 65
00
6690 NEXT L
6700 NEXT К
6710 GO TO 6570
7000 FOR 1-1 TO T
7010 IF XM=X(I) AND YM=Y(I) THEN
GO SUB 7100
7020 NEXT I
7050 RETURN
7100 LET N=N-1 LET SC=SC+10: IF
N=0 THEN GO SUB 7200: GO TO 21
00
7110 LET X(I)=100: LET Y(I)-100:
LET T$С1)=STR$ N: BEEP .2.13: В
EEP .2,16- BEEP .2,10 BEEP .5,2
0: PRINT #1;AT 1,1; FLASH 1;
" КЛАД НАЙДЕН "; AT 1,29; FLAS
H 0;T$(1): FOR 1=1 TO 300: NEXT
I: PRINT #1 ,AT 1,1;" ПОИСК COKPO
ВИИ1 ": PRINT #0;AT 0,16;SC
7115 BEEP .2,5: BEEP .5,15
7120 RETURN
7200 FOR 1=10 TO 20: BEEP .02,1.
BEEP .05,2*1: BEEP .07,1/2: NEX
T I: FOR 1=10 TO 16 STEP 3: BEEP
.2,1: NEXT I
7203 LET MOV=30*T-M0: LET EX=MO.
LET SC=SC+EX
7205 CLS : FOR 1=0 TO 31: PRINT
AT 6,1;CHRS 144;AT 16,I;CHRS 144
: NEXT I: PRINT AT 8,9;"ВЕЛИКОЛЕ
ПНО !!!" ;AT 9, 2;"ЧИСЛО ВЫПОЛНЕНН
ЫХ ХОДОВ: ";MOV
7207 PRINT AT 11,6;"ПРИЗ ЗА ",T;
" ПОЛЕ: ";EX: PRINT AT 12,9 "ОБЩ
ИЙ СЧЕТ : ";SC: PRINT AT 14,4;"E
СЛИ ГОТОВЫ, НАЖМИТЕ "»F«««
7208 PAUSE 0: LET A$=INKEY$: IF
A$o"R" THEN GO TO 7208
7210 RETURN
7300 FOR 1=1 TO T: LET D(I)=SQR
((XM-X<I))*(XM-X(I))+(YM-Y(I))*(
YM-Y(I))) NEXT I
7305 LET D=D(1)
7310 FOR 1=1 TO T
7320 IF D(I)<D THEN LET D=D(I)
7330 NEXT I
7340 LET S=(1370.3-78*D)/36: BEE
P .1,S: BEEP .1,S
7350 RETURN
8000 FOR 1=30 TO 0 STEP -1: BEEP
.005*1,1. NEXT I
8050 CLS : PRINT AT 5,10; "ИЗВИНИ
ТЕ, HO";AT 7,8; FLASH 1;" ИГРА О
КОНЧЕНА ": PRINT AT 10,11;"СЧЕТ
: ";SC;AT 14,10;"НАЖМИТЕ .........;
AT 16,5;"ЧТОБЫ ПОВТОРИТЬ ИГРУ"
8100 PAUSE О: LET A$=INKEY$: IF
A$o"P" THEN GO TO 8100
8150 IF SC>HI THEN LET HI=SC
8200 GO TO 25
