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:

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)

fA=�: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)
jG=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
22-04-88/DT.m0
22-04-88/DT.m1
22-04-88/DT.m2
22-04-88/DT.m4
22-04-88/DT.m5