Ваша задача - добраться до колеи, виднеющихся вверху, но так,
чтобы при прыжках не удариться головой о потолок и не упасть в про-
емы в двигающихся настилах. Прыгайте точно и аккуратно, чтобы по-
пасть в проем, а когда запрыгните на настил, бегите по нему, чтобы
не упасть в проем.
1 GO ТО 10
2 CLEAR 64599- LOAD "chr"CODE
64600
3 POKE 23675,88: POKE 23676,2
55: GO SUB 9000
4 RUN
5 SAVE "LOG-HOP" LINE 2: STOP
8 POKE 23606,88: POKE 23607,2
51: RETURN
9 POKE 23606,0: POKE 23607,60
: RETURN
10 PAPER 0: INK 7: BORDER 0: С
LS : POKE 23658,8: GO SUB 9
12 LET HOLE=0: LET GAME=0: DIM
Z(10): DIM F$(10,3)
14 GO SUB 8000
15 GO SUB 9: LET SCORE=1DOO: L
ET DEAD-0
16 LET GAME=1
18 LET X»19: LET Y-10
20 LET ES-"A"
30 FOR M=31 TO 1 STEP -1
31 IF SCORE>l THEN LET SCORE=
SCORE-2
32 IF DEAD>0 THEN LET DEAD=DE
AD-1: BEEP 0.05,-10
40 PRINT INK 6;AT 5,0;AS(32-M
TO );AS( TO 32-M);AT 10,0; INK
3;BS(M ТО );BS( ТО М) ;АТ 15,0; I
NK 4;С$(32-М ТО ) ;CS( ТО 32-М);
INK 7;AT 20,О;D$(М ТО );D$( ТО М
)
43 IF DEAD>0 THEN GO TO 55
45 IF M/2-INT (M/2) THEN LET
ES-"B"
46 IF M/3—INT (M/3) THEN LET
ES="K"
50 PRINT INK 6;AT X,Y;" ":ES;
И II
53 IF M/3-INT (M/3) THEN GO T
О 57
55 IF SCREENS (X+l,Y+l)-" " TH
EN GO SUB 200
57 IF DEAD>0 THEN GO TO 100
60 LET Y-Y+(INKEY$-"8" OR CODE
INKEYS=9)-(INKEYS-"5" OR CODE I
NKEYS-8)
85 IF Y<0 THEN LET Y-29. PRIN
T AT X, 0 ; " "
86 IF Y>29 THEN LET Y-0. PRIN
T AT X,29;" "
90 IF INKEY$-"0" OR CODE INKEY
$-12 THEN GO SUB 1000
95 LET ES="£"
100 INK 7: NEXT M: GO TO 30
200 REM FALL
205 INK 6
210 IF X=19 THEN GO TO 300
220 FOR N=X+1 TO X+5: PRINT AT
N,Y+l;"H";AT N-l.Y+l;" ": BEEP 0
■05,20-N: NEXT N
230 LET ES="E": LET X-N-l. PRIN
T AT X,Y+l;E$; LET DEAD=D*2:
240 IF SCREENS (X+1,Y+1)=" " TH
EN GO TO 210
250 RETURN
290 REM DEATH
300 PRINT AT 19,Y+l;"H": PAUSE
2: PRINT AT 20,Y+l;"H";AT 19,Y+l
- tl ?»
305 BEEP 0.1,0
310 PRINT AT 20,Y+l;" "
320 FOR N-Y+l TO 30: PRINT INK
5;AT 21,N;"F"; INK 6 ;"£•': BEEP
0.05,30-N: NEXT N: PRINT INK 5;
BRIGHT 1;AT 21,31;"F"
321 FOR N-l TO 10: NEXT N: LET
SCORE-O: GO TO 330
325 LET SCORE=INT (100»(SCORE/1
000) )
330 GO SUB 8: PRINT AT 2,10;"
";AT 3,10;" ";A
T 4,10;" ";AT 3„10;"C4
ET-";SCORE;"%"
340 PRINT AT 17,0; FLASH 1;" HA
ЖМИТЕ ENTER ДЛЯ ПРОДОЛЖЕНИЯ " :
IF CODE INKEYSO 13 THEN GO TO 3
40
345 CLS
350 FOR N-l TO 10: IF SCORE>Z(N
) THEN GO TO 400
360 NEXT N
370 PRINT AT 0,7;"ТАБЛИЦА PEKOP
ДОВ": FOR N-l TO 9: PRINT AT N»2
9;N.,._„.» " ; FS (N ) ;" ... "tZ(N):
NEXT N: PRINT AT 20,8,10;"- ";F
S(10);" ... ";Z(10)
375 PRINT #0; INK 6;" НАЖМИТ
E ЛЮБУЮ КЛАВИШУ... ": PAUSE 0
: CLS
380 GO TO 9515
400 FOR M-10 TO N+l STEP -1: LE
T Z(M)=Z(M-1): LET FS(M)-FS(M-1)
: NEXT M: LET Z(N)-SCORE
410 POKE 23658,0: INPUT "ВАШЕ И
МЯ (3 СИМВОЛА): ";G$: IF LEN GS>
3 THEN GO TO 410
420 LET F$(N)=GS: GO TO 370
1000 REM JUMP
1005 INK 6: GO SUB 9
1007 IF X=4 AND Y+l=PO THEN GO
TO 1100
1010 IF SCREENS (X-4,Y+l)-"#" TH
EN LET DEAD=D*2: GO TO 1050
1020 PRINT AT X,Y;" С ": ВЕЕР 0.
1,10: FOR N-X-l ТО Х-5 STEP -1:
PRINT AT N,Y+l;"D"; AT N+1,Y+1;"
" BEEP 0.05,20-N: NEXT N
1025 LET X-N+l
1030 RETURN
1050 PRINT AT X,Y+l;"C": PAUSE 2
: FOR N>X-1 TO X-3 STEP -1: PRIN
T AT N,Y+l;"D";AT N+l,Y+l:" ": В
EEP .05,20-N: NEXT N
1055 PRINT INK 7,AT N+l,Y+l;"D"
1060 BEEP 0.1,10
1070 FOR K-N+2 TO X PRINT AT K,
Y+l;"H";AT K-1,Y+1;" ": BEEP 0.0
5,20-K: NEXT К
1072 PRINT INK 6;AT K-1,Y+1;"£"
1075 LET E$="E"
1083 RETURN
1100 REM FINISH
1110 PRINT AT X,Y+l,"C": PAUSE 2
: FOR N=X-1 TO X-3 STEP -1: PRIN
T AT N,Y+l;"D";AT N+l,Y+l;" ": В
EEP 0.05,20-N: NEXT N
1115 PRINT AT 0,р0;"I";AT l,PO;"
3" FOR N=1 TO 10: BEEP 0.1,N: N
EXT N FOR N=20 TO 0 STEP -2: BE
EP 0.1,N: NEXT N
1120 GO TO 325
8010 LET M$-"# Ш *** * *
### ***"
8012 LET NS="# Ц # # § t
8014 LET 0$="* #########
# * Ш"
8016 LET PI="# # # * * # #
# # # r
8017 LET QS="### ### # #
##* * "
8020 FOR M=27 TO 2 STEP -1
8025 BEEP 0.01,M
8030 PRINT INK 1;AT 4,M;M$( TO
28-M); INK 2;AT 5,M;N$( TO 28-M)
; INK 3;AT 6,M;0$( TO 28-M); INK
4;AT 7,M;P$( TO 28-M); INK 5;AT
8,M;Q$( TO 28-M)
, 8040 PAUSE 2: NEXT M
8045 FOR 3=1 TO 3
8050 FOR N=1 TO 6: INK N" PRINT
AT 4,2;M$;AT 5,2;N$;AT 6,2,0$;AT
7,2;P$;AT 8,2;Q$
8055 BEEP 0.01,N+10+(3*2): NEXT
N «
8056 NEXT 3
8060 GO SUB 8- PRINT AT 12,9; IN
К 7; BRIGHT 1;"BY C.M.GIBBS"
8070 PAUSE 100
8080 CLS
8090 REM RULES
8100 PRINT AT 2,2; INK 7; BRIGHT
1;"5: ВЛЕВО";AT 4,2;"8: ВПРАВО"
;AT 7,2; " 0. ПРЫЖОК";АТ 12,0; "
ВЫ - СПОРТСМЕН ПОДТЯНИТЕСЬ НА
КОЛЬЦАХ ВВЕРХУ, НО НЕ ПАДАЙТЕ В
БРЕШЬ ДВИЖУЩЕГОСЯ НАСТИЛА И НЕ
УДАРЯЙТЕСЬ ГОЛОВОЙ!"
8110 PRINT FLASH 1;АТ 21,0;"ПОД
ОЖДИТЕ, МИНУТОЧКУ, ПОЖАЛУЙСТА":
GO ТО 9500
9000 REM GRAPHICS
9005 RESTORE 9000
9010 FOR N=0 TO 7: READ A: POKE
USR "A"+N,A: NEXT N
9020 DATA 28,28,8,63,40,14,82,35
9030 FOR N=0 TO 7: READ A: POKE
USR "B"+N,A NEXT N
9040 DATA 28,28,9,254,24,232,136
,12
9050 FOR N=0 TO 7: READ A: POKE
USR "C"+N,A: NEXT N
9060 DATA 68,186,185,82,60,199,6
6, 36
9070 FOR N-0 TO 7: READ A: POKE
USR "D"+N,A: NEXT N
9080 DATA 28,28,8,62,85,85,20.11
9
9090 FOR N=0 TO 7: READ A: POKE
USR "E"+N,A: NEXT N
9100 DATA 0,6,2,18,18,210,222,25
4
9110 FOR N=0 TO 7. READ A: POKE
USR "F"+N,A: NEXT N
9115 DATA 0,0,0,12,24,40,196,3
9120 FOR N-0 TO 7: READ A: POKE
USR "G"+N,A: NEXT N
9130 DATA 66,66,66,66,231,165,23
1,0
9140 FOR N-0 TO 7: READ A: POKE
USR "H"+N,A: NEXT N
9150 DATA 195,36,24,146,254,16,5
6,56
9160 FOR N-0 TO 7: READ A: POKE
USR "I"+N,A: NEXT N
9170 DATA 66,66,66,66,231,231,23
1,130
9180 FOR N=0 TO 7: READ A: POKE
USR "Л"+N,A: NEXT N
9190 DATA 186,186,254,16,56,68,6
8,198
9200 FOR N-0 TO 7: READ A: POKE
USR "K"+N.A: NEXT N
9210 DATA 28,28.255,8,15.241,0,0
9220 RETURN
9500 REM STRINGS
9510 DIM AS(31). DIM B$(31): DIM
C$(31) : DIM D$(31)
9515 IF GAME-1 THEN LET B-l+INT
(RND*3): GO TO 9520
9517 FOR B-l TO 3
9520 FOR N-l TO 31
9530 LET R-INT (RND*6)
9540 IF R-2 THEN LET HOLE-1: GO
TO 9548
9545 IF B-l THEN LET A$(N)="#":
GO TO 9551
9546 IF B-2 THEN LET B$(N)-"#":
GO TO 9551
9547 IF B=3 THEN LET C$ (N )=•"#" :
GO TO 9551
9548 IF B-l THEN LET A$(N)=" "
9549 IF B-=2 THEN LET B$(N)=" "
9550 IF B-3 THEN LET CS(N)-" "
9551 NEXT N
9552 IF HOLE-O THEN LET A$(l)-"
": LET B$(l)-" ": LET C$(l)=" "
9553 LET HOLE-O
9555 IF GAME-1 THEN CLS GO TO
9600
9560 NEXT В
9565 LET D$-"# #################
#############"
9570 PRINT AT 21,0; FLASH 0;"
НАЖМИТЕ ЛЮБУЮ КЛАВИШУ..
PAUSE О
9575 CLS : GO SUB 9
9600 GO SUB 9: LET ZS^'F" : FOR M
-31 TO 1 STEP -1
9610 PRINT INK 6;AT 5,M;A$( TO
32-M);AT 10,0; INK 3:BS(M TO );A
T 15,M; INK 4;C$( TO 32-M); INK
7;AT 20,0;D$(M TO )
9615 PRINT INK 5;AT 21,0;Z$
9616 LET ZS-Z$+"E"
9620 NEXT M
9625 PRINT AT 19,11;,,D»
9630 LET PO-2+INT (RND*27): PRIN
T AT 0,PO; INK 6; BRIGHT 1;"G"
9640 GO SUB 8: INPUT "УРОВЕНЬ СЛ
ОЖНОСТИ (1/2/3): ";D
9645 IF DOINT D OR D<1 OR D>3 T
HEN GO TO 9640
9650 GO TO 15
9999 BORDER 7: PAPER 7: INK 0
