| Является частью релиза: | Find Exit |
| Размер файла: | 21911 |
| md5: | eb0fb63c1b5f681a359a03d40f955cbb |
0 REM :S/ RETURN THEN CHR$ =*]/##"]/>o2SQR /<>
1 GO TO 9956
2 GO TO 9940
5 GO SUB 20: STOP
6 RANDOMIZE USR 15616
7 STOP
20 LET PROG=PEEK 23635+256*PEEK 23636: IF PROG=23755 THEN GO TO 9990
22 RANDOMIZE USR 15619: REM : ERASE "fcode"
24 RANDOMIZE USR 15619: REM : SAVE "fcode" LINE 2
26 LET ERR=USR 15619: REM : VERIFY "fcode"
28 IF ERR<>0 THEN PRINT AT 21,12; FLASH 1;"ERROR ";ERR: BEEP 1,0: PAUSE 0: RETURN
29 IF ERR=0 THEN PRINT AT 21,12; INVERSE 1;" O.K. ": BEEP .1 TO ,26: BEEP .1 TO ,20: PAUSE 50: RETURN
45 LET R$(1)="ne ponima`."
50 FOR X=1 TO 4
52 IF R$(X,1)="*" THEN LET X=5: INK 6: GO TO 195
54 RANDOMIZE USR SS: PRINT INK 5;R$(X): LET R$(X)="*"
56 NEXT X
58 GO TO 195
100 BORDER 0: PAPER 0: INK 6: BRIGHT 1: CLS
102 GO SUB 7000+PEEK F*10
104 IF PEEK F=7 AND PEEK (O+9)<>99 THEN GO TO 195
105 RANDOMIZE USR 64930
109 PRINT TAB 3; PAPER 1;"[A] [G]"
110 PRINT TAB 3; PAPER 1;"[A]"; INK 7;" w pole wa{ego zreniq: "; INK 6;"[G]"
115 LET HE=0
120 FOR X=0 TO (MOB-1)
122 IF PEEK (PBS+X)=0 THEN LET X=MOB: GO TO 128
124 RANDOMIZE USR SS: PRINT TAB 3; PAPER 1; INK 6;"[A]"; INK 7;" ";O$(PEEK (PBS+X)); INK 6;"[G]": LET HE=HE+1
126 NEXT X
128 IF HE=0 THEN PRINT TAB 3; PAPER 1; INK 6;"[A]"; INK 7;" net ni~ego interesnogo"; INK 6;"[G]"
129 PRINT TAB 3; PAPER 1;"[C][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][F]": POKE 64453,PEEK 23689-1
195 RANDOMIZE USR SS: PRINT INK 4;"wa{i dejstwiq?": BEEP .1 TO ,20
196 INK 6
200 RANDOMIZE USR 64459: PRINT
202 LET VB=PEEK 64114
204 LET NO=PEEK 64115
206 REM ANY SPECIALS? =========
208 IF PEEK F=7 AND PEEK (O+9)<>99 AND VB<>0 AND (VB<>5 AND VB<>6 AND VB<>7 AND VB<>8) THEN LET R$(1)="zdesx ne obojtisx bez sweta!": GO TO 50
228 IF VB=200 OR NO=201 THEN GO TO 45
235 GO TO 1000+VB*100
1000 IF NO>MOB+6 THEN GO TO 100
1002 LET NO=NO-MOB: POKE 64115,NO
1005 IF ((PEEK F=4 AND NO=3) OR (PEEK F=5 AND NO=4)) AND PEEK (F+4)=0 THEN LET R$(1)="dwerx zakryta.": GO TO 50
1010 IF PEEK F=6 AND NO=6 AND PEEK (F+3)=0 THEN LET R$(1)="sli{kom uzko, ne proleztx.": GO TO 50
1020 IF PEEK F=10 AND NO=6 AND PEEK (F+7)=0 THEN CLS : PRINT AT 10,16; FLASH 1;"*": GO SUB 8800: CLS : PRINT AT 2,1;"wy upali wniz i razbilisx.": BEEP 1.2[K],28: PAUSE 100: BEEP .5 COPY ,15: GO TO 1602
1030 IF PEEK F=10 AND NO=6 THEN POKE F,11: GO TO 100
1040 IF (NO=1 OR NO=2 OR NO=3 OR NO=4 OR NO=5 OR NO=6) AND PEEK (F+8)=1 THEN LET R$(1)="sna~ala nuvno sleztx s sunduka.": GO TO 50
1050 IF PEEK F=21 AND (NO=1 OR NO=3 OR NO=4) THEN LET R$(1)="w |ti lesa odnomu lu~{e ne": LET R$(2)="suwatxsq!": GO TO 50
1060 IF PEEK F=11 AND NO=1 AND PEEK (F+12)=0 THEN POKE (F+12),1: LET R$(1)="wy uwereny w |tom ?": LET R$(2)="~toby broditx po dvunglqm nuvno": LET R$(3)="znatx kak idti! a to zabluditesx": GO TO 50
1070 IF PEEK F=19 AND NO=4 THEN CLS : PRINT AT 10,16; FLASH 1;"*": GO SUB 8800: CLS : PRINT AT 2,1;"wy zabreli tak daleko, ~to": PRINT AT 3,1;"naporolisx na dikih zwerej,": PRINT AT 4,1;"kotorye migom sovrali was": BEEP 1.2[K],28: PAUSE 100: BEEP .5 COPY ,15: GO TO 1602
1090 RANDOMIZE USR 65005
1092 IF PEEK 64115=0 THEN LET R$(1)="tuda wam ne projti.": GO TO 50
1093 POKE F,PEEK 64115
1094 GO TO 100
1100 IF NO>MOB THEN LET R$(1)="|to newozmovno!": GO TO 50
1105 IF PEEK (O+NO)=99 THEN LET R$(1)="prowerxte swoj inwentarx!": GO TO 50
1110 IF PEEK (O+NO)<>PEEK F THEN LET R$(1)="nawernoe, |to wam prisnilosx!": GO TO 50
1115 IF PEEK (F+99)>=MAX THEN LET R$(1)="u was wedx tolxko dwe ruki,": LET R$(2)="wam wse |to ne unesti.": GO TO 50
1117 IF PEEK (O+3)=99 THEN LET R$(1)="wam wse |to ne unesti!": GO TO 50
1120 IF NO=3 AND PEEK (F+2)=0 THEN LET R$(1)="on tqvelyj, wnutri ~to-to estx.": GO TO 50
1121 IF NO=3 AND PEEK (F+99)>=1 THEN LET R$(1)="sperwa oswobodite ruki!": GO TO 50
1122 IF NO=6 AND PEEK (F+6)=1 THEN LET R$(1)="sna~ala otwqvite ee.": GO TO 50
1124 IF NO=3 AND PEEK (F+8)=1 THEN LET R$(1)="sna~ala slezte.": GO TO 50
1125 POKE (O+NO),99: POKE (F+99),PEEK (F+99)+1: LET R$(1)="O.K.": GO TO 50
1200 IF NO>MOB THEN LET R$(1)="ne budem delatx glupostej!": GO TO 50
1205 IF PEEK (O+NO)<>99 THEN LET R$(1)="prowerxte swoj inwentarx!": GO TO 50
1210 IF NO=9 AND PEEK F<>7 THEN POKE (O+9),0: POKE (O+1),PEEK F: POKE (F+1),0: POKE (F+99),PEEK (F+99)-1: LET R$(1)="O.K. on srazu ve pogas.": GO TO 50
1215 IF NO=9 THEN POKE (O+9),0: POKE (O+1),PEEK F: POKE (F+1),0: POKE (F+99),PEEK (F+99)-1: RANDOMIZE USR SS: PRINT INK 5;"O.K. no on tut ve gasnet!": GO SUB 8800: GO TO 100
1230 POKE (O+NO),PEEK F: POKE (F+99),PEEK (F+99)-1: LET R$(1)="O.K.": GO TO 50
1300 IF NO<10 THEN GO TO 1353
1302 IF NO<>16 THEN GO TO 1315
1305 IF (PEEK F=4 OR PEEK F=5) THEN LET R$(1)="oby~naq derewqnnaq dwerx ": LET R$(2)="i w dannyj moment ona": LET R$(3)="zaperta."
1310 IF PEEK (F+5)=1 AND PEEK (F+4)=0 THEN LET R$(3)="zakryta."
1311 IF PEEK (F+4)=1 THEN LET R$(3)="otkryta."
1312 GO TO 50
1315 IF NO<>17 THEN GO TO 1320
1317 IF PEEK F=10 THEN LET R$(1)="veleznyj {tyrx wbityj w stenu."
1318 GO TO 50
1320 IF NO<>18 THEN GO TO 1325
1322 IF PEEK F=2 THEN LET R$(1)="w nih gorit suhoe gor`~ee."
1324 GO TO 50
1325 IF NO<>19 THEN GO TO 1331
1326 IF PEEK F=8 AND PEEK (F+9)=0 THEN POKE (F+9),1: LET R$(1)="wrode ni~ego podozritelxnogo.": GO TO 50
1327 IF PEEK F=8 THEN LET R$(1)="e}e raz osmotrew stenu wy widete": LET R$(2)="~to odin kirpi~ nemnogo wydwinut"
1328 IF PEEK F=8 AND PEEK (F+10)=1 THEN GO TO 1385
1329 IF PEEK F=11 THEN LET R$(1)="na stene wy widete strannu`": LET R$(2)="nadpisx."
1330 GO TO 50
1331 IF NO<>20 THEN GO TO 1339
1332 IF PEEK F=8 THEN LET R$(1)="kirpi~ kak kirpi~."
1335 GO TO 50
1339 IF NO<>21 THEN GO TO 1345
1340 IF PEEK F=6 AND PEEK (F+3)=0 THEN LET R$(1)="odin iz nih zakrywaet wam": LET R$(2)="prohod wniz.": GO TO 50
1342 IF PEEK F=6 THEN GO TO 1385
1345 IF NO<>22 THEN GO TO 1348
1346 IF PEEK F=11 THEN LET R$(1)="zdesx nacarapano >>^<"
1347 GO TO 50
1348 IF NO<>23 THEN GO TO 1351
1349 IF (PEEK F=20 OR PEEK F=21) AND NO=23 THEN LET R$(1)="dowolxno glubokaq, wbrod ne": LET R$(2)="perejti."
1350 GO TO 50
1351 IF PEEK F=21 AND NO=24 THEN GO TO 1385
1352 GO TO 50
1353 IF (PEEK (O+NO)<>PEEK F AND PEEK (O+NO)<>99) THEN LET R$(1)="|togo rqdom s wami net!": GO TO 50
1355 IF NO=1 OR NO=9 THEN LET R$(1)="oby~nyj na wid fakel.": GO TO 50
1360 IF NO=2 THEN LET R$(1)="otli~naq {tuka dlq worow.": GO TO 50
1365 IF NO=3 THEN LET R$(1)="derewqnnyj, s zamkom.": GO TO 50
1370 IF NO=4 THEN LET R$(1)="kl`~ej ~to-li ne wideli?": GO TO 50
1375 IF NO=5 THEN LET R$(1)="staraq da e}e i pustaq.": GO TO 50
1380 IF NO=6 THEN LET R$(1)="wrode pro~naq.": GO TO 50
1383 IF NO=7 THEN LET R$(1)="nastoq}aq zolotaq moneta.": GO TO 50
1384 IF NO=8 THEN LET R$(1)="napominaet kopilku, imeetsq }elx.": GO TO 50
1385 LET R$(1)="wyglqdit sower{enno obyknowenno,": LET R$(2)="net ni~ego strannogo.": GO TO 50
1400 GO TO 100
1500 RANDOMIZE USR SS: PRINT TAB 3; PAPER 2;"[D][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][E]"
1501 RANDOMIZE USR SS: PRINT TAB 3; PAPER 2; INK 6;"[A]"; INK 7;" w wa{em rasporqvenii: "; INK 6;"[G]"
1502 RANDOMIZE USR 64968
1503 LET HE=0
1504 FOR X=0 TO (MOB-1)
1506 IF PEEK (PBS+X)=0 THEN LET X=MOB: GO TO 1512
1508 RANDOMIZE USR SS: PRINT TAB 3; PAPER 2; INK 6;"[A] "; INK 7;O$(PEEK (PBS+X)); INK 6;"[G]": LET HE=HE+1
1510 NEXT X
1512 IF HE=0 THEN RANDOMIZE USR SS: PRINT TAB 3; PAPER 2; INK 6;"[A]"; INK 7;" net sowsem ni~ego "; INK 6;"[G]"
1513 RANDOMIZE USR SS: PRINT TAB 3; PAPER 2;"[C][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][F]"
1514 GO TO 195
1600 CLS
1602 PRINT AT 8,2;"hotite poprobowatx e}e raz?";AT 11,8;"wwedite Y ili N"
1604 POKE 23658,8: INPUT A$
1606 IF A$="Y" THEN RANDOMIZE USR 65058: GO TO 100
1608 IF A$="N" THEN GO SUB 8800: GO SUB 8800: RANDOMIZE USR 15619: REM : RUN
1610 BEEP .2 TO ,20: GO TO 1600
1700 REM zapisx
1701 RANDOMIZE USR 65034
1702 CLS
1704 PRINT AT 7,0; "dlq wremennogo sohraneniq pozicii w pamqti kompx`tera wwedite ""w"" (wremenno)"
1706 PRINT '' "dlq postoqnnogo sohraneniq pozi-cii na magnitnom nositele wwedi-te ""p"" (postoqnno)"
1708 POKE 23658,0: INPUT A$: IF A$<>"w" AND A$<>"p" THEN GO TO 1708
1710 IF A$="w" THEN GO TO 100
1712 LET ERR=USR (PEEK 23635+256*PEEK 23636+5): REM : SAVE "DATA"CODE VAL "64130",VAL "150"
1713 GO SUB 28
1714 GO TO 100
1800 REM zagruzka
1801 CLS
1802 PRINT AT 7,0; "dlq wosstanowleniq wremenno sohranennoj pozicii iz pamqti wwedite ""w"" (wremenno)"
1804 PRINT '' "dlq zagruzki postoqnno sohranen-noj igry s magnitnogo nositelq wwedite ""p"" (postoqnno)"
1806 POKE 23658,0: INPUT A$: IF A$<>"w" AND A$<>"p" THEN GO TO 1806
1808 CLS : IF A$="w" THEN GO TO 1814
1811 INK 0
1812 RANDOMIZE USR (PEEK 23635+256*PEEK 23636+5): REM : LOAD "DATA"CODE VAL "64130",VAL "150"
1813 INK 6
1814 IF PEEK 64130=0 THEN PRINT AT 12,0; "wy ni razu ne sohranqli igru."''"net dannyh dlq wosstanowleniq!": BEEP .5 COPY ,15: PAUSE 150: GO TO 100
1815 RANDOMIZE USR 65046
1816 GO TO 100
1900 IF PEEK F=9 AND NO=3 AND PEEK (F+2)=0 THEN LET R$(1)="on zapert.": GO TO 50
1905 IF NO=3 AND PEEK (F+2)=1 THEN LET R$(1)="tak on ve otkryt!": GO TO 50
1910 IF (PEEK F=4 OR PEEK F=5) AND NO=16 AND PEEK (F+5)=1 AND PEEK (F+4)=0 THEN POKE (F+4),1: LET R$(1)="O.K. dwerx otkryta!": GO TO 50
1915 IF (PEEK F=4 OR PEEK F=5) AND NO=16 AND PEEK (F+4)=1 THEN LET R$(1)="ona uve otkryta!": GO TO 50
1920 IF (PEEK F=4 OR PEEK F=5) AND NO=16 AND PEEK (F+4)=0 AND PEEK (F+5)=0 THEN LET R$(1)="ona zaperta!": GO TO 50
1940 LET R$(1)="wy popytalisx |to otkrytx,": LET R$(2)="no u was ni~ego ne wy{lo.": GO TO 50
2000 IF PEEK F=9 AND NO=3 AND PEEK (F+2)=0 AND PEEK (O+2)=99 THEN POKE (F+2),1: POKE (O+5),9: POKE (O+1),9: LET R$(1)="wzlomaw zamok fomkoj wy": LET R$(2)="otkryli sunduk.": GO TO 50
2005 IF PEEK F=9 AND NO=3 AND PEEK (F+2)=0 AND PEEK (O+4)=99 THEN LET R$(1)="kl`~ik ne podhodit!": GO TO 50
2010 IF PEEK F=9 AND NO=3 AND PEEK (F+2)=0 THEN LET R$(1)="prosto tak ego ne otperetx!": GO TO 50
2015 IF (PEEK F=4 OR PEEK F=5) AND NO=16 AND PEEK (F+5)=0 AND PEEK (O+4)=99 THEN POKE (F+5),1: LET R$(1)="kl`~ podo{el i dwerx otperlasx.": GO TO 50
2035 LET R$(1)="uwy, ne polu~aetsq.": GO TO 50
2100 IF PEEK F=10 AND NO=15 THEN CLS : PRINT AT 10,16; FLASH 1;"*": GO SUB 8800: CLS : PRINT AT 2,1;"wy prygnuli wniz i razbilisx.": BEEP 1.2[K],28: PAUSE 100: BEEP .5 COPY ,15: GO TO 1602
2110 GO TO 2035
2200 IF PEEK F=2 AND NO=1 AND PEEK (O+1)=99 AND PEEK (F+1)=0 AND PEEK (F+8)=1 THEN POKE (O+1),0: POKE (O+9),99: POKE (F+1),1: LET R$(1)="O.K. fakel gorit!": GO TO 50
2205 IF NO=9 AND PEEK (O+9)=99 THEN LET R$(1)="wy ne wnimatelxny!": LET R$(2)="fakel uve gorit!": GO TO 50
2210 IF PEEK F=2 AND NO=1 AND PEEK (O+1)=99 THEN LET R$(1)="do ognq ne dotqnutxsq": LET R$(2)="nemnogo ne hwataet.": GO TO 50
2212 IF PEEK F=2 AND NO=1 THEN LET R$(1)="no u was ego net!": GO TO 50
2215 IF PEEK F=2 THEN LET R$(1)="poprobujte zave~ ~to-nibudx": LET R$(2)="drugoe.": GO TO 50
2217 IF NO=5 AND (PEEK (O+5)=99 OR PEEK (O+5)=PEEK F) THEN LET R$(1)="w nej net kerosina!": GO TO 50
2220 LET R$(1)="poprobujte |to gde-nibudx w": LET R$(2)="drugom meste.": GO TO 50
2300 IF PEEK (O+1)=99 AND NO=1 THEN LET R$(1)="no wedx on ne gorit!": GO TO 50
2305 IF NO=9 AND PEEK (O+9)=99 AND PEEK F<>7 THEN POKE (O+9),0: POKE (O+1),99: POKE (F+1),0: LET R$(1)="O.K. fakel pogas.": GO TO 50
2310 IF NO=9 AND PEEK (O+9)=99 THEN POKE (O+9),0: POKE (O+1),99: POKE (F+1),0: RANDOMIZE USR SS: PRINT INK 5;"O.K. fakel bolx{e ne swetit.": GO SUB 8800: GO TO 100
2315 IF PEEK F=2 AND NO=18 THEN GO TO 2035
2320 LET R$(1)="gde wy widete ogonx?": GO TO 50
2400 IF NO=3 AND PEEK (O+3)=PEEK F AND PEEK (F+8)=0 THEN POKE (F+8),1: LET R$(1)="O.K. wy stoite na sunduke.": GO TO 50
2402 IF NO=3 AND PEEK (O+3)=PEEK F THEN LET R$(1)="tak wy uve stoite na nem!": GO TO 50
2405 LET R$(1)="tuda wam ne zabratxsq.": GO TO 50
2500 IF NO=3 AND PEEK (F+8)=1 THEN POKE (F+8),0: LET R$(1)="O.K. wy slezli s sunduka.": GO TO 50
2510 LET R$(1)="wy tuda ne zabiralisx.": GO TO 50
2600 IF (PEEK F=4 OR PEEK F=5) AND NO=16 AND PEEK (F+4)=1 THEN POKE (F+4),0: LET R$(1)="O.K. teperx dwerx zakryta.": GO TO 50
2605 GO TO 2035
2700 IF PEEK F=6 AND NO=21 AND PEEK (F+3)=0 THEN POKE (F+3),1: LET R$(1)="O.K. wy otodwinuli ego.": GO TO 50
2705 IF PEEK F=6 AND NO=21 THEN LET R$(1)="za~em wam opqtx ego dwigatx?": GO TO 50
2710 IF PEEK F=8 AND NO=20 AND PEEK (F+10)=0 THEN POKE (F+10),1: POKE (O+4),8: LET R$(1)="wydwinuw kirpi~ wy uwideli": LET R$(2)="~to-to blestq}ee.": GO TO 50
2720 IF PEEK F=8 AND NO=20 THEN LET R$(1)="ni odin iz kirpi~ej bolx{e": LET R$(2)="ne wydwigaetsq.": GO TO 50
2730 GO TO 2035
2800 IF NO<10 AND PEEK (O+NO)<>99 THEN LET R$(1)="prowerxte swoj inwentarx!": GO TO 50
2805 IF NO=6 THEN LET R$(1)="kak ?": GO TO 50
2810 IF NO=5 THEN LET R$(1)="ostawte ee!": LET R$(2)="ona sower{enno bespolezna.": GO TO 50
2812 LET R$(1)="uto~nite povajlusta!": GO TO 50
2900 IF (PEEK F=4 OR PEEK F=5) AND NO=16 AND PEEK (F+4)=0 AND PEEK (F+5)=1 AND PEEK (O+4)=99 THEN POKE (F+5),0: LET R$(1)="O.K. wy zaperli dwerx": GO TO 50
2905 GO TO 2035
3000 IF (PEEK F=4 OR PEEK F=5) AND NO=16 AND PEEK (F+5)=0 THEN LET R$(1)="pro~naq dwerx, sil ne hwataet.": GO TO 50
3010 IF PEEK F=8 AND NO=19 THEN LET R$(1)="O.K. no ni~ego ne proizo{lo.": GO TO 50
3012 IF NO=8 AND (PEEK (O+8)=99 OR PEEK (O+8)=PEEK F) THEN POKE (O+8),0: POKE (F+99),PEEK (F+99)-1: POKE (O+7),PEEK F: LET R$(1)="gor{ok razbilsq wdrebezgi i iz": LET R$(2)="nego ~to-to wypalo.": GO TO 50
3015 LET R$(1)="ne bujstwujte! lu~{e dumajte": LET R$(2)="golowoj.": GO TO 50
3100 IF PEEK F=10 AND NO=6 AND PEEK (F+6)=0 AND PEEK (O+6)=99 THEN POKE (F+6),1: POKE (O+6),PEEK F: POKE (F+99),PEEK (F+99)-1: LET R$(1)="O.K. wy priwqzali ee k {tyr`.": GO TO 50
3103 IF PEEK F=10 AND NO=6 AND PEEK (F+6)=1 THEN LET R$(1)="wy uve sdelali |to!": GO TO 50
3105 IF F<>10 AND NO=6 AND PEEK (O+6)=99 THEN LET R$(1)="zdesx ee ni k ~emu ne priwqve{x!": GO TO 50
3108 IF NO=6 AND PEEK (O+6)<>99 THEN LET R$(1)="no u was ve ee net!": GO TO 50
3110 LET R$(1)="priwqzywqtx movno werewku,": LET R$(2)="a ne to ~to wy dumaete.": GO TO 50
3200 IF PEEK F=10 AND NO=6 AND PEEK (F+6)=1 THEN POKE (F+6),0: POKE (F+7),0: LET R$(1)="O.K. wy otwqzali werewku.": GO TO 50
3205 IF NO=6 AND (PEEK (O+6)=99 OR PEEK (O+6)=PEEK F) THEN LET R$(1)="ona ni k ~emu ne priwqzana!": GO TO 50
3210 LET R$(1)="zdesx ni ~to ne k ~emu ne ": LET R$(2)="priwqzano.": GO TO 50
3300 IF PEEK F=10 AND NO=6 AND PEEK (F+6)=1 AND PEEK (F+7)=0 THEN POKE (F+7),1: LET R$(1)="O.K. wy skinuli werewku wniz.": LET R$(2)="teperx odin konec ee priwqzan,": LET R$(3)="a drugoj spu}en wniz.": GO TO 50
3305 IF PEEK F=10 AND NO=6 AND (PEEK (O+6)=99 OR PEEK (O+6)=PEEK F) AND PEEK (F+7)=0 THEN POKE (O+6),0: LET R$(1)="O.K. wy skinuli werewku": LET R$(2)="i ona upala wniz.": GO TO 50
3310 IF PEEK F=10 THEN LET R$(1)="za~em ?": GO TO 50
3315 GO TO 2035
3400 IF (PEEK F=20 OR PEEK F=21) AND NO=23 AND PEEK (F+99)=MAX THEN LET R$(1)="sna~ala oswobodite hotq by odnu": LET R$(2)="ruku, a to ne~em budet gresti!": GO TO 50
3405 IF PEEK F=20 AND NO=23 THEN POKE F,21: GO TO 100
3410 IF PEEK F=21 AND NO=23 THEN POKE F,20: GO TO 100
3415 LET R$(1)="plawatx zdesx negde!": GO TO 50
3500 IF PEEK F=21 AND NO=24 THEN LET R$(1)="on ne ponimaet wa{ego qzyka!": GO TO 50
3505 LET R$(1)="nikto was ne slu{aet!": GO TO 50
3600 IF PEEK F=21 AND NO=7 AND PEEK (O+7)=99 THEN CLS : GO SUB 8800: PRINT AT 2,1; "prowodnik wzql monetu i prowel was ~erez dvungli w naselennyj poselok i zatem wy blagopolu~- no wernulisx domoj!": GO SUB 8800: PAUSE 150: BEEP .5 COPY ,2: PRINT AT 6,0; "welikolepno!!! primite moi iskrennie pozdrawleniq.": GO TO 1602
3603 IF PEEK F=21 AND NO=7 THEN LET R$(1)="prowerte swoj inwentarx!": GO TO 50
3605 IF PEEK F=21 AND NO<>7 THEN LET R$(1)="emu |to sowsem ne nuvno.": GO TO 50
3610 LET R$(1)="krome was zdesx nikogo net.": GO TO 50
3700 IF NO=5 AND (PEEK (O+5)=99 OR PEEK (O+5)=PEEK F) THEN LET R$(1)="nikakoj dvin ne wylezit.": LET R$(2)="|to wam ne skazka, a realxnostx!": GO TO 50
3710 LET R$(1)="ni~ego ne proishodit.": GO TO 50
7010 PRINT T$
7011 PRINT "[A]wy w dowolxno mra~nom [G][A]pome}enii s kamennym polom i [G][A]stenami. w sewernoj stene wy [G][A]widete dyru iz kotoroj wyhodit[G][A]lu~ sweta i w kotoru` movno [G][A]proleztx. [G]"
7012 PRINT B$
7019 RETURN
7020 PRINT T$
7021 PRINT "[A]wy popali w swetloe pome}enie.[G][A]ono oswe}aetsq gorq}imi ni{ami[G][A]wysoko na stenah po wsemu [G][A]perimetru. ~erez nebolx{u` [G][A]dyru w stene movno proleztx na[G][A]`g. takve movno idti na wostok[G]"
7022 PRINT B$
7029 RETURN
7030 PRINT T$
7031 PRINT "[A]sweta idu}ego iz zapadnogo [G][A]pome}eniq wpolne dostato~no [G][A]~toby uwidetx ~to |ta komnata [G][A]absol`tno pusta za iskl`~eniem[G][A]lestnicy wedu}ej nawerh. [G]"
7032 PRINT B$
7039 RETURN
7040 PRINT T$
7041 PRINT "[A]wy popali w o~enx prostornoe [G][A]pome}enie, no ni~ego [G][A]prime~atelxnogo ne widno. [G][A]idti movno na zapad, [G][A]spustitxsq wniz po lestnice i [G][A]na wostoke imeetsq dwerx. [G]"
7042 PRINT B$
7049 RETURN
7050 PRINT T$
7051 PRINT "[A]wy wrode by kak w masterskoj. [G][A]zdesx walq`tsq raznye velezki.[G][A]kamennye stupenxki wedut wniz.[G][A]takve imeetsq dwerx na zapade.[G]"
7052 PRINT B$
7059 RETURN
7060 PRINT T$
7061 PRINT "[A]|to skoree wsego skladskoe [G][A]pome}enie nabitoe raznymi [G][A]q}ikami i wsqkim nenuvnym [G][A]barahlom. kamennye stupeni [G][A]wedut nawerh. [G]"
7062 PRINT B$
7069 RETURN
7070 IF PEEK (O+9)<>99 THEN PRINT TAB 5; PAPER 7; INK 0;"zdesx ni~ego ne widno!": RETURN
7071 PRINT T$
7072 PRINT "[A]wy w pogrebe pylxnom i grqznom[G][A]i wyhod odin nawerh. [G]"
7073 PRINT B$
7079 RETURN
7080 PRINT T$
7081 PRINT "[A]uzkij korridor wedu}ij s [G][A]sewera na wostok. zapadnaq [G][A]stena w otli~ie ot drugih [G][A]sdelana iz kirpi~a. [G]"
7082 PRINT B$
7089 RETURN
7090 PRINT T$
7091 PRINT "[A]~istaq i horo{o ubrannaq [G][A]komnata. na zapade wystup [G][A]ba{ni tipa balkona,a na `ge [G][A]korridor. [G]"
7092 PRINT B$
7099 RETURN
7100 PRINT T$
7101 PRINT "[A]wy stoite na wystupe ba{ni. [G][A]wniz metrow 15-20. okolo was w[G][A]stene tor~it nebolx{oj {tyrx. [G][A]wyjti ots`da movno na wostok. [G]"
7102 PRINT B$
7109 RETURN
7110 PRINT T$
7111 PRINT "[A]wy stoite na zemle bliz [G][A]wysokoj steny ba{ni kotoraq [G][A]zakrywaet soboj `vnu` ~astx. [G][A]na zapade i wostoke [G][A]neprohodimye bolota, na sewere[G][A]dvungli. [G]"
7112 PRINT B$
7119 RETURN
7120 PRINT T$
7121 PRINT "[A]wy w labirinte dvunglej. [G]"
7122 PRINT B$
7129 RETURN
7130 GO TO 7120
7140 GO TO 7120
7150 GO TO 7120
7160 GO TO 7120
7170 GO TO 7120
7180 GO TO 7120
7190 GO TO 7120
7200 PRINT T$
7201 PRINT "[A]wy stoite na `vnom beregu [G][A]nebolx{oj re~ki. na drugom [G][A]beregu wrode kto-to estx. [G][A]na sewere, wostoke i zapade [G][A]dvungli. [G]"
7202 PRINT B$
7209 RETURN
7210 PRINT T$
7211 PRINT "[A]wy na sewernom beregu re~ki. [G][A]pered wami wy widite [G][A]prowodnika, kotoryj izumlenno [G][A]ustawilsq na was. dvungli [G][A]prostira`tsq wo wseh [G][A]naprawleniqh. [G]"
7222 PRINT B$
7229 RETURN
8800 FOR X=-5 TO 15
8802 BEEP .02=,X: NEXT X
8804 FOR X=14 TO -5 STEP -1
8806 BEEP .02=,X: NEXT X
8808 RETURN
9940 POKE 23739,244
9950 RANDOMIZE USR (PEEK 23635+256*PEEK 23636+5): REM : LOAD "f.system"CODE
9955 RANDOMIZE USR (PEEK 23635+256*PEEK 23636+5): REM : LOAD "f.obj." DATA O$()
9956 LET F=64280: LET O=64379: LET SS=64440
9957 LET MAX=PEEK 64118: LET MOB=PEEK 64119
9958 LET PBS=256*PEEK 64123+PEEK 64122
9959 LET SAVE=256*PEEK 64117+PEEK 64116: LET LEN=256*PEEK 64121+PEEK 64120
9960 LET DMOV=256*PEEK 64125+PEEK 64124
9961 POKE 64130,0
9965 DIM R$(4,32)
9970 FOR X=1 TO 4: LET R$(X,1)="*": NEXT X
9975 BORDER 0: PAPER 0: INK 6: BRIGHT 1: CLS
9976 PRINT AT 1,6;"nemnogo instrukcij"
9977 PRINT AT 3,0; INK 7; " |ta programma prednazna~ena dlq teh kto sowsem nedawno uwleksq vanrom "; INK 3;"'ADVENTURE'"; INK 7;", da i dlq assow q duma` ona ne pokavetsq sli{kom prostoj. prowerte sebq! sistema wwoda komand oby~naq glagol + su}estwitelxnoe. osnownye glagoly takie-ve kak i w ABS. nad ostalxnymi podumajte w hode igry. programma ponimaet sokra}eniq do ~etyreh bukw. ~toby pro}upatx glagoly ponimaemye programmoj, postawte posle nego probel. "
9978 PRINT AT 20,1; INK 6;"uda~nyh wam prikl`~enij!": PAUSE 0
9979 CLS : PRINT AT 8,9;"sekundo~ku"
9980 RANDOMIZE USR 65058
9984 RESTORE 9987
9985 POKE 23675,88: POKE 23676,255: FOR X=USR "A" TO USR "A"+63
9986 READ Z: POKE X,Z: NEXT X
9987 DATA 128,128,128,128,128,128,128,128,0,0,0,0,0,0,0,255,128,128,128,128,128,128,128,255,255,128,128,128,128,128,128,128,255,1,1,1,1,1,1,1,1,1,1,1,1,1,1,255,1,1,1,1,1,1,1,1,255,0,0,0,0,0,0,0
9988 LET T$="[D][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][E]": LET B$="[C][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][F]": LET VB=1
9989 GO TO 100
9990 SAVE "advent" LINE 2
9991 CLS
9993 PRINT BRIGHT 1;AT 8,0; "otmotajte lentu dlq werifikacii."
9994 BEEP .1 TO ,20: PAUSE 50
9995 PRINT AT 12,0; " navmite l`bu` klawi{u, kogdabudete gotowy.": PAUSE 0
9996 VERIFY "advent"
45170;]f CLS o{ CLS COS NEXT LN CLS TAB a SAVE TAB o STOP VAL b NEXT _ RETURN COS av RESTORE j RUN AT e INPUT INPUT [U]mo PLOT t RUN SAVE PAUSE &zRNDr PAUSE ACS STOP FN RESTORE VAL$ LOAD AwT [D][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][H][E]B [C][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][B][F] CAT THEN malenxkij fakel stalxnaq fomka nebolx{oj sunduk blestq}ij kl`~ staraq lampa tolstaq werewka zolotaq moneta glinqnyj gor{ok gorq}ij fakel ERASE * * * *
