Ваша задача - пройти по всей закоулкам лабмринта и ие угодить
в лапы странному мутанту, который так и иоровит употребить Вас в
пищу. Когда Вы проходите по туннелю лабиринта, он очищается от то-
чек. Когда ие останется ии одной точки. Вы перейдете в следующий
лабиринт и так далее, пока наконец все же ие попадетесь мутанту на
обед.
90 IF SCREENS (Y,X)«"." THEN
LET LM=LM-1: BEEP .01,0
91 IF Y=A AND X=B THEN GO TO
300
94 PRINT AT Y,X;"A"
96 IF LM=0 THEN GO TO 700
97 PRINT AT A,B;G$
98 IF RND>. 6 THEN GO TO 50
99 LET AA=A
100 LET A=A+(A<Y AND ATTR (A+l,
В)=41)-(A>Y AND ATTR (A-1,B)=41)
101 IF AoAA THEN GO TO 105 .
103 LET B=B+(B<X AND ATTR (A,B+
1)=41)-(B>X AND ATTR (A,B-l)=41)
105 IF Y=A AND X=B THEN GO TO
300
110 GO TO 50
300 BEEP .2,-2: BEEP .3,-10: BE
EP .4,-18
304 LET LV=LV 1
305 PAPER 3- CLS : IF LV=0 THEN
PRINT AT 10,10, FLASH 1;"КОНЕЦ
ИГРЫ": GO TO 1030
306 PRINT AT 10,11;"ЖИЗНИ:";LV:
PAUSE 0: CLS : GO TO 30
700 DATA 10,6,1,-6
710 DATA 8.5,1,-6
720 DATA 6,3,-1,-6
730 DATA 8,5,1,-6
735 FOR 3=1 TO 2: RESTORE 700
740 FOR M=1 TO 4: FOR N«1 TO 4"
READ A: BEEP . 1, A : NEXT N : NEXT M
750 NEXT 0
755 IF ST=8 THEN GO TO 1000
756 LET ST=ST+1
760 PAPER 3: CLS : PRINT AT 10,
8; FLASH 1;"УРОВЕНЬ ПРОЙДЕН";AT
12,8;"НОМЕР ЭКРАНА ";ST;AT 14,1
2; "ЖИЗНИ: " ;LV
770 PAUSE 0
780 CLS : GO TO 30
1000 DATA 4,-5,0,4,2,-5,-1,2,0,-
8,-3,0,-1,-8,-4,-1,-3,-12,-7,-3,
-5,-12,-8,-5,-3,-12,-7,-3,-1,-10
,-5,-1
1010 PAPER 3: CLS : PRINT AT 10,
10; FLASH 1;"ПРЕКРАСНО!"
1020 RESTORE 1000: FOR N=1 TO 32
: READ A: BEEP 4,A: NEXT N
1030 PAUSE 0: RUN
2000 PAPER 5: PRINT AT 2,10;A$;A
T 7 ,10 ; A$ ; AT 14,10,-AS, AT 19,10:A
$: FOR N=2 TO 7: PRINT AT N,10;"
";AT N,20;".";AT 12+N,10;".";AT
12+N,20;".";AT 6+N,15;".": NEXT
N: RETURN
2100 PAPER 5: PRINT AT 2,5;A$;AT
7,5;AS;AT 14,5;A$;AT 19,5:A$;AT
7,15;AS;AT 14,15;AS: FOR N=2 TO
7: PRINT AT 0+N,5;".",AT 12+N,5
;" ";AT 0+N,15;".",AT 12+N,15;".
";AT 6+N,15;".".AT 6+N,24;".": N
EXT N
2101 RETURN
2200 PAPER 5: FOR N=2 TO 5: PRIN
T AT N,15;".";AT N,10;".";AT N+3
,20;".";AT N+10,20;".";AT N+7,10
;".";AT N+14,10;".";AT N+3,15;".
";AT N+7,15;"-";AT N+ll,15;".";A
T N+14,15;".": NEXT N
2201 PRINT AT 2,10;AS( TO 5);AT
5,10;AS;AT 9,10;AS;".";AT 12,10;
A$;AT 16,10;AS;".";AT 19,10;AS(
TO 5)
2202 RETURN
2300 PAPER 5: PRINT AT 2,8;AS:AT
12,8;AS;AT 19,15;A$;AT 10,15;AS
FOR N=3 TO 11: PRINT AT N,8;".
";AT N,17;".";AT N+8,15;".";AT N
+8,24;".";AT N-1,20," ";AT N+8,1
2;(" " AND N>3)" NEXT N
2301 RETURN
2400 PAPER 5: PRINT AT 2,10;A$;A
T 7,10;AS;AT 14,10;AS;AT 19,10;A
$;AT 5,4;A$;AT 16,4;A$;AT 5,17;A
$;AT 16,17;AS: FOR N=2 TO 7: PRI
NT AT N,10;"-n;AT N,20;".";AT 12
+N,10;".";AT 12+N.20;".": NEXT N
2401 FOR N=6 TO 15: PRINT AT N,4
;"■";AT N,13;".";AT N,17;".";AT
N,26 "." NEXT N: RETURN
2500 LET A$=A$( TO 5): PAPER 5:
PRINT AT 2,13 ; AS ; AT 6,13;A$: PRI
NT AT 19,13 , A$ ; AT 15,13;A$;AT 9,
4;A$;AT 13,4;A$;AT 9,22;A$;AT 13
, 22; AS
2501 FOR N=3 TO 5: PRINT AT N,13
;" . " ; AT N, 17;11.11; AT 13+N ,13;" . " ;
AT 13+N, 17; " . " ; AT 7+N, 4 ; " . " ; AT 7
+N,8,".";AT 7+N,22;"." ; AT 7+N,26
;".": NEXT N: PRINT AT 11,8;A$;A
$;AS: FOR N=7 TO 14" PRINT AT N,
15;"," NEXT N
2502 RETURN
2600 PAPER 5: FOR N=5 TO 16: PRI
NT AT N,13;".";AT N,17;".": NEXT
N: PRINT AT 10,4;AS;AT 10,17;A$
;AT 5,13,AS( TO 5);AT 16,13;A$(
TO 5): FOR N=2 TO 5: PRINT AT N,
15;".»;AT 14+N.15;".": NEXT N
2601 RETURN
2700 PAPER 5: PRINT AT 6,10;A$;A
T 14,10;AS;AT 10,7;AS;AT 10,10;A
$;AT 10,14;A$ FOR N=1 TO 19: PR
INT AT N,15;".": NEXT N: FOR N=6
TO 14: PRINT AT N,10;".";AT N,2
0;" ": NEXT N
2701 RETURN
8900 DATA 65,89,79,86,131,83,53,
66
9000 DATA 56,56,16,124,16,40,68,
0
9005 DATA 73,42,28,127,28,42,73,
0
9010 RESTORE 9000: POKE 23675,88
- POKE 23676,255: FOR N-USR "A"
TO USR "B"+7: READ A: POKE N,A:
NEXT N. RETURN
