Home » CEEFAX disks » telesoftware6.adl » 22-04-88/DT
22-04-88/DT
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » CEEFAX disks » telesoftware6.adl |
Filename: | 22-04-88/DT |
Read OK: | ✔ |
File size: | 3C51 bytes |
Load address: | FFFF1500 |
Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- CEEFAX disks » telesoftware4.adl » 25-12-87/DT
- CEEFAX disks » telesoftware6.adl » 22-04-88/DT
File contents
10REM Demon's Tomb 20REM (C) Allan Kelly and David Halligan 30REM April 1982 - September 1986 40REM 1984 and 1985 no work done 50REM Original Version on ZX81 in 16K 60REM Thanks to Greg McEwan, Jon Kelly ( no relation ) and Paul Kelly 70 80HIMEM=&5800 90ONERRORGOTO2130 100MODE7:CLEAR:HIMEM=&5800:PROCB:VDU7:?&366=46:*FX202,32 110CLS:PROCM(&83):INPUTC$:IFC$=""THEN110 120PROCN(&84,C$,&85) 130PROCF 140IFC<1THEN370 150IFe<>1:f=f+(TIME-E):E=TIME 160B$="":IFC>45C=C-RND(8) 170IFC>50C=25 180PROCA:GOSUB4580:GOSUB4510:IFFNC THEN640 190IFINSTR(A$,"LIG")ANDINSTR(A$,"FIR")THEN2340 200IFINSTR(A$,"ON")ORINSTR(A$,"OFF")THEN2440 210IFINSTR(A$,"GOD")THEN1680 220IFINSTR(A$,"DYN")GOTO3360 230IFLEFT$(A$,2)="TR"THEN1090 240B$=LEFT$(A$,3):RESTORE5110:REPEAT:READE$,A:UNTILE$=B$ORE$="XXX":IFE$="XXX"THEN270 250N=N+1 260ONA GOTO3600,420,510,3860,4070,540,2920,1440,1870,980,280,2900,2610,4080,290,4090,3810,460,5170,5220,350,360 270PRINT"Eh ?":GOTO130 280SOUND1,-11,C*10,5:PROCO(&86,C):GOTO130 290IFS(6)<1THEN340 300A=RND(10):S(6)=S(6)-1 310IFRND(2)>RND(6)THEN330 320PROCM(&87):C=C+A:GOTO130 330PROCM(&88):C=C-A:GOTO130 340PROCM(&8A):GOTO130 350VDU2:GOTO130 360VDU3:GOTO130 370SOUND0,-10,50,90:SOUND3,-9,90,90:PRINT'"You are dead!" 380PROCR(&8B,G,&8C):PROCO(&FD,C):PROCR(&8E,W,&7F) 390REM ONERRORRUN 400GOSUB4680:A=GET:RUN 410A=GET:RUN 420IFTIME/100=9000GOSUB2180 430PROCM(&90) 440IFy=50ANDZ=30PROCM(&91):y=33:Z=46:GOTO130 450PROCM(&92):GOTO130 460PROCN(&93,C$,&94) 470INPUTA$ 480IFA$="YES"PROCM(&95):PROCW(1000):GOTO380 490IFA$="NO"PROCM(&96):GOTO130 500PROCM(&97):GOTO470 510PROCM(&98):FORA=1TO5:PRINTk(A);CHR$32;Z$(A):NEXT 520PROCO(&99,D):PROCR(&9A,N,&9B) 530A=TIME/100:A=(A DIV60):PROCR(&9C,A,&9D):GOTO130 540PROCN(&9E,STR$(G)+" ",&8C) 550FORA=1TO5:IFS(A)=1PRINTS$(A) 560NEXT 570IFS(6)>0PRINTS(6)CHR$32S$(6) 580IFS(7)>0PRINTS(7)CHR$32S$(7) 590FORA=1TO4:IFX(A)=1PRINTX$(A):NEXT 600IFc>0PROCQ(c,&9F) 610PROCS(&A0,R$(e)) 620FORA=1TO7:IFr(A)=1PRINTr$(A) 630NEXT:PROCA:GOTO130 640IFh(1)>6PROCM(&A1):GOTO1160 650IFe=1ORe=5PROCM(&A2):GOTO380 660IFP=0GOTO3120 670IFh(1)=2PROCM(&A3) 680IFA$="N"ANDy<50y=y+1:GOTO730 690IFA$="S"ANDy>1y=y-1:GOTO730 700IFA$="E"ANDZ>1Z=Z-1:GOTO730 710IFA$="W"ANDZ<50Z=Z+1:GOTO730 720PROCM(&A4):GOTO130 730PRINTO$CHR$32C$" you go "A$ 740IFZ<12PROCM(14) 750IFZ>40PROCM(15) 760IFy>40PROCM(16) 770IFy<10PROCM(17) 780IFZ>20ANDZ<30ANDy>20ANDy<30PROCM(18) 790IFy=50ANDZ=1THEN1500 800IFy=35ANDZ=1PROCM(&A5):GOTO380 810N=N+1:D=D+1:C=C-I%:h(1)=RND(7):h(2)=0:IFh(1)=2d=RND(6) 820IFRND(110)<RND(10)GOTO1650 830IFh(1)<>3A$="LOOK":GOTO140 840IFRND(9)>1THEN910 850PROCM(&A6):GOSUB4680 860VDU31,8,10,65,31,16,10,66,31,24,10,67 870A=64+RND(3):B%=GET:IFB%<>65ANDB%<>67ANDB%<>66THEN870 880IFA=B%THEN370 890PROCT(CHR$(13),&A7) 900PROCM(&A8):h(1)=1:GOTO130 910h(1)=1:A=RND(7):IFA>3A$="pink"ELSEA$="blue" 920PROCN(&A9,A$,&AA) 930Y=GET:IFY<>89ANDY<>78THEN930ELSEVDUY 940IFY=78PRINTO$:GOTO130 950IFA<4THEN970 960PROCM(0):C=C+RND(10):GOTO130 970PROCM(1):C=C-RND(10):GOTO130 980IFe=1ORe=5PROCM(&AB):GOTO130 990IFP=0GOSUB3180 1000IFy=16ANDZ=32GOSUB1970 1010GOSUB4860:PROCD:PROCE:IFh(2)<>0THEN2580 1020ONh(1)GOTO1030,1050,1030,1040,1030,1160,1160 1030PROCM(&AC):GOTO130 1040PROCM(&AD):d=7:GOTO130 1050PRINT'"You are in a treasure room!"'"You see ";:IFd=6J=RND(4):PRINTJ;CHR$32S$(d):GOTO130 1060IFd=5ANDS(5)=1PRINTS$(7):S(7)=S(7)+1:GOTO130 1070IFS(d)=0PRINTS$(d)CHR$32Q$(d):GOTO130 1080U=RND(40):d=0:PROCM(&AF):GOTO130 1090IFS(4)=0PROCM(&B0):GOTO130 1100y=RND(50):Z=RND(50):PROCM(&B1):S(4)=0:GOTO790 1110PROCS(&B2,A$):GOTO130 1120PROCM(&B3):IFK(O%)=0W=W+5:K(O%)=1 1130PRINTMID$(M$,W%,T%):GOTO130 1140PROCM(2):GOTO130 1150IFA=3W=W-3:GOTO130 1160A=RND(5):Y=RND(H(A)):GOSUB4800:T=A:PROCN(&B4,Z$(T),&B5):IFC>Y PROCM(&B6) ELSEPROCM(&B7) 1170PROCO(&B8,Y):I=TIME 1180PROCF:IFA$="TR"ANDS(4)=1THEN1100 1190IFA$="SPL"ANDS(1)=1THEN1360 1200IFA$="SL"ANDS(3)=1THEN1380 1210IFA$="BRI"GOTO1740 1220IFA$="RUN"THEN1390 1230IFINSTR(A$,"SWO")ANDS(2)=0GOSUB4750 1240IFINSTR(A$,"SWO")ANDS(2)=1K=2:GOTO1270 1250IFLEFT$(A$,3)="ATT"K=1:GOTO1270 1260GOTO1180 1270IFTIME>(I+9100)PROCM(3):GOTO130 1280I=RND(10):IFB%=1 I=I-1ELSEI=I+1 1290IFC>Y I=I-1ELSEI=I+1 1300FORa=0TO750:NEXT:IFI>7THEN1340 1310SOUND1,-12,255,5 1320I=RND(10)*K:PROCN(&B9,Z$(T),&BA):PROCQ(I,&BB):Y=Y-I:IFY<1GOTO1480 1330SOUND0,11,10,3:B%=1:GOTO1280 1340I=RND(F(T)):PROCR(&BC,I,&BB):C=C-I:IFC<1GOTO370 1350SOUND3,-9,30,3:B%=2:GOTO1280 1360PROCN(&BD,C$,&BF) 1370PROCM(&C5):S(1)=0:C=C+RND(H(A)):h(1)=1:W=W+1:k(A)=k(A)+1:IFA=5THEN1800ELSE130 1380PROCM(&BF):S(3)=0:GOTO1370 1390IFRND(7)<RND(2)THEN1420 1400IFy<50THENy=y+1ELSEZ=Z+1 1410C=C-I%:h(1)=RND(4):PRINT"You've escaped from that ";Z$(A):GOTO820 1420PROCM(4):IFS(2)=1K=2ELSEK=1 1430GOTO1270 1440IFh(2)=1PROCM(&C0):GOTO1470 1450IFe<>1ANDe<>5PROCM(&C1):e=5:f=&1B7741:GOTO130 1460PROCM(&C2):GOTO370 1470PROCM(&C3):C=C+RND(8):GOTO130 1480PROCN(&C4,Z$(T)+CHR$(46),&C5):W=W+1 1490k(T)=k(T)+1:C=C+RND(10):h(1)=1:IFT=5THEN1800ELSE130 1500PROCM(&C6) 1510IFD%=1y=46:Z=48ELSEy=32:Z=25 1520h(1)=1:GOTO130 1530h(1)=1:CLS:PROCM(&C7) 1540FORA=5TO10:PRINTTAB(16,A)CHR$131STRING$(6,CHR$255):NEXT 1550A=GET:IFA<>89ANDA<>78THEN1550 1560IFA=78PRINTO$:GOTO130 1570y=RND(50):Z=RND(50) 1580PROCM(&B1):h(1)=RND(2):D=D+1:GOTO130 1590h(1)=1:PROCM(&C8) 1600A=GET:IFA<>78ANDA<>89THEN1600 1610IFA=78PROCT(O$,&C9):GOTO130 1620PROCM(5) 1630INPUTA$:IFA$<>C$PROCM(6):PROCW(10000):GOTO370 1640PROCM(&CA):GOTO130 1650IFG>0G=G-RND(G)ELSEIFS(2)=1S(2)=0:W=W-3ELSEIFS(1)=1S(1)=0ELSE130 1660PROCM(&CB):IFS(2)=1S(2)=0 1670GOTO130 1680IFO>6PROCM(7):GOTO130 1690PROCM(&CC):O=O+1 1700PRINT"Commands:HEALTH,LOOK,MOVE,GET,EAT,REST, SWORD,POINTS,ATTACK,EXAMINE,INVENT,QUIT,INFO,HOLD,SAVE,LOAD AND WEIGHT.The Gods think the rest are so obvious that you will know them!" 1710PROCN(&CD,STR$(y+(RND(5)-2))+CHR$44+STR$(Z+(RND(5)-2)),&CE) 1720IFP=0PRINT"STart"'"FInish" 1730GOTO130 1740I=H(A)*3:IFI>G:PROCM(&CF):GOTO1180 1750PROCM(&FE):INPUTB% 1760IFB%<(I/2)PROCT("The "+Z$(A),&D0):K=1:GOTO1340 1770IFB%>(I/1.5)PROCM(&D1):h(1)=1 1780IFRND(7)<RND(3)THENG=G-I+RND((G-I))ELSEG=G-I 1790GOTO130 1800IFX(4)=1THEN130 1810PROCS(&D2,X$(Q)):X(Q)=1:W=W+1:Q=Q+1:IFQ=5W=W+6 1820GOTO130 1830IFb=1:PROCM(&D3):h(1)=1:GOTO130 1840PROCT("You are in the Tomb room."+CHR$13+CHR$10,&D5):INPUTA$ 1850IFINSTR(A$,FNF("[FVT"))ANDINSTR(A$,FNF("EFTUSPZ"))ANDINSTR(A$,FNF("FWJM!POF")):PROCM(&D4):Z=24:b=1:W=W+35:GOTO130 1860PROCM(&D6):Z=26:GOTO130 1870GOSUB4640:IFD$=""PRINT"?":GOTO130 1880B$=LEFT$(B$,3) 1890IFB$="LAM"PROCM(&D7):GOTO130 1900IFB$="FOO"PRINTO$:S(6)=0:h(1)=2:d=6:GOTO130 1910IFB$="WOO"S(7)=0:h(1)=2:d=5:GOTO130 1920A=1:REPEAT:IFB$=S$(A)PRINTO$:h(1)=2:S(A)=0:d=A:GOTO1150 1930A=A+1:UNTILA=6 1940IFB$="SKE"h(1)=4:PRINTO$:c=0:GOTO130 1950IFB$="GOL"G=0:h(1)=2:d=0:PRINTO$:GOTO130 1960PRINT"?":GOTO130 1970h(1)=1:IFL(3)=1RETURNELSE PROCM(&D8):INPUTA$:A=ASC(LEFT$(A$,1)) 1980IFA<>89PROCT(O$,&D9):h(1)=1:GOTO130 1990Y=RND(6):PROCM(&DA):REPEAT:A=GET:UNTILA=89ORA=78 2000IFA=89K=1ELSEK=2 2010B%=1 2020B%=B%+1 2030IFK=1PROCM(&DB):FORA=-15TO0:SOUND0,A,100,1:NEXTELSEPROCM(&DC):FORA=-15TO0:SOUND0,A,100,1:NEXT 2040PROCW(3000):IFB%=Y ANDK THEN2080 2050IFB%=Y THEN2090 2060IFK K=2ELSEK=1 2070IFB%<7THEN2020 2080PROCM(&DD):PROCW(4000):GOTO380 2090PROCM(&DE) 2100FORA=0TO5000:IFINKEY$(0)<>""THEN2110ELSENEXT 2110PROCM(&DF) 2120L(3)=1:G%=G%+10:GOTO130 2130IFERR<>17 END 2150PRINT'CHR$136" HELP!!!" 2160PRINT"You tried to break into me!"'"This is most irregular "C$CHR$33'"You can always replace me if you want!"'"But I always try to do my best!" 2170GOTO130 2180PROCM(&E0):REPEAT:A=GET:UNTILA=78ORA=89 2190IFA=78PRINTO$:RETURN 2200PROCM(&E1):INPUTA$:A=VALA$ 2210IFA>G:PROCM(&E2):GOTO130 2220IFA<300+RND(400)PROCM(&E3):GOTO130 2230G=G-A:IFb=1THEN2260 2240PROCM(&E4) 2250PROCM(&E5) 2260PROCM(&E6):GOTO130 2270A=6 2280IFA$=S$(A)ANDS(A)=1PRINTO$:d=A:h(1)=1:GOTO130 2290PROCM(&26):INPUTA$:IFLEFT$(A$,1)="Y"c=c+1:h(1)=1:PROCM(39) 2300PRINTO$:GOTO130 2310PRINT"There is nothing special about the body":GOTO130 2320PROCM(42):GOTO130 2330GOTO540 2340IFS(7)=0ORS(5)=0PROCM(40):GOTO130 2350IFRND(6)>4PROCM(43):GOTO130 2360PROCM(44):IFL(5)=0W=W+5:L(5)=1 2370h(2)=2:S(7)=S(7)-1:GOTO130 2380IFh(2)=2PROCM(45) 2390IFh(2)=3PROCM(46) 2400GOTO130 2410PROCM(47):INPUTA$:IFA$<>T$PRINT"Wrong!":h(1)=1:GOTO130 2420PROCM(48):INPUTA$:PROCM(49):FORA=1TOLENA$:A2=ASC(MID$(A$,A,1)):VDUA2-1:NEXT:PRINT 2430GOTO130 2440IFINSTR(A$,"OFF")e=1:GOSUB4580:GOTO130 2450GOSUB4590:GOSUB4580:GOTO130 2460PROCM(50):r(1)=1:h(1)=1:GOTO130 2470PROCM(51):GOTO130 2480PROCM(52):INPUTA$ 2490IFA$=FNF("CFBUMF")GOTO1120 2500GOTO5290 2510PROCM(53):h(1)=1:h(2)=2:GOTO130 2520PROCM(54):GOTO130 2530PROCM(55):h(1)=1:GOTO130 2540IFr(2)THEN1020 2550PROCM(56):r(2)=1:GOTO130 2560PROCM(57):h(1)=1:h(2)=2:GOTO130 2570GOTO130 2580IFh(2)=3GOTO2560 2590IFh(2)=2GOTO2510 2600PROCM(58):h(1)=1:GOTO130 2610IFh(2)=3ANDr(1)=1PROCM(59):f=0:E=TIME:r(1)=0:IFL(1)=0W=W+3:L(1)=1:GOTO130ELSEIFh(2)=3THEN130 2620IFh(2)=3ANDr(1)=0PROCM(60):GOTO130 2630IFr(2)=0PROCM(61):GOTO130 2640PROCM(62):r(5)=1:W=W+10:GOTO130 2650PROCM(32):INPUTA$:IFA$=FNH("MHKD")GOTO1120ELSEGOTO5290 2660PROCM(33):INPUTA$:IFINSTR(A$,FNF("PO"))ANDINSTR(A$,FNF("JDF"))GOTO1120ELSEGOTO5290 2670PROCM(34):INPUTA$:IFA$=FNF("HMBTT")GOTO1120ELSEGOTO5290 2680PROCM(35):INPUTA$:IFA$=FNF("MJPD")GOTO1120ELSEGOTO5290 2690PROCM(36):INPUTA$:IFA$=FNF("23")GOTO1120ELSEGOTO5290 2700PROCM(37):INPUTA$ 2710IFASCA$=48GOTO1120ELSEGOTO5290 2720PROCM(&FB):INPUTA$:GOTO2710 2730PROCM(&FC):INPUTA$:IFA$=FNF("34")GOTO1120 2740IFA=28GOTO1120 2750PROCM(28) 2760IFr(3)=1PROCM(29):r(3)=0:GOTO1120ELSE130 2770PROCM(30):INPUTA$:IFA$=FNF("GFFMJOH")GOTO1120ELSEGOTO5290 2780PROCM(31):INPUTA$:IFA$=FNF("EJUDI")GOTO1120ELSEGOTO5290 2790h(1)=1:IFL(1)=1GOTO130ELSEPROCM(&F6):L(1)=1:W=W+2:GOTO130 2800PROCM(&F7):GOTO370 2810PROCM(&F8):IFB=0PROCM(&F9):GOTO380 2820PROCM(&FA):r(3)=1:GOTO130 2830h(1)=1:IFL(5)=1THEN130ELSEPROCM(&FE):INPUTA$:A=INSTR(A$,"DRINK"):A=A+INSTR(A$,"SALT") 2840IFA=0GOTO140 2850IFA=1PROCM(25):GOTO370 2860PROCM(26):W=W+5:L(5)=1:B=1:r(4)=0:GOTO130 2870PROCM(27):INPUTA$:IFASCA$=89r(4)=1 2880PRINTO$:GOTO130 2890PROCM(63):GOTO130 2900PROCM(64):O=O-3:IFO<0O=0 2910GOTO130 2920GOSUB4640 2930IF(e=1ORe=5)AND h(2)<>1PROCM(65):GOTO130 2940IFB$="SKE"THEN2270 2950IFB$="FIR"ANDh(2)=1PROCM(66):C=C-2:GOTO130 2960IFB$="LAM"PROCM(67):PRINT;R$(e):GOTO130 2970IFB$="BOD"THEN2310 2980IFB$="ROO"THEN980 2990IFINSTR(B$,"PLA")ANDh(2)=2PROCM(68):GOTO130 3000IFS(4)=1ANDB$=S$(4)PROCM(69):GOTO130 3010IFS(4)=0ANDB$=LEFT$(S$(4),3)THEN2320 3020IFS(1)=1ANDB$=S$(1)PROCM(70):GOTO130 3030IFB$=LEFT$(S$(1),3)THEN2320 3040IFS(3)=1ANDB$=S$(3)PROCM(71):GOTO130 3050IFB$=LEFT$(S$(3),3)THEN2320 3060IFB$="LOC"ANDP=0ANDy=30ANDZ=34PROCM(72) 3070PROCM(73):PRINTD$:GOTO130 3080PROCM(74):GOTO130 3090PROCM(75):INPUTA$ 3100IFA$="B618A5274C93"PROCM(76):P=1:W=W+15 3110GOTO130 3120IFA$="N"ANDy<34y=y+1:GOTO3170 3130IFA$="S"ANDy>30y=y-1:GOTO3170 3140IFA$="W"ANDZ<34Z=Z+1:GOTO3170 3150IFA$="E"ANDZ>30Z=Z-1:GOTO3170 3160GOSUB4700:GOTO130 3170PRINTO$:h(1)=1:GOTO980 3180h(1)=1:RESTORE5100 3190READB%,Q%,O%:IFB%=y ANDZ=Q%GOTO3220 3200IFO%<>1THEN3190 3210RETURN 3220IFO%=0PROCM(77):GOTO130 3230IFO%=1GOTO3090 3240PRINT'CHR$O%;:PROCM(78):GOTO130 3250IFr(5)=1GOTO130ELSEPROCM(79):GOTO130 3260IFk(1)<21A=1ELSEA=3 3270IFk(1)<19A=2ELSEA=3 3280RETURN 3290IFL(8)=0PROCM(80):h(2)=4:GOTO130 3300IFh(2)=1ORh(2)=2ORh(2)=3PROCM(81):GOTO130 3310IFh(2)=4IFL(8)=0PROCM(82):L(8)=1:W=W+8:r(6)=1:h(2)=0:GOTO130 3320IFh(2)=5IFL(7)=0PROCM(83):W=W+7:r(7)=1:L(7)=1:h(2)=0:GOTO130 3330RETURN 3340IFL(7)=0PROCM(84):h(2)=5 3350GOTO130 3360IFr(7)=0PROCM(21):GOTO130 3370IFy<>150andZ<>90PROCM(22):h(1)=1:h(2)=0:r(7)=0:d=0:GOTO130 3380IFr(6)=0PROCM(23):GOTO380 3390PROCM(24):r(7)=0:W=W+15:h(1)=1:L(9)=1:GOTO130 3400IFL(9)=1GOTO3410ELSEPROCM(85):GOTO130 3410PROCM(86):GOTO130 3420IFL(10)=1GOTO1020ELSEPROCM(87) 3430A=TIME:B%=GET 3440IFTIME>A+3500PROCM(20):GOTO3480 3450IFB%=87GOTO3480 3460IFB%=66GOTO3480 3470IFB%=82PROCM(&E7):PROCM(19):W=W+5:L(10)=1:GOTO130 3480PROCM(88):GOTO380 3490PROCM(89):A=GET 3500IFA=78PRINTO$:GOTO130 3510PROCM(90):GOTO370 3520PROCM(91) 3530FORA=0TOLENC$:PRINTCHR$(RND(25)+65);MID$(C$,A,1);:NEXT 3540INPUT',A$ 3550IFA$<>C$GOTO3530 3560PROCM(92)::IFL(12)=0W=W+5:L(12)=1 3570PROCM(93):GOTO130 3580PROCM(94):GOTO1020 3590TIME=I:E=1:GOTO130 3600I=TIME:A=GET:TIME=I:GOTO130 3610PRINT"Do you want to play a game?(Y/N)" 3620A=GET:IFA=78THEN140 3630PROCM(95):GOSUB4760 3640PROCM(96)::A=RND(10):PROCM(97):INPUTA% 3650IFA<>A%PROCM(101):G=0:GOTO130 3660PROCM(100):GOSUB4760:IFG<10PROCM(98):GOTO130 3670PROCM(99):GOSUB4760 3680PROCM(102):A=GET:PROCM(103) 3690G=G DIV2:CLS 3700A=GET 3710PRINTTAB(10,10);:PROCM(104):PRINTTAB(10,5);y;TAB(10,15);Z;TAB(11,10);:PROCM(105):PRINT;G 3720IFA=78y=y+1 3730IFA=83y=y-1 3740IFA=87Z=Z+1 3750IFA=69Z=Z-1 3760G=G-2:IFG<0GOTO3800 3770IFA<>64THEN3700 3780PROCM(106):IFL(13)=0W=W+10 3790GOTO130 3800PROCM(107):GOTO370 3810IFINSTR(A$,"LAM")ANDP=0ANDy=30ANDZ=30GOTO3080 3820IFINSTR(A$,"KEY")PROCM(108):GOTO130 3830IFINSTR(A$,"CHA")THEN3850 3840PRINTO$:PROCM(109):GOTO130 3850IFr(6)=1PROCM(110):W=W+5:y=50:Z=30:GOTO130ELSEPROCM(111):GOTO130 3860PROCA 3870PROCM(112):PRINT;C*10:PROCM(113):PRINT;R% 3880IFR%>C*10PROCM(114) 3890GOTO130 3900PROCM(115):h(1)=1:PROCF 3910IFLEFT$(A$,3)="INS"AND RIGHT$(A$,3)="GOL"THEN3920ELSE140 3920IFG<1PROCM(116):GOTO130 3930SOUND2,-15,50,5:PROCM(117):G=G-1:IFL(14)=0W=W+5:L(14)=1 3940GOTO130 3950IFL(15)=1PROCM(118):GOTO130 3960PROCM(119):PROCF 3970IF(INSTR(A$,"REA")ANDINSTR(A$,"PLA"))THEN4000 3980IFINSTR(A$,"DOG")AND(INSTR(A$,"BON")ORINSTR(A$,"SKE"))THEN4010 3990GOTO140 4000PROCM(120):GOTO370 4010IFc<1PROCM(121):GOTO130 4020IFL(15)=1THEN4040ELSEPROCM(122):c=c-1:PROCF 4030IFNOT(INSTR(A$,"REA")ANDINSTR(A$,"PLA"))THEN140 4040PROCM(123) 4050IFL(15)=1THEN130ELSEL(15)=1:W=W+10:GOTO130 4060PROCM(124):GOTO130 4070PROCM(125):PRINT;y;CHR$44;Z:GOTO130 4080PROCM(126):PRINT;W;:PROCM(127):GOTO130 4090IFe=1ORe=5PROCM(129):GOTO130 4100GOSUB4640:IFh(2)=4ANDB$="CHA"h(2)=0:r(6)=1:GOTO130 4105ONh(1)GOTO4110,4130,4110,4120,1160 4110PROCM(129):GOTO130 4120IFB$="SKE"c=c+1:A$="skeleton":GOTO980ELSEPROCM(130):GOTO130 4130A=0:REPEAT:A=A+1 4140IFB$=FNG(A)ANDd=A A$=S$(A):h(1)=1:S(A)=1:A=240 4150UNTILA>3:IFA=240GOTO980 4160IFd=6ANDB$=FNG(6)S(6)=S(6)+J:A$=STR$J+" food packs":h(1)=1:GOTO980 4170IFd=5ANDS(5)=0ANDB$=FNG(5)S(5)=1:A$=S$(5):h(1)=1:GOTO980 4180IFd=5ANDS(5)=1ANDB$=FNG(7)S(7)=S(7)+1:A$=S$(7):h(1)=1:GOTO980 4190IFd=0G=G+U:PRINTO$:U=0:h(1)=1:GOTO130 4200PROCM(128):GOTO130 4210DEFPROCA 4220R%=G+(S(6)*25):R%=R%+(J%*10):IFS(5)=1R%=R%+5 4230R%=R%+(C DIV10):IFS(2)=1R%=R%+50 4240IFS(7)>0R%=R%+(S(7)*10) 4250IFS(3)=1R%=R%+20 4260IFS(1)=1R%=R%+10 4270IFS(4)=1R%=R%+15 4280U%=C*10:IFU%>R%ENDPROC 4290I%=((R%-U%)DIV10):IFI%>5I%=5 4300IFI%<1I%=1 4310ENDPROC 4320DEFFNC:A=0 4330IFA$="NORTH"ORA$="N"A=1 4340IFA$="SOUTH"ORA$="S"A=1 4350IFA$="WEST"ORA$="W"A=1 4360IFA$="EAST"ORA$="E"A=1 4370IFA=0:=0 4380A$=LEFT$(A$,1):=1 4390DEFPROCW(x):FORx=0TOx:NEXT:ENDPROC 4400DEFPROCD:A=1:a=0:RESTORE5090:REPEAT:READ B%,Q%,W%,T%:IFy=B%ANDZ=Q%THENh(1)=1:a=1 4410A=A+1:UNTILA=16ORa=1:IFa=1ONA-1 GOTO2480,2650,2660,2670,2680,2690,2700,2720,2730,2750,2770,2780,1530,1590,1830,2410 4420ENDPROC 4430DEFPROCE:RESTORE5080:A=1:a=0:REPEAT:READI,K:IFI=y ANDK=Z h(1)=1:a=1 4440A=A+1:UNTILA=28ORa=1:IFa=1ONA GOTO2470,2460,2540,2560,2510,2520,2530,1140,2790,2800,2810,2830,2890,2870,3250,3400,3290,3340,3420,3490,3520,3580,3610,3900,3950,4060 4450ENDPROC 4460DEFPROCF:PROCM(&E8):INPUTA$:ENDPROC 4470DEFPROCG(A$) 4480PRINT"You have the "A$:ENDPROC 4490DEFFNG(a):=LEFT$(S$(a),3) 4500=LEFT$(S$(D),3) 4510ONR GOTO4520,4560,4570 4520IFTIME<=&AFC80RETURN 4530PROCM(&E9) 4540IFr(5)=0PROCM(&EA):GOTO370 4550PROCM(&EB):R=2:RETURN 4560IFTIME>&23B4A0PROCM(&EC):R=3 4570RETURN 4580PROCS(&A0,R$(e)):RETURN 4590IFf<&107AC0 e=2 4600IFf>&107AC0 e=3 4610IFf>&15F900 e=4 4620IFf>&1B7740 e=5 4630RETURN 4640IFINSTR(A$," ")=0THEN270 4650A=0:REPEAT:A=A+1:UNTILASC(RIGHT$(A$,(A+1)))=32 4660D$=RIGHT$(A$,A):B$=LEFT$(D$,3) 4670RETURN 4680*FX21,0 4690RETURN 4700IFy=34PRINT"The way North is blocked by a large irondoor." 4710IFy=30PRINT"The way South is blocked by a large irondoor." 4720IFZ=30PRINT"The way East is blocked by a large iron door." 4730IFZ=34PRINT"The way West is blocked by a large iron door." 4740RETURN 4750PROCM(&ED):RETURN 4760PROCM(&EE) 4770A=GET:IFA<>89ANDA<>78GOTO4770 4780IFA=78PRINTO$:GOTO130 4790RETURN 4800IFA=1ANDk(A)>25h(1)=1:GOTO130 4810IFA=2ANDk(A)>23h(1)=1:GOTO130 4820IFA=3ANDk(A)>20h(1)=1:GOTO130 4830IFA=4ANDk(A)>15h(1)=1:GOTO130 4840IFA=5ANDk(A)>9h(1)=1:GOTO130 4850RETURN 4860PRINT"You can go:"; 4870IFy<50PRINT"North"; 4880IFy>1PRINT",South"; 4890IFZ<50PRINT",West"; 4900IFZ>1PRINT",East"' 4910RETURN 4920h(1)=1:IFb=1ANDW<225PROCM(&EF) 4930IFb=0ANDW>200PROCM(&F0):GOTO130 4940IFL(9)=0PROCM(&F1) 4950IFb=0ANDW<150PROCM(&F2):GOTO130 4960IFQ<>5PROCM(&F3):GOTO130 4970PROCM(&F4):A=GET 4980IFA=78PRINTO$:GOTO130 4990PROCM(&F5):GOTO380 5000DEFPROCB:C=RND(18)+5:B=0:I%=1:e=1:N=0:R%=50:c=0:@%=0:f=0:G=0:C$="":W=0:d=1:D=0:b=0:O=0:y=32:Z=32:J%=0:O$="OK":R=1:P=0:DIMh(2),Z$(5),k(5),H(5),F(5),X$(5),X(5),S(7),S$(7),Q$(7),r$(7),r(7),K(12),R$(5),L(15):h(1)=1:h(2)=0 5010FORA=1TO5:READZ$(A),H(A),F(A):NEXT:FORA=1TO4:READX$(A):NEXT:TIME=0:L%=0:H=0:Q=1:E=0 5020M$=FNF("J!DPNF!JO!UIF!OBNF!PG![FVT!UP!EFTUSPZ!ZPV!FWJM!POF"):T$=FNF("UFH584T") 5030FORA=1TO7:READS$(A),Q$(A),r$(A):NEXT:S(6)=1:FORA=1TO5:READR$(A):NEXT 5040ENDPROC 5050DATAGoblin,8,8,Orc,&A,&B,Dragon,&D,&E,Ogre,&12,&13,Troll,&13,&1B,Blue key,Yellow key,Green key,Red key 5060DATARING,marked 'SPL',SCREW DRIVER,SWORD, ,SPANNER,BOMB,marked 'SL',A BLACK BOX,BRACELET,marked 'TR',A SMALL BAG OF SALT,FLINT BOX, ,A GAS MASK,FOOD PACKS, ,A MAGIC CHAIN,PIECES OF WOOD, ,DYNAMITE 5070DATAoff,on brightly,running low,only dim now,off due to power cut! 5080DATA35,24,14,38,18,43,14,25,18,50,30,19,44,9,16,16,41,24,43,9,4,13,12,5,14,8,22,14,26,43,50,30,44,32,39,32,5,43,4,30,37,49,9,22,4,36,46,14,33,41,23,39 5090DATA26,26,1,2,24,24,3,4,24,26,8,2,40,40,11,3,45,45,15,4,1,1,20,2,30,10,23,4,20,10,28,2,40,21,31,6,38,22,38,3,10,10,42,5,4,13,47,2,47,26,0,0,12,37,0,0,25,25,0,0,11,45,0,0 5100DATA32,30,66,33,30,54,34,30,49,34,31,56,34,32,65,34,33,53,34,34,50,33,34,55,32,34,52,31,34,67,30,33,57,30,32,51,30,30,0,30,34,1 5110DATAPAU,1,HEL,2,INF,3,WEI,4,COR,5,INV,6,EXA,7,RES,8,DRO,9,LOO,10,HEA,11,PRA,12,OPE,13,SCO,14,EAT,15,GET,16,RUB,17,QUI,18,SAV,19,LOA,20 5120DATAWAI,1,STO,1,STA,3,SOS,2,CLU,2,DAT,3,MAS,4,POS,5,PLA,5,LIS,6,INS,7,SEA,7,REA,7,SLE,8,DRO,9,LEA,9,DUM,9,DES,10,WOR,12,FIT,11,POI,14,DEV,15,TAK,16,GRA,16,SNA,16,CAR,16,PIC,16,CLE,17,END,18,FIN,18 5130DATAPRI,21,NOP,22 5140DATAXXX,0 5150DEFFNH(F$):LOCALA,A$:FORA=1TOLENF$:A$=A$+CHR$(ASC(MID$(F$,A,1))+1):NEXT:=A$ 5160DEFFNF(F$):LOCALA,A$:FORA=1TOLENF$:A$=A$+CHR$(ASC(MID$(F$,A,1))-1):NEXT:=A$ 5170PROCd:INPUT"File name:"file$:A=OPENOUTfile$:PRINT#A,B,C,D,E,G,R,N,O,P,Q,W,y,Z,b,c,e,f,U%,C$,TIME 5180FORa=0TO5:PRINT#A,k(a),X(a):NEXT 5190FORa=0TO7:PRINT#A,S(a),r(a):NEXT 5200FORa=0TO12:PRINT#A,K(a):NEXT 5210CLOSE#A:GOTO130 5220PROCd:INPUT"File name:"file$:A=OPENINfile$:INPUT#A,B,C,D,E,G,R,N,O,P,Q,W,y,Z,b,c,e,f,U%,C$,a 5230TIME=a 5240FORa=0TO5:INPUT#A,k(a),X(a):NEXT 5250FORa=0TO7:INPUT#A,S(a),r(a):NEXT 5260FORa=0TO12:INPUT#A,K(a):NEXT 5270CLOSE#A:GOTO130 5280DEFPROCM(A%):CALL&5B10:PRINT:ENDPROC 5290PRINT"Wrong!":GOTO130 5300DEFPROCN(A%,A$,B%):CALL&5B10:PRINT;" ";A$;" ";:A%=B%:CALL&5B10:PRINT:ENDPROC 5310DEFPROCP(A%,B%):CALL&5B10:PRINT" ";:A%=B%:CALL&5B10:PRINT:ENDPROC 5320DEFPROCO(A%,B%):CALL&5B10:PRINT;" ";B%:ENDPROC 5330DEFPROCQ(B%,A%):PRINT;B%;" ";:CALL&5B10:PRINT:ENDPROC 5340DEFPROCR(A%,B%,C%):CALL&5B10:PRINT;" ";B%;" ";:A%=C%:CALL&5B10:PRINT:ENDPROC 5350DEFPROCS(A%,A$):CALL&5B10:PRINT;" ";A$:ENDPROC 5360DEFPROCT(A$,A%):PRINT;" ";A$;" ";:CALL&5B10:PRINT:ENDPROC 5370DEFPROCd:LOCALA$:INPUT"*CAT first ?"A$ 5380IF LEFT$(A$,1)="Y" ORLEFT$(A$,1)="y":*. 5390ENDPROC 5400REM THE END
� Demon's Tomb @� (C) Allan Kelly and David Halligan !� April 1982 - September 1986 ( � 1984 and 1985 no work done 2%� Original Version on ZX81 in 16K <E� Thanks to Greg McEwan, Jon Kelly ( no relation ) and Paul Kelly F P�=&5800 Z��DRH d)�7:�:�=&5800:�B:�7:?&366=46:*FX202,32 n�:�M(&83):�C$:�C$=""��Dn@ x�N(&84,C$,&85) ��F � �C<1��DrA ��e<>1:f=f+(�-E):E=� �B$="":�C>45C=C-�(8) � �C>50C=25 ��A:�ddQ:�t^Q:�C ��t@B ��A$,"LIG")��A$,"FIR")��TdI ��A$,"ON")��A$,"OFF")��tHI ��A$,"GOD")��tPF ��A$,"DYN")�T`M ��A$,2)="TR"��DBD �:B$=�A$,3):��dvS:�:�E$,A:�E$=B$�E$="XXX":�E$="XXX"��TNA � N=N+1 u�A �TPN,�tdA,�d~A,�TTO,�dfO,�T\B,�DhK,�t`E,�DNG,�dTC,�TXA,�DTK,�TrJ,�dpO,�TbA,�dzO,�dbN,�dLA,�TrT,�DdT,�D^A,�DhA �"Eh ?":�tB@ !�1,-11,C*10,5:�O(&86,C):�tB@ "�S(6)<1��DTA ,A=�(10):S(6)=S(6)-1 6�(2)>�(6)��DJA @�M(&87):C=C+A:�tB@ J�M(&88):C=C-A:�tB@ T�M(&8A):�tB@ ^�2:�tB@ h�3:�tB@ r.�0,-10,50,90:�3,-9,90,90:�'"You are dead!" |)�R(&8B,G,&8C):�O(&FD,C):�R(&8E,W,&7F) �� ONERRORRUN ��DHR:A=�:� � A=�:� ��/100=9000�tDH ��M(&90) �%�y=50�Z=30�M(&91):y=33:Z=46:�tB@ ��M(&92):�tB@ ��N(&93,C$,&94) ��A$ �#�A$="YES"�M(&95):�W(1000):�D|A ��A$="NO"�M(&96):�tB@ ��M(&97):�dVA �$�M(&98):�A=1�5:�k(A);�32;Z$(A):� �O(&99,D):�R(&9A,N,&9B) )A=�/100:A=(A �60):�R(&9C,A,&9D):�tB@ �N(&9E,�(G)+" ",&8C) &�A=1�5:�S(A)=1�S$(A) 0� :�S(6)>0�S(6)�32S$(6) D�S(7)>0�S(7)�32S$(7) N�A=1�4:�X(A)=1�X$(A):� X�c>0�Q(c,&9F) b�S(&A0,R$(e)) l�A=1�7:�r(A)=1�r$(A) v�:�A:�tB@ ��h(1)>6�M(&A1):�tHD ��e=1�e=5�M(&A2):�D|A � �P=0�TpL ��h(1)=2�M(&A3) ��A$="N"�y<50y=y+1:�dZB ��A$="S"�y>1y=y-1:�dZB ��A$="E"�Z>1Z=Z-1:�dZB ��A$="W"�Z<50Z=Z+1:�dZB ��M(&A4):�tB@ ��O$�32C$" you go "A$ ��Z<12�M(14) ��Z>40�M(15) ��y>40�M(16) �y<10�M(17) �Z>20�Z<30�y>20�y<30�M(18) �y=50�Z=1��d\E �y=35�Z=1�M(&A5):�D|A *5N=N+1:D=D+1:C=C-I%:h(1)=�(7):h(2)=0:�h(1)=2d=�(6) 4�(110)<�(10)�DrF >�h(1)<>3A$="LOOK":�tL@ H�(9)>1��tNC R�M(&A6):�DHR \'�31,8,10,65,31,16,10,66,31,24,10,67 f-A=64+�(3):B%=�:�B%<>65�B%<>67�B%<>66��DfC p�A=B%��DrA z�T(�(13),&A7) ��M(&A8):h(1)=1:�tB@ �)h(1)=1:A=�(7):�A>3A$="pink"�A$="blue" ��N(&A9,A$,&AA) �Y=�:�Y<>89�Y<>78��tbC��Y ��Y=78�O$:�tB@ � �A<4��dJC ��M(0):C=C+�(10):�tB@ ��M(1):C=C-�(10):�tB@ ��e=1�e=5�M(&AB):�tB@ � �P=0�DlL ��y=16�Z=32�trG ��d|R:�D:�E:�h(2)<>0��TTJ �,�h(1)�TFD,�TZD,�TFD,�TPD,�TFD,�tHD,�tHD �M(&AC):�tB@ �M(&AD):d=7:�tB@ L�'"You are in a treasure room!"'"You see ";:�d=6J=�(4):�J;�32S$(d):�tB@ $'�d=5�S(5)=1�S$(7):S(7)=S(7)+1:�tB@ .�S(d)=0�S$(d)�32Q$(d):�tB@ 8U=�(40):d=0:�M(&AF):�tB@ B�S(4)=0�M(&B0):�tB@ L(y=�(50):Z=�(50):�M(&B1):S(4)=0:�TVC V�S(&B2,A$):�tB@ `!�M(&B3):�K(O%)=0W=W+5:K(O%)=1 j�M$,W%,T%):�tB@ t�M(2):�tB@ ~�A=3W=W-3:�tB@ �FA=�(5):Y=�(H(A)):�d@R:T=A:�N(&B4,Z$(T),&B5):�C>Y �M(&B6) ��M(&B7) ��O(&B8,Y):I=� ��F:�A$="TR"�S(4)=1��DLD ��A$="SPL"�S(1)=1��DPE ��A$="SL"�S(3)=1��DdE ��A$="BRI"�dLF ��A$="RUN"��DnE ��A$,"SWO")�S(2)=0�tNR ��A$,"SWO")�S(2)=1K=2:�dvD ��A$,3)="ATT"K=1:�dvD � �t\D ��>(I+9100)�M(3):�tB@ I=�(10):�B%=1 I=I-1�I=I+1 �C>Y I=I-1�I=I+1 �a=0�750:�:�I>7��T|E �1,-12,255,5 (9I=�(10)*K:�N(&B9,Z$(T),&BA):�Q(I,&BB):Y=Y-I:�Y<1�dHE 2�0,11,10,3:B%=1:�T@E <+I=�(F(T)):�R(&BC,I,&BB):C=C-I:�C<1�DrA F�3,-9,30,3:B%=2:�T@E P�N(&BD,C$,&BF) ZF�M(&C5):S(1)=0:C=C+�(H(A)):h(1)=1:W=W+1:k(A)=k(A)+1:�A=5��THG��tB@ d�M(&BF):S(3)=0:�DZE n�(7)<�(2)��tLE x�y<50�y=y+1�Z=Z+1 �=C=C-I%:h(1)=�(4):�"You've escaped from that ";Z$(A):�TtC ��M(4):�S(2)=1K=2�K=1 � �dvD ��h(2)=1�M(&C0):�t~E �)�e<>1�e<>5�M(&C1):e=5:f=&1B7741:�tB@ ��M(&C2):�DrA ��M(&C3):C=C+�(8):�tB@ �!�N(&C4,Z$(T)+�(46),&C5):W=W+1 �/k(T)=k(T)+1:C=C+�(10):h(1)=1:�T=5��THG��tB@ ��M(&C6) ��D%=1y=46:Z=48�y=32:Z=25 �h(1)=1:�tB@ �h(1)=1:�:�M(&C7) !�A=5�10:�16,A)�131�6,�255):� A=�:�A<>89�A<>78��TNF �A=78�O$:�tB@ "y=�(50):Z=�(50) ,!�M(&B1):h(1)=�(2):D=D+1:�tB@ 6h(1)=1:�M(&C8) @A=�:�A<>78�A<>89��D@F J�A=78�T(O$,&C9):�tB@ T �M(5) ^$�A$:�A$<>C$�M(6):�W(10000):�DrA h�M(&CA):�tB@ r7�G>0G=G-�(G)��S(2)=1S(2)=0:W=W-3��S(1)=1S(1)=0��tB@ |�M(&CB):�S(2)=1S(2)=0 � �tB@ ��O>6�M(7):�tB@ ��M(&CC):O=O+1 ���"Commands:HEALTH,LOOK,MOVE,GET,EAT,REST, SWORD,POINTS,ATTACK,EXAMINE,INVENT,QUIT,INFO,HOLD,SAVE,LOAD AND WEIGHT.The Gods think the rest are so obvious that you will know them!" �/�N(&CD,�(y+(�(5)-2))+�44+�(Z+(�(5)-2)),&CE) ��P=0�"STart"'"FInish" � �tB@ �I=H(A)*3:�I>G:�M(&CF):�t\D ��M(&FE):�B% �+�B%<(I/2)�T("The "+Z$(A),&D0):K=1:�T|E ��B%>(I/1.5)�M(&D1):h(1)=1 �#�(7)<�(3)�G=G-I+�((G-I))�G=G-I � �tB@ �X(4)=1��tB@ .�S(&D2,X$(Q)):X(Q)=1:W=W+1:Q=Q+1:�Q=5W=W+6 �tB@ &�b=1:�M(&D3):h(1)=1:�tB@ 03�T("You are in the Tomb room."+�13+�10,&D5):�A$ :Y�A$,�F("[FVT"))��A$,�F("EFTUSPZ"))��A$,�F("FWJM!POF")):�M(&D4):Z=24:b=1:W=W+35:�tB@ D�M(&D6):Z=26:�tB@ N�T`R:�D$=""�"?":�tB@ X B$=�B$,3) b�B$="LAM"�M(&D7):�tB@ l(�B$="FOO"�O$:S(6)=0:h(1)=2:d=6:�tB@ v$�B$="WOO"S(7)=0:h(1)=2:d=5:�tB@ �/A=1:�:�B$=S$(A)�O$:h(1)=2:S(A)=0:d=A:�D~D �A=A+1:�A=6 �!�B$="SKE"h(1)=4:�O$:c=0:�tB@ �%�B$="GOL"G=0:h(1)=2:d=0:�O$:�tB@ ��"?":�tB@ �4h(1)=1:�L(3)=1RETURNELSE �M(&D8):�A$:A=�(�A$,1)) �!�A<>89�T(O$,&D9):h(1)=1:�tB@ �#Y=�(6):�M(&DA):�:A=�:�A=89�A=78 ��A=89K=1�K=2 �B%=1 �B%=B%+1 �C�K=1�M(&DB):�A=-15�0:�0,A,100,1:��M(&DC):�A=-15�0:�0,A,100,1:� ��W(3000):�B%=Y �K ��T`H �B%=Y ��TjH �K K=2�K=1 �B%<7��ddG �M(&DD):�W(4000):�D|A *�M(&DE) 4�A=0�5000:�(0)<>""��T~H�� >�M(&DF) HL(3)=1:G%=G%+10:�tB@ R�<>17 � f�'�136" HELP!!!" p��"You tried to break into me!"'"This is most irregular "C$�33'"You can always replace me if you want!"'"But I always try to do my best!" z �tB@ ��M(&E0):�:A=�:�A=78�A=89 ��A=78�O$:� ��M(&E1):�A$:A=�A$ ��A>G:�M(&E2):�tB@ ��A<300+�(400)�M(&E3):�tB@ �G=G-A:�b=1��dTH ��M(&E4) ��M(&E5) ��M(&E6):�tB@ �A=6 �(�A$=S$(A)�S(A)=1�O$:d=A:h(1)=1:�tB@ �.�M(&26):�A$:�A$,1)="Y"c=c+1:h(1)=1:�M(39) ��O$:�tB@ 4�"There is nothing special about the body":�tB@ �M(42):�tB@ �T\B $�S(7)=0�S(5)=0�M(40):�tB@ .�(6)>4�M(43):�tB@ 8�M(44):�L(5)=0W=W+5:L(5)=1 Bh(2)=2:S(7)=S(7)-1:�tB@ L�h(2)=2�M(45) V�h(2)=3�M(46) ` �tB@ j,�M(47):�A$:�A$<>T$�"Wrong!":h(1)=1:�tB@ t7�M(48):�A$:�M(49):�A=1��A$:A2=�(�A$,A,1)):�A2-1:�:� ~ �tB@ ��A$,"OFF")e=1:�ddQ:�tB@ ��dnQ:�ddQ:�tB@ ��M(50):r(1)=1:h(1)=1:�tB@ ��M(51):�tB@ ��M(52):�A$ ��A$=�F("CFBUMF")�D`D � �tjT ��M(53):h(1)=1:h(2)=2:�tB@ ��M(54):�tB@ ��M(55):h(1)=1:�tB@ ��r(2)��d|C ��M(56):r(2)=1:�tB@ �M(57):h(1)=1:h(2)=2:�tB@ �tB@ �h(2)=3�T@J �h(2)=2�dNI (�M(58):h(1)=1:�tB@ 2N�h(2)=3�r(1)=1�M(59):f=0:E=�:r(1)=0:�L(1)=0W=W+3:L(1)=1:�tB@��h(2)=3��tB@ <�h(2)=3�r(1)=0�M(60):�tB@ F�r(2)=0�M(61):�tB@ P�M(62):r(5)=1:W=W+10:�tB@ Z(�M(32):�A$:�A$=�H("MHKD")�D`D��tjT d7�M(33):�A$:�A$,�F("PO"))��A$,�F("JDF"))�D`D��tjT n)�M(34):�A$:�A$=�F("HMBTT")�D`D��tjT x(�M(35):�A$:�A$=�F("MJPD")�D`D��tjT �&�M(36):�A$:�A$=�F("23")�D`D��tjT ��M(37):�A$ ��A$=48�D`D��tjT ��M(&FB):�A$:�tVJ �!�M(&FC):�A$:�A$=�F("34")�D`D ��A=28�D`D � �M(28) �#�r(3)=1�M(29):r(3)=0:�D`D��tB@ �+�M(30):�A$:�A$=�F("GFFMJOH")�D`D��tjT �)�M(31):�A$:�A$=�F("EJUDI")�D`D��tjT �2h(1)=1:�L(1)=1�tB@��M(&F6):L(1)=1:W=W+2:�tB@ ��M(&F7):�DrA ��M(&F8):�B=0�M(&F9):�D|A �M(&FA):r(3)=1:�tB@ Bh(1)=1:�L(5)=1��tB@��M(&FE):�A$:A=�A$,"DRINK"):A=A+�A$,"SALT") �A=0�tL@ "�A=1�M(25):�DrA ,(�M(26):W=W+5:L(5)=1:B=1:r(4)=0:�tB@ 6�M(27):�A$:�A$=89r(4)=1 @ �O$:�tB@ J�M(63):�tB@ T�M(64):O=O-3:�O<0O=0 ^ �tB@ h �T`R r#�(e=1�e=5)� h(2)<>1�M(65):�tB@ |�B$="SKE"��d^H �&�B$="FIR"�h(2)=1�M(66):C=C-2:�tB@ �!�B$="LAM"�M(67):�;R$(e):�tB@ ��B$="BOD"��TFI ��B$="ROO"��dTC �"�B$,"PLA")�h(2)=2�M(68):�tB@ � �S(4)=1�B$=S$(4)�M(69):�tB@ ��S(4)=0�B$=�S$(4),3)��TPI � �S(1)=1�B$=S$(1)�M(70):�tB@ ��B$=�S$(1),3)��TPI � �S(3)=1�B$=S$(3)�M(71):�tB@ ��B$=�S$(3),3)��TPI �!�B$="LOC"�P=0�y=30�Z=34�M(72) ��M(73):�D$:�tB@ �M(74):�tB@ �M(75):�A$ '�A$="B618A5274C93"�M(76):P=1:W=W+15 & �tB@ 0�A$="N"�y<34y=y+1:�DbL :�A$="S"�y>30y=y-1:�DbL D�A$="W"�Z<34Z=Z+1:�DbL N�A$="E"�Z>30Z=Z-1:�DbL X�D\R:�tB@ b�O$:h(1)=1:�dTC lh(1)=1:��dlS v�B%,Q%,O%:�B%=y �Z=Q%�tTL ��O%<>1��DvL �� ��O%=0�M(77):�tB@ ��O%=1�TRL ��'�O%;:�M(78):�tB@ ��r(5)=1�tB@��M(79):�tB@ ��k(1)<21A=1�A=3 ��k(1)<19A=2�A=3 �� ��L(8)=0�M(80):h(2)=4:�tB@ �%�h(2)=1�h(2)=2�h(2)=3�M(81):�tB@ �9�h(2)=4�L(8)=0�M(82):L(8)=1:W=W+8:r(6)=1:h(2)=0:�tB@ �9�h(2)=5�L(7)=0�M(83):W=W+7:r(7)=1:L(7)=1:h(2)=0:�tB@ � �L(7)=0�M(84):h(2)=5 �tB@ �r(7)=0�M(21):�tB@ *8�y<>150andZ<>90�M(22):h(1)=1:h(2)=0:r(7)=0:d=0:�tB@ 4�r(6)=0�M(23):�D|A >,�M(24):r(7)=0:W=W+15:h(1)=1:L(9)=1:�tB@ H�L(9)=1�DRM��M(85):�tB@ R�M(86):�tB@ \�L(10)=1�d|C��M(87) fA=�:B%=� p�>A+3500�M(20):�tXM z�B%=87�tXM ��B%=66�tXM �,�B%=82�M(&E7):�M(19):W=W+5:L(10)=1:�tB@ ��M(88):�D|A ��M(89):A=� ��A=78�O$:�tB@ ��M(90):�DrA � �M(91) �%�A=0��C$:�(�(25)+65);�C$,A,1);:� � �',A$ ��A$<>C$�dJM �!�M(92)::�L(12)=0W=W+5:L(12)=1 ��M(93):�tB@ ��M(94):�d|C �=I:E=1:�tB@ I=�:A=�:�=I:�tB@ '�"Do you want to play a game?(Y/N)" $A=�:�A=78��tL@ .�M(95):�tXR 8�M(96)::A=�(10):�M(97):�A% B�A<>A%�M(101):G=0:�tB@ L#�M(100):�tXR:�G<10�M(98):�tB@ V�M(99):�tXR `�M(102):A=�:�M(103) jG=G �2:� tA=� ~>�10,10);:�M(104):�10,5);y;�10,15);Z;�11,10);:�M(105):�;G ��A=78y=y+1 ��A=83y=y-1 ��A=87Z=Z+1 ��A=69Z=Z-1 �G=G-2:�G<0�dXN ��A<>64��DtN ��M(106):�L(13)=0W=W+10 � �tB@ ��M(107):�DrA �"�A$,"LAM")�P=0�y=30�Z=30�THL ��A$,"KEY")�M(108):�tB@ ��A$,"CHA")��TJO �O$:�M(109):�tB@ 6�r(6)=1�M(110):W=W+5:y=50:Z=30:�tB@��M(111):�tB@ �A �M(112):�;C*10:�M(113):�;R% (�R%>C*10�M(114) 2 �tB@ <�M(115):h(1)=1:�F F)�A$,3)="INS"� �A$,3)="GOL"��DPO��tL@ P�G<1�M(116):�tB@ Z3�2,-15,50,5:�M(117):G=G-1:�L(14)=0W=W+5:L(14)=1 d �tB@ n�L(15)=1�M(118):�tB@ x�M(119):�F �!�(�A$,"REA")��A$,"PLA"))��t`O �,�A$,"DOG")�(�A$,"BON")��A$,"SKE"))��tjO � �tL@ ��M(120):�DrA ��c<1�M(121):�tB@ �"�L(15)=1��dHO��M(122):c=c-1:�F �"�(�A$,"REA")��A$,"PLA"))��tL@ ��M(123) �&�L(15)=1��tB@�L(15)=1:W=W+10:�tB@ ��M(124):�tB@ ��M(125):�;y;�44;Z:�tB@ ��M(126):�;W;:�M(127):�tB@ ��e=1�e=5�M(129):�tB@ -�T`R:�h(2)=4�B$="CHA"h(2)=0:r(6)=1:�tB@ "�h(1)�TNP,�TbP,�TNP,�TXP,�tHD �M(129):�tB@ 4�B$="SKE"c=c+1:A$="skeleton":�dTC��M(130):�tB@ "A=0:�:A=A+1 ,.�B$=�G(A)�d=A A$=S$(A):h(1)=1:S(A)=1:A=240 6�A>3:�A=240�dTC @=�d=6�B$=�G(6)S(6)=S(6)+J:A$=�J+" food packs":h(1)=1:�dTC J4�d=5�S(5)=0�B$=�G(5)S(5)=1:A$=S$(5):h(1)=1:�dTC T9�d=5�S(5)=1�B$=�G(7)S(7)=S(7)+1:A$=S$(7):h(1)=1:�dTC ^"�d=0G=G+U:�O$:U=0:h(1)=1:�tB@ h�M(128):�tB@ r��A |/R%=G+(S(6)*25):R%=R%+(J%*10):�S(5)=1R%=R%+5 �!R%=R%+(C �10):�S(2)=1R%=R%+50 ��S(7)>0R%=R%+(S(7)*10) ��S(3)=1R%=R%+20 ��S(1)=1R%=R%+10 ��S(4)=1R%=R%+15 �U%=C*10:�U%>R%� �I%=((R%-U%)�10):�I%>5I%=5 � �I%<1I%=1 �� �ݤC:A=0 ��A$="NORTH"�A$="N"A=1 ��A$="SOUTH"�A$="S"A=1 ��A$="WEST"�A$="W"A=1 �A$="EAST"�A$="E"A=1 �A=0:=0 A$=�A$,1):=1 &��W(x):�x=0�x:�:� 0;��D:A=1:a=0:��dbS:�:� B%,Q%,W%,T%:�y=B%�Z=Q%�h(1)=1:a=1 :mA=A+1:�A=16�a=1:�a=1�A-1 �tpI,�DZJ,�DdJ,�DnJ,�DxJ,�tBJ,�tLJ,�t`J,�tjJ,�t~J,�dRJ,�d\J,�dzE,�TvF,�TfG,�DjI D� N1��E:��dXS:A=1:a=0:�:�I,K:�I=y �K=Z h(1)=1:a=1 X�A=A+1:�A=28�a=1:�a=1�A �tfI,�t\I,�dlI,�T@J,�dNI,�dXI,�dbI,�DtD,�dfJ,�dpJ,�dzJ,�TNK,�DJK,�TvK,�trL,�DHM,�dZL,�TLM,�D\M,�tbM,�d@M,�d|M,�TZN,�T|O,�DnO,�d\O b� l��F:�M(&E8):�A$:� v��G(A$) ��"You have the "A$:� �ݤG(a):=�S$(a),3) �=�S$(D),3) ��R �thQ,�dPQ,�dZQ ��<=&AFC80� ��M(&E9) ��r(5)=0�M(&EA):�DrA ��M(&EB):R=2:� ��>&23B4A0�M(&EC):R=3 �� ��S(&A0,R$(e)):� ��f<&107AC0 e=2 ��f>&107AC0 e=3 �f>&15F900 e=4 �f>&1B7740 e=5 � �A$," ")=0��TNA *!A=0:�:A=A+1:��(�A$,(A+1)))=32 4D$=�A$,A):B$=�D$,3) >� H*FX21,0 R� \9�y=34�"The way North is blocked by a large irondoor." f9�y=30�"The way South is blocked by a large irondoor." p9�Z=30�"The way East is blocked by a large iron door." z9�Z=34�"The way West is blocked by a large iron door." �� � �M(&ED):� ��M(&EE) �A=�:�A<>89�A<>78�tbR ��A=78�O$:�tB@ �� ��A=1�k(A)>25h(1)=1:�tB@ ��A=2�k(A)>23h(1)=1:�tB@ ��A=3�k(A)>20h(1)=1:�tB@ ��A=4�k(A)>15h(1)=1:�tB@ ��A=5�k(A)>9h(1)=1:�tB@ �� ��"You can go:"; �y<50�"North"; �y>1�",South"; �Z<50�",West"; $�Z>1�",East"' .� 8h(1)=1:�b=1�W<225�M(&EF) B�b=0�W>200�M(&F0):�tB@ L�L(9)=0�M(&F1) V�b=0�W<150�M(&F2):�tB@ `�Q<>5�M(&F3):�tB@ j�M(&F4):A=� t�A=78�O$:�tB@ ~�M(&F5):�D|A ����B:C=�(18)+5:B=0:I%=1:e=1:N=0:R%=50:c=0:@%=0:f=0:G=0:C$="":W=0:d=1:D=0:b=0:O=0:y=32:Z=32:J%=0:O$="OK":R=1:P=0:�h(2),Z$(5),k(5),H(5),F(5),X$(5),X(5),S(7),S$(7),Q$(7),r$(7),r(7),K(12),R$(5),L(15):h(1)=1:h(2)=0 �B�A=1�5:�Z$(A),H(A),F(A):�:�A=1�4:�X$(A):�:�=0:L%=0:H=0:Q=1:E=0 �PM$=�F("J!DPNF!JO!UIF!OBNF!PG![FVT!UP!EFTUSPZ!ZPV!FWJM!POF"):T$=�F("UFH584T") �6�A=1�7:�S$(A),Q$(A),r$(A):�:S(6)=1:�A=1�5:�R$(A):� �� �g�Goblin,8,8,Orc,&A,&B,Dragon,&D,&E,Ogre,&12,&13,Troll,&13,&1B,Blue key,Yellow key,Green key,Red key ���RING,marked 'SPL',SCREW DRIVER,SWORD, ,SPANNER,BOMB,marked 'SL',A BLACK BOX,BRACELET,marked 'TR',A SMALL BAG OF SALT,FLINT BOX, ,A GAS MASK,FOOD PACKS, ,A MAGIC CHAIN,PIECES OF WOOD, ,DYNAMITE �C�off,on brightly,running low,only dim now,off due to power cut! ؗ�35,24,14,38,18,43,14,25,18,50,30,19,44,9,16,16,41,24,43,9,4,13,12,5,14,8,22,14,26,43,50,30,44,32,39,32,5,43,4,30,37,49,9,22,4,36,46,14,33,41,23,39 ��26,26,1,2,24,24,3,4,24,26,8,2,40,40,11,3,45,45,15,4,1,1,20,2,30,10,23,4,20,10,28,2,40,21,31,6,38,22,38,3,10,10,42,5,4,13,47,2,47,26,0,0,12,37,0,0,25,25,0,0,11,45,0,0 ��32,30,66,33,30,54,34,30,49,34,31,56,34,32,65,34,33,53,34,34,50,33,34,55,32,34,52,31,34,67,30,33,57,30,32,51,30,30,0,30,34,1 ���PAU,1,HEL,2,INF,3,WEI,4,COR,5,INV,6,EXA,7,RES,8,DRO,9,LOO,10,HEA,11,PRA,12,OPE,13,SCO,14,EAT,15,GET,16,RUB,17,QUI,18,SAV,19,LOA,20 ��WAI,1,STO,1,STA,3,SOS,2,CLU,2,DAT,3,MAS,4,POS,5,PLA,5,LIS,6,INS,7,SEA,7,REA,7,SLE,8,DRO,9,LEA,9,DUM,9,DES,10,WOR,12,FIT,11,POI,14,DEV,15,TAK,16,GRA,16,SNA,16,CAR,16,PIC,16,CLE,17,END,18,FIN,18 �PRI,21,NOP,22 �XXX,0 7ݤH(F$):�A,A$:�A=1��F$:A$=A$+�(�(�F$,A,1))+1):�:=A$ (7ݤF(F$):�A,A$:�A=1��F$:A$=A$+�(�(�F$,A,1))-1):�:=A$ 2P�d:�"File name:"file$:A=�file$:�#A,B,C,D,E,G,R,N,O,P,Q,W,y,Z,b,c,e,f,U%,C$,� <�a=0�5:�#A,k(a),X(a):� F�a=0�7:�#A,S(a),r(a):� P�a=0�12:�#A,K(a):� Z �#A:�tB@ dP�d:�"File name:"file$:A=�file$:�#A,B,C,D,E,G,R,N,O,P,Q,W,y,Z,b,c,e,f,U%,C$,a n�=a x�a=0�5:�#A,k(a),X(a):� ��a=0�7:�#A,S(a),r(a):� ��a=0�12:�#A,K(a):� � �#A:�tB@ ���M(A%):�&5B10:�:� ��"Wrong!":�tB@ �7��N(A%,A$,B%):�&5B10:�;" ";A$;" ";:A%=B%:�&5B10:�:� �,��P(A%,B%):�&5B10:�" ";:A%=B%:�&5B10:�:� � ��O(A%,B%):�&5B10:�;" ";B%:� �#��Q(B%,A%):�;B%;" ";:�&5B10:�:� �7��R(A%,B%,C%):�&5B10:�;" ";B%;" ";:A%=C%:�&5B10:�:� � ��S(A%,A$):�&5B10:�;" ";A$:� �'��T(A$,A%):�;" ";A$;" ";:�&5B10:�:� ���d:�A$:�"*CAT first ?"A$ � �A$,1)="Y" ��A$,1)="y":*. � � THE END �
00000000 0d 00 0a 12 f4 20 44 65 6d 6f 6e 27 73 20 54 6f |..... Demon's To| 00000010 6d 62 0d 00 14 40 f4 20 28 43 29 20 41 6c 6c 61 |mb...@. (C) Alla| 00000020 6e 20 4b 65 6c 6c 79 20 61 6e 64 20 20 20 20 20 |n Kelly and | 00000030 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040 20 20 20 20 44 61 76 69 64 20 48 61 6c 6c 69 67 | David Hallig| 00000050 61 6e 0d 00 1e 21 f4 20 41 70 72 69 6c 20 31 39 |an...!. April 19| 00000060 38 32 20 2d 20 53 65 70 74 65 6d 62 65 72 20 31 |82 - September 1| 00000070 39 38 36 0d 00 28 20 f4 20 31 39 38 34 20 61 6e |986..( . 1984 an| 00000080 64 20 31 39 38 35 20 6e 6f 20 77 6f 72 6b 20 64 |d 1985 no work d| 00000090 6f 6e 65 0d 00 32 25 f4 20 4f 72 69 67 69 6e 61 |one..2%. Origina| 000000a0 6c 20 56 65 72 73 69 6f 6e 20 6f 6e 20 5a 58 38 |l Version on ZX8| 000000b0 31 20 69 6e 20 31 36 4b 0d 00 3c 45 f4 20 54 68 |1 in 16K..<E. Th| 000000c0 61 6e 6b 73 20 74 6f 20 47 72 65 67 20 4d 63 45 |anks to Greg McE| 000000d0 77 61 6e 2c 20 4a 6f 6e 20 4b 65 6c 6c 79 20 28 |wan, Jon Kelly (| 000000e0 20 6e 6f 20 72 65 6c 61 74 69 6f 6e 20 29 20 61 | no relation ) a| 000000f0 6e 64 20 50 61 75 6c 20 4b 65 6c 6c 79 0d 00 46 |nd Paul Kelly..F| 00000100 05 20 0d 00 50 0b d3 3d 26 35 38 30 30 0d 00 5a |. ..P..=&5800..Z| 00000110 0b ee 85 e5 8d 44 52 48 0d 00 64 29 eb 37 3a d8 |.....DRH..d).7:.| 00000120 3a d3 3d 26 35 38 30 30 3a f2 42 3a ef 37 3a 3f |:.=&5800:.B:.7:?| 00000130 26 33 36 36 3d 34 36 3a 2a 46 58 32 30 32 2c 33 |&366=46:*FX202,3| 00000140 32 0d 00 6e 1d db 3a f2 4d 28 26 38 33 29 3a e8 |2..n..:.M(&83):.| 00000150 43 24 3a e7 43 24 3d 22 22 8c 8d 44 6e 40 0d 00 |C$:.C$=""..Dn@..| 00000160 78 12 f2 4e 28 26 38 34 2c 43 24 2c 26 38 35 29 |x..N(&84,C$,&85)| 00000170 0d 00 82 06 f2 46 0d 00 8c 0d e7 43 3c 31 8c 8d |.....F.....C<1..| 00000180 44 72 41 0d 00 96 17 e7 65 3c 3e 31 3a 66 3d 66 |DrA.....e<>1:f=f| 00000190 2b 28 91 2d 45 29 3a 45 3d 91 0d 00 a0 17 42 24 |+(.-E):E=.....B$| 000001a0 3d 22 22 3a e7 43 3e 34 35 43 3d 43 2d b3 28 38 |="":.C>45C=C-.(8| 000001b0 29 0d 00 aa 0d e7 43 3e 35 30 43 3d 32 35 0d 00 |).....C>50C=25..| 000001c0 b4 1c f2 41 3a e4 8d 64 64 51 3a e4 8d 74 5e 51 |...A:..ddQ:..t^Q| 000001d0 3a e7 a4 43 20 8c 8d 74 40 42 0d 00 be 1f e7 a7 |:..C ..t@B......| 000001e0 41 24 2c 22 4c 49 47 22 29 80 a7 41 24 2c 22 46 |A$,"LIG")..A$,"F| 000001f0 49 52 22 29 8c 8d 54 64 49 0d 00 c8 1e e7 a7 41 |IR")..TdI......A| 00000200 24 2c 22 4f 4e 22 29 84 a7 41 24 2c 22 4f 46 46 |$,"ON")..A$,"OFF| 00000210 22 29 8c 8d 74 48 49 0d 00 d2 14 e7 a7 41 24 2c |")..tHI......A$,| 00000220 22 47 4f 44 22 29 8c 8d 74 50 46 0d 00 dc 14 e7 |"GOD")..tPF.....| 00000230 a7 41 24 2c 22 44 59 4e 22 29 e5 8d 54 60 4d 0d |.A$,"DYN")..T`M.| 00000240 00 e6 15 e7 c0 41 24 2c 32 29 3d 22 54 52 22 8c |.....A$,2)="TR".| 00000250 8d 44 42 44 0d 00 f0 3a 42 24 3d c0 41 24 2c 33 |.DBD...:B$=.A$,3| 00000260 29 3a f7 8d 64 76 53 3a f5 3a f3 45 24 2c 41 3a |):..dvS:.:.E$,A:| 00000270 fd 45 24 3d 42 24 84 45 24 3d 22 58 58 58 22 3a |.E$=B$.E$="XXX":| 00000280 e7 45 24 3d 22 58 58 58 22 8c 8d 54 4e 41 0d 00 |.E$="XXX"..TNA..| 00000290 fa 09 4e 3d 4e 2b 31 0d 01 04 75 ee 41 20 e5 8d |..N=N+1...u.A ..| 000002a0 54 50 4e 2c 8d 74 64 41 2c 8d 64 7e 41 2c 8d 54 |TPN,.tdA,.d~A,.T| 000002b0 54 4f 2c 8d 64 66 4f 2c 8d 54 5c 42 2c 8d 44 68 |TO,.dfO,.T\B,.Dh| 000002c0 4b 2c 8d 74 60 45 2c 8d 44 4e 47 2c 8d 64 54 43 |K,.t`E,.DNG,.dTC| 000002d0 2c 8d 54 58 41 2c 8d 44 54 4b 2c 8d 54 72 4a 2c |,.TXA,.DTK,.TrJ,| 000002e0 8d 64 70 4f 2c 8d 54 62 41 2c 8d 64 7a 4f 2c 8d |.dpO,.TbA,.dzO,.| 000002f0 64 62 4e 2c 8d 64 4c 41 2c 8d 54 72 54 2c 8d 44 |dbN,.dLA,.TrT,.D| 00000300 64 54 2c 8d 44 5e 41 2c 8d 44 68 41 0d 01 0e 11 |dT,.D^A,.DhA....| 00000310 f1 22 45 68 20 3f 22 3a e5 8d 74 42 40 0d 01 18 |."Eh ?":..tB@...| 00000320 21 d4 31 2c 2d 31 31 2c 43 2a 31 30 2c 35 3a f2 |!.1,-11,C*10,5:.| 00000330 4f 28 26 38 36 2c 43 29 3a e5 8d 74 42 40 0d 01 |O(&86,C):..tB@..| 00000340 22 10 e7 53 28 36 29 3c 31 8c 8d 44 54 41 0d 01 |"..S(6)<1..DTA..| 00000350 2c 17 41 3d b3 28 31 30 29 3a 53 28 36 29 3d 53 |,.A=.(10):S(6)=S| 00000360 28 36 29 2d 31 0d 01 36 13 e7 b3 28 32 29 3e b3 |(6)-1..6...(2)>.| 00000370 28 36 29 8c 8d 44 4a 41 0d 01 40 17 f2 4d 28 26 |(6)..DJA..@..M(&| 00000380 38 37 29 3a 43 3d 43 2b 41 3a e5 8d 74 42 40 0d |87):C=C+A:..tB@.| 00000390 01 4a 17 f2 4d 28 26 38 38 29 3a 43 3d 43 2d 41 |.J..M(&88):C=C-A| 000003a0 3a e5 8d 74 42 40 0d 01 54 11 f2 4d 28 26 38 41 |:..tB@..T..M(&8A| 000003b0 29 3a e5 8d 74 42 40 0d 01 5e 0c ef 32 3a e5 8d |):..tB@..^..2:..| 000003c0 74 42 40 0d 01 68 0c ef 33 3a e5 8d 74 42 40 0d |tB@..h..3:..tB@.| 000003d0 01 72 2e d4 30 2c 2d 31 30 2c 35 30 2c 39 30 3a |.r..0,-10,50,90:| 000003e0 d4 33 2c 2d 39 2c 39 30 2c 39 30 3a f1 27 22 59 |.3,-9,90,90:.'"Y| 000003f0 6f 75 20 61 72 65 20 64 65 61 64 21 22 0d 01 7c |ou are dead!"..|| 00000400 29 f2 52 28 26 38 42 2c 47 2c 26 38 43 29 3a f2 |).R(&8B,G,&8C):.| 00000410 4f 28 26 46 44 2c 43 29 3a f2 52 28 26 38 45 2c |O(&FD,C):.R(&8E,| 00000420 57 2c 26 37 46 29 0d 01 86 10 f4 20 4f 4e 45 52 |W,&7F)..... ONER| 00000430 52 4f 52 52 55 4e 0d 01 90 0f e4 8d 44 48 52 3a |RORRUN......DHR:| 00000440 41 3d a5 3a f9 0d 01 9a 09 41 3d a5 3a f9 0d 01 |A=.:.....A=.:...| 00000450 a4 14 e7 91 2f 31 30 30 3d 39 30 30 30 e4 8d 74 |..../100=9000..t| 00000460 44 48 0d 01 ae 0b f2 4d 28 26 39 30 29 0d 01 b8 |DH.....M(&90)...| 00000470 25 e7 79 3d 35 30 80 5a 3d 33 30 f2 4d 28 26 39 |%.y=50.Z=30.M(&9| 00000480 31 29 3a 79 3d 33 33 3a 5a 3d 34 36 3a e5 8d 74 |1):y=33:Z=46:..t| 00000490 42 40 0d 01 c2 11 f2 4d 28 26 39 32 29 3a e5 8d |B@.....M(&92):..| 000004a0 74 42 40 0d 01 cc 12 f2 4e 28 26 39 33 2c 43 24 |tB@.....N(&93,C$| 000004b0 2c 26 39 34 29 0d 01 d6 07 e8 41 24 0d 01 e0 23 |,&94).....A$...#| 000004c0 e7 41 24 3d 22 59 45 53 22 f2 4d 28 26 39 35 29 |.A$="YES".M(&95)| 000004d0 3a f2 57 28 31 30 30 30 29 3a e5 8d 44 7c 41 0d |:.W(1000):..D|A.| 000004e0 01 ea 19 e7 41 24 3d 22 4e 4f 22 f2 4d 28 26 39 |....A$="NO".M(&9| 000004f0 36 29 3a e5 8d 74 42 40 0d 01 f4 11 f2 4d 28 26 |6):..tB@.....M(&| 00000500 39 37 29 3a e5 8d 64 56 41 0d 01 fe 24 f2 4d 28 |97):..dVA...$.M(| 00000510 26 39 38 29 3a e3 41 3d 31 b8 35 3a f1 6b 28 41 |&98):.A=1.5:.k(A| 00000520 29 3b bd 33 32 3b 5a 24 28 41 29 3a ed 0d 02 08 |);.32;Z$(A):....| 00000530 1b f2 4f 28 26 39 39 2c 44 29 3a f2 52 28 26 39 |..O(&99,D):.R(&9| 00000540 41 2c 4e 2c 26 39 42 29 0d 02 12 29 41 3d 91 2f |A,N,&9B)...)A=./| 00000550 31 30 30 3a 41 3d 28 41 20 81 36 30 29 3a f2 52 |100:A=(A .60):.R| 00000560 28 26 39 43 2c 41 2c 26 39 44 29 3a e5 8d 74 42 |(&9C,A,&9D):..tB| 00000570 40 0d 02 1c 18 f2 4e 28 26 39 45 2c c3 28 47 29 |@.....N(&9E,.(G)| 00000580 2b 22 20 22 2c 26 38 43 29 0d 02 26 18 e3 41 3d |+" ",&8C)..&..A=| 00000590 31 b8 35 3a e7 53 28 41 29 3d 31 f1 53 24 28 41 |1.5:.S(A)=1.S$(A| 000005a0 29 0d 02 30 05 ed 0d 02 3a 18 e7 53 28 36 29 3e |)..0....:..S(6)>| 000005b0 30 f1 53 28 36 29 bd 33 32 53 24 28 36 29 0d 02 |0.S(6).32S$(6)..| 000005c0 44 18 e7 53 28 37 29 3e 30 f1 53 28 37 29 bd 33 |D..S(7)>0.S(7).3| 000005d0 32 53 24 28 37 29 0d 02 4e 1a e3 41 3d 31 b8 34 |2S$(7)..N..A=1.4| 000005e0 3a e7 58 28 41 29 3d 31 f1 58 24 28 41 29 3a ed |:.X(A)=1.X$(A):.| 000005f0 0d 02 58 11 e7 63 3e 30 f2 51 28 63 2c 26 39 46 |..X..c>0.Q(c,&9F| 00000600 29 0d 02 62 11 f2 53 28 26 41 30 2c 52 24 28 65 |)..b..S(&A0,R$(e| 00000610 29 29 0d 02 6c 18 e3 41 3d 31 b8 37 3a e7 72 28 |))..l..A=1.7:.r(| 00000620 41 29 3d 31 f1 72 24 28 41 29 0d 02 76 0e ed 3a |A)=1.r$(A)..v..:| 00000630 f2 41 3a e5 8d 74 42 40 0d 02 80 18 e7 68 28 31 |.A:..tB@.....h(1| 00000640 29 3e 36 f2 4d 28 26 41 31 29 3a e5 8d 74 48 44 |)>6.M(&A1):..tHD| 00000650 0d 02 8a 19 e7 65 3d 31 84 65 3d 35 f2 4d 28 26 |.....e=1.e=5.M(&| 00000660 41 32 29 3a e5 8d 44 7c 41 0d 02 94 0d e7 50 3d |A2):..D|A.....P=| 00000670 30 e5 8d 54 70 4c 0d 02 9e 12 e7 68 28 31 29 3d |0..TpL.....h(1)=| 00000680 32 f2 4d 28 26 41 33 29 0d 02 a8 1b e7 41 24 3d |2.M(&A3).....A$=| 00000690 22 4e 22 80 79 3c 35 30 79 3d 79 2b 31 3a e5 8d |"N".y<50y=y+1:..| 000006a0 64 5a 42 0d 02 b2 1a e7 41 24 3d 22 53 22 80 79 |dZB.....A$="S".y| 000006b0 3e 31 79 3d 79 2d 31 3a e5 8d 64 5a 42 0d 02 bc |>1y=y-1:..dZB...| 000006c0 1a e7 41 24 3d 22 45 22 80 5a 3e 31 5a 3d 5a 2d |..A$="E".Z>1Z=Z-| 000006d0 31 3a e5 8d 64 5a 42 0d 02 c6 1b e7 41 24 3d 22 |1:..dZB.....A$="| 000006e0 57 22 80 5a 3c 35 30 5a 3d 5a 2b 31 3a e5 8d 64 |W".Z<50Z=Z+1:..d| 000006f0 5a 42 0d 02 d0 11 f2 4d 28 26 41 34 29 3a e5 8d |ZB.....M(&A4):..| 00000700 74 42 40 0d 02 da 18 f1 4f 24 bd 33 32 43 24 22 |tB@.....O$.32C$"| 00000710 20 79 6f 75 20 67 6f 20 22 41 24 0d 02 e4 0f e7 | you go "A$.....| 00000720 5a 3c 31 32 f2 4d 28 31 34 29 0d 02 ee 0f e7 5a |Z<12.M(14).....Z| 00000730 3e 34 30 f2 4d 28 31 35 29 0d 02 f8 0f e7 79 3e |>40.M(15).....y>| 00000740 34 30 f2 4d 28 31 36 29 0d 03 02 0f e7 79 3c 31 |40.M(16).....y<1| 00000750 30 f2 4d 28 31 37 29 0d 03 0c 1e e7 5a 3e 32 30 |0.M(17).....Z>20| 00000760 80 5a 3c 33 30 80 79 3e 32 30 80 79 3c 33 30 f2 |.Z<30.y>20.y<30.| 00000770 4d 28 31 38 29 0d 03 16 12 e7 79 3d 35 30 80 5a |M(18).....y=50.Z| 00000780 3d 31 8c 8d 64 5c 45 0d 03 20 1a e7 79 3d 33 35 |=1..d\E.. ..y=35| 00000790 80 5a 3d 31 f2 4d 28 26 41 35 29 3a e5 8d 44 7c |.Z=1.M(&A5):..D|| 000007a0 41 0d 03 2a 35 4e 3d 4e 2b 31 3a 44 3d 44 2b 31 |A..*5N=N+1:D=D+1| 000007b0 3a 43 3d 43 2d 49 25 3a 68 28 31 29 3d b3 28 37 |:C=C-I%:h(1)=.(7| 000007c0 29 3a 68 28 32 29 3d 30 3a e7 68 28 31 29 3d 32 |):h(2)=0:.h(1)=2| 000007d0 64 3d b3 28 36 29 0d 03 34 16 e7 b3 28 31 31 30 |d=.(6)..4...(110| 000007e0 29 3c b3 28 31 30 29 e5 8d 44 72 46 0d 03 3e 1b |)<.(10)..DrF..>.| 000007f0 e7 68 28 31 29 3c 3e 33 41 24 3d 22 4c 4f 4f 4b |.h(1)<>3A$="LOOK| 00000800 22 3a e5 8d 74 4c 40 0d 03 48 10 e7 b3 28 39 29 |":..tL@..H...(9)| 00000810 3e 31 8c 8d 74 4e 43 0d 03 52 11 f2 4d 28 26 41 |>1..tNC..R..M(&A| 00000820 36 29 3a e4 8d 44 48 52 0d 03 5c 27 ef 33 31 2c |6):..DHR..\'.31,| 00000830 38 2c 31 30 2c 36 35 2c 33 31 2c 31 36 2c 31 30 |8,10,65,31,16,10| 00000840 2c 36 36 2c 33 31 2c 32 34 2c 31 30 2c 36 37 0d |,66,31,24,10,67.| 00000850 03 66 2d 41 3d 36 34 2b b3 28 33 29 3a 42 25 3d |.f-A=64+.(3):B%=| 00000860 a5 3a e7 42 25 3c 3e 36 35 80 42 25 3c 3e 36 37 |.:.B%<>65.B%<>67| 00000870 80 42 25 3c 3e 36 36 8c 8d 44 66 43 0d 03 70 0e |.B%<>66..DfC..p.| 00000880 e7 41 3d 42 25 8c 8d 44 72 41 0d 03 7a 11 f2 54 |.A=B%..DrA..z..T| 00000890 28 bd 28 31 33 29 2c 26 41 37 29 0d 03 84 18 f2 |(.(13),&A7).....| 000008a0 4d 28 26 41 38 29 3a 68 28 31 29 3d 31 3a e5 8d |M(&A8):h(1)=1:..| 000008b0 74 42 40 0d 03 8e 29 68 28 31 29 3d 31 3a 41 3d |tB@...)h(1)=1:A=| 000008c0 b3 28 37 29 3a e7 41 3e 33 41 24 3d 22 70 69 6e |.(7):.A>3A$="pin| 000008d0 6b 22 8b 41 24 3d 22 62 6c 75 65 22 0d 03 98 12 |k".A$="blue"....| 000008e0 f2 4e 28 26 41 39 2c 41 24 2c 26 41 41 29 0d 03 |.N(&A9,A$,&AA)..| 000008f0 a2 1c 59 3d a5 3a e7 59 3c 3e 38 39 80 59 3c 3e |..Y=.:.Y<>89.Y<>| 00000900 37 38 8c 8d 74 62 43 8b ef 59 0d 03 ac 12 e7 59 |78..tbC..Y.....Y| 00000910 3d 37 38 f1 4f 24 3a e5 8d 74 42 40 0d 03 b6 0d |=78.O$:..tB@....| 00000920 e7 41 3c 34 8c 8d 64 4a 43 0d 03 c0 19 f2 4d 28 |.A<4..dJC.....M(| 00000930 30 29 3a 43 3d 43 2b b3 28 31 30 29 3a e5 8d 74 |0):C=C+.(10):..t| 00000940 42 40 0d 03 ca 19 f2 4d 28 31 29 3a 43 3d 43 2d |B@.....M(1):C=C-| 00000950 b3 28 31 30 29 3a e5 8d 74 42 40 0d 03 d4 19 e7 |.(10):..tB@.....| 00000960 65 3d 31 84 65 3d 35 f2 4d 28 26 41 42 29 3a e5 |e=1.e=5.M(&AB):.| 00000970 8d 74 42 40 0d 03 de 0d e7 50 3d 30 e4 8d 44 6c |.tB@.....P=0..Dl| 00000980 4c 0d 03 e8 14 e7 79 3d 31 36 80 5a 3d 33 32 e4 |L.....y=16.Z=32.| 00000990 8d 74 72 47 20 0d 03 f2 1d e4 8d 64 7c 52 3a f2 |.trG ......d|R:.| 000009a0 44 3a f2 45 3a e7 68 28 32 29 3c 3e 30 8c 8d 54 |D:.E:.h(2)<>0..T| 000009b0 54 4a 0d 03 fc 2c ee 68 28 31 29 e5 8d 54 46 44 |TJ...,.h(1)..TFD| 000009c0 2c 8d 54 5a 44 2c 8d 54 46 44 2c 8d 54 50 44 2c |,.TZD,.TFD,.TPD,| 000009d0 8d 54 46 44 2c 8d 74 48 44 2c 8d 74 48 44 0d 04 |.TFD,.tHD,.tHD..| 000009e0 06 11 f2 4d 28 26 41 43 29 3a e5 8d 74 42 40 0d |...M(&AC):..tB@.| 000009f0 04 10 15 f2 4d 28 26 41 44 29 3a 64 3d 37 3a e5 |....M(&AD):d=7:.| 00000a00 8d 74 42 40 0d 04 1a 4c f1 27 22 59 6f 75 20 61 |.tB@...L.'"You a| 00000a10 72 65 20 69 6e 20 61 20 74 72 65 61 73 75 72 65 |re in a treasure| 00000a20 20 72 6f 6f 6d 21 22 27 22 59 6f 75 20 73 65 65 | room!"'"You see| 00000a30 20 22 3b 3a e7 64 3d 36 4a 3d b3 28 34 29 3a f1 | ";:.d=6J=.(4):.| 00000a40 4a 3b bd 33 32 53 24 28 64 29 3a e5 8d 74 42 40 |J;.32S$(d):..tB@| 00000a50 0d 04 24 27 e7 64 3d 35 80 53 28 35 29 3d 31 f1 |..$'.d=5.S(5)=1.| 00000a60 53 24 28 37 29 3a 53 28 37 29 3d 53 28 37 29 2b |S$(7):S(7)=S(7)+| 00000a70 31 3a e5 8d 74 42 40 0d 04 2e 1f e7 53 28 64 29 |1:..tB@.....S(d)| 00000a80 3d 30 f1 53 24 28 64 29 bd 33 32 51 24 28 64 29 |=0.S$(d).32Q$(d)| 00000a90 3a e5 8d 74 42 40 0d 04 38 1d 55 3d b3 28 34 30 |:..tB@..8.U=.(40| 00000aa0 29 3a 64 3d 30 3a f2 4d 28 26 41 46 29 3a e5 8d |):d=0:.M(&AF):..| 00000ab0 74 42 40 0d 04 42 18 e7 53 28 34 29 3d 30 f2 4d |tB@..B..S(4)=0.M| 00000ac0 28 26 42 30 29 3a e5 8d 74 42 40 0d 04 4c 28 79 |(&B0):..tB@..L(y| 00000ad0 3d b3 28 35 30 29 3a 5a 3d b3 28 35 30 29 3a f2 |=.(50):Z=.(50):.| 00000ae0 4d 28 26 42 31 29 3a 53 28 34 29 3d 30 3a e5 8d |M(&B1):S(4)=0:..| 00000af0 54 56 43 0d 04 56 14 f2 53 28 26 42 32 2c 41 24 |TVC..V..S(&B2,A$| 00000b00 29 3a e5 8d 74 42 40 0d 04 60 21 f2 4d 28 26 42 |):..tB@..`!.M(&B| 00000b10 33 29 3a e7 4b 28 4f 25 29 3d 30 57 3d 57 2b 35 |3):.K(O%)=0W=W+5| 00000b20 3a 4b 28 4f 25 29 3d 31 0d 04 6a 15 f1 c1 4d 24 |:K(O%)=1..j...M$| 00000b30 2c 57 25 2c 54 25 29 3a e5 8d 74 42 40 0d 04 74 |,W%,T%):..tB@..t| 00000b40 0f f2 4d 28 32 29 3a e5 8d 74 42 40 0d 04 7e 13 |..M(2):..tB@..~.| 00000b50 e7 41 3d 33 57 3d 57 2d 33 3a e5 8d 74 42 40 0d |.A=3W=W-3:..tB@.| 00000b60 04 88 46 41 3d b3 28 35 29 3a 59 3d b3 28 48 28 |..FA=.(5):Y=.(H(| 00000b70 41 29 29 3a e4 8d 64 40 52 3a 54 3d 41 3a f2 4e |A)):..d@R:T=A:.N| 00000b80 28 26 42 34 2c 5a 24 28 54 29 2c 26 42 35 29 3a |(&B4,Z$(T),&B5):| 00000b90 e7 43 3e 59 20 f2 4d 28 26 42 36 29 20 8b f2 4d |.C>Y .M(&B6) ..M| 00000ba0 28 26 42 37 29 0d 04 92 11 f2 4f 28 26 42 38 2c |(&B7).....O(&B8,| 00000bb0 59 29 3a 49 3d 91 0d 04 9c 1b f2 46 3a e7 41 24 |Y):I=......F:.A$| 00000bc0 3d 22 54 52 22 80 53 28 34 29 3d 31 8c 8d 44 4c |="TR".S(4)=1..DL| 00000bd0 44 0d 04 a6 19 e7 41 24 3d 22 53 50 4c 22 80 53 |D.....A$="SPL".S| 00000be0 28 31 29 3d 31 8c 8d 44 50 45 0d 04 b0 18 e7 41 |(1)=1..DPE.....A| 00000bf0 24 3d 22 53 4c 22 80 53 28 33 29 3d 31 8c 8d 44 |$="SL".S(3)=1..D| 00000c00 64 45 0d 04 ba 12 e7 41 24 3d 22 42 52 49 22 e5 |dE.....A$="BRI".| 00000c10 8d 64 4c 46 0d 04 c4 12 e7 41 24 3d 22 52 55 4e |.dLF.....A$="RUN| 00000c20 22 8c 8d 44 6e 45 0d 04 ce 1b e7 a7 41 24 2c 22 |"..DnE......A$,"| 00000c30 53 57 4f 22 29 80 53 28 32 29 3d 30 e4 8d 74 4e |SWO").S(2)=0..tN| 00000c40 52 0d 04 d8 1f e7 a7 41 24 2c 22 53 57 4f 22 29 |R......A$,"SWO")| 00000c50 80 53 28 32 29 3d 31 4b 3d 32 3a e5 8d 64 76 44 |.S(2)=1K=2:..dvD| 00000c60 0d 04 e2 1a e7 c0 41 24 2c 33 29 3d 22 41 54 54 |......A$,3)="ATT| 00000c70 22 4b 3d 31 3a e5 8d 64 76 44 0d 04 ec 09 e5 8d |"K=1:..dvD......| 00000c80 74 5c 44 0d 04 f6 1a e7 91 3e 28 49 2b 39 31 30 |t\D......>(I+910| 00000c90 30 29 f2 4d 28 33 29 3a e5 8d 74 42 40 0d 05 00 |0).M(3):..tB@...| 00000ca0 1e 49 3d b3 28 31 30 29 3a e7 42 25 3d 31 20 49 |.I=.(10):.B%=1 I| 00000cb0 3d 49 2d 31 8b 49 3d 49 2b 31 20 0d 05 0a 14 e7 |=I-1.I=I+1 .....| 00000cc0 43 3e 59 20 49 3d 49 2d 31 8b 49 3d 49 2b 31 0d |C>Y I=I-1.I=I+1.| 00000cd0 05 14 18 e3 61 3d 30 b8 37 35 30 3a ed 3a e7 49 |....a=0.750:.:.I| 00000ce0 3e 37 8c 8d 54 7c 45 0d 05 1e 10 d4 31 2c 2d 31 |>7..T|E.....1,-1| 00000cf0 32 2c 32 35 35 2c 35 0d 05 28 39 49 3d b3 28 31 |2,255,5..(9I=.(1| 00000d00 30 29 2a 4b 3a f2 4e 28 26 42 39 2c 5a 24 28 54 |0)*K:.N(&B9,Z$(T| 00000d10 29 2c 26 42 41 29 3a f2 51 28 49 2c 26 42 42 29 |),&BA):.Q(I,&BB)| 00000d20 3a 59 3d 59 2d 49 3a e7 59 3c 31 e5 8d 64 48 45 |:Y=Y-I:.Y<1..dHE| 00000d30 0d 05 32 19 d4 30 2c 31 31 2c 31 30 2c 33 3a 42 |..2..0,11,10,3:B| 00000d40 25 3d 31 3a e5 8d 54 40 45 0d 05 3c 2b 49 3d b3 |%=1:..T@E..<+I=.| 00000d50 28 46 28 54 29 29 3a f2 52 28 26 42 43 2c 49 2c |(F(T)):.R(&BC,I,| 00000d60 26 42 42 29 3a 43 3d 43 2d 49 3a e7 43 3c 31 e5 |&BB):C=C-I:.C<1.| 00000d70 8d 44 72 41 0d 05 46 19 d4 33 2c 2d 39 2c 33 30 |.DrA..F..3,-9,30| 00000d80 2c 33 3a 42 25 3d 32 3a e5 8d 54 40 45 0d 05 50 |,3:B%=2:..T@E..P| 00000d90 12 f2 4e 28 26 42 44 2c 43 24 2c 26 42 46 29 0d |..N(&BD,C$,&BF).| 00000da0 05 5a 46 f2 4d 28 26 43 35 29 3a 53 28 31 29 3d |.ZF.M(&C5):S(1)=| 00000db0 30 3a 43 3d 43 2b b3 28 48 28 41 29 29 3a 68 28 |0:C=C+.(H(A)):h(| 00000dc0 31 29 3d 31 3a 57 3d 57 2b 31 3a 6b 28 41 29 3d |1)=1:W=W+1:k(A)=| 00000dd0 6b 28 41 29 2b 31 3a e7 41 3d 35 8c 8d 54 48 47 |k(A)+1:.A=5..THG| 00000de0 8b 8d 74 42 40 0d 05 64 18 f2 4d 28 26 42 46 29 |..tB@..d..M(&BF)| 00000df0 3a 53 28 33 29 3d 30 3a e5 8d 44 5a 45 0d 05 6e |:S(3)=0:..DZE..n| 00000e00 13 e7 b3 28 37 29 3c b3 28 32 29 8c 8d 74 4c 45 |...(7)<.(2)..tLE| 00000e10 0d 05 78 15 e7 79 3c 35 30 8c 79 3d 79 2b 31 8b |..x..y<50.y=y+1.| 00000e20 5a 3d 5a 2b 31 0d 05 82 3d 43 3d 43 2d 49 25 3a |Z=Z+1...=C=C-I%:| 00000e30 68 28 31 29 3d b3 28 34 29 3a f1 22 59 6f 75 27 |h(1)=.(4):."You'| 00000e40 76 65 20 65 73 63 61 70 65 64 20 66 72 6f 6d 20 |ve escaped from | 00000e50 74 68 61 74 20 22 3b 5a 24 28 41 29 3a e5 8d 54 |that ";Z$(A):..T| 00000e60 74 43 0d 05 8c 18 f2 4d 28 34 29 3a e7 53 28 32 |tC.....M(4):.S(2| 00000e70 29 3d 31 4b 3d 32 8b 4b 3d 31 0d 05 96 09 e5 8d |)=1K=2.K=1......| 00000e80 64 76 44 0d 05 a0 18 e7 68 28 32 29 3d 31 f2 4d |dvD.....h(2)=1.M| 00000e90 28 26 43 30 29 3a e5 8d 74 7e 45 0d 05 aa 29 e7 |(&C0):..t~E...).| 00000ea0 65 3c 3e 31 80 65 3c 3e 35 f2 4d 28 26 43 31 29 |e<>1.e<>5.M(&C1)| 00000eb0 3a 65 3d 35 3a 66 3d 26 31 42 37 37 34 31 3a e5 |:e=5:f=&1B7741:.| 00000ec0 8d 74 42 40 0d 05 b4 11 f2 4d 28 26 43 32 29 3a |.tB@.....M(&C2):| 00000ed0 e5 8d 44 72 41 0d 05 be 1a f2 4d 28 26 43 33 29 |..DrA.....M(&C3)| 00000ee0 3a 43 3d 43 2b b3 28 38 29 3a e5 8d 74 42 40 0d |:C=C+.(8):..tB@.| 00000ef0 05 c8 21 f2 4e 28 26 43 34 2c 5a 24 28 54 29 2b |..!.N(&C4,Z$(T)+| 00000f00 bd 28 34 36 29 2c 26 43 35 29 3a 57 3d 57 2b 31 |.(46),&C5):W=W+1| 00000f10 0d 05 d2 2f 6b 28 54 29 3d 6b 28 54 29 2b 31 3a |.../k(T)=k(T)+1:| 00000f20 43 3d 43 2b b3 28 31 30 29 3a 68 28 31 29 3d 31 |C=C+.(10):h(1)=1| 00000f30 3a e7 54 3d 35 8c 8d 54 48 47 8b 8d 74 42 40 0d |:.T=5..THG..tB@.| 00000f40 05 dc 0b f2 4d 28 26 43 36 29 0d 05 e6 1c e7 44 |....M(&C6).....D| 00000f50 25 3d 31 79 3d 34 36 3a 5a 3d 34 38 8b 79 3d 33 |%=1y=46:Z=48.y=3| 00000f60 32 3a 5a 3d 32 35 0d 05 f0 10 68 28 31 29 3d 31 |2:Z=25....h(1)=1| 00000f70 3a e5 8d 74 42 40 0d 05 fa 14 68 28 31 29 3d 31 |:..tB@....h(1)=1| 00000f80 3a db 3a f2 4d 28 26 43 37 29 0d 06 04 21 e3 41 |:.:.M(&C7)...!.A| 00000f90 3d 35 b8 31 30 3a f1 8a 31 36 2c 41 29 bd 31 33 |=5.10:..16,A).13| 00000fa0 31 c4 36 2c bd 32 35 35 29 3a ed 0d 06 0e 19 41 |1.6,.255):.....A| 00000fb0 3d a5 3a e7 41 3c 3e 38 39 80 41 3c 3e 37 38 8c |=.:.A<>89.A<>78.| 00000fc0 8d 54 4e 46 0d 06 18 12 e7 41 3d 37 38 f1 4f 24 |.TNF.....A=78.O$| 00000fd0 3a e5 8d 74 42 40 0d 06 22 13 79 3d b3 28 35 30 |:..tB@..".y=.(50| 00000fe0 29 3a 5a 3d b3 28 35 30 29 0d 06 2c 21 f2 4d 28 |):Z=.(50)..,!.M(| 00000ff0 26 42 31 29 3a 68 28 31 29 3d b3 28 32 29 3a 44 |&B1):h(1)=.(2):D| 00001000 3d 44 2b 31 3a e5 8d 74 42 40 0d 06 36 12 68 28 |=D+1:..tB@..6.h(| 00001010 31 29 3d 31 3a f2 4d 28 26 43 38 29 0d 06 40 19 |1)=1:.M(&C8)..@.| 00001020 41 3d a5 3a e7 41 3c 3e 37 38 80 41 3c 3e 38 39 |A=.:.A<>78.A<>89| 00001030 8c 8d 44 40 46 0d 06 4a 19 e7 41 3d 37 38 f2 54 |..D@F..J..A=78.T| 00001040 28 4f 24 2c 26 43 39 29 3a e5 8d 74 42 40 0d 06 |(O$,&C9):..tB@..| 00001050 54 09 f2 4d 28 35 29 0d 06 5e 24 e8 41 24 3a e7 |T..M(5)..^$.A$:.| 00001060 41 24 3c 3e 43 24 f2 4d 28 36 29 3a f2 57 28 31 |A$<>C$.M(6):.W(1| 00001070 30 30 30 30 29 3a e5 8d 44 72 41 0d 06 68 11 f2 |0000):..DrA..h..| 00001080 4d 28 26 43 41 29 3a e5 8d 74 42 40 0d 06 72 37 |M(&CA):..tB@..r7| 00001090 e7 47 3e 30 47 3d 47 2d b3 28 47 29 8b e7 53 28 |.G>0G=G-.(G)..S(| 000010a0 32 29 3d 31 53 28 32 29 3d 30 3a 57 3d 57 2d 33 |2)=1S(2)=0:W=W-3| 000010b0 8b e7 53 28 31 29 3d 31 53 28 31 29 3d 30 8b 8d |..S(1)=1S(1)=0..| 000010c0 74 42 40 0d 06 7c 19 f2 4d 28 26 43 42 29 3a e7 |tB@..|..M(&CB):.| 000010d0 53 28 32 29 3d 31 53 28 32 29 3d 30 0d 06 86 09 |S(2)=1S(2)=0....| 000010e0 e5 8d 74 42 40 0d 06 90 13 e7 4f 3e 36 f2 4d 28 |..tB@.....O>6.M(| 000010f0 37 29 3a e5 8d 74 42 40 0d 06 9a 11 f2 4d 28 26 |7):..tB@.....M(&| 00001100 43 43 29 3a 4f 3d 4f 2b 31 0d 06 a4 b6 f1 22 43 |CC):O=O+1....."C| 00001110 6f 6d 6d 61 6e 64 73 3a 48 45 41 4c 54 48 2c 4c |ommands:HEALTH,L| 00001120 4f 4f 4b 2c 4d 4f 56 45 2c 47 45 54 2c 45 41 54 |OOK,MOVE,GET,EAT| 00001130 2c 52 45 53 54 2c 20 53 57 4f 52 44 2c 50 4f 49 |,REST, SWORD,POI| 00001140 4e 54 53 2c 41 54 54 41 43 4b 2c 45 58 41 4d 49 |NTS,ATTACK,EXAMI| 00001150 4e 45 2c 49 4e 56 45 4e 54 2c 51 55 49 54 2c 49 |NE,INVENT,QUIT,I| 00001160 4e 46 4f 2c 48 4f 4c 44 2c 53 41 56 45 2c 4c 4f |NFO,HOLD,SAVE,LO| 00001170 41 44 20 41 4e 44 20 57 45 49 47 48 54 2e 54 68 |AD AND WEIGHT.Th| 00001180 65 20 20 47 6f 64 73 20 74 68 69 6e 6b 20 74 68 |e Gods think th| 00001190 65 20 72 65 73 74 20 61 72 65 20 73 6f 20 6f 62 |e rest are so ob| 000011a0 76 69 6f 75 73 20 74 68 61 74 20 79 6f 75 20 77 |vious that you w| 000011b0 69 6c 6c 20 6b 6e 6f 77 20 74 68 65 6d 21 22 0d |ill know them!".| 000011c0 06 ae 2f f2 4e 28 26 43 44 2c c3 28 79 2b 28 b3 |../.N(&CD,.(y+(.| 000011d0 28 35 29 2d 32 29 29 2b bd 34 34 2b c3 28 5a 2b |(5)-2))+.44+.(Z+| 000011e0 28 b3 28 35 29 2d 32 29 29 2c 26 43 45 29 0d 06 |(.(5)-2)),&CE)..| 000011f0 b8 19 e7 50 3d 30 f1 22 53 54 61 72 74 22 27 22 |...P=0."STart"'"| 00001200 46 49 6e 69 73 68 22 0d 06 c2 09 e5 8d 74 42 40 |FInish"......tB@| 00001210 0d 06 cc 1f 49 3d 48 28 41 29 2a 33 3a e7 49 3e |....I=H(A)*3:.I>| 00001220 47 3a f2 4d 28 26 43 46 29 3a e5 8d 74 5c 44 0d |G:.M(&CF):..t\D.| 00001230 06 d6 0f f2 4d 28 26 46 45 29 3a e8 42 25 0d 06 |....M(&FE):.B%..| 00001240 e0 2b e7 42 25 3c 28 49 2f 32 29 f2 54 28 22 54 |.+.B%<(I/2).T("T| 00001250 68 65 20 22 2b 5a 24 28 41 29 2c 26 44 30 29 3a |he "+Z$(A),&D0):| 00001260 4b 3d 31 3a e5 8d 54 7c 45 0d 06 ea 1d e7 42 25 |K=1:..T|E.....B%| 00001270 3e 28 49 2f 31 2e 35 29 f2 4d 28 26 44 31 29 3a |>(I/1.5).M(&D1):| 00001280 68 28 31 29 3d 31 0d 06 f4 23 e7 b3 28 37 29 3c |h(1)=1...#..(7)<| 00001290 b3 28 33 29 8c 47 3d 47 2d 49 2b b3 28 28 47 2d |.(3).G=G-I+.((G-| 000012a0 49 29 29 8b 47 3d 47 2d 49 0d 06 fe 09 e5 8d 74 |I)).G=G-I......t| 000012b0 42 40 0d 07 08 10 e7 58 28 34 29 3d 31 8c 8d 74 |B@.....X(4)=1..t| 000012c0 42 40 0d 07 12 2e f2 53 28 26 44 32 2c 58 24 28 |B@.....S(&D2,X$(| 000012d0 51 29 29 3a 58 28 51 29 3d 31 3a 57 3d 57 2b 31 |Q)):X(Q)=1:W=W+1| 000012e0 3a 51 3d 51 2b 31 3a e7 51 3d 35 57 3d 57 2b 36 |:Q=Q+1:.Q=5W=W+6| 000012f0 0d 07 1c 09 e5 8d 74 42 40 0d 07 26 1d e7 62 3d |......tB@..&..b=| 00001300 31 3a f2 4d 28 26 44 33 29 3a 68 28 31 29 3d 31 |1:.M(&D3):h(1)=1| 00001310 3a e5 8d 74 42 40 0d 07 30 33 f2 54 28 22 59 6f |:..tB@..03.T("Yo| 00001320 75 20 61 72 65 20 69 6e 20 74 68 65 20 54 6f 6d |u are in the Tom| 00001330 62 20 72 6f 6f 6d 2e 22 2b bd 31 33 2b bd 31 30 |b room."+.13+.10| 00001340 2c 26 44 35 29 3a e8 41 24 0d 07 3a 59 e7 a7 41 |,&D5):.A$..:Y..A| 00001350 24 2c a4 46 28 22 5b 46 56 54 22 29 29 80 a7 41 |$,.F("[FVT"))..A| 00001360 24 2c a4 46 28 22 45 46 54 55 53 50 5a 22 29 29 |$,.F("EFTUSPZ"))| 00001370 80 a7 41 24 2c a4 46 28 22 46 57 4a 4d 21 50 4f |..A$,.F("FWJM!PO| 00001380 46 22 29 29 3a f2 4d 28 26 44 34 29 3a 5a 3d 32 |F")):.M(&D4):Z=2| 00001390 34 3a 62 3d 31 3a 57 3d 57 2b 33 35 3a e5 8d 74 |4:b=1:W=W+35:..t| 000013a0 42 40 0d 07 44 16 f2 4d 28 26 44 36 29 3a 5a 3d |B@..D..M(&D6):Z=| 000013b0 32 36 3a e5 8d 74 42 40 0d 07 4e 1a e4 8d 54 60 |26:..tB@..N...T`| 000013c0 52 3a e7 44 24 3d 22 22 f1 22 3f 22 3a e5 8d 74 |R:.D$=""."?":..t| 000013d0 42 40 0d 07 58 0d 42 24 3d c0 42 24 2c 33 29 0d |B@..X.B$=.B$,3).| 000013e0 07 62 1a e7 42 24 3d 22 4c 41 4d 22 f2 4d 28 26 |.b..B$="LAM".M(&| 000013f0 44 37 29 3a e5 8d 74 42 40 0d 07 6c 28 e7 42 24 |D7):..tB@..l(.B$| 00001400 3d 22 46 4f 4f 22 f1 4f 24 3a 53 28 36 29 3d 30 |="FOO".O$:S(6)=0| 00001410 3a 68 28 31 29 3d 32 3a 64 3d 36 3a e5 8d 74 42 |:h(1)=2:d=6:..tB| 00001420 40 0d 07 76 24 e7 42 24 3d 22 57 4f 4f 22 53 28 |@..v$.B$="WOO"S(| 00001430 37 29 3d 30 3a 68 28 31 29 3d 32 3a 64 3d 35 3a |7)=0:h(1)=2:d=5:| 00001440 e5 8d 74 42 40 0d 07 80 2f 41 3d 31 3a f5 3a e7 |..tB@.../A=1:.:.| 00001450 42 24 3d 53 24 28 41 29 f1 4f 24 3a 68 28 31 29 |B$=S$(A).O$:h(1)| 00001460 3d 32 3a 53 28 41 29 3d 30 3a 64 3d 41 3a e5 8d |=2:S(A)=0:d=A:..| 00001470 44 7e 44 20 0d 07 8a 0e 41 3d 41 2b 31 3a fd 41 |D~D ....A=A+1:.A| 00001480 3d 36 0d 07 94 21 e7 42 24 3d 22 53 4b 45 22 68 |=6...!.B$="SKE"h| 00001490 28 31 29 3d 34 3a f1 4f 24 3a 63 3d 30 3a e5 8d |(1)=4:.O$:c=0:..| 000014a0 74 42 40 0d 07 9e 25 e7 42 24 3d 22 47 4f 4c 22 |tB@...%.B$="GOL"| 000014b0 47 3d 30 3a 68 28 31 29 3d 32 3a 64 3d 30 3a f1 |G=0:h(1)=2:d=0:.| 000014c0 4f 24 3a e5 8d 74 42 40 0d 07 a8 0e f1 22 3f 22 |O$:..tB@....."?"| 000014d0 3a e5 8d 74 42 40 0d 07 b2 34 68 28 31 29 3d 31 |:..tB@...4h(1)=1| 000014e0 3a e7 4c 28 33 29 3d 31 52 45 54 55 52 4e 45 4c |:.L(3)=1RETURNEL| 000014f0 53 45 20 f2 4d 28 26 44 38 29 3a e8 41 24 3a 41 |SE .M(&D8):.A$:A| 00001500 3d 97 28 c0 41 24 2c 31 29 29 0d 07 bc 21 e7 41 |=.(.A$,1))...!.A| 00001510 3c 3e 38 39 f2 54 28 4f 24 2c 26 44 39 29 3a 68 |<>89.T(O$,&D9):h| 00001520 28 31 29 3d 31 3a e5 8d 74 42 40 0d 07 c6 23 59 |(1)=1:..tB@...#Y| 00001530 3d b3 28 36 29 3a f2 4d 28 26 44 41 29 3a f5 3a |=.(6):.M(&DA):.:| 00001540 41 3d a5 3a fd 41 3d 38 39 84 41 3d 37 38 0d 07 |A=.:.A=89.A=78..| 00001550 d0 10 e7 41 3d 38 39 4b 3d 31 8b 4b 3d 32 0d 07 |...A=89K=1.K=2..| 00001560 da 08 42 25 3d 31 0d 07 e4 0b 42 25 3d 42 25 2b |..B%=1....B%=B%+| 00001570 31 0d 07 ee 43 e7 4b 3d 31 f2 4d 28 26 44 42 29 |1...C.K=1.M(&DB)| 00001580 3a e3 41 3d 2d 31 35 b8 30 3a d4 30 2c 41 2c 31 |:.A=-15.0:.0,A,1| 00001590 30 30 2c 31 3a ed 8b f2 4d 28 26 44 43 29 3a e3 |00,1:...M(&DC):.| 000015a0 41 3d 2d 31 35 b8 30 3a d4 30 2c 41 2c 31 30 30 |A=-15.0:.0,A,100| 000015b0 2c 31 3a ed 0d 07 f8 1b f2 57 28 33 30 30 30 29 |,1:......W(3000)| 000015c0 3a e7 42 25 3d 59 20 80 4b 20 8c 8d 54 60 48 0d |:.B%=Y .K ..T`H.| 000015d0 08 02 0f e7 42 25 3d 59 20 8c 8d 54 6a 48 0d 08 |....B%=Y ..TjH..| 000015e0 0c 0e e7 4b 20 4b 3d 32 8b 4b 3d 31 0d 08 16 0e |...K K=2.K=1....| 000015f0 e7 42 25 3c 37 8c 8d 64 64 47 0d 08 20 1a f2 4d |.B%<7..ddG.. ..M| 00001600 28 26 44 44 29 3a f2 57 28 34 30 30 30 29 3a e5 |(&DD):.W(4000):.| 00001610 8d 44 7c 41 0d 08 2a 0b f2 4d 28 26 44 45 29 0d |.D|A..*..M(&DE).| 00001620 08 34 1e e3 41 3d 30 b8 35 30 30 30 3a e7 bf 28 |.4..A=0.5000:..(| 00001630 30 29 3c 3e 22 22 8c 8d 54 7e 48 8b ed 0d 08 3e |0)<>""..T~H....>| 00001640 0b f2 4d 28 26 44 46 29 0d 08 48 19 4c 28 33 29 |..M(&DF)..H.L(3)| 00001650 3d 31 3a 47 25 3d 47 25 2b 31 30 3a e5 8d 74 42 |=1:G%=G%+10:..tB| 00001660 40 0d 08 52 0c e7 9f 3c 3e 31 37 20 e0 0d 08 66 |@..R...<>17 ...f| 00001670 1a f1 27 bd 31 33 36 22 20 20 20 20 20 20 20 48 |..'.136" H| 00001680 45 4c 50 21 21 21 22 0d 08 70 8c f1 22 59 6f 75 |ELP!!!"..p.."You| 00001690 20 74 72 69 65 64 20 74 6f 20 62 72 65 61 6b 20 | tried to break | 000016a0 69 6e 74 6f 20 6d 65 21 22 27 22 54 68 69 73 20 |into me!"'"This | 000016b0 69 73 20 6d 6f 73 74 20 69 72 72 65 67 75 6c 61 |is most irregula| 000016c0 72 20 22 43 24 bd 33 33 27 22 59 6f 75 20 63 61 |r "C$.33'"You ca| 000016d0 6e 20 61 6c 77 61 79 73 20 72 65 70 6c 61 63 65 |n always replace| 000016e0 20 6d 65 20 69 66 20 79 6f 75 20 77 61 6e 74 21 | me if you want!| 000016f0 22 27 22 42 75 74 20 49 20 61 6c 77 61 79 73 20 |"'"But I always | 00001700 74 72 79 20 74 6f 20 64 6f 20 6d 79 20 62 65 73 |try to do my bes| 00001710 74 21 22 0d 08 7a 09 e5 8d 74 42 40 0d 08 84 1c |t!"..z...tB@....| 00001720 f2 4d 28 26 45 30 29 3a f5 3a 41 3d a5 3a fd 41 |.M(&E0):.:A=.:.A| 00001730 3d 37 38 84 41 3d 38 39 0d 08 8e 0e e7 41 3d 37 |=78.A=89.....A=7| 00001740 38 f1 4f 24 3a f8 0d 08 98 15 f2 4d 28 26 45 31 |8.O$:......M(&E1| 00001750 29 3a e8 41 24 3a 41 3d bb 41 24 0d 08 a2 16 e7 |):.A$:A=.A$.....| 00001760 41 3e 47 3a f2 4d 28 26 45 32 29 3a e5 8d 74 42 |A>G:.M(&E2):..tB| 00001770 40 0d 08 ac 1e e7 41 3c 33 30 30 2b b3 28 34 30 |@.....A<300+.(40| 00001780 30 29 f2 4d 28 26 45 33 29 3a e5 8d 74 42 40 0d |0).M(&E3):..tB@.| 00001790 08 b6 13 47 3d 47 2d 41 3a e7 62 3d 31 8c 8d 64 |...G=G-A:.b=1..d| 000017a0 54 48 0d 08 c0 0b f2 4d 28 26 45 34 29 0d 08 ca |TH.....M(&E4)...| 000017b0 0b f2 4d 28 26 45 35 29 0d 08 d4 11 f2 4d 28 26 |..M(&E5).....M(&| 000017c0 45 36 29 3a e5 8d 74 42 40 0d 08 de 07 41 3d 36 |E6):..tB@....A=6| 000017d0 0d 08 e8 28 e7 41 24 3d 53 24 28 41 29 80 53 28 |...(.A$=S$(A).S(| 000017e0 41 29 3d 31 f1 4f 24 3a 64 3d 41 3a 68 28 31 29 |A)=1.O$:d=A:h(1)| 000017f0 3d 31 3a e5 8d 74 42 40 0d 08 f2 2e f2 4d 28 26 |=1:..tB@.....M(&| 00001800 32 36 29 3a e8 41 24 3a e7 c0 41 24 2c 31 29 3d |26):.A$:..A$,1)=| 00001810 22 59 22 63 3d 63 2b 31 3a 68 28 31 29 3d 31 3a |"Y"c=c+1:h(1)=1:| 00001820 f2 4d 28 33 39 29 0d 08 fc 10 f1 4f 24 3a e5 8d |.M(39).....O$:..| 00001830 74 42 40 20 20 20 0d 09 06 34 f1 22 54 68 65 72 |tB@ ...4."Ther| 00001840 65 20 69 73 20 6e 6f 74 68 69 6e 67 20 73 70 65 |e is nothing spe| 00001850 63 69 61 6c 20 61 62 6f 75 74 20 74 68 65 20 62 |cial about the b| 00001860 6f 64 79 22 3a e5 8d 74 42 40 0d 09 10 10 f2 4d |ody":..tB@.....M| 00001870 28 34 32 29 3a e5 8d 74 42 40 0d 09 1a 09 e5 8d |(42):..tB@......| 00001880 54 5c 42 0d 09 24 1e e7 53 28 37 29 3d 30 84 53 |T\B..$..S(7)=0.S| 00001890 28 35 29 3d 30 f2 4d 28 34 30 29 3a e5 8d 74 42 |(5)=0.M(40):..tB| 000018a0 40 0d 09 2e 17 e7 b3 28 36 29 3e 34 f2 4d 28 34 |@......(6)>4.M(4| 000018b0 33 29 3a e5 8d 74 42 40 0d 09 38 1e f2 4d 28 34 |3):..tB@..8..M(4| 000018c0 34 29 3a e7 4c 28 35 29 3d 30 57 3d 57 2b 35 3a |4):.L(5)=0W=W+5:| 000018d0 4c 28 35 29 3d 31 0d 09 42 1c 68 28 32 29 3d 32 |L(5)=1..B.h(2)=2| 000018e0 3a 53 28 37 29 3d 53 28 37 29 2d 31 3a e5 8d 74 |:S(7)=S(7)-1:..t| 000018f0 42 40 0d 09 4c 11 e7 68 28 32 29 3d 32 f2 4d 28 |B@..L..h(2)=2.M(| 00001900 34 35 29 0d 09 56 11 e7 68 28 32 29 3d 33 f2 4d |45)..V..h(2)=3.M| 00001910 28 34 36 29 0d 09 60 09 e5 8d 74 42 40 0d 09 6a |(46)..`...tB@..j| 00001920 2c f2 4d 28 34 37 29 3a e8 41 24 3a e7 41 24 3c |,.M(47):.A$:.A$<| 00001930 3e 54 24 f1 22 57 72 6f 6e 67 21 22 3a 68 28 31 |>T$."Wrong!":h(1| 00001940 29 3d 31 3a e5 8d 74 42 40 0d 09 74 37 f2 4d 28 |)=1:..tB@..t7.M(| 00001950 34 38 29 3a e8 41 24 3a f2 4d 28 34 39 29 3a e3 |48):.A$:.M(49):.| 00001960 41 3d 31 b8 a9 41 24 3a 41 32 3d 97 28 c1 41 24 |A=1..A$:A2=.(.A$| 00001970 2c 41 2c 31 29 29 3a ef 41 32 2d 31 3a ed 3a f1 |,A,1)):.A2-1:.:.| 00001980 0d 09 7e 09 e5 8d 74 42 40 0d 09 88 1e e7 a7 41 |..~...tB@......A| 00001990 24 2c 22 4f 46 46 22 29 65 3d 31 3a e4 8d 64 64 |$,"OFF")e=1:..dd| 000019a0 51 3a e5 8d 74 42 40 0d 09 92 15 e4 8d 64 6e 51 |Q:..tB@......dnQ| 000019b0 3a e4 8d 64 64 51 3a e5 8d 74 42 40 0d 09 9c 1e |:..ddQ:..tB@....| 000019c0 f2 4d 28 35 30 29 3a 72 28 31 29 3d 31 3a 68 28 |.M(50):r(1)=1:h(| 000019d0 31 29 3d 31 3a e5 8d 74 42 40 0d 09 a6 10 f2 4d |1)=1:..tB@.....M| 000019e0 28 35 31 29 3a e5 8d 74 42 40 0d 09 b0 0e f2 4d |(51):..tB@.....M| 000019f0 28 35 32 29 3a e8 41 24 0d 09 ba 19 e7 41 24 3d |(52):.A$.....A$=| 00001a00 a4 46 28 22 43 46 42 55 4d 46 22 29 e5 8d 44 60 |.F("CFBUMF")..D`| 00001a10 44 0d 09 c4 09 e5 8d 74 6a 54 0d 09 ce 1e f2 4d |D......tjT.....M| 00001a20 28 35 33 29 3a 68 28 31 29 3d 31 3a 68 28 32 29 |(53):h(1)=1:h(2)| 00001a30 3d 32 3a e5 8d 74 42 40 0d 09 d8 10 f2 4d 28 35 |=2:..tB@.....M(5| 00001a40 34 29 3a e5 8d 74 42 40 0d 09 e2 17 f2 4d 28 35 |4):..tB@.....M(5| 00001a50 35 29 3a 68 28 31 29 3d 31 3a e5 8d 74 42 40 0d |5):h(1)=1:..tB@.| 00001a60 09 ec 0e e7 72 28 32 29 8c 8d 64 7c 43 0d 09 f6 |....r(2)..d|C...| 00001a70 17 f2 4d 28 35 36 29 3a 72 28 32 29 3d 31 3a e5 |..M(56):r(2)=1:.| 00001a80 8d 74 42 40 0d 0a 00 1e f2 4d 28 35 37 29 3a 68 |.tB@.....M(57):h| 00001a90 28 31 29 3d 31 3a 68 28 32 29 3d 32 3a e5 8d 74 |(1)=1:h(2)=2:..t| 00001aa0 42 40 0d 0a 0a 09 e5 8d 74 42 40 0d 0a 14 10 e7 |B@......tB@.....| 00001ab0 68 28 32 29 3d 33 e5 8d 54 40 4a 0d 0a 1e 10 e7 |h(2)=3..T@J.....| 00001ac0 68 28 32 29 3d 32 e5 8d 64 4e 49 0d 0a 28 17 f2 |h(2)=2..dNI..(..| 00001ad0 4d 28 35 38 29 3a 68 28 31 29 3d 31 3a e5 8d 74 |M(58):h(1)=1:..t| 00001ae0 42 40 0d 0a 32 4e e7 68 28 32 29 3d 33 80 72 28 |B@..2N.h(2)=3.r(| 00001af0 31 29 3d 31 f2 4d 28 35 39 29 3a 66 3d 30 3a 45 |1)=1.M(59):f=0:E| 00001b00 3d 91 3a 72 28 31 29 3d 30 3a e7 4c 28 31 29 3d |=.:r(1)=0:.L(1)=| 00001b10 30 57 3d 57 2b 33 3a 4c 28 31 29 3d 31 3a e5 8d |0W=W+3:L(1)=1:..| 00001b20 74 42 40 8b e7 68 28 32 29 3d 33 8c 8d 74 42 40 |tB@..h(2)=3..tB@| 00001b30 0d 0a 3c 1e e7 68 28 32 29 3d 33 80 72 28 31 29 |..<..h(2)=3.r(1)| 00001b40 3d 30 f2 4d 28 36 30 29 3a e5 8d 74 42 40 0d 0a |=0.M(60):..tB@..| 00001b50 46 17 e7 72 28 32 29 3d 30 f2 4d 28 36 31 29 3a |F..r(2)=0.M(61):| 00001b60 e5 8d 74 42 40 0d 0a 50 1e f2 4d 28 36 32 29 3a |..tB@..P..M(62):| 00001b70 72 28 35 29 3d 31 3a 57 3d 57 2b 31 30 3a e5 8d |r(5)=1:W=W+10:..| 00001b80 74 42 40 0d 0a 5a 28 f2 4d 28 33 32 29 3a e8 41 |tB@..Z(.M(32):.A| 00001b90 24 3a e7 41 24 3d a4 48 28 22 4d 48 4b 44 22 29 |$:.A$=.H("MHKD")| 00001ba0 e5 8d 44 60 44 8b e5 8d 74 6a 54 0d 0a 64 37 f2 |..D`D...tjT..d7.| 00001bb0 4d 28 33 33 29 3a e8 41 24 3a e7 a7 41 24 2c a4 |M(33):.A$:..A$,.| 00001bc0 46 28 22 50 4f 22 29 29 80 a7 41 24 2c a4 46 28 |F("PO"))..A$,.F(| 00001bd0 22 4a 44 46 22 29 29 e5 8d 44 60 44 8b e5 8d 74 |"JDF"))..D`D...t| 00001be0 6a 54 0d 0a 6e 29 f2 4d 28 33 34 29 3a e8 41 24 |jT..n).M(34):.A$| 00001bf0 3a e7 41 24 3d a4 46 28 22 48 4d 42 54 54 22 29 |:.A$=.F("HMBTT")| 00001c00 e5 8d 44 60 44 8b e5 8d 74 6a 54 0d 0a 78 28 f2 |..D`D...tjT..x(.| 00001c10 4d 28 33 35 29 3a e8 41 24 3a e7 41 24 3d a4 46 |M(35):.A$:.A$=.F| 00001c20 28 22 4d 4a 50 44 22 29 e5 8d 44 60 44 8b e5 8d |("MJPD")..D`D...| 00001c30 74 6a 54 0d 0a 82 26 f2 4d 28 33 36 29 3a e8 41 |tjT...&.M(36):.A| 00001c40 24 3a e7 41 24 3d a4 46 28 22 32 33 22 29 e5 8d |$:.A$=.F("23")..| 00001c50 44 60 44 8b e5 8d 74 6a 54 0d 0a 8c 0e f2 4d 28 |D`D...tjT.....M(| 00001c60 33 37 29 3a e8 41 24 0d 0a 96 16 e7 97 41 24 3d |37):.A$......A$=| 00001c70 34 38 e5 8d 44 60 44 8b e5 8d 74 6a 54 0d 0a a0 |48..D`D...tjT...| 00001c80 15 f2 4d 28 26 46 42 29 3a e8 41 24 3a e5 8d 74 |..M(&FB):.A$:..t| 00001c90 56 4a 0d 0a aa 21 f2 4d 28 26 46 43 29 3a e8 41 |VJ...!.M(&FC):.A| 00001ca0 24 3a e7 41 24 3d a4 46 28 22 33 34 22 29 e5 8d |$:.A$=.F("34")..| 00001cb0 44 60 44 0d 0a b4 0e e7 41 3d 32 38 e5 8d 44 60 |D`D.....A=28..D`| 00001cc0 44 0d 0a be 0a f2 4d 28 32 38 29 0d 0a c8 23 e7 |D.....M(28)...#.| 00001cd0 72 28 33 29 3d 31 f2 4d 28 32 39 29 3a 72 28 33 |r(3)=1.M(29):r(3| 00001ce0 29 3d 30 3a e5 8d 44 60 44 8b 8d 74 42 40 0d 0a |)=0:..D`D..tB@..| 00001cf0 d2 2b f2 4d 28 33 30 29 3a e8 41 24 3a e7 41 24 |.+.M(30):.A$:.A$| 00001d00 3d a4 46 28 22 47 46 46 4d 4a 4f 48 22 29 e5 8d |=.F("GFFMJOH")..| 00001d10 44 60 44 8b e5 8d 74 6a 54 0d 0a dc 29 f2 4d 28 |D`D...tjT...).M(| 00001d20 33 31 29 3a e8 41 24 3a e7 41 24 3d a4 46 28 22 |31):.A$:.A$=.F("| 00001d30 45 4a 55 44 49 22 29 e5 8d 44 60 44 8b e5 8d 74 |EJUDI")..D`D...t| 00001d40 6a 54 0d 0a e6 32 68 28 31 29 3d 31 3a e7 4c 28 |jT...2h(1)=1:.L(| 00001d50 31 29 3d 31 e5 8d 74 42 40 8b f2 4d 28 26 46 36 |1)=1..tB@..M(&F6| 00001d60 29 3a 4c 28 31 29 3d 31 3a 57 3d 57 2b 32 3a e5 |):L(1)=1:W=W+2:.| 00001d70 8d 74 42 40 0d 0a f0 11 f2 4d 28 26 46 37 29 3a |.tB@.....M(&F7):| 00001d80 e5 8d 44 72 41 0d 0a fa 1d f2 4d 28 26 46 38 29 |..DrA.....M(&F8)| 00001d90 3a e7 42 3d 30 f2 4d 28 26 46 39 29 3a e5 8d 44 |:.B=0.M(&F9):..D| 00001da0 7c 41 0d 0b 04 18 f2 4d 28 26 46 41 29 3a 72 28 ||A.....M(&FA):r(| 00001db0 33 29 3d 31 3a e5 8d 74 42 40 0d 0b 0e 42 68 28 |3)=1:..tB@...Bh(| 00001dc0 31 29 3d 31 3a e7 4c 28 35 29 3d 31 8c 8d 74 42 |1)=1:.L(5)=1..tB| 00001dd0 40 8b f2 4d 28 26 46 45 29 3a e8 41 24 3a 41 3d |@..M(&FE):.A$:A=| 00001de0 a7 41 24 2c 22 44 52 49 4e 4b 22 29 3a 41 3d 41 |.A$,"DRINK"):A=A| 00001df0 2b a7 41 24 2c 22 53 41 4c 54 22 29 0d 0b 18 0d |+.A$,"SALT")....| 00001e00 e7 41 3d 30 e5 8d 74 4c 40 0d 0b 22 14 e7 41 3d |.A=0..tL@.."..A=| 00001e10 31 f2 4d 28 32 35 29 3a e5 8d 44 72 41 0d 0b 2c |1.M(25):..DrA..,| 00001e20 28 f2 4d 28 32 36 29 3a 57 3d 57 2b 35 3a 4c 28 |(.M(26):W=W+5:L(| 00001e30 35 29 3d 31 3a 42 3d 31 3a 72 28 34 29 3d 30 3a |5)=1:B=1:r(4)=0:| 00001e40 e5 8d 74 42 40 0d 0b 36 1c f2 4d 28 32 37 29 3a |..tB@..6..M(27):| 00001e50 e8 41 24 3a e7 97 41 24 3d 38 39 72 28 34 29 3d |.A$:..A$=89r(4)=| 00001e60 31 0d 0b 40 0d f1 4f 24 3a e5 8d 74 42 40 0d 0b |1..@..O$:..tB@..| 00001e70 4a 10 f2 4d 28 36 33 29 3a e5 8d 74 42 40 0d 0b |J..M(63):..tB@..| 00001e80 54 18 f2 4d 28 36 34 29 3a 4f 3d 4f 2d 33 3a e7 |T..M(64):O=O-3:.| 00001e90 4f 3c 30 4f 3d 30 0d 0b 5e 09 e5 8d 74 42 40 0d |O<0O=0..^...tB@.| 00001ea0 0b 68 09 e4 8d 54 60 52 0d 0b 72 23 e7 28 65 3d |.h...T`R..r#.(e=| 00001eb0 31 84 65 3d 35 29 80 20 68 28 32 29 3c 3e 31 f2 |1.e=5). h(2)<>1.| 00001ec0 4d 28 36 35 29 3a e5 8d 74 42 40 0d 0b 7c 12 e7 |M(65):..tB@..|..| 00001ed0 42 24 3d 22 53 4b 45 22 8c 8d 64 5e 48 0d 0b 86 |B$="SKE"..d^H...| 00001ee0 26 e7 42 24 3d 22 46 49 52 22 80 68 28 32 29 3d |&.B$="FIR".h(2)=| 00001ef0 31 f2 4d 28 36 36 29 3a 43 3d 43 2d 32 3a e5 8d |1.M(66):C=C-2:..| 00001f00 74 42 40 0d 0b 90 21 e7 42 24 3d 22 4c 41 4d 22 |tB@...!.B$="LAM"| 00001f10 f2 4d 28 36 37 29 3a f1 3b 52 24 28 65 29 3a e5 |.M(67):.;R$(e):.| 00001f20 8d 74 42 40 0d 0b 9a 12 e7 42 24 3d 22 42 4f 44 |.tB@.....B$="BOD| 00001f30 22 8c 8d 54 46 49 0d 0b a4 12 e7 42 24 3d 22 52 |"..TFI.....B$="R| 00001f40 4f 4f 22 8c 8d 64 54 43 0d 0b ae 22 e7 a7 42 24 |OO"..dTC..."..B$| 00001f50 2c 22 50 4c 41 22 29 80 68 28 32 29 3d 32 f2 4d |,"PLA").h(2)=2.M| 00001f60 28 36 38 29 3a e5 8d 74 42 40 0d 0b b8 20 e7 53 |(68):..tB@... .S| 00001f70 28 34 29 3d 31 80 42 24 3d 53 24 28 34 29 f2 4d |(4)=1.B$=S$(4).M| 00001f80 28 36 39 29 3a e5 8d 74 42 40 0d 0b c2 1d e7 53 |(69):..tB@.....S| 00001f90 28 34 29 3d 30 80 42 24 3d c0 53 24 28 34 29 2c |(4)=0.B$=.S$(4),| 00001fa0 33 29 8c 8d 54 50 49 0d 0b cc 20 e7 53 28 31 29 |3)..TPI... .S(1)| 00001fb0 3d 31 80 42 24 3d 53 24 28 31 29 f2 4d 28 37 30 |=1.B$=S$(1).M(70| 00001fc0 29 3a e5 8d 74 42 40 0d 0b d6 16 e7 42 24 3d c0 |):..tB@.....B$=.| 00001fd0 53 24 28 31 29 2c 33 29 8c 8d 54 50 49 0d 0b e0 |S$(1),3)..TPI...| 00001fe0 20 e7 53 28 33 29 3d 31 80 42 24 3d 53 24 28 33 | .S(3)=1.B$=S$(3| 00001ff0 29 f2 4d 28 37 31 29 3a e5 8d 74 42 40 0d 0b ea |).M(71):..tB@...| 00002000 16 e7 42 24 3d c0 53 24 28 33 29 2c 33 29 8c 8d |..B$=.S$(3),3)..| 00002010 54 50 49 0d 0b f4 21 e7 42 24 3d 22 4c 4f 43 22 |TPI...!.B$="LOC"| 00002020 80 50 3d 30 80 79 3d 33 30 80 5a 3d 33 34 f2 4d |.P=0.y=30.Z=34.M| 00002030 28 37 32 29 0d 0b fe 14 f2 4d 28 37 33 29 3a f1 |(72).....M(73):.| 00002040 44 24 3a e5 8d 74 42 40 0d 0c 08 10 f2 4d 28 37 |D$:..tB@.....M(7| 00002050 34 29 3a e5 8d 74 42 40 0d 0c 12 0e f2 4d 28 37 |4):..tB@.....M(7| 00002060 35 29 3a e8 41 24 0d 0c 1c 27 e7 41 24 3d 22 42 |5):.A$...'.A$="B| 00002070 36 31 38 41 35 32 37 34 43 39 33 22 f2 4d 28 37 |618A5274C93".M(7| 00002080 36 29 3a 50 3d 31 3a 57 3d 57 2b 31 35 0d 0c 26 |6):P=1:W=W+15..&| 00002090 09 e5 8d 74 42 40 0d 0c 30 1b e7 41 24 3d 22 4e |...tB@..0..A$="N| 000020a0 22 80 79 3c 33 34 79 3d 79 2b 31 3a e5 8d 44 62 |".y<34y=y+1:..Db| 000020b0 4c 0d 0c 3a 1b e7 41 24 3d 22 53 22 80 79 3e 33 |L..:..A$="S".y>3| 000020c0 30 79 3d 79 2d 31 3a e5 8d 44 62 4c 0d 0c 44 1b |0y=y-1:..DbL..D.| 000020d0 e7 41 24 3d 22 57 22 80 5a 3c 33 34 5a 3d 5a 2b |.A$="W".Z<34Z=Z+| 000020e0 31 3a e5 8d 44 62 4c 0d 0c 4e 1b e7 41 24 3d 22 |1:..DbL..N..A$="| 000020f0 45 22 80 5a 3e 33 30 5a 3d 5a 2d 31 3a e5 8d 44 |E".Z>30Z=Z-1:..D| 00002100 62 4c 0d 0c 58 0f e4 8d 44 5c 52 3a e5 8d 74 42 |bL..X...D\R:..tB| 00002110 40 0d 0c 62 14 f1 4f 24 3a 68 28 31 29 3d 31 3a |@..b..O$:h(1)=1:| 00002120 e5 8d 64 54 43 0d 0c 6c 10 68 28 31 29 3d 31 3a |..dTC..l.h(1)=1:| 00002130 f7 8d 64 6c 53 0d 0c 76 1e f3 42 25 2c 51 25 2c |..dlS..v..B%,Q%,| 00002140 4f 25 3a e7 42 25 3d 79 20 80 5a 3d 51 25 e5 8d |O%:.B%=y .Z=Q%..| 00002150 74 54 4c 0d 0c 80 0f e7 4f 25 3c 3e 31 8c 8d 44 |tTL.....O%<>1..D| 00002160 76 4c 0d 0c 8a 05 f8 0d 0c 94 15 e7 4f 25 3d 30 |vL..........O%=0| 00002170 f2 4d 28 37 37 29 3a e5 8d 74 42 40 0d 0c 9e 0e |.M(77):..tB@....| 00002180 e7 4f 25 3d 31 e5 8d 54 52 4c 0d 0c a8 17 f1 27 |.O%=1..TRL.....'| 00002190 bd 4f 25 3b 3a f2 4d 28 37 38 29 3a e5 8d 74 42 |.O%;:.M(78):..tB| 000021a0 40 0d 0c b2 1d e7 72 28 35 29 3d 31 e5 8d 74 42 |@.....r(5)=1..tB| 000021b0 40 8b f2 4d 28 37 39 29 3a e5 8d 74 42 40 0d 0c |@..M(79):..tB@..| 000021c0 bc 13 e7 6b 28 31 29 3c 32 31 41 3d 31 8b 41 3d |...k(1)<21A=1.A=| 000021d0 33 0d 0c c6 13 e7 6b 28 31 29 3c 31 39 41 3d 32 |3.....k(1)<19A=2| 000021e0 8b 41 3d 33 0d 0c d0 05 f8 0d 0c da 1e e7 4c 28 |.A=3..........L(| 000021f0 38 29 3d 30 f2 4d 28 38 30 29 3a 68 28 32 29 3d |8)=0.M(80):h(2)=| 00002200 34 3a e5 8d 74 42 40 0d 0c e4 25 e7 68 28 32 29 |4:..tB@...%.h(2)| 00002210 3d 31 84 68 28 32 29 3d 32 84 68 28 32 29 3d 33 |=1.h(2)=2.h(2)=3| 00002220 f2 4d 28 38 31 29 3a e5 8d 74 42 40 0d 0c ee 39 |.M(81):..tB@...9| 00002230 e7 68 28 32 29 3d 34 e7 4c 28 38 29 3d 30 f2 4d |.h(2)=4.L(8)=0.M| 00002240 28 38 32 29 3a 4c 28 38 29 3d 31 3a 57 3d 57 2b |(82):L(8)=1:W=W+| 00002250 38 3a 72 28 36 29 3d 31 3a 68 28 32 29 3d 30 3a |8:r(6)=1:h(2)=0:| 00002260 e5 8d 74 42 40 0d 0c f8 39 e7 68 28 32 29 3d 35 |..tB@...9.h(2)=5| 00002270 e7 4c 28 37 29 3d 30 f2 4d 28 38 33 29 3a 57 3d |.L(7)=0.M(83):W=| 00002280 57 2b 37 3a 72 28 37 29 3d 31 3a 4c 28 37 29 3d |W+7:r(7)=1:L(7)=| 00002290 31 3a 68 28 32 29 3d 30 3a e5 8d 74 42 40 0d 0d |1:h(2)=0:..tB@..| 000022a0 02 05 f8 0d 0d 0c 18 e7 4c 28 37 29 3d 30 f2 4d |........L(7)=0.M| 000022b0 28 38 34 29 3a 68 28 32 29 3d 35 0d 0d 16 09 e5 |(84):h(2)=5.....| 000022c0 8d 74 42 40 0d 0d 20 17 e7 72 28 37 29 3d 30 f2 |.tB@.. ..r(7)=0.| 000022d0 4d 28 32 31 29 3a e5 8d 74 42 40 0d 0d 2a 38 e7 |M(21):..tB@..*8.| 000022e0 79 3c 3e 31 35 30 61 6e 64 5a 3c 3e 39 30 f2 4d |y<>150andZ<>90.M| 000022f0 28 32 32 29 3a 68 28 31 29 3d 31 3a 68 28 32 29 |(22):h(1)=1:h(2)| 00002300 3d 30 3a 72 28 37 29 3d 30 3a 64 3d 30 3a e5 8d |=0:r(7)=0:d=0:..| 00002310 74 42 40 0d 0d 34 17 e7 72 28 36 29 3d 30 f2 4d |tB@..4..r(6)=0.M| 00002320 28 32 33 29 3a e5 8d 44 7c 41 0d 0d 3e 2c f2 4d |(23):..D|A..>,.M| 00002330 28 32 34 29 3a 72 28 37 29 3d 30 3a 57 3d 57 2b |(24):r(7)=0:W=W+| 00002340 31 35 3a 68 28 31 29 3d 31 3a 4c 28 39 29 3d 31 |15:h(1)=1:L(9)=1| 00002350 3a e5 8d 74 42 40 0d 0d 48 1d e7 4c 28 39 29 3d |:..tB@..H..L(9)=| 00002360 31 e5 8d 44 52 4d 8b f2 4d 28 38 35 29 3a e5 8d |1..DRM..M(85):..| 00002370 74 42 40 0d 0d 52 10 f2 4d 28 38 36 29 3a e5 8d |tB@..R..M(86):..| 00002380 74 42 40 0d 0d 5c 18 e7 4c 28 31 30 29 3d 31 e5 |tB@..\..L(10)=1.| 00002390 8d 64 7c 43 8b f2 4d 28 38 37 29 0d 0d 66 0c 41 |.d|C..M(87)..f.A| 000023a0 3d 91 3a 42 25 3d a5 0d 0d 70 19 e7 91 3e 41 2b |=.:B%=...p...>A+| 000023b0 33 35 30 30 f2 4d 28 32 30 29 3a e5 8d 74 58 4d |3500.M(20):..tXM| 000023c0 0d 0d 7a 0f e7 42 25 3d 38 37 e5 8d 74 58 4d 0d |..z..B%=87..tXM.| 000023d0 0d 84 10 e7 42 25 3d 36 36 e5 8d 74 58 4d 20 0d |....B%=66..tXM .| 000023e0 0d 8e 2c e7 42 25 3d 38 32 f2 4d 28 26 45 37 29 |..,.B%=82.M(&E7)| 000023f0 3a f2 4d 28 31 39 29 3a 57 3d 57 2b 35 3a 4c 28 |:.M(19):W=W+5:L(| 00002400 31 30 29 3d 31 3a e5 8d 74 42 40 0d 0d 98 10 f2 |10)=1:..tB@.....| 00002410 4d 28 38 38 29 3a e5 8d 44 7c 41 0d 0d a2 0e f2 |M(88):..D|A.....| 00002420 4d 28 38 39 29 3a 41 3d a5 0d 0d ac 12 e7 41 3d |M(89):A=......A=| 00002430 37 38 f1 4f 24 3a e5 8d 74 42 40 0d 0d b6 10 f2 |78.O$:..tB@.....| 00002440 4d 28 39 30 29 3a e5 8d 44 72 41 0d 0d c0 0a f2 |M(90):..DrA.....| 00002450 4d 28 39 31 29 0d 0d ca 25 e3 41 3d 30 b8 a9 43 |M(91)...%.A=0..C| 00002460 24 3a f1 bd 28 b3 28 32 35 29 2b 36 35 29 3b c1 |$:..(.(25)+65);.| 00002470 43 24 2c 41 2c 31 29 3b 3a ed 0d 0d d4 09 e8 27 |C$,A,1);:......'| 00002480 2c 41 24 0d 0d de 10 e7 41 24 3c 3e 43 24 e5 8d |,A$.....A$<>C$..| 00002490 64 4a 4d 0d 0d e8 21 f2 4d 28 39 32 29 3a 3a e7 |dJM...!.M(92)::.| 000024a0 4c 28 31 32 29 3d 30 57 3d 57 2b 35 3a 4c 28 31 |L(12)=0W=W+5:L(1| 000024b0 32 29 3d 31 0d 0d f2 10 f2 4d 28 39 33 29 3a e5 |2)=1.....M(93):.| 000024c0 8d 74 42 40 0d 0d fc 10 f2 4d 28 39 34 29 3a e5 |.tB@.....M(94):.| 000024d0 8d 64 7c 43 0d 0e 06 11 d1 3d 49 3a 45 3d 31 3a |.d|C.....=I:E=1:| 000024e0 e5 8d 74 42 40 0d 0e 10 15 49 3d 91 3a 41 3d a5 |..tB@....I=.:A=.| 000024f0 3a d1 3d 49 3a e5 8d 74 42 40 0d 0e 1a 27 f1 22 |:.=I:..tB@...'."| 00002500 44 6f 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 70 |Do you want to p| 00002510 6c 61 79 20 61 20 67 61 6d 65 3f 28 59 2f 4e 29 |lay a game?(Y/N)| 00002520 22 0d 0e 24 12 41 3d a5 3a e7 41 3d 37 38 8c 8d |"..$.A=.:.A=78..| 00002530 74 4c 40 0d 0e 2e 10 f2 4d 28 39 35 29 3a e4 8d |tL@.....M(95):..| 00002540 74 58 52 0d 0e 38 1e f2 4d 28 39 36 29 3a 3a 41 |tXR..8..M(96)::A| 00002550 3d b3 28 31 30 29 3a f2 4d 28 39 37 29 3a e8 41 |=.(10):.M(97):.A| 00002560 25 0d 0e 42 1b e7 41 3c 3e 41 25 f2 4d 28 31 30 |%..B..A<>A%.M(10| 00002570 31 29 3a 47 3d 30 3a e5 8d 74 42 40 0d 0e 4c 23 |1):G=0:..tB@..L#| 00002580 f2 4d 28 31 30 30 29 3a e4 8d 74 58 52 3a e7 47 |.M(100):..tXR:.G| 00002590 3c 31 30 f2 4d 28 39 38 29 3a e5 8d 74 42 40 0d |<10.M(98):..tB@.| 000025a0 0e 56 10 f2 4d 28 39 39 29 3a e4 8d 74 58 52 0d |.V..M(99):..tXR.| 000025b0 0e 60 17 f2 4d 28 31 30 32 29 3a 41 3d a5 3a f2 |.`..M(102):A=.:.| 000025c0 4d 28 31 30 33 29 0d 0e 6a 0c 47 3d 47 20 81 32 |M(103)..j.G=G .2| 000025d0 3a db 0d 0e 74 07 41 3d a5 0d 0e 7e 3e f1 8a 31 |:...t.A=...~>..1| 000025e0 30 2c 31 30 29 3b 3a f2 4d 28 31 30 34 29 3a f1 |0,10);:.M(104):.| 000025f0 8a 31 30 2c 35 29 3b 79 3b 8a 31 30 2c 31 35 29 |.10,5);y;.10,15)| 00002600 3b 5a 3b 8a 31 31 2c 31 30 29 3b 3a f2 4d 28 31 |;Z;.11,10);:.M(1| 00002610 30 35 29 3a f1 3b 47 0d 0e 88 0e e7 41 3d 37 38 |05):.;G.....A=78| 00002620 79 3d 79 2b 31 0d 0e 92 0e e7 41 3d 38 33 79 3d |y=y+1.....A=83y=| 00002630 79 2d 31 0d 0e 9c 0e e7 41 3d 38 37 5a 3d 5a 2b |y-1.....A=87Z=Z+| 00002640 31 0d 0e a6 0e e7 41 3d 36 39 5a 3d 5a 2d 31 0d |1.....A=69Z=Z-1.| 00002650 0e b0 13 47 3d 47 2d 32 3a e7 47 3c 30 e5 8d 64 |...G=G-2:.G<0..d| 00002660 58 4e 0d 0e ba 0f e7 41 3c 3e 36 34 8c 8d 44 74 |XN.....A<>64..Dt| 00002670 4e 0d 0e c4 1a f2 4d 28 31 30 36 29 3a e7 4c 28 |N.....M(106):.L(| 00002680 31 33 29 3d 30 57 3d 57 2b 31 30 0d 0e ce 09 e5 |13)=0W=W+10.....| 00002690 8d 74 42 40 0d 0e d8 11 f2 4d 28 31 30 37 29 3a |.tB@.....M(107):| 000026a0 e5 8d 44 72 41 0d 0e e2 22 e7 a7 41 24 2c 22 4c |..DrA..."..A$,"L| 000026b0 41 4d 22 29 80 50 3d 30 80 79 3d 33 30 80 5a 3d |AM").P=0.y=30.Z=| 000026c0 33 30 e5 8d 54 48 4c 0d 0e ec 1c e7 a7 41 24 2c |30..THL......A$,| 000026d0 22 4b 45 59 22 29 f2 4d 28 31 30 38 29 3a e5 8d |"KEY").M(108):..| 000026e0 74 42 40 0d 0e f6 14 e7 a7 41 24 2c 22 43 48 41 |tB@......A$,"CHA| 000026f0 22 29 8c 8d 54 4a 4f 0d 0f 00 15 f1 4f 24 3a f2 |")..TJO.....O$:.| 00002700 4d 28 31 30 39 29 3a e5 8d 74 42 40 0d 0f 0a 36 |M(109):..tB@...6| 00002710 e7 72 28 36 29 3d 31 f2 4d 28 31 31 30 29 3a 57 |.r(6)=1.M(110):W| 00002720 3d 57 2b 35 3a 79 3d 35 30 3a 5a 3d 33 30 3a e5 |=W+5:y=50:Z=30:.| 00002730 8d 74 42 40 8b f2 4d 28 31 31 31 29 3a e5 8d 74 |.tB@..M(111):..t| 00002740 42 40 0d 0f 14 06 f2 41 0d 0f 1e 1f f2 4d 28 31 |B@.....A.....M(1| 00002750 31 32 29 3a f1 3b 43 2a 31 30 3a f2 4d 28 31 31 |12):.;C*10:.M(11| 00002760 33 29 3a f1 3b 52 25 0d 0f 28 13 e7 52 25 3e 43 |3):.;R%..(..R%>C| 00002770 2a 31 30 f2 4d 28 31 31 34 29 0d 0f 32 09 e5 8d |*10.M(114)..2...| 00002780 74 42 40 0d 0f 3c 15 f2 4d 28 31 31 35 29 3a 68 |tB@..<..M(115):h| 00002790 28 31 29 3d 31 3a f2 46 0d 0f 46 29 e7 c0 41 24 |(1)=1:.F..F)..A$| 000027a0 2c 33 29 3d 22 49 4e 53 22 80 20 c2 41 24 2c 33 |,3)="INS". .A$,3| 000027b0 29 3d 22 47 4f 4c 22 8c 8d 44 50 4f 8b 8d 74 4c |)="GOL"..DPO..tL| 000027c0 40 0d 0f 50 15 e7 47 3c 31 f2 4d 28 31 31 36 29 |@..P..G<1.M(116)| 000027d0 3a e5 8d 74 42 40 0d 0f 5a 33 d4 32 2c 2d 31 35 |:..tB@..Z3.2,-15| 000027e0 2c 35 30 2c 35 3a f2 4d 28 31 31 37 29 3a 47 3d |,50,5:.M(117):G=| 000027f0 47 2d 31 3a e7 4c 28 31 34 29 3d 30 57 3d 57 2b |G-1:.L(14)=0W=W+| 00002800 35 3a 4c 28 31 34 29 3d 31 0d 0f 64 09 e5 8d 74 |5:L(14)=1..d...t| 00002810 42 40 0d 0f 6e 19 e7 4c 28 31 35 29 3d 31 f2 4d |B@..n..L(15)=1.M| 00002820 28 31 31 38 29 3a e5 8d 74 42 40 0d 0f 78 0e f2 |(118):..tB@..x..| 00002830 4d 28 31 31 39 29 3a f2 46 0d 0f 82 21 e7 28 a7 |M(119):.F...!.(.| 00002840 41 24 2c 22 52 45 41 22 29 80 a7 41 24 2c 22 50 |A$,"REA")..A$,"P| 00002850 4c 41 22 29 29 8c 8d 74 60 4f 0d 0f 8c 2c e7 a7 |LA"))..t`O...,..| 00002860 41 24 2c 22 44 4f 47 22 29 80 28 a7 41 24 2c 22 |A$,"DOG").(.A$,"| 00002870 42 4f 4e 22 29 84 a7 41 24 2c 22 53 4b 45 22 29 |BON")..A$,"SKE")| 00002880 29 8c 8d 74 6a 4f 0d 0f 96 09 e5 8d 74 4c 40 0d |)..tjO......tL@.| 00002890 0f a0 11 f2 4d 28 31 32 30 29 3a e5 8d 44 72 41 |....M(120):..DrA| 000028a0 0d 0f aa 15 e7 63 3c 31 f2 4d 28 31 32 31 29 3a |.....c<1.M(121):| 000028b0 e5 8d 74 42 40 0d 0f b4 22 e7 4c 28 31 35 29 3d |..tB@...".L(15)=| 000028c0 31 8c 8d 64 48 4f 8b f2 4d 28 31 32 32 29 3a 63 |1..dHO..M(122):c| 000028d0 3d 63 2d 31 3a f2 46 0d 0f be 22 e7 ac 28 a7 41 |=c-1:.F..."..(.A| 000028e0 24 2c 22 52 45 41 22 29 80 a7 41 24 2c 22 50 4c |$,"REA")..A$,"PL| 000028f0 41 22 29 29 8c 8d 74 4c 40 0d 0f c8 0b f2 4d 28 |A"))..tL@.....M(| 00002900 31 32 33 29 0d 0f d2 26 e7 4c 28 31 35 29 3d 31 |123)...&.L(15)=1| 00002910 8c 8d 74 42 40 8b 4c 28 31 35 29 3d 31 3a 57 3d |..tB@.L(15)=1:W=| 00002920 57 2b 31 30 3a e5 8d 74 42 40 0d 0f dc 11 f2 4d |W+10:..tB@.....M| 00002930 28 31 32 34 29 3a e5 8d 74 42 40 0d 0f e6 1b f2 |(124):..tB@.....| 00002940 4d 28 31 32 35 29 3a f1 3b 79 3b bd 34 34 3b 5a |M(125):.;y;.44;Z| 00002950 3a e5 8d 74 42 40 0d 0f f0 1e f2 4d 28 31 32 36 |:..tB@.....M(126| 00002960 29 3a f1 3b 57 3b 3a f2 4d 28 31 32 37 29 3a e5 |):.;W;:.M(127):.| 00002970 8d 74 42 40 0d 0f fa 19 e7 65 3d 31 84 65 3d 35 |.tB@.....e=1.e=5| 00002980 f2 4d 28 31 32 39 29 3a e5 8d 74 42 40 0d 10 04 |.M(129):..tB@...| 00002990 2d e4 8d 54 60 52 3a e7 68 28 32 29 3d 34 80 42 |-..T`R:.h(2)=4.B| 000029a0 24 3d 22 43 48 41 22 68 28 32 29 3d 30 3a 72 28 |$="CHA"h(2)=0:r(| 000029b0 36 29 3d 31 3a e5 8d 74 42 40 0d 10 09 22 ee 68 |6)=1:..tB@...".h| 000029c0 28 31 29 e5 8d 54 4e 50 2c 8d 54 62 50 2c 8d 54 |(1)..TNP,.TbP,.T| 000029d0 4e 50 2c 8d 54 58 50 2c 8d 74 48 44 0d 10 0e 12 |NP,.TXP,.tHD....| 000029e0 f2 4d 28 31 32 39 29 3a e5 8d 74 42 40 20 0d 10 |.M(129):..tB@ ..| 000029f0 18 34 e7 42 24 3d 22 53 4b 45 22 63 3d 63 2b 31 |.4.B$="SKE"c=c+1| 00002a00 3a 41 24 3d 22 73 6b 65 6c 65 74 6f 6e 22 3a e5 |:A$="skeleton":.| 00002a10 8d 64 54 43 8b f2 4d 28 31 33 30 29 3a e5 8d 74 |.dTC..M(130):..t| 00002a20 42 40 0d 10 22 0f 41 3d 30 3a f5 3a 41 3d 41 2b |B@..".A=0:.:A=A+| 00002a30 31 0d 10 2c 2e e7 42 24 3d a4 47 28 41 29 80 64 |1..,..B$=.G(A).d| 00002a40 3d 41 20 41 24 3d 53 24 28 41 29 3a 68 28 31 29 |=A A$=S$(A):h(1)| 00002a50 3d 31 3a 53 28 41 29 3d 31 3a 41 3d 32 34 30 0d |=1:S(A)=1:A=240.| 00002a60 10 36 14 fd 41 3e 33 3a e7 41 3d 32 34 30 e5 8d |.6..A>3:.A=240..| 00002a70 64 54 43 0d 10 40 3d e7 64 3d 36 80 42 24 3d a4 |dTC..@=.d=6.B$=.| 00002a80 47 28 36 29 53 28 36 29 3d 53 28 36 29 2b 4a 3a |G(6)S(6)=S(6)+J:| 00002a90 41 24 3d c3 4a 2b 22 20 66 6f 6f 64 20 70 61 63 |A$=.J+" food pac| 00002aa0 6b 73 22 3a 68 28 31 29 3d 31 3a e5 8d 64 54 43 |ks":h(1)=1:..dTC| 00002ab0 0d 10 4a 34 e7 64 3d 35 80 53 28 35 29 3d 30 80 |..J4.d=5.S(5)=0.| 00002ac0 42 24 3d a4 47 28 35 29 53 28 35 29 3d 31 3a 41 |B$=.G(5)S(5)=1:A| 00002ad0 24 3d 53 24 28 35 29 3a 68 28 31 29 3d 31 3a e5 |$=S$(5):h(1)=1:.| 00002ae0 8d 64 54 43 0d 10 54 39 e7 64 3d 35 80 53 28 35 |.dTC..T9.d=5.S(5| 00002af0 29 3d 31 80 42 24 3d a4 47 28 37 29 53 28 37 29 |)=1.B$=.G(7)S(7)| 00002b00 3d 53 28 37 29 2b 31 3a 41 24 3d 53 24 28 37 29 |=S(7)+1:A$=S$(7)| 00002b10 3a 68 28 31 29 3d 31 3a e5 8d 64 54 43 0d 10 5e |:h(1)=1:..dTC..^| 00002b20 22 e7 64 3d 30 47 3d 47 2b 55 3a f1 4f 24 3a 55 |".d=0G=G+U:.O$:U| 00002b30 3d 30 3a 68 28 31 29 3d 31 3a e5 8d 74 42 40 0d |=0:h(1)=1:..tB@.| 00002b40 10 68 11 f2 4d 28 31 32 38 29 3a e5 8d 74 42 40 |.h..M(128):..tB@| 00002b50 0d 10 72 07 dd f2 41 0d 10 7c 2f 52 25 3d 47 2b |..r...A..|/R%=G+| 00002b60 28 53 28 36 29 2a 32 35 29 3a 52 25 3d 52 25 2b |(S(6)*25):R%=R%+| 00002b70 28 4a 25 2a 31 30 29 3a e7 53 28 35 29 3d 31 52 |(J%*10):.S(5)=1R| 00002b80 25 3d 52 25 2b 35 0d 10 86 21 52 25 3d 52 25 2b |%=R%+5...!R%=R%+| 00002b90 28 43 20 81 31 30 29 3a e7 53 28 32 29 3d 31 52 |(C .10):.S(2)=1R| 00002ba0 25 3d 52 25 2b 35 30 0d 10 90 1a e7 53 28 37 29 |%=R%+50.....S(7)| 00002bb0 3e 30 52 25 3d 52 25 2b 28 53 28 37 29 2a 31 30 |>0R%=R%+(S(7)*10| 00002bc0 29 0d 10 9a 13 e7 53 28 33 29 3d 31 52 25 3d 52 |).....S(3)=1R%=R| 00002bd0 25 2b 32 30 0d 10 a4 13 e7 53 28 31 29 3d 31 52 |%+20.....S(1)=1R| 00002be0 25 3d 52 25 2b 31 30 0d 10 ae 13 e7 53 28 34 29 |%=R%+10.....S(4)| 00002bf0 3d 31 52 25 3d 52 25 2b 31 35 0d 10 b8 13 55 25 |=1R%=R%+15....U%| 00002c00 3d 43 2a 31 30 3a e7 55 25 3e 52 25 e1 0d 10 c2 |=C*10:.U%>R%....| 00002c10 1d 49 25 3d 28 28 52 25 2d 55 25 29 81 31 30 29 |.I%=((R%-U%).10)| 00002c20 3a e7 49 25 3e 35 49 25 3d 35 0d 10 cc 0d e7 49 |:.I%>5I%=5.....I| 00002c30 25 3c 31 49 25 3d 31 0d 10 d6 05 e1 0d 10 e0 0b |%<1I%=1.........| 00002c40 dd a4 43 3a 41 3d 30 0d 10 ea 19 e7 41 24 3d 22 |..C:A=0.....A$="| 00002c50 4e 4f 52 54 48 22 84 41 24 3d 22 4e 22 41 3d 31 |NORTH".A$="N"A=1| 00002c60 0d 10 f4 19 e7 41 24 3d 22 53 4f 55 54 48 22 84 |.....A$="SOUTH".| 00002c70 41 24 3d 22 53 22 41 3d 31 0d 10 fe 18 e7 41 24 |A$="S"A=1.....A$| 00002c80 3d 22 57 45 53 54 22 84 41 24 3d 22 57 22 41 3d |="WEST".A$="W"A=| 00002c90 31 0d 11 08 18 e7 41 24 3d 22 45 41 53 54 22 84 |1.....A$="EAST".| 00002ca0 41 24 3d 22 45 22 41 3d 31 0d 11 12 0b e7 41 3d |A$="E"A=1.....A=| 00002cb0 30 3a 3d 30 0d 11 1c 10 41 24 3d c0 41 24 2c 31 |0:=0....A$=.A$,1| 00002cc0 29 3a 3d 31 0d 11 26 15 dd f2 57 28 78 29 3a e3 |):=1..&...W(x):.| 00002cd0 78 3d 30 b8 78 3a ed 3a e1 0d 11 30 3b dd f2 44 |x=0.x:.:...0;..D| 00002ce0 3a 41 3d 31 3a 61 3d 30 3a f7 8d 64 62 53 3a f5 |:A=1:a=0:..dbS:.| 00002cf0 3a f3 20 42 25 2c 51 25 2c 57 25 2c 54 25 3a e7 |:. B%,Q%,W%,T%:.| 00002d00 79 3d 42 25 80 5a 3d 51 25 8c 68 28 31 29 3d 31 |y=B%.Z=Q%.h(1)=1| 00002d10 3a 61 3d 31 0d 11 3a 6d 41 3d 41 2b 31 3a fd 41 |:a=1..:mA=A+1:.A| 00002d20 3d 31 36 84 61 3d 31 3a e7 61 3d 31 ee 41 2d 31 |=16.a=1:.a=1.A-1| 00002d30 20 e5 8d 74 70 49 2c 8d 44 5a 4a 2c 8d 44 64 4a | ..tpI,.DZJ,.DdJ| 00002d40 2c 8d 44 6e 4a 2c 8d 44 78 4a 2c 8d 74 42 4a 2c |,.DnJ,.DxJ,.tBJ,| 00002d50 8d 74 4c 4a 2c 8d 74 60 4a 2c 8d 74 6a 4a 2c 8d |.tLJ,.t`J,.tjJ,.| 00002d60 74 7e 4a 2c 8d 64 52 4a 2c 8d 64 5c 4a 2c 8d 64 |t~J,.dRJ,.d\J,.d| 00002d70 7a 45 2c 8d 54 76 46 2c 8d 54 66 47 2c 8d 44 6a |zE,.TvF,.TfG,.Dj| 00002d80 49 0d 11 44 05 e1 0d 11 4e 31 dd f2 45 3a f7 8d |I..D....N1..E:..| 00002d90 64 58 53 3a 41 3d 31 3a 61 3d 30 3a f5 3a f3 49 |dXS:A=1:a=0:.:.I| 00002da0 2c 4b 3a e7 49 3d 79 20 80 4b 3d 5a 20 68 28 31 |,K:.I=y .K=Z h(1| 00002db0 29 3d 31 3a 61 3d 31 0d 11 58 9d 41 3d 41 2b 31 |)=1:a=1..X.A=A+1| 00002dc0 3a fd 41 3d 32 38 84 61 3d 31 3a e7 61 3d 31 ee |:.A=28.a=1:.a=1.| 00002dd0 41 20 e5 8d 74 66 49 2c 8d 74 5c 49 2c 8d 64 6c |A ..tfI,.t\I,.dl| 00002de0 49 2c 8d 54 40 4a 2c 8d 64 4e 49 2c 8d 64 58 49 |I,.T@J,.dNI,.dXI| 00002df0 2c 8d 64 62 49 2c 8d 44 74 44 2c 8d 64 66 4a 2c |,.dbI,.DtD,.dfJ,| 00002e00 8d 64 70 4a 2c 8d 64 7a 4a 2c 8d 54 4e 4b 2c 8d |.dpJ,.dzJ,.TNK,.| 00002e10 44 4a 4b 2c 8d 54 76 4b 2c 8d 74 72 4c 2c 8d 44 |DJK,.TvK,.trL,.D| 00002e20 48 4d 2c 8d 64 5a 4c 2c 8d 54 4c 4d 2c 8d 44 5c |HM,.dZL,.TLM,.D\| 00002e30 4d 2c 8d 74 62 4d 2c 8d 64 40 4d 2c 8d 64 7c 4d |M,.tbM,.d@M,.d|M| 00002e40 2c 8d 54 5a 4e 2c 8d 54 7c 4f 2c 8d 44 6e 4f 2c |,.TZN,.T|O,.DnO,| 00002e50 8d 64 5c 4f 0d 11 62 05 e1 0d 11 6c 15 dd f2 46 |.d\O..b....l...F| 00002e60 3a f2 4d 28 26 45 38 29 3a e8 41 24 3a e1 0d 11 |:.M(&E8):.A$:...| 00002e70 76 0b dd f2 47 28 41 24 29 0d 11 80 18 f1 22 59 |v...G(A$)....."Y| 00002e80 6f 75 20 68 61 76 65 20 74 68 65 20 22 41 24 3a |ou have the "A$:| 00002e90 e1 0d 11 8a 15 dd a4 47 28 61 29 3a 3d c0 53 24 |.......G(a):=.S$| 00002ea0 28 61 29 2c 33 29 0d 11 94 0e 3d c0 53 24 28 44 |(a),3)....=.S$(D| 00002eb0 29 2c 33 29 0d 11 9e 16 ee 52 20 e5 8d 74 68 51 |),3).....R ..thQ| 00002ec0 2c 8d 64 50 51 2c 8d 64 5a 51 0d 11 a8 0f e7 91 |,.dPQ,.dZQ......| 00002ed0 3c 3d 26 41 46 43 38 30 f8 0d 11 b2 0b f2 4d 28 |<=&AFC80......M(| 00002ee0 26 45 39 29 0d 11 bc 18 e7 72 28 35 29 3d 30 f2 |&E9).....r(5)=0.| 00002ef0 4d 28 26 45 41 29 3a e5 8d 44 72 41 0d 11 c6 11 |M(&EA):..DrA....| 00002f00 f2 4d 28 26 45 42 29 3a 52 3d 32 3a f8 0d 11 d0 |.M(&EB):R=2:....| 00002f10 19 e7 91 3e 26 32 33 42 34 41 30 f2 4d 28 26 45 |...>&23B4A0.M(&E| 00002f20 43 29 3a 52 3d 33 0d 11 da 05 f8 0d 11 e4 13 f2 |C):R=3..........| 00002f30 53 28 26 41 30 2c 52 24 28 65 29 29 3a f8 0d 11 |S(&A0,R$(e)):...| 00002f40 ee 12 e7 66 3c 26 31 30 37 41 43 30 20 65 3d 32 |...f<&107AC0 e=2| 00002f50 0d 11 f8 12 e7 66 3e 26 31 30 37 41 43 30 20 65 |.....f>&107AC0 e| 00002f60 3d 33 0d 12 02 12 e7 66 3e 26 31 35 46 39 30 30 |=3.....f>&15F900| 00002f70 20 65 3d 34 0d 12 0c 12 e7 66 3e 26 31 42 37 37 | e=4.....f>&1B77| 00002f80 34 30 20 65 3d 35 0d 12 16 05 f8 0d 12 20 14 e7 |40 e=5....... ..| 00002f90 a7 41 24 2c 22 20 22 29 3d 30 8c 8d 54 4e 41 0d |.A$," ")=0..TNA.| 00002fa0 12 2a 21 41 3d 30 3a f5 3a 41 3d 41 2b 31 3a fd |.*!A=0:.:A=A+1:.| 00002fb0 97 28 c2 41 24 2c 28 41 2b 31 29 29 29 3d 33 32 |.(.A$,(A+1)))=32| 00002fc0 0d 12 34 17 44 24 3d c2 41 24 2c 41 29 3a 42 24 |..4.D$=.A$,A):B$| 00002fd0 3d c0 44 24 2c 33 29 0d 12 3e 05 f8 0d 12 48 0b |=.D$,3)..>....H.| 00002fe0 2a 46 58 32 31 2c 30 0d 12 52 05 f8 0d 12 5c 39 |*FX21,0..R....\9| 00002ff0 e7 79 3d 33 34 f1 22 54 68 65 20 77 61 79 20 4e |.y=34."The way N| 00003000 6f 72 74 68 20 69 73 20 62 6c 6f 63 6b 65 64 20 |orth is blocked | 00003010 62 79 20 61 20 6c 61 72 67 65 20 69 72 6f 6e 64 |by a large irond| 00003020 6f 6f 72 2e 22 0d 12 66 39 e7 79 3d 33 30 f1 22 |oor."..f9.y=30."| 00003030 54 68 65 20 77 61 79 20 53 6f 75 74 68 20 69 73 |The way South is| 00003040 20 62 6c 6f 63 6b 65 64 20 62 79 20 61 20 6c 61 | blocked by a la| 00003050 72 67 65 20 69 72 6f 6e 64 6f 6f 72 2e 22 0d 12 |rge irondoor."..| 00003060 70 39 e7 5a 3d 33 30 f1 22 54 68 65 20 77 61 79 |p9.Z=30."The way| 00003070 20 45 61 73 74 20 69 73 20 62 6c 6f 63 6b 65 64 | East is blocked| 00003080 20 62 79 20 61 20 6c 61 72 67 65 20 69 72 6f 6e | by a large iron| 00003090 20 64 6f 6f 72 2e 22 0d 12 7a 39 e7 5a 3d 33 34 | door."..z9.Z=34| 000030a0 f1 22 54 68 65 20 77 61 79 20 57 65 73 74 20 69 |."The way West i| 000030b0 73 20 62 6c 6f 63 6b 65 64 20 62 79 20 61 20 6c |s blocked by a l| 000030c0 61 72 67 65 20 69 72 6f 6e 20 64 6f 6f 72 2e 22 |arge iron door."| 000030d0 0d 12 84 05 f8 0d 12 8e 0d f2 4d 28 26 45 44 29 |..........M(&ED)| 000030e0 3a f8 0d 12 98 0b f2 4d 28 26 45 45 29 0d 12 a2 |:......M(&EE)...| 000030f0 19 41 3d a5 3a e7 41 3c 3e 38 39 80 41 3c 3e 37 |.A=.:.A<>89.A<>7| 00003100 38 e5 8d 74 62 52 0d 12 ac 12 e7 41 3d 37 38 f1 |8..tbR.....A=78.| 00003110 4f 24 3a e5 8d 74 42 40 0d 12 b6 05 f8 0d 12 c0 |O$:..tB@........| 00003120 1c e7 41 3d 31 80 6b 28 41 29 3e 32 35 68 28 31 |..A=1.k(A)>25h(1| 00003130 29 3d 31 3a e5 8d 74 42 40 0d 12 ca 1c e7 41 3d |)=1:..tB@.....A=| 00003140 32 80 6b 28 41 29 3e 32 33 68 28 31 29 3d 31 3a |2.k(A)>23h(1)=1:| 00003150 e5 8d 74 42 40 0d 12 d4 1c e7 41 3d 33 80 6b 28 |..tB@.....A=3.k(| 00003160 41 29 3e 32 30 68 28 31 29 3d 31 3a e5 8d 74 42 |A)>20h(1)=1:..tB| 00003170 40 0d 12 de 1c e7 41 3d 34 80 6b 28 41 29 3e 31 |@.....A=4.k(A)>1| 00003180 35 68 28 31 29 3d 31 3a e5 8d 74 42 40 0d 12 e8 |5h(1)=1:..tB@...| 00003190 1b e7 41 3d 35 80 6b 28 41 29 3e 39 68 28 31 29 |..A=5.k(A)>9h(1)| 000031a0 3d 31 3a e5 8d 74 42 40 0d 12 f2 05 f8 0d 12 fc |=1:..tB@........| 000031b0 13 f1 22 59 6f 75 20 63 61 6e 20 67 6f 3a 22 3b |.."You can go:";| 000031c0 0d 13 06 12 e7 79 3c 35 30 f1 22 4e 6f 72 74 68 |.....y<50."North| 000031d0 22 3b 0d 13 10 12 e7 79 3e 31 f1 22 2c 53 6f 75 |";.....y>1.",Sou| 000031e0 74 68 22 3b 0d 13 1a 12 e7 5a 3c 35 30 f1 22 2c |th";.....Z<50.",| 000031f0 57 65 73 74 22 3b 0d 13 24 11 e7 5a 3e 31 f1 22 |West";..$..Z>1."| 00003200 2c 45 61 73 74 22 27 0d 13 2e 05 f8 0d 13 38 1c |,East"'.......8.| 00003210 68 28 31 29 3d 31 3a e7 62 3d 31 80 57 3c 32 32 |h(1)=1:.b=1.W<22| 00003220 35 f2 4d 28 26 45 46 29 0d 13 42 1b e7 62 3d 30 |5.M(&EF)..B..b=0| 00003230 80 57 3e 32 30 30 f2 4d 28 26 46 30 29 3a e5 8d |.W>200.M(&F0):..| 00003240 74 42 40 0d 13 4c 12 e7 4c 28 39 29 3d 30 f2 4d |tB@..L..L(9)=0.M| 00003250 28 26 46 31 29 0d 13 56 1b e7 62 3d 30 80 57 3c |(&F1)..V..b=0.W<| 00003260 31 35 30 f2 4d 28 26 46 32 29 3a e5 8d 74 42 40 |150.M(&F2):..tB@| 00003270 0d 13 60 16 e7 51 3c 3e 35 f2 4d 28 26 46 33 29 |..`..Q<>5.M(&F3)| 00003280 3a e5 8d 74 42 40 0d 13 6a 0f f2 4d 28 26 46 34 |:..tB@..j..M(&F4| 00003290 29 3a 41 3d a5 0d 13 74 12 e7 41 3d 37 38 f1 4f |):A=...t..A=78.O| 000032a0 24 3a e5 8d 74 42 40 0d 13 7e 11 f2 4d 28 26 46 |$:..tB@..~..M(&F| 000032b0 35 29 3a e5 8d 44 7c 41 0d 13 88 d4 dd f2 42 3a |5):..D|A......B:| 000032c0 43 3d b3 28 31 38 29 2b 35 3a 42 3d 30 3a 49 25 |C=.(18)+5:B=0:I%| 000032d0 3d 31 3a 65 3d 31 3a 4e 3d 30 3a 52 25 3d 35 30 |=1:e=1:N=0:R%=50| 000032e0 3a 63 3d 30 3a 40 25 3d 30 3a 66 3d 30 3a 47 3d |:c=0:@%=0:f=0:G=| 000032f0 30 3a 43 24 3d 22 22 3a 57 3d 30 3a 64 3d 31 3a |0:C$="":W=0:d=1:| 00003300 44 3d 30 3a 62 3d 30 3a 4f 3d 30 3a 79 3d 33 32 |D=0:b=0:O=0:y=32| 00003310 3a 5a 3d 33 32 3a 4a 25 3d 30 3a 4f 24 3d 22 4f |:Z=32:J%=0:O$="O| 00003320 4b 22 3a 52 3d 31 3a 50 3d 30 3a de 68 28 32 29 |K":R=1:P=0:.h(2)| 00003330 2c 5a 24 28 35 29 2c 6b 28 35 29 2c 48 28 35 29 |,Z$(5),k(5),H(5)| 00003340 2c 46 28 35 29 2c 58 24 28 35 29 2c 58 28 35 29 |,F(5),X$(5),X(5)| 00003350 2c 53 28 37 29 2c 53 24 28 37 29 2c 51 24 28 37 |,S(7),S$(7),Q$(7| 00003360 29 2c 72 24 28 37 29 2c 72 28 37 29 2c 4b 28 31 |),r$(7),r(7),K(1| 00003370 32 29 2c 52 24 28 35 29 2c 4c 28 31 35 29 3a 68 |2),R$(5),L(15):h| 00003380 28 31 29 3d 31 3a 68 28 32 29 3d 30 0d 13 92 42 |(1)=1:h(2)=0...B| 00003390 e3 41 3d 31 b8 35 3a f3 5a 24 28 41 29 2c 48 28 |.A=1.5:.Z$(A),H(| 000033a0 41 29 2c 46 28 41 29 3a ed 3a e3 41 3d 31 b8 34 |A),F(A):.:.A=1.4| 000033b0 3a f3 58 24 28 41 29 3a ed 3a d1 3d 30 3a 4c 25 |:.X$(A):.:.=0:L%| 000033c0 3d 30 3a 48 3d 30 3a 51 3d 31 3a 45 3d 30 0d 13 |=0:H=0:Q=1:E=0..| 000033d0 9c 50 4d 24 3d a4 46 28 22 4a 21 44 50 4e 46 21 |.PM$=.F("J!DPNF!| 000033e0 4a 4f 21 55 49 46 21 4f 42 4e 46 21 50 47 21 5b |JO!UIF!OBNF!PG![| 000033f0 46 56 54 21 55 50 21 45 46 54 55 53 50 5a 21 5a |FVT!UP!EFTUSPZ!Z| 00003400 50 56 21 46 57 4a 4d 21 50 4f 46 22 29 3a 54 24 |PV!FWJM!POF"):T$| 00003410 3d a4 46 28 22 55 46 48 35 38 34 54 22 29 0d 13 |=.F("UFH584T")..| 00003420 a6 36 e3 41 3d 31 b8 37 3a f3 53 24 28 41 29 2c |.6.A=1.7:.S$(A),| 00003430 51 24 28 41 29 2c 72 24 28 41 29 3a ed 3a 53 28 |Q$(A),r$(A):.:S(| 00003440 36 29 3d 31 3a e3 41 3d 31 b8 35 3a f3 52 24 28 |6)=1:.A=1.5:.R$(| 00003450 41 29 3a ed 0d 13 b0 05 e1 0d 13 ba 67 dc 47 6f |A):.........g.Go| 00003460 62 6c 69 6e 2c 38 2c 38 2c 4f 72 63 2c 26 41 2c |blin,8,8,Orc,&A,| 00003470 26 42 2c 44 72 61 67 6f 6e 2c 26 44 2c 26 45 2c |&B,Dragon,&D,&E,| 00003480 4f 67 72 65 2c 26 31 32 2c 26 31 33 2c 54 72 6f |Ogre,&12,&13,Tro| 00003490 6c 6c 2c 26 31 33 2c 26 31 42 2c 42 6c 75 65 20 |ll,&13,&1B,Blue | 000034a0 6b 65 79 2c 59 65 6c 6c 6f 77 20 6b 65 79 2c 47 |key,Yellow key,G| 000034b0 72 65 65 6e 20 6b 65 79 2c 52 65 64 20 6b 65 79 |reen key,Red key| 000034c0 0d 13 c4 c5 dc 52 49 4e 47 2c 6d 61 72 6b 65 64 |.....RING,marked| 000034d0 20 27 53 50 4c 27 2c 53 43 52 45 57 20 44 52 49 | 'SPL',SCREW DRI| 000034e0 56 45 52 2c 53 57 4f 52 44 2c 20 2c 53 50 41 4e |VER,SWORD, ,SPAN| 000034f0 4e 45 52 2c 42 4f 4d 42 2c 6d 61 72 6b 65 64 20 |NER,BOMB,marked | 00003500 27 53 4c 27 2c 41 20 42 4c 41 43 4b 20 42 4f 58 |'SL',A BLACK BOX| 00003510 2c 42 52 41 43 45 4c 45 54 2c 6d 61 72 6b 65 64 |,BRACELET,marked| 00003520 20 27 54 52 27 2c 41 20 53 4d 41 4c 4c 20 42 41 | 'TR',A SMALL BA| 00003530 47 20 4f 46 20 53 41 4c 54 2c 46 4c 49 4e 54 20 |G OF SALT,FLINT | 00003540 42 4f 58 2c 20 2c 41 20 47 41 53 20 4d 41 53 4b |BOX, ,A GAS MASK| 00003550 2c 46 4f 4f 44 20 50 41 43 4b 53 2c 20 2c 41 20 |,FOOD PACKS, ,A | 00003560 4d 41 47 49 43 20 43 48 41 49 4e 2c 50 49 45 43 |MAGIC CHAIN,PIEC| 00003570 45 53 20 4f 46 20 57 4f 4f 44 2c 20 2c 44 59 4e |ES OF WOOD, ,DYN| 00003580 41 4d 49 54 45 0d 13 ce 43 dc 6f 66 66 2c 6f 6e |AMITE...C.off,on| 00003590 20 62 72 69 67 68 74 6c 79 2c 72 75 6e 6e 69 6e | brightly,runnin| 000035a0 67 20 6c 6f 77 2c 6f 6e 6c 79 20 64 69 6d 20 6e |g low,only dim n| 000035b0 6f 77 2c 6f 66 66 20 64 75 65 20 74 6f 20 70 6f |ow,off due to po| 000035c0 77 65 72 20 63 75 74 21 0d 13 d8 97 dc 33 35 2c |wer cut!.....35,| 000035d0 32 34 2c 31 34 2c 33 38 2c 31 38 2c 34 33 2c 31 |24,14,38,18,43,1| 000035e0 34 2c 32 35 2c 31 38 2c 35 30 2c 33 30 2c 31 39 |4,25,18,50,30,19| 000035f0 2c 34 34 2c 39 2c 31 36 2c 31 36 2c 34 31 2c 32 |,44,9,16,16,41,2| 00003600 34 2c 34 33 2c 39 2c 34 2c 31 33 2c 31 32 2c 35 |4,43,9,4,13,12,5| 00003610 2c 31 34 2c 38 2c 32 32 2c 31 34 2c 32 36 2c 34 |,14,8,22,14,26,4| 00003620 33 2c 35 30 2c 33 30 2c 34 34 2c 33 32 2c 33 39 |3,50,30,44,32,39| 00003630 2c 33 32 2c 35 2c 34 33 2c 34 2c 33 30 2c 33 37 |,32,5,43,4,30,37| 00003640 2c 34 39 2c 39 2c 32 32 2c 34 2c 33 36 2c 34 36 |,49,9,22,4,36,46| 00003650 2c 31 34 2c 33 33 2c 34 31 2c 32 33 2c 33 39 0d |,14,33,41,23,39.| 00003660 13 e2 aa dc 32 36 2c 32 36 2c 31 2c 32 2c 32 34 |....26,26,1,2,24| 00003670 2c 32 34 2c 33 2c 34 2c 32 34 2c 32 36 2c 38 2c |,24,3,4,24,26,8,| 00003680 32 2c 34 30 2c 34 30 2c 31 31 2c 33 2c 34 35 2c |2,40,40,11,3,45,| 00003690 34 35 2c 31 35 2c 34 2c 31 2c 31 2c 32 30 2c 32 |45,15,4,1,1,20,2| 000036a0 2c 33 30 2c 31 30 2c 32 33 2c 34 2c 32 30 2c 31 |,30,10,23,4,20,1| 000036b0 30 2c 32 38 2c 32 2c 34 30 2c 32 31 2c 33 31 2c |0,28,2,40,21,31,| 000036c0 36 2c 33 38 2c 32 32 2c 33 38 2c 33 2c 31 30 2c |6,38,22,38,3,10,| 000036d0 31 30 2c 34 32 2c 35 2c 34 2c 31 33 2c 34 37 2c |10,42,5,4,13,47,| 000036e0 32 2c 34 37 2c 32 36 2c 30 2c 30 2c 31 32 2c 33 |2,47,26,0,0,12,3| 000036f0 37 2c 30 2c 30 2c 32 35 2c 32 35 2c 30 2c 30 2c |7,0,0,25,25,0,0,| 00003700 31 31 2c 34 35 2c 30 2c 30 0d 13 ec 80 dc 33 32 |11,45,0,0.....32| 00003710 2c 33 30 2c 36 36 2c 33 33 2c 33 30 2c 35 34 2c |,30,66,33,30,54,| 00003720 33 34 2c 33 30 2c 34 39 2c 33 34 2c 33 31 2c 35 |34,30,49,34,31,5| 00003730 36 2c 33 34 2c 33 32 2c 36 35 2c 33 34 2c 33 33 |6,34,32,65,34,33| 00003740 2c 35 33 2c 33 34 2c 33 34 2c 35 30 2c 33 33 2c |,53,34,34,50,33,| 00003750 33 34 2c 35 35 2c 33 32 2c 33 34 2c 35 32 2c 33 |34,55,32,34,52,3| 00003760 31 2c 33 34 2c 36 37 2c 33 30 2c 33 33 2c 35 37 |1,34,67,30,33,57| 00003770 2c 33 30 2c 33 32 2c 35 31 2c 33 30 2c 33 30 2c |,30,32,51,30,30,| 00003780 30 2c 33 30 2c 33 34 2c 31 0d 13 f6 87 dc 50 41 |0,30,34,1.....PA| 00003790 55 2c 31 2c 48 45 4c 2c 32 2c 49 4e 46 2c 33 2c |U,1,HEL,2,INF,3,| 000037a0 57 45 49 2c 34 2c 43 4f 52 2c 35 2c 49 4e 56 2c |WEI,4,COR,5,INV,| 000037b0 36 2c 45 58 41 2c 37 2c 52 45 53 2c 38 2c 44 52 |6,EXA,7,RES,8,DR| 000037c0 4f 2c 39 2c 4c 4f 4f 2c 31 30 2c 48 45 41 2c 31 |O,9,LOO,10,HEA,1| 000037d0 31 2c 50 52 41 2c 31 32 2c 4f 50 45 2c 31 33 2c |1,PRA,12,OPE,13,| 000037e0 53 43 4f 2c 31 34 2c 45 41 54 2c 31 35 2c 47 45 |SCO,14,EAT,15,GE| 000037f0 54 2c 31 36 2c 52 55 42 2c 31 37 2c 51 55 49 2c |T,16,RUB,17,QUI,| 00003800 31 38 2c 53 41 56 2c 31 39 2c 4c 4f 41 2c 32 30 |18,SAV,19,LOA,20| 00003810 0d 14 00 c5 dc 57 41 49 2c 31 2c 53 54 4f 2c 31 |.....WAI,1,STO,1| 00003820 2c 53 54 41 2c 33 2c 53 4f 53 2c 32 2c 43 4c 55 |,STA,3,SOS,2,CLU| 00003830 2c 32 2c 44 41 54 2c 33 2c 4d 41 53 2c 34 2c 50 |,2,DAT,3,MAS,4,P| 00003840 4f 53 2c 35 2c 50 4c 41 2c 35 2c 4c 49 53 2c 36 |OS,5,PLA,5,LIS,6| 00003850 2c 49 4e 53 2c 37 2c 53 45 41 2c 37 2c 52 45 41 |,INS,7,SEA,7,REA| 00003860 2c 37 2c 53 4c 45 2c 38 2c 44 52 4f 2c 39 2c 4c |,7,SLE,8,DRO,9,L| 00003870 45 41 2c 39 2c 44 55 4d 2c 39 2c 44 45 53 2c 31 |EA,9,DUM,9,DES,1| 00003880 30 2c 57 4f 52 2c 31 32 2c 46 49 54 2c 31 31 2c |0,WOR,12,FIT,11,| 00003890 50 4f 49 2c 31 34 2c 44 45 56 2c 31 35 2c 54 41 |POI,14,DEV,15,TA| 000038a0 4b 2c 31 36 2c 47 52 41 2c 31 36 2c 53 4e 41 2c |K,16,GRA,16,SNA,| 000038b0 31 36 2c 43 41 52 2c 31 36 2c 50 49 43 2c 31 36 |16,CAR,16,PIC,16| 000038c0 2c 43 4c 45 2c 31 37 2c 45 4e 44 2c 31 38 2c 46 |,CLE,17,END,18,F| 000038d0 49 4e 2c 31 38 0d 14 0a 12 dc 50 52 49 2c 32 31 |IN,18.....PRI,21| 000038e0 2c 4e 4f 50 2c 32 32 0d 14 14 0a dc 58 58 58 2c |,NOP,22.....XXX,| 000038f0 30 0d 14 1e 37 dd a4 48 28 46 24 29 3a ea 41 2c |0...7..H(F$):.A,| 00003900 41 24 3a e3 41 3d 31 b8 a9 46 24 3a 41 24 3d 41 |A$:.A=1..F$:A$=A| 00003910 24 2b bd 28 97 28 c1 46 24 2c 41 2c 31 29 29 2b |$+.(.(.F$,A,1))+| 00003920 31 29 3a ed 3a 3d 41 24 0d 14 28 37 dd a4 46 28 |1):.:=A$..(7..F(| 00003930 46 24 29 3a ea 41 2c 41 24 3a e3 41 3d 31 b8 a9 |F$):.A,A$:.A=1..| 00003940 46 24 3a 41 24 3d 41 24 2b bd 28 97 28 c1 46 24 |F$:A$=A$+.(.(.F$| 00003950 2c 41 2c 31 29 29 2d 31 29 3a ed 3a 3d 41 24 0d |,A,1))-1):.:=A$.| 00003960 14 32 50 f2 64 3a e8 22 46 69 6c 65 20 6e 61 6d |.2P.d:."File nam| 00003970 65 3a 22 66 69 6c 65 24 3a 41 3d ae 66 69 6c 65 |e:"file$:A=.file| 00003980 24 3a f1 23 41 2c 42 2c 43 2c 44 2c 45 2c 47 2c |$:.#A,B,C,D,E,G,| 00003990 52 2c 4e 2c 4f 2c 50 2c 51 2c 57 2c 79 2c 5a 2c |R,N,O,P,Q,W,y,Z,| 000039a0 62 2c 63 2c 65 2c 66 2c 55 25 2c 43 24 2c 91 0d |b,c,e,f,U%,C$,..| 000039b0 14 3c 1a e3 61 3d 30 b8 35 3a f1 23 41 2c 6b 28 |.<..a=0.5:.#A,k(| 000039c0 61 29 2c 58 28 61 29 3a ed 0d 14 46 1a e3 61 3d |a),X(a):...F..a=| 000039d0 30 b8 37 3a f1 23 41 2c 53 28 61 29 2c 72 28 61 |0.7:.#A,S(a),r(a| 000039e0 29 3a ed 0d 14 50 16 e3 61 3d 30 b8 31 32 3a f1 |):...P..a=0.12:.| 000039f0 23 41 2c 4b 28 61 29 3a ed 0d 14 5a 0d d9 23 41 |#A,K(a):...Z..#A| 00003a00 3a e5 8d 74 42 40 0d 14 64 50 f2 64 3a e8 22 46 |:..tB@..dP.d:."F| 00003a10 69 6c 65 20 6e 61 6d 65 3a 22 66 69 6c 65 24 3a |ile name:"file$:| 00003a20 41 3d 8e 66 69 6c 65 24 3a e8 23 41 2c 42 2c 43 |A=.file$:.#A,B,C| 00003a30 2c 44 2c 45 2c 47 2c 52 2c 4e 2c 4f 2c 50 2c 51 |,D,E,G,R,N,O,P,Q| 00003a40 2c 57 2c 79 2c 5a 2c 62 2c 63 2c 65 2c 66 2c 55 |,W,y,Z,b,c,e,f,U| 00003a50 25 2c 43 24 2c 61 0d 14 6e 07 d1 3d 61 0d 14 78 |%,C$,a..n..=a..x| 00003a60 1a e3 61 3d 30 b8 35 3a e8 23 41 2c 6b 28 61 29 |..a=0.5:.#A,k(a)| 00003a70 2c 58 28 61 29 3a ed 0d 14 82 1a e3 61 3d 30 b8 |,X(a):......a=0.| 00003a80 37 3a e8 23 41 2c 53 28 61 29 2c 72 28 61 29 3a |7:.#A,S(a),r(a):| 00003a90 ed 0d 14 8c 16 e3 61 3d 30 b8 31 32 3a e8 23 41 |......a=0.12:.#A| 00003aa0 2c 4b 28 61 29 3a ed 0d 14 96 0d d9 23 41 3a e5 |,K(a):......#A:.| 00003ab0 8d 74 42 40 0d 14 a0 16 dd f2 4d 28 41 25 29 3a |.tB@......M(A%):| 00003ac0 d6 26 35 42 31 30 3a f1 3a e1 0d 14 aa 13 f1 22 |.&5B10:.:......"| 00003ad0 57 72 6f 6e 67 21 22 3a e5 8d 74 42 40 0d 14 b4 |Wrong!":..tB@...| 00003ae0 37 dd f2 4e 28 41 25 2c 41 24 2c 42 25 29 3a d6 |7..N(A%,A$,B%):.| 00003af0 26 35 42 31 30 3a f1 3b 22 20 22 3b 41 24 3b 22 |&5B10:.;" ";A$;"| 00003b00 20 22 3b 3a 41 25 3d 42 25 3a d6 26 35 42 31 30 | ";:A%=B%:.&5B10| 00003b10 3a f1 3a e1 0d 14 be 2c dd f2 50 28 41 25 2c 42 |:.:....,..P(A%,B| 00003b20 25 29 3a d6 26 35 42 31 30 3a f1 22 20 22 3b 3a |%):.&5B10:." ";:| 00003b30 41 25 3d 42 25 3a d6 26 35 42 31 30 3a f1 3a e1 |A%=B%:.&5B10:.:.| 00003b40 0d 14 c8 20 dd f2 4f 28 41 25 2c 42 25 29 3a d6 |... ..O(A%,B%):.| 00003b50 26 35 42 31 30 3a f1 3b 22 20 22 3b 42 25 3a e1 |&5B10:.;" ";B%:.| 00003b60 0d 14 d2 23 dd f2 51 28 42 25 2c 41 25 29 3a f1 |...#..Q(B%,A%):.| 00003b70 3b 42 25 3b 22 20 22 3b 3a d6 26 35 42 31 30 3a |;B%;" ";:.&5B10:| 00003b80 f1 3a e1 0d 14 dc 37 dd f2 52 28 41 25 2c 42 25 |.:....7..R(A%,B%| 00003b90 2c 43 25 29 3a d6 26 35 42 31 30 3a f1 3b 22 20 |,C%):.&5B10:.;" | 00003ba0 22 3b 42 25 3b 22 20 22 3b 3a 41 25 3d 43 25 3a |";B%;" ";:A%=C%:| 00003bb0 d6 26 35 42 31 30 3a f1 3a e1 0d 14 e6 20 dd f2 |.&5B10:.:.... ..| 00003bc0 53 28 41 25 2c 41 24 29 3a d6 26 35 42 31 30 3a |S(A%,A$):.&5B10:| 00003bd0 f1 3b 22 20 22 3b 41 24 3a e1 0d 14 f0 27 dd f2 |.;" ";A$:....'..| 00003be0 54 28 41 24 2c 41 25 29 3a f1 3b 22 20 22 3b 41 |T(A$,A%):.;" ";A| 00003bf0 24 3b 22 20 22 3b 3a d6 26 35 42 31 30 3a f1 3a |$;" ";:.&5B10:.:| 00003c00 e1 0d 14 fa 1d dd f2 64 3a ea 41 24 3a e8 22 2a |.......d:.A$:."*| 00003c10 43 41 54 20 66 69 72 73 74 20 3f 22 41 24 0d 15 |CAT first ?"A$..| 00003c20 04 1f e7 20 c0 41 24 2c 31 29 3d 22 59 22 20 84 |... .A$,1)="Y" .| 00003c30 c0 41 24 2c 31 29 3d 22 79 22 3a 2a 2e 0d 15 0e |.A$,1)="y":*....| 00003c40 05 e1 0d 15 18 0d f4 20 54 48 45 20 45 4e 44 0d |....... THE END.| 00003c50 ff |.| 00003c51