Помогите доброму приведению выбраться из эктоплаэмениой ловуш-
ки, в которую его (по ошибке, конечно), посадили охотники за приве-
дениями . Вам надо пройти все эктоплазмениые препятствия и загражде-
ния , и добраться до выхода, обозначенного символом "Н".
320 PLOT 35,20: DRAW 176,0: DRA
W 0,15: DRAW -176,0: DRAW 0,-15
330 PAUSE 0: RESTORE 340: FOR N
=1 TO 14: READ A: BEEP .1,A: HEX'
T N
340 DATA 5,5,12,12,14,14,12,10,
10,9,9,7,7,5
345 LET HI=0
350 CLS
380 LET SC=0: LET LI=3
390 LET A=19: LET B=16
400 LET C=INT (RND*30)+1
410 LET D=INT (RND*30)+1
420 LET E=INT (RND»30)+1
430 PRINT AT 1,1;"СЧЕТ ";SC;AT
1,11;"ЖИЗНИ ";LI;AT 1,21;"РЕКОРД
" ;HI
440 PLOT 0,175: DRAW 255,0: DRA
W 0,-20: DRAW -255,0: DRAW 0,20
450 LET A$=" С С С С
£ С С С "
460 LET В$=" В В В В
В В В В "
4 70 PRINT AT 3,0; INK 4:"АААААА
АААААААААААААААААААААААААААААААА
АААААААААААААААААААААААААА"
480 PRINT AT 7,0; INK 4;"АААААА
АААААААААААААААААААААААААААААААА
АААААААААААААААААААААААААА"
490 PRINT AT 11,0; INK 4; "ААААА
АААААААААААААААААААААААААААААААА
ААААААААААААААААААААААААААА"
500 PRINT AT 15,0; INK 4;"ААААА
АААААААААААААААААААААААААААААААА
ААААААААААААААААААААААААААА"
510 PRINT AT 3,15; FLASH 1;"Н";
AT 4,15; FLASH 0;" "
520 PRINT AT 7,С;" ";AT 8,C," "
530 PRINT AT 11,D;" " ;AT 12,D;"
II
540 PRINT AT 15,E;" ";AT 16,E;"
II
550 PRINT AT A,В;" "
560 POKE 23658,8: LET A=A+(INKE
Y$="A" AND A<19)-(INKEY$="Q" AND
A>0 )
570 LET B=B+(INKEY$="P" AND B<3
1)-(INKEY$="0" AND B>0)
580 PRINT AT 5,0; INK 1;A$;AT 6
,0; INK 2;B$
590 PRINT AT 9,0; INK 2;A$;AT 1
0,0; INK 1;B$
600 PRINT AT 13,0; INK 3;A$;AT
14,0; INK 2:B$
610 IF SCREENS (A,B)="" THEN G
О TO 670
620 PRINT AT A,B;"D":BEEP .05,5
630 LET A$=A$(2 TO )+A$(l)
640 LET B$=B$(31)+B$( TO 31)
650 IF A=3 AND B=15 THEN GO TO
700
660 GO TO 550
670 PRINT AT A,B; FLASH 1; "D" :
FOR A=0 TO 30: BEEP .05,A+5: NEX
T A
680 LET LI=LI-1: IF LI=0 THEN
PRINT AT 1,17; " 0 " : GO TO 720
690 GO TO 390
700 FOR A=-40 TO 50 STEP 4: BEE
P .02,A+10: BEEP .02,A-5: NEXT A
710 LET SC=SC+10: GO TO 390
720 PRINT AT 18,11; FLASH l;"KO
НЕЦ ИГРЫ": FOR A=1 TO 5: BEEP .0
5,5: BEEP .05,2: BEEP .03,1: BEE
P .04,2: NEXT A
730 CLS
740 PRINT AT 0,10;"GHOST MONSTE
R"
750 PRINT AT 8,11;"ВАШ СЧЕТ ";S
С
760 IF SC>HI THEN LET HI=SC
770 PRINT AT 10,4 .-"ЗАФИКСИРОВАН
НЫЙ РЕКОРД ";HI
780 PRINT AT 12,6;"ПОВТОРИТЬ ИГ
РУ (Y/N)"
790 IF INKEY$="Y" THEN GO TO 3
50
800 IF INKEY$="N" THEN GO TO 8
20
810 GO TO 790
820 CLS : PRINT AT 0,0;"0.к. С
ПАСИБО ЗА ИГРУ."
1 GO ТО 10
2 CLEAR 64599: LOAD »chr"C0DE
64600
4 GO SUB 9000: RUN
5 SAVE "MUTANT" LINE 2: STOP
8 POKE 23606,88: POKE 23607,2
51: RETURN
В POKE 23606,0: POKE 23607,60
: RETURN
10 BORDER 3: PAPER 3: INK 1: С
LS : GO SUB 8
20 LET ST=1: LET LV-3
30 LET A$="..........» GO SUB
ST*100+1900
35 RESTORE 8900: FOR N-l TO ST
: READ LM NEXT N
40 LET Y-19: LET X=15" LET A=2
LET B=15
50 LET G$=SCREEN$ (A,B)
60 PRINT AT A,B;"E"
70 LET A$=INKEY$
75 PRINT AT Y,x;" "
80 LET X=X+(AS="8" AND ATTR (Y
,X+1)-41)-(AS="5" AND ATTR (Y,X-
1)=41)
85 LET Y-Y+(A$="6" AND ATTR (Y
+l,X)«41)-(A$-"7" AND ATTR (Y-l,
X)=41)
