Ваша задача - успеть подбежать к звонящему телефону (отмечен-
ному знаком "!") Телефоны расположены на двух этажах здания. Пере-
мещаться с одного этажа на другой Вам поможет лифт.
47 POKE USR "B"+7.BIN 00010100
50 POKE USR "C" +0, BIN 00010000
51 POKE USR "C"+1,BIN 00011000
52 POKE USR "C"+2,BIN O0010O00
53 POKE USR "C"+3,BIN 00111000
54 POKE USR "C"+4,BIN 01010100
55 POKE USR "C"+5,BIN 10010010
56 POKE USR "C"+6,BIN 00111000
57 POKE USR "C"+7,BIN 01000100
60 POKE USR "D"+0,BIN 00010000
61 POKE USR "D"+1,BIN 00011000
62 POKE USR "D"+2,BIN 00010000
63 POKE USR "D"+3,BIN 00111000
64 POKE USR "D"+4,BIN 00111000
65 POKE USR "D" +5,BIN 00010000
66 POKE USR "D"+6,BIN 00101000
67 POKE USR "D"+7,BIN 00101000
70 POKE USR "E",255
71 POKE USR "E"+1,129
72 POKE USR "E"+2.1
73 POKE USR "£" + 3,1
74 POKE USR "E"+4,1
75 POKE USR "E"+5,1
76 POKE USR "E"<-6,129
77 POKE USR "E"+7,255
80 POKE USR "F",255: POKE USR
"F"+7,255
81 FOR N=1 TO 6
82 POKE USR " F"+N,129
83 NEXT N
89 RETURN
100 GO SUB 20: GO SUB 8
110 LET SC=0: LET HS=0: LET A$=
"??????????"
140 BORDER 0; PAPER 7: INK О: С
LS
150 PRINT INK 5;AT 12.11;"£Е^
6*iq8, 25*sp,id 8,2*sp,2*iaB,2*so,
ia8,23*sp,2*ia8,2*sp,2*ia8,2*so,
2*iq-8 ,25*SP, 4*1(78 ,28*sp, 4*1(78 ,
27*SP,2*id8,2*SD,2*lq8,26*SD,
2*1(78 ,2*SO ,2*138 r25*sp , 8*1(78 ,
24"SP .8*1(78"
160 PRINT INK 2; FLASH 1;AT 10
,11;" ЗВОНОК..."
170 FOR N=0 TO 2: BEEP .5,10: P
AUSE 5: BEEP .55,10: PAUSE 27: N
EXT N
180 PRINT INK 1;AT 10.0;
"15*iq8,17*sp.15*ia8"
185 PAUSE 23
190 PRINT INK 5;AT 0,0;
"3*SD,2*j<j8 ,29*SD, id8 ,31*sp,iq8 ,
31*sp,isrs ,31*sp, jj8 ,29*SP. 3*1178 ,
29*SD,3*jg8,29*SD,2*iaB,sp,
2*ia8,27*sp,2*ia8 ,30*sp,2*ia8,
30*SD ,2*1<78 , 30*SD, 2*1(78 , 28*SP"
200 PRINT INK 5;AT 12,12;
"35*sp,2*ia8.30*sp.2*ia8 ,8*sp"
210 PAUSE 5
580 BEEP .1,13
590 PRINT AT 4,5; "АЛЛО, НАЖМИТЕ
ЛЮБУЮ КЛАВИШУ"
600 ВЕЕР -3,5
620 PAUSE О
630 CLS
635 BORDER 1
640 PRINT AT 1,О;"""5"" - ДВИЖЕ
НИЕ ВЛЕВО"
650 PRINT AT 3,0;......8"" - ДВИЖЕ
НИЕ ВПРАВО"
660 PRINT AT 7,0;......О"" - ОТКРЫ
ТЬ ДВЕРЬ ЛИФТА"
670 PRINT AT 5,0;"-------------
___________________к
680 PRINT AT 9,0;"ЕСЛИ УСПЕЕТЕ
СНЯТЬ ТРУБКУ ЗВОНЯ-"
690 PRINT AT 11,0,"И|ЕГО ТЕЛЕФОН
А, ПОЛУЧИТЕ 5 ОЧКОВ'
700 PRINT AT 13,о;"ИНАЧЕ - ЖИЗН
Ь ДОЛОЙ!"
710 PRINT AT 15,0;"А У ВАС ИХ Т
ОЛЬКО ТРИ"
720 PRINT AT 17,0;"ДА И ВРЕМЕНИ
СТАНОВИТСЯ"
730 PRINT AT 19,0;"ВСЕ МЕНЬШЕ..
735 PAUSE 50
740 PRINT AT 21,0 .""НАЖМИТЕ ЛЮБУ
Ю КЛАВИШУ"
760 PAUSE О
770 CLS
775 LET X=20: LET Y=1
780 PRINT INK 6;AT 21,0;
"32*33"
1130 LET L=3
1140 PRINT AT 0,0;"СЧЕТ-";SC;" P
ЕКОРД-";HS:" ЖИЗНИ-";L
1150 PRINT INK 6;AT 12,0;
"24*33"
1160 PRINT INK 5;AT 10,0;"T T
T T T T "
1170 PRINT INK 6; OVER 1;AT 10,
25;"7*iaS,26*sp.ia5,4*sp,a5,
26*sp,ia5,4*sp,as,26*sc,iaS,
4*sp,a5,26*sp,ias,4*sp,a5.26*sp.
ia5,4*sp,a5.26*sd■iaS.4*sp.a5.
26*sd, ias, 4*sv,q5 ,26*sp,ia5,
4*sp.g5,26*sD,ia5,4*sD.a5.26*sp.
iaS, 4*sv ,cr5,26*sp"
1180 PRINT INK 6;AT 12,24; OVER
l; "igs ,3i*sp, icrB ,3i*sp, iue,
31*sp, icrB ,3l*sD,iaB ,31*sp.icr8,
3l*sp. icrB ,3l*sp, iaB ,sp"
1185 PRINT INK 5;AT 19,0;"T 1
T T T T"
1300 LET Q=20: LET Z=25
1310 PRINT AT Q,Z;"F"
1320 LET W=30
1335 PRINT AT X,V;"A"
1350 LET P=INT (RND*12)+l
1351 IF P=1 THEN LET G=9: LET H
=0
1352 GO SUB 2000
1353 IF P«2 THEN LET G=9: LET H
=4
1354 GO SUB 2000
1355 IF P=3 THEN LET G=9: LET H
-8
1356 GO SUB 2000
1357 IF P=4 THEN LET G-9: LET H
= 12
1358 GO SUB 2000
1359 IF P=5 THEN LET G=9: LET H
= 16
1360 GO SUB 2000
1361 IF P-6 THEN LET G=9: LET H
= 20
1362 GO SUB 2000
1363 IF P=7 THEN LET G=18: LET
H=0
1364 GO SUB 2000
1365 IF P=8 THEN LET G=18: LET
H=4
1366 GO SUB 2000
1367 IF P=9 THEN LET G=18: LET
H=8
1368 GO SUB 2000 о
1369 IF P=10 THEN LET G=18: LET
H=12
1370 GO SUB 2000
1371 IF P=ll THEN LET G=18: LET
H=16
1372 GO SUB 2000
1373 IF P=12 THEN LET G=18: LET
H=20
1374 GO SUB 2000
1380 PRINT AT G,H; INK 2; FLASH
1; " ! " : LET W=W-1
1400 GO SUB 2000 .
1405 IF W=0 THEN LET L-L-l: BEE
P . 5,,0: GO SUB 7000
1410 IF L=0 THEN GO TO 9000
1420 GO TO 1380
2000 IF INKEY$="5" THEN GO SUB
3000
2010 IF INKEY$="8" THEN GO SUB
4000
2020 IF INKEYS="0" THEN GO SUB
5000
2030 RETURN
3000 LET Y=Y-1
3001 IF Y=-l THEN LET Y-0
3002 PRINT AT X,Y;"A";AT X,Y;"B"
3003 PRINT AT X,Y+l;" ": IF X-2=
G AND Y=H THEN LET SC=SC+5: PRI
NT AT X, Y;" ": ВЕЕР .1,20: GO SU
В 7000
3004 PRINT AT X,Y+1;" "
3005 RETURN
4000 LET Y=Y+1
4001 IF Y=25 THEN PRINT AT X,Y;
" ": GO SUB 6000
4002 PRINT AT X,Y;"C";AT X,Y;"D"
4003 IF X-2-G AND Y=H THEN PRIN
T AT X,Y-l;" ": LET SC=SC+5: BEE
P .1,20: GO SUB 7000
4005 PRINT AT X,Y-l:" "
4006 RETURN
5000 PRINT AT Q,Z;"E"
5001 RETURN
6000 REM
6001 IF X=20 THEN PRINT AT 20,2
4;" ": FOR N=20 TO 11 STEP -1: P
PINT AT N.25;"E": PRINT OVER 1;
AT N,25;"F": PAUSE 5: PRINT AT N
,25;" " NEXT N: LET X=ll: PRINT
AT 11,25;"E": PRINT AT 11,24;"A
": LET Y=24. GO TO 6003
6002 IF X=ll THEN PRINT AT 11,2
4;" ": FOR N=11 TO 20 PRINT AT
N,25;"F": PRINT OVER 1;AT N,25;
"E": PAUSE 5' PRINT AT N,25;" ":
NEXT N LET X=20 PRINT AT 20,2
5;"E": PRINT AT 20,24;"A": LET Y
=24
6003 LET Y=24
6004 RETURN
7000 PRINT AT 0,0;"СЧЕТ-";SC;" P
ЕКОРД-";HS;" ЖИЗНИ-";L
7001 LET W=120
7002 IF SC>100 THEN LET W=W-10
7003 .IF SC>200 THEN LET VJ=W-10
7004 IF SC>300 THEN LET W=W-10
7005 IF SC>400 THEN LET W=W-10
7006 IF SC>500 THEN LET W=W-10
7007 IF SC>1000 THEN LET W=W-15
7008 IF SC>2000 THEN LET W=W-15
7009 IF SC>3000 THEN LET W=W-15
7010 IF SOIOOOO THEN LET W=W-20
7050 PRINT AT G,H;" "
7100 GO TO 1320
9000 FOR N=30 TO -20 STEP -2 5
9001 BEEP .1,N: NEXT N
9002 CLS
9003 IF SC>HS THEN PRINT "ВЫ УС
ТАНОВИЛИ НОВЫЙ РЕКОРД!": ВЕЕР .5
,32: LET HS=SC: INPUT "ИМЯ: ";А$
9004 CLS : PRINT "РЕКОРД - ";HS:
PRINT : PRINT "РЕКОРДСМЕН - ";A
S: PRINT : PRINT "ВАШ СЧЕТ - ";S
С
9005 PRINT '"НАЖМИТЕ ЛЮБУЮ КЛАВИ
.......ДЛЯ ПОВТОРЕНИЯ ИГРЫ"
9007 PAUSE 0
9999 LET SC=0: LET W=120: GO TO
770
