Вы пилот маленького вертолетика, а задача Ваша - добыча вкус-
ного джема, банки с которым спрятаны в глубоких норках Но, как Вы
понимаете, вертолетик должен пролететь так, чтобы не коснуться вра-
щающимися лопастями стенок норки, иначе Вам так и не удастся выб-
раться из нее.
1 GO ТО 10
2 CLEAR 64599: LOAD "chr"CODE
64600
4 GO SUB B0D0: POKE 23606,88:
POKE 23607,251
10 BORDER 1: PAPER 7: INK 0: С
LS : RANDOMIZE : LET H=0
20 GO SUB 9000
30 LET S=0
40 LET Y=6: LET X=15
50 GO SUB 500
60 IF S>H THEN LET H=S
100 PRINT INK 1;AT Y,X;"A"
110 BEEP .005,50
120 PRINT INK 1;AT Y,X;"B"
130 BEEP .005,51
150 PRINT AT Y,X;" "
210 LET X=X+(INKEY$=,,8" )-(INKEY
$="5")+INT (RND*3-1)
220 LET Y=Y+(INKEY$="6")-(INKEY
$="7" AND Y>6)
250 GO TO 350
34D PRINT AT 5,11; INK 0; PAPER
2;"ВЫ ПОГИБЛИ";AT 7,6; PAPER 3;
"НАЖМИТЕ ЛЮБУЮ КЛАВИШУ": BEEP 2,
5- PAUSE 0- PAUSE 0: CLS : GO T
О 30
345 REM IF S>H THEN LET H=S
350 PRINT AT 0,2;"C4ET=";S;AT 0
,20;"РЕКОРД=м;H
400 IF ATTR (Y,X)-60 THEN GO T
О 340
410 IF ATTR (Y,X)-16 THEN LET
S=S+50: BEEP .09,13: BEEP .09,14
BEEP .09,13 BEEP 05,10: BEEP
.05,10: GO TO 40
420 IF ATTR (Y,X)=24 THEN LET
S=S+500: BEEP 09,15: BEEP .09,1
4: BEEP .09,15: BEEP .09,16: BEE
P .05,17: BEEP 05,17: BEEP .05,
17: GO TO 40
490 GO TO 100
500 FOR 1-0 TO 7 PRINT INK 4;
AT 1,0;"igZ";AT 1,31;"ig2": NEXT
I
510 PRINT INK 4;AT 8.0;"2*ig8,
igl";AT 8.28:"ig2,3«ig8":AT 9,0;
"6*ig8,ial":AT 9.25:"jg2.7»ige":
AT 1С,012*1Q8,iql".AT 10,18;
"ig2,13*ia8"
520 PRINT INK 4;AT 11,0;
" 13*icr8 , igl" ; AT 11.17;"ig2,
15*ia8":AT 12.0:"13*igS.ig4":AT
12.17;"ig2,14*icrB";AT 13,0;
"H*icr8 , ig4" :AT 13.17 : "I5*ia8" :A
T 14.0:"9*jgS.ig4":AT 14,17;
"10*ig8" .AT 14. 30; "2*1(76"
530 PRINT INK 4;AT 15■0:"4»ige"
;AT 15.12:"ig2,igg";AT 15,17;
"10*igB".AT 15.30,"2»ig8": AT 16,
0:"4»jg6":AT 16■10:"ia2.3»ig8":A
T 16.17:"g7,6*ig8■ia4";AT 16,30;
"2*igfl"
540 FOR 1-17 TO 20: PRINT INK
4; AT 1. 0 . "14*icr8" NEXT I: PRINT
INK 4,AT 17.18:"g7,6*ia8,io4":A
T 17.29;"ig2,3*jg8";AT 18,14;
"igj".AT 18.19:"g7.3»ig8.jg4":AT
Если игра покажется слишком сложной и Вы погибаете, так и не
добравшись до заветной банки с джамом, можете ввести замедляющий
цикл, добавив в программу строку: 140 FOR N-0 ТО 50: NEXT N
Числовой параметр цикла (50) подберите по своей реакции. Може-
те даже ввести в начале игры запрос уровня сложности, в зависимости
от которого будет установлен этот параметр (используя перемениую).
18.28:"ia2,3*ia8":AT 19,27;
"ia2,4*it}8" ; AT 19 ■ 14 : "ig8 , igl" :A
T 20.14;"2*igfi,igl";AT 20,25;
"ig2,6*ig8" :AT 21.0: "32*icrB"
550 PRINT PAPER 6;AT 14,4;"
"; PAPER 2;AT 15,4;"CDE";AT 16.4
... ... PAPER 6;AT 13,27;" " ;
PAPER 3;AT 14,27 "CDE";AT 15,27;
II II
560 PRINT INK 5;AT 0.10:"ig2,
2*ia8.ial":AT 1,7:"ig2,7*ige.igl
" ;AT 1.24 :"i.g2 ,ia8 . ial" : AT 2,7;
"9*igg,igl":AT 2.21;"ig2,5»jg6,
i2l";AT 3.7:"g7,9*iaB":AT 3,21;
"7*ia8":AT 4.8:"g7,7*ia8.ia4":AT
4.21:"q7,5»ig6,jg4".AT 5,13,
"g7,ig4":AT 5.24:"g7,jg8.ig4"
570 RETURN
8000 RESTORE 8000 POKE 23675,88
: POKE 23676,255: FOR 1-0 TO 39
8010 READ X. POKE USR "A"+I,X
8020 NEXT I
8030 DATA 0,255,8,156,250,57,29,
14,0,60,8,156,250,57,29,14
8040 DATA 0,0,25,41,40,41,125,68
,0,0,87,84,231,84,87,0,0,0,162,5
4,42,34,162,0
8050 RETURN
9000 PRINT INK 1;AT 4,7," ПО
ИСКИ ДЖЕМА ";AT 7,0; INK 0; "
ВАША ЗАДАЧА - СОБИРАТЬ ДЖЕМ,
БАНКИ С КОТОРЫМ СПРЯТАНЫ В ГЛУ-
БОКИХ НОРКАХ НО НЕ ДУМАЙТЕ, ЧТО
ЭТО ПРОСТО! ДОБЫЧА ДЖЕМА СОПРЯ-
ЖЕНА СО СМЕРТЕЛЬНОЙ ОПАСНОСТЬЮ "
9050 PRINT 11" НАЖМИТЕ ЛЮБУЮ
КЛАВИШУ": PAUSE 0: CLS
9090 RETURN
1 GO TO 270
2 CLEAR 64599: LOAD ,,Chr"CODE
64600
4 GO TO 200
5 SAVE "GHOST" LINE 2: STOP
8 POKE 23606,88: POKE 23607,2
51: RETURN
9 POKE 23606,0: POKE 23607,60
: RETURN
200 RESTORE 200: POKE 23675,88:
POKE 23676,255
205 FOR A-USR "A" TO USR "D"+7
210 READ UDG: POKE A,UDG
220 NEXT A
230 DATA 60,126,255,255,255,255
,126,60
240 DATA 60,126,248,240,240,248
,126,60
250 DATA 60,126,31,15,15,31,126
,60
260 DATA 60,126,90,219,255,255,
219,137
270 BORDER 6: PAPER 6: INK 9: С
LS
280 GO SUB 8: PRINT AT 0,10;"GH
OST MONSTER"
290 PRINT AT 6,11;"УПРАВЛЕНИЕ:"
300 PRINT AT 9,ll:"P - ВПРАВО";
AT 11,11;"О - ВЛЕВО";AT 13,11;"Q
= ВВЕРХ";AT 15,11;"* = ВНИЗ"
310 PRINT AT 18,5;"НАЖМИТЕ ЛЮБУ
Ю КЛАВИШУ"
