Двигаясь по лабиринту. Вы должны убежать от "прыгающего дис-
ка", который гоняется за Вами, не отставая ни на шаг. Хотя скорость
его выше Вашей, но его можно легко сбить с толку, используя естест-
венные преграды, продуманно меняя направление движения и используя
"подземный переход", в который "прыгающий диск" никогда не пойдет.
Ваша цель - собрать все шпаги и алмазы, разбросанные в лабиринте.
Когда это будет сделано, спускайтесь в "переход" - Вы окажетесь на
следующем поле.
1 GO ТО 100
2 CLEAR 64599: LOAD "chr"C0DE
64600
4 GO SUB 9000: RUN
5 SAVE "BOUNCY" LINE 2 : STOP
8 POKE 23606,88: POKE 23607,2
51: RETURN
9 POKE 23606,0: POKE 23607,60
• RETURN
20 OVER 0: BORDER 0: PAPER 0:
INK 9: CLS
22 GO SUB 8: GO SUB 8000
24 DIM AS(10,64)
26 LET SC-0: LET LI»3: LET ITE
MS=3
29 RETURN
30 LET T=0: LET X=17: LET Y=2:
LET AX=3: LET AY=28
32 LET ITEMS"ITEMS+1
34 RESTORE 9100: FOR A=1 TO 10
READ A$(A): NEXT A
39 RETURN
100 GO SUB 20
102 GO SUB 30
104 GO SUB 600: REM ПЕЧАТЬ ЛАБИ
РИНТА
106 GO SUB 500: REM ПЕЧАТЬ ЧЕЛО
ВЕЧКА
108 GO SUB 550: REM ПЕЧАТЬ ПРЫГ
АЮЩЕГО МЯЧА
110 IF INKEYS="8" THEN GO SUB
500: LET Y=Y+(2 AND A$(((X+l)/2)
,Y+3)o"A"): BEEP .001,Y+20: GO
SUB 500
115 IF INKEYS="5" THEN GO SUB
500: LET Y=Y-(2 AND AS((X+1)/2,Y
)<>"£"): BEEP .001,50-Y: GO SUB
500
120 IF INKEYS="6" THEN GO SUB
500: LET X=X+(2 AND A$((X/2)+l,Y
+1)<>"A"). BEEP .001,40-Y: GO SU
В 500
125 IF INKEY$="7" THEN GO SUB
500: LET X=X-(2 AND AS(((X+l)/2)
-1, Y+l)<>"A"): BEEP .001,45-Y: G
О SUB 500
130 IF A$(((X+l)/2),Y+1)="I" TH
EN LET T=T+1: LET SC-SC+100: FO
R Z=10 TO 40 STEP 5: BEEP .005,Z
: NEXT Z: LET A$ ( (X+l )/2 , Y+l )="
" LET AS(((X+l)/2)+1,Y+33)=" ".
PRINT OVER 1;AT X,Y;;AT X+l
,Y;"F"
135 IF AS ( ( ( X+l )/2) , Y+l) = "G" TH
EN LET T=T+1. LET SC=SC+200. FO
R Z=20 TO 60 STEP 5: BEEP .005,Z
: NEXT Z: LET AS((X+l)/2,Y+l)="
": LET A$(((X+l)/2)+1,Y+33)=" ":
PRINT OVER 1 ;AT X.Y:"GH";AT X+
1,Y;"I3"
140 IF T>=ITEMS AND (X<=2 OR X>
=19) AND Y=14 THEN GO TO 700
145 IF X>=19 AND Y=14 THEN GO
SUB 500: LET X=3: LET Y=14: GO S
UB 500
150 IF X<=2 AND Y=14 THEN GO S
UB 500" LET X=17: LET Y-14: GO S
UB 500
' 155 PRINT AT 21,7; PAPER 2; BRI
GHT 1;SC; BRIGHT 0;" "; BRIGHT 1
;AT 21,30;LI, BRIGHT 0;" "
160 IF X=AX AND Y-AY THEN GO S
UB 800
161 LET 0=AX: LET P-AY
165 IF AY>Y THEN GO SUB 550: L
ET AY=AY-(2 AND AS ( ( AX+1) /2 , AY) <
>"E") : GO SUB 550
170 IF AY<Y THEN GO SUB 550: L
ET AY=AY+(2 AND AS((AX+1)/2,AY+3
)<>"A"): GO SUB 550
175 IF AXC19 THEN IF AX>X THEN
GO SUB 550: LET AX=AX-(2 AND A
S( ((AX+l)/2)-l,AY+l)o"A") : GO S
UB 550
180 IF AX>2 THEN IF AX<X THEN
GO SUB 550: LET AX=AX+(2 AND AS
((AX+1)/2+l,AY+1)<>"A"): GO SUB
550
190 IF AX=0 AND AY=P THEN GO S
UB 550- LET AY=AY+ (2 AND AS (((AX
+1)/2),AY+3)<>"A")-(2 AND AS(((A
X+l)/2),AY)o"E") : GO SUB 550
200 GO TO 110
500 PRINT AT X,Y; OVER 1; BRIGH
T 1; INK 6;"KL"
505 PRINT AT X+l,Y; OVER 1; BRI
GHT 1; INK 6;"ЩГ
510 RETURN
550 PRINT AT AX,AY; OVER 1; BRI
GHT 1; INK 4;"OP"
555 PRINT AT AX+1,AY; OVER 1; В
RIGHT 1; INK 4;"OR"
560 RETURN
600 FOR A-l TO 10: BEEP .001,40
+A: PRINT AT (A*2)-l,0; INK 4;A$
(A)■ NEXT A
601 PRINT AT 21,0; PAPER 2;" СЧ
ET: ";SC;" ";AT 21,22;" ЖИЗНИ:
";AT 21,30;LI
605 LET Z$="E F »: FOR Z-l TO I
TEMS
610 LET RX=(INT (RND*8)+1)*2: L
ET RY«(INT (RND*14)+1)*2
615 IF A$((RX+2)/2,RY+Y)<>" " T
HEN GO TO 610
620 PRINT INK INT (RND*6 ) +2 ; AT
RX+1,RY;Z$( TO 2);AT RX+2,RY;Z$
(3 TO )
621 LET AS((RX+2)/2,RY+1)=Z$(1)
: LET A$((RX+2)/2,RY+2)=Z$(2)
622 LET AS((RX+1)/2,RY+32)—Z$(3
): LET AS((RX+1)/2,RY+32)*ZS(4)
625 LET Z$=f"GHIJ" AND Z>=2)+("
EE" AND Z<=1): NEXT Z
630 RETURN
700 FOR A=1 TO 50
701 OUT 254,7
702 OUT 254,130
703 OUT 254,30
704 OUT 254,16
705 OUT 254,255
706 OUT 254,201
707 OUT 254,150
708 NEXT A
710 BEEP .002,A
715 FOR A=0 TO 10 FOR B=1 TO 7
: BEEP .02,(A+B)+RND*10: PRINT A
T 10,12; PAPER B; INK 9; FLASH 1
;"priz": NEXT B: NEXT A
720 CLS : LET SC=SC+500
730 GO TO 102
800 FOR B=1 TO 5: FOR A-0 TO 7:
BORDER A: BEEP 005,A«B: NEXT A
: NEXT B: BORDER 0
801 CLS
805 LET LI=LI-1
810 PRINT AT 10,7; FLASH 1; PAP
ER 2;"ВЫ ПОТЕРЯЛИ ЖИЗНЬ"
815 FOR А=1 TO 100: PAUSE 1: NE
XT A
816 IF LI<=0 THEN GO TO 830
820 CLS : GO TO 102
830 CLS : PRINT INK 9;AT 10,9;
PAPER 3; FLASH 1;" КОНЕЦ ИГРЫ "
840 PRINT AT 21,0;" ПОВТОРИ
ТЬ ИГРУ (Y/N)?": PAUSE 0
850 IF INKEY$="y" OR INKEY$="Y"
THEN RUN
860 GO TO 850
8000 REM ИНСТРУКЦИЯ
8005 PRINT AT 0,0; PAPER 2; INK
9; BRIGHT 1;" ПРЫГАЮЩИЙ M
ЯЧ
8015 PRINT AT 2,0;
8020 PRINT " ВАША ЗАДАЧА - СПАС
АТЬСЯ ОТ"1 INK б1 TAB 9; "ПРЫГАЮЩЕ
ГО МЯЧА"' INK 9'" ОН НАСТОЙЧИВ,
НО НЕ СЛИШКОМУМЕН. ЕСЛИ ОН
ВАС НАСТИГАЕТ, ВЫТЕРЯЕТЕ ЖИЗНЬ.
КОГДА ВЫ ПУТЕШЕ-СТВУЕТЕ ПО ЛАВ
ИРИНТУ, ВЫ ДОЛЖНЫСОБИРАТЬ ШПАГИ
И АЛМАЗЫ. КОГДАВСЕ ОНИ БУДУТ С
ОБРАНЫ, ВЫ МОЖЕТЕУКРЫТЬСЯ В СЕКР
ЕТНОМ ПЕРЕХОДЕ."
8030 PRINT 1,1 Е - ШПАГА К
L - ВЫ F М
И GJJ - АЛМАЗ О
£ - ОН 13 О
Е"
8035 PRINT "'КЛАВИШИ : 5, 6, 7 И
8"
8100 FOR А=0 ТО 7: ВЕЕР .002.A+R
ND*10+A
8105 PRINT AT 21,0; INK 9; PAPER
A;
НАЖМИТЕ ЛЮБУЮ КЛАВИШУ
и
8110 IF INKEYSO"" THEN CLS R
ETURN
8115 NEXT A: GO TO 8100
9000 POKE 23675,88: POKE 23676,2
55: RESTORE 9000: FOR A-USR "A"
TO USR "R"+7: READ B: POKE A,B:
NEXT A: RETURN
9005 REM UDG-ГРАФИКА
9010 DATA 255,128.192.224,255,24
0,240,240
9020 DATA 254,2,6,14,254,30,30,3
0
9030 DATA 240,240,240,255,224,19*
2,128,255
9040 DATA 30,30,30,254,14,6,2,25
4
9045 DATA 0,0,0,8,8.8,8,8
9050 DATA 8,8,62,29,29.30,0,0
9055 DATA 0,0,0,15,16,32,64,63
9060 DATA 0,0,0,240,8,4,2,252
9065 DATA 64,64,32,16,8,4,2,1
9070 DATA 2,4,8.16,32,64,128,0
9075 DATA 63,63,32,255,127,99,99
,103
9080 DATA 248,248,8,254,248,16,2
52,252
9085 DATA 79,79,64,63,7,31,24,16
9090 DATA 120,56,128,240,224,224
,24,12
9095 DATA 0,0,0,15,31,63,63,63
9096 DATA 0,0,0,240,248,252,252,
252
9097 DATA 63,63,63,63,31,15,0,0
9098 DATA 252,252,252,252,248,24
0,0,0
9100 REM ЛАБИРИНТ
9105 DATA
ABABABABABABAB ABABABABABABABAB
CDCDCDCDCDCDCD CDCDCDCDCDCDCDCD
9110 DATA
AB ЦВ
CD CD
9115 DATA "
ftВ ABABABABABABABAB ABABAB AB
CD CDCDCDCDCDCDCDCD CDCDCD CD
•i
9120 DATA "
ftB ftB ftB AB ftB ftB ftB
CD CD CD CD CD CD CD
it
9125 DATA
ftB AB ftB АВДВ AB AB AB
CD Cg CD CDCD DC DC DC
it
9130 DATA "
AB AB AB AB
CD CD CD CD
9135 DATA
ftB ftB ABABAB ftB ABAB ftB
CD DC DCPCDC DC DCDC DC
«I
9140 DATA
AB AB AB AB ABABAB ABAB
CD CD CD CD CDCDCD CDCD
n
9145 DATA
AB AB ftB
CD CD CD
It
9150 DATA
ABABABABABABAB ABABABABABABABAB
CDCDCDCDCDCDCD CDCDCDCDCDCDCDCD
