home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / HAUNTED-MANSION (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  20.4 KB  |  615 lines
  1. 0 POKE 59468,12:PRINTCHR$(14)
  2. 1 LU=150:LF=2:POKE53281,0:POKE53280,0
  3. 2 LT=62:REMLIGHT OBJECT #
  4. 3 TV=15:T7=20:MX=TV*T7:MX=MX+50:REMTV=TREASUREVALUE/T7=#OF TREASURES/MX=MAX SCORE
  5. 4 OL=10:REM OBJECT LIMIT
  6. 5 FORI=0TO5:READD$(I):NEXT
  7. 6 DATA NORTH,SOUTH,EAST,WEST,UP,DOWN
  8. 7 TR=7:REMTREASURE STORAGE ROOM
  9. 8 REM N=NOUNS/V=VERBS/R1=ROOMS/O=OBJECTS/M=MESSAGES/C=COMMANDS/A=ACTIONS
  10. 9 GOSUB2200
  11. 10 READ N,V,R1,O,M,C,A,DR:DIMN$(N),V$(V),RM$(R1),RM(R1,5),OB(O),OB$(O),OB%(O)
  12. 11 LB=57:REM LIMBO
  13. 12 DT=58:REMDEATH ROOM
  14. 14 AD=0:AD$=" [200][193][213][206][212][197][196] [205][193][206][211][201][207][206] "
  15. 15 DIM OW$(O),M$(M),C$(C)
  16. 16 POKE59468,14:PRINT"[147][215]ELCOME TO A [211]CARY [193]DVENTURE!"
  17. 17 PRINT:PRINT""TAB(17-(LEN(AD$)/2));"*"AD$"*"
  18. 18 DEFFNR(X)=INT(RND(1)*X)+1
  19. 19 GN=4:SO=50
  20. 20 GOSUB2000
  21. 30 FORI=0TON:READ N$(I):NEXT
  22. 40 FORI=0TOV:READ V$(I):NEXT
  23. 50 FORI=0TOR1
  24. 60 READRM$(I)
  25. 70 FORJ=0TO5
  26. 80 READRM(I,J)
  27. 90 NEXT:NEXT
  28. 100 FORI=1TOO
  29. 110 READ OB$(I),OW$(I),OB%(I),OB(I)
  30. 120 NEXT
  31. 130 FORI=1TOM
  32. 140 READM$(I)
  33. 150 NEXT
  34. 160 RM$(LB)=RM$(LB)+CHR$(13)+"[193] SIGN HERE SAYS:  [204][201][205][194][207][146], FIND RIGHT    EXIT "
  35. 161 RM$(LB)=RM$(LB)+"AND LIVE AGAIN."
  36. 170 FORI=1TOC
  37. 171 READC$(I):NEXT
  38. 175 R=1:REM (C)1980 JOHN O'HARE
  39. 176 READW0:DIMW1$(W0),W2$(W0):FORWC=1TOW0:READW1$(WC),W2$(WC):NEXT:READE4$:JP=1
  40. 181 FORI=1TO7:READE$(I):NEXT:FORI=1TO3:READHS$(I):NEXT
  41. 182 READ E5$
  42. 186 PRINT"PRESS A KEY TO BEGIN ADVENTURE[146]"
  43. 187 GETA$:IFA$=""THEN187
  44. 188 PRINT"[147]":GOSUB4800
  45. 189 INPUT"USE SAVED GAME   N[157][157][157]";G$
  46. 190 IF G$="N"THEN199
  47. 191 PRINT:PRINT"PRESS A KEY WHEN TAPE IS READY.":POKE158,0
  48. 192 GET SG$:IFSG$=""THEN192
  49. 193 OPEN1,1,0,"ADVENT"
  50. 194 INPUT#1,R,LU,DF,LF,SO,GN,GA,GF
  51. 195 FORSG=1TOO
  52. 196 INPUT#1,OB%(SG):NEXT
  53. 197 CLOSE1
  54. 199 PRINT"[147]"
  55. 200 DF=0:IF R>DRANDOB%(LT)<>-1ANDOB%(LT)<>RTHENDF=1
  56. 201 IF R=LBORR=DTTHENDF=0
  57. 202 IF DF=0 THEN 209
  58. 203 PRINT"[201][160][195][193][206]'[212] [211][197][197] [201][206] [212][200][197] [196][193][210][203]!"
  59. 204 PRINT:GOTO330
  60. 209 IF LEFT$(RM$(R),1)="*"THEN RM$=MID$(RM$(R),2):GOTO220
  61. 210 PRINT"[217]OU'RE IN ";:RM$=RM$(R)
  62. 220 PRINTRM$"."
  63. 225 IF R=DTTHENPRINT:SO=SO-12:QF=1:GOTO1200
  64. 230 X=1:UF=0
  65. 240 PRINT:FORVI=1TOO:IFOB%(VI)=RANDX=1THENPRINT"[214][201][211][201][194][204][197][160][201][212][197][205][211] [200][197][210][197]:":X=0:UF=1
  66. 245 IFOB%(VI)<>RTHEN260
  67. 247 IFLEN(OB$(VI))+POS(0)>36THENPRINT
  68. 250 PRINTOB$(VI)".  ";
  69. 260 NEXT
  70. 265 IFUFTHENPRINT
  71. 270 X=1
  72. 280 PRINT:FOROE=0TO5
  73. 290 IF RM(R,OE)<>0ANDX=1THENPRINT"[207][194][214][201][207][213][211][160][197][216][201][212][211]:":X=0
  74. 300 IF RM(R,OE)<>0THENPRINTD$(OE)" ";
  75. 310 NEXT:PRINT
  76. 315 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  77. 320 IF OB%(LT)=-1THENLU=LU-1
  78. 321 GOSUB400
  79. 322 HT=HT+1
  80. 325 GOSUB4300
  81. 327 GOSUB3900
  82. 328 IFGK=1THENGK=0:SO=SO-5:GOTO200
  83. 330 PRINT: PRINT"[215][200][193][212][160][206][197][216][212]   [164][157][157][157]";
  84. 331 I1$="":I2$=""
  85. 340 INPUTIP$:I1$=IP$
  86. 342 IFIP$="[164]"THENPRINT"[145][145][145]":GOTO330
  87. 345 PRINT
  88. 350 FORSB=1TOLEN(IP$)
  89. 360 IFMID$(IP$,SB,1)=" "THENI1$=LEFT$(IP$,SB-1):I2$=RIGHT$(IP$,LEN(IP$)-SB):GOTO380
  90. 370 NEXT
  91. 380 GOTO500
  92. 390 REM CHECKS
  93. 400 IFLU<50ANDLF=2ANDOB%(LT)<>0THENPRINT"[217]OUR FLASHLIGHT IS GETTING DIM!":LF=1
  94. 410 IFLU<38ANDLF=1ANDOB%(LT)<>0THENPRINT"[217]OUR FLASHLIGHT IS GETTING DIMMER!!":
  95. 420 IF LU<25AND LU>0 ANDOB%(LT)<>0THENPRINT:PRINT"[204][201][199][200][212][160][210][213][206][211][160][207][213][212][160][201][206]"LU"[212][213][210][206][211]!"
  96. 430 IF LU=0AND LF=0THENPRINT"[204][201][199][200][212][160][200][193][211][160][210][213][206] [207][213][212]!!!":LF=-1:OB%(LT)=0
  97. 440 REM
  98. 450 RETURN
  99. 500 IF I1$="GO"THENI1$=I2$:I2$=""
  100. 501 IF I1$="SAY"THENI1$=I2$:I2$=""
  101. 505 V1$=LEFT$(I1$,3):N1$=LEFT$(I2$,3):I1=0:I2=0
  102. 506 IFV1$="FEE"ANDN1$="OYS"THENN1$="BIG"
  103. 507 FORW3=1TOW0:IFV1$=W1$(W3)THENV1$=W2$(W3)
  104. 508 NEXT
  105. 509 IFN1$="HOU"ORN1$="TRA"THENN1$="DOO"
  106. 510 FORVL=1TOV
  107. 520 IF V1$=V$(VL)THENI1=VL:GOTO540
  108. 530 NEXT
  109. 540 IF I2$=""THEN570
  110. 541 FORNL=1TON
  111. 550 IF N1$=N$(NL)THENI2=NL:GOTO570
  112. 560 NEXT
  113. 570 IF I1=0THENPRINT"[217][207][213][160][213][211][197][160][215][207][210][196]([211]) [201][160][196][207][206]'[212][160][203][206][207][215]":GOTO330
  114. 580 IF I1<7ANDI1>0THEN1100
  115. 590 MF=0:K=0
  116. 595 JP=1:C7=53:IFI1>17THENJP=54:C7=C
  117. 600 FORY=JPTOC7
  118. 610 IF VAL(MID$(C$(Y),1,2))<>I1THEN710
  119. 615 IF VAL(MID$(C$(Y),3,2))=0THEN630
  120. 620 IF VAL(MID$(C$(Y),3,2))<>I2THEN710
  121. 630 K=0:MF=1:FORZ=5TO16STEP4
  122. 635 C1=VAL(MID$(C$(Y),Z,2)):C2=VAL(MID$(C$(Y),Z+2,2))
  123. 640 IFC1=1THENIFOB%(C2)<>-1THEN710
  124. 650 IFC1=2THENIFR<>C2THEN710
  125. 660 IFC1=3THENIFOB%(C2)<>0THEN710
  126. 680 IFC1=5THENIFOB%(C2)<>RTHEN710
  127. 695 K=K+1:IF K=3THENAN=Y:GOTO800
  128. 700 NEXT
  129. 710 NEXTY
  130. 715 IF MF=1THENPRINT"[201] [195][193][206]'[212] [196][207] [212][200][193][212] [206][207][215].":GOTO730
  131. 720 PRINT"[201][160][196][207][206]'[212][160][213][206][196][197][210][211][212][193][206][196]?"
  132. 730 GOTO320
  133. 800 AF=0:DH=0:RF=0:RC=0
  134. 805 FORG=17TO34STEP6:A1=VAL(MID$(C$(AN),G,2)):A2=VAL(MID$(C$(AN),G+2,2))
  135. 807 A3=VAL(MID$(C$(AN),G+4,2))
  136. 810 IF A1=1THENPRINTM$(A2)".":GOTO910
  137. 820 IF A1=2THENOB=OB%(A2):OB%(A2)=OB%(A3):OB%(A3)=OB:GOTO910
  138. 830 IF A1=3THENOB%(A2)=0:GOTO910
  139. 840 IF A1=4THENOB%(A2)=R:GOTO910
  140. 850 IF A1=5THENR=A2:RC=1:GOTO910
  141. 860 IF A1=6THENDH=1:R=LB:SO=SO-5:GOTO910
  142. 870 IF A1=7THENGOSUB920:GOTO910
  143. 880 IF A1=8THENGOSUB1000:GOTO910
  144. 885 IFA1=17THENRM(R,A2)=A3:GOTO910
  145. 890 IF A1=9THEN OB%(A2)=A3:GOTO910
  146. 900 IF A1=10THENGOSUB1050:GOTO910
  147. 901 IF A1=77THENDH=1:GOTO910
  148. 903 IFA1=18THENGOSUB4200:GOTO910
  149. 904 IF A1=11THENRC=1:GOTO910
  150. 905 IF A1=12THENGOSUB1200:GOTO910
  151. 906 IF A1=13THENQF=1:GOTO1200
  152. 907 IF A1=14THENH=A2:AF=1:GOSUB950:GOTO910
  153. 908 IF A1=15THENE=A2:AF=1:GOSUB1030:GOTO910
  154. 909 IF A1=16THENGOSUB2500:GOTO910
  155. 910 NEXT
  156. 911 IF DH=1THENPRINT:GOTO200
  157. 912 IF RC=1THEN199
  158. 913 GOTO320
  159. 920 FORH=1TOO
  160. 930 IF N1$=OW$(H)THEN950
  161. 940 NEXT:IF I2$<>""THENPRINT"[201][160]SEE[160]NO "I2$" HERE!":RETURN
  162. 941 PRINT"BE SPECIFIC"
  163. 942 RETURN
  164. 950 IF OB(H)=1THENPRINT"[201][212]'[211][160][194][197][217][207][206][196][160][205][217][160][208][207][215][197][210][160][212][207][160][196][207][160][212][200][193][212]!":RETURN
  165. 952 IF OB(H)>1THENPRINT"[196]ON'T BE STUPID!":RETURN
  166. 955 IF OB%(H)=-1THEN PRINT"[201]'M ALREADY CARRYING IT.":RETURN
  167. 960 IF OB%(H)<>RTHENPRINT"[201][160][196][207][206]'[212][160][211][197][197][160][201][212][160][200][197][210][197]!":RETURN
  168. 961 OS%=0:FORPQ=1TOO:IFOB%(PQ)=-1THENOS%=OS%+1
  169. 962 NEXT
  170. 970 IFOS%+1>OLTHENPRINT"[201]'[214][197][160][212][207][207][160][205][213][195][200][160][212][207][160][195][193][210][210][217]":RETURN
  171. 980 PRINT"OK,":OB%(H)=-1:RETURN
  172. 990 REM
  173. 1000 IFN1$<>"TRE"THEN1008
  174. 1001 TD%=0:FORTD=1TOO
  175. 1002 IFLEFT$(OB$(TD),1)<>"*"THEN1006
  176. 1003 IFTD=52ANDOB%(TD)=-1ANDOB%(42)<>RTHENPRINTM$(24):OB%(52)=0:OB%(76)=R:GOTO1006
  177. 1004 IFTD=52ANDOB%(TD)=-1THENPRINTM$(43):OB%(TD)=R:GOTO1006
  178. 1005 IFOB%(TD)=-1THENOB%(TD)=R:PRINT"DROPPED: ";OB$(TD):TD%=1
  179. 1006 NEXTTD:IFTD%=0THENPRINT"[217]OU HAVE NO TREASURE TO DROP."
  180. 1007 RETURN
  181. 1008 IF I2$=""THENPRINT"BE SPECIFIC":RETURN
  182. 1009 FORE=1TOO
  183. 1010 IF N1$=OW$(E)THEN1030
  184. 1020 NEXT:PRINT"[217]OU DON'T HAVE IT!":RETURN
  185. 1030 IF OB%(E)=-1THENOB%(E)=R:PRINT"OK,":RETURN
  186. 1040 PRINT"[201]'[205] [206][207][212][160][195][193][210][210][217][201][206][199][160][201][212]!":RETURN
  187. 1050 OS=0:PRINT"[201]'[205] [195][193][210][210][217][201][206][199]:"
  188. 1070 FORI7=1TOO
  189. 1080 IFOB%(I7)<>-1THEN1090
  190. 1081 OS=1
  191. 1082 IFLEN(OB$(I7))+POS(0)>36THENPRINT
  192. 1083 PRINTOB$(I7)".  ";
  193. 1090 NEXT
  194. 1091 IFOSTHENPRINT:RETURN
  195. 1092 PRINT"NOTHING":RETURN
  196. 1100 IF RM(R,I1-1)=0ANDDF=0THENPRINT"[201][160][195][193][206]'[212] [199][207][160][201][206][160][212][200][193][212][160][196][201][210][197][195][212][201][207][206].":GOTO320
  197. 1101 IFRM(R,I1-1)=0ANDDF=1THENPRINT"[147][201] [198][197][204][204][160][196][207][215][206][160][193][206][196][160][194][210][207][203][197][160][205][217][160][206][197][195][203]!!":GOTO1130
  198. 1102 IFOB%(54)=RANDI1=1THENPRINT"[212]HE GOBLIN WON'T LET ME BY!":GOTO320
  199. 1105 IFOB%(55)=RANDI1=3THENPRINT"[212]HE TROLL IS BLOCKING MY WAY!":GOTO320
  200. 1110 R=RM(R,I1-1):GOTO199
  201. 1120 END
  202. 1130 R=LB:SO=SO-5:GOTO200
  203. 1200 SC=0:FORI=1TOO
  204. 1210 IF RIGHT$(OB$(I),1)="*"ANDOB%(I)=TR THEN SC=SC+TV
  205. 1220 NEXT
  206. 1222 IFQF=1THENSO=SO-4
  207. 1223 IFSO<0THENSO=0
  208. 1225 SC=SC+SO
  209. 1230 IF QF=1THEN1300
  210. 1240 PRINT"[217][207][213][210] [211][195][207][210][197][160][201][211]"SC"[207][213][212][160][207][198][160][193][160][208][207][211][211][201][194][204][197]"MX
  211. 1250 IF SC-SO=300THENPRINT:GOTO1300
  212. 1255 RETURN
  213. 1300 PRINT"[217]OU SCORED"SC"POINTS."
  214. 1310 PRINT"[212]HERE WERE"MX"POINTS POSSIBLE."
  215. 1311 IFSC<1THENPRINT"[217]OU MUST HAVE NOTHING BUT SPACE BETWEEN YOURE EARS!":END
  216. 1312 IFSC<51THENPRINT"[217]OU ARE OBVIOUSLY A RANK AMATEUR.":END
  217. 1313 IFSC<75THENPRINT"[217]OUR SCORE QUALIFIES YOU AS A NOVICE    CLASS ADVENTURER."
  218. 1314 IFSC<125THENPRINT"[217]OU'VE ACHIEVED THE RATING: [197]XPERIENCED [193]DVENTURER":END
  219. 1315 IFSC<175THENPRINT"[217]OU HAVE REACHED THE 'JUNIOR MASTER'    STATUS.":END
  220. 1320 IFSC<225THENPRINT"[217]OUR SCORE PUTS YOU IN [205][193][211][212][197][210][160][193][196][214][197][206][212][213][210][197][210]CLASS -[196]-":END
  221. 1330 IFSC<295THENPRINT"[217]OUR SCORE PUTS YOU IN [205][193][211][212][197][210][160][193][196][214][197][206][212][213][210][197][210]CLASS -[195]-":END
  222. 1335 IFSC<345THENPRINT"[217]OUR SCORE PUTS YOU IN [205][193][211][212][197][210] [193][196][214][197][206][212][213][210][197][210]CLASS -[194]-":END
  223. 1340 IFSC<350THENPRINT"[217]OUR SCORE PUTS YOU IN [205][193][211][212][197][210][160][193][196][214][197][206][212][213][210][197][210]CLASS -[193]-":END
  224. 1350 IFSC=MXTHENPRINT"[193]LL OF ADVENTUREDOM GIVES TRIBUTE"
  225. 1355 IFSC=MXTHENPRINT"TO YOU,  [193][196][214][197][206][212][213][210][197][210][160][199][210][193][206][196][205][193][211][212][197][210]!":END
  226. 2000 PRINT
  227. 2020 PRINT"[201] WILL BE YOUR EYES AND HANDS AS YOU"
  228. 2030 PRINT"SEARCH FOR LOST TREASURE."
  229. 2040 PRINT
  230. 2050 PRINT"[212]HE OBJECT IS TO RECOVER"T7"TREASURES"
  231. 2060 PRINT"AND RETURN THEM TO THE PROPER PLACE."
  232. 2065 PRINT"[197]ACH TREASURE HAS AN '*' IN ITS NAME.":PRINT
  233. 2070 PRINT"[213]SE TWO-WORD COMMANDS CONSISTING OF"
  234. 2080 PRINT"A VERB AND A NOUN. [197]XAMPLE:"
  235. 2090 PRINT
  236. 2100 PRINT"GO WEST, TAKE GOLD, ENTER HOLE, SHOOT"
  237. 2110 PRINT
  238. 2120 PRINT"INVENTORY, SAVE GAME, DROP TREASURE"
  239. 2121 PRINT"PRESS ANY KEY TO CONTINUE"
  240. 2122 GET A$:IFA$=""THEN2122
  241. 2123 PRINT"[147]       [215]ORDS TO [203]NOW                 "
  242. 2125 PRINT"[210][197][193][196] - IF YOU HAVE SOMETHING THAT CAN BE       READ YOU WILL READ IT."
  243. 2126 PRINT"[197][206][212][197][210] - WILL TAKE YOU INTO A HOLE,              PASSAGE, BUILDING, ETC..[160]
  244. 2127 [153]"RIGHT$(null)(null)VAL(null)(null)(null)(null)(null) - GIVES YOU LIST OF WHAT YOU              ARE CARRYING."
  245. 2128 [153]"(null)(null)(null)(null) - DESCRIBES THE ROOM YOU ARE IN."
  246. 2129 [153]:[153]"(null)SE (null)ATN(null)VAL AND STR$(null)(null)(null) IN MOST CASES TO      MANIPULATE OBJECTS."
  247. 2130 [153]:[153]"(null)HERE ARE MANY MORE WORDS YOU WILL "
  248. 2131 [153]"DISCOVER AS YOU EXPLORE.  (null)OME MIGHT "
  249. 2132 [153]"EVEN BE MAGIC. (null)SUALLY WHEN YOUCLOSETELL ME THINGS YOU SHOULD USE TWO WOR
  250. 2133 PRINT:PRINT"[201]F YOU FIND ONE WORD DOESN'T WORK JUST  TRY ANOTHER."
  251. 2151 PRINT
  252. 2153 PRINT"[208]LEASE WAIT WHILE [201] LOAD MY DATA..."
  253. 2160 RETURN
  254. 2165 PRINT"[197]ACH TREASURE HAS AN '*' IN ITS NAME.":PRINT
  255. 2200 PRINT"[147]";
  256. 2450 PRINT"[145][145]    PRESS A KEY TO BEGIN ADVENTURE"
  257. 2455 GETA$:IFA$=""THEN2455
  258. 2460 GOSUB3000
  259. 2465 RETURN
  260. 2500 PRINT:PRINT"PRESS A KEY WHEN TAPE IS READY.":POKE158,0
  261. 2501 GETSG$:IFSG$=""THEN2501
  262. 2502 OPEN1,1,2,"ADVENT"
  263. 2503 PRINT#1,R:PRINT#1,LU:PRINT#1,DF:PRINT#1,LF:PRINT#1,SO:PRINT#1,GN:PRINT#1,GA:PRINT#1,GF
  264. 2504 FORI=1TOO
  265. 2505 FORSG=1TOO
  266. 2506 PRINT#1,OB%(SG):NEXT
  267. 2507 CLOSE1
  268. 2508 RETURN
  269. 2999 REM  N,V,R,O,M,C,A,DR
  270. 3000 POKE32997,32
  271. 3010 POKE32997+4,32
  272. 3015 FORI=33077TO33076+5:POKEI,32:NEXT
  273. 3017 FORI=1TO1500:NEXT
  274. 3020 RETURN
  275. 3900 IF OB%(54)=ROROB%(55)=ROROB%(73)=ROROB%(74)=RTHENOB%(61)=0:RETURN
  276. 3999 IFR<8ORR=LBORR=(DT)ORHT<35THENRETURN
  277. 4000 IFGN=0THENRETURN
  278. 4005 IFGA=1THENOB%(61)=R:GOTO4030
  279. 4010 IFFNR(32)=7THENGA=1:GOTO3999
  280. 4020 OB%(61)=0:RETURN
  281. 4030 REM
  282. 4040 PRINT"[212]HERE IS A THREATENING LITTLE GHOST IN  THE ROOM WITH YOU!"
  283. 4050 GF=(1-GF)
  284. 4060 IFGFTHENRETURN
  285. 4070 PRINT"[212]HE GHOST ATTACKS!"
  286. 4080 IFFNR(6)=2THENPRINT"[201]T GOT YOU!":R=LB:GA=0:GK=1:RETURN
  287. 4090 PRINT"[201]T MISSED!"
  288. 4100 RETURN
  289. 4200 IFFNR(5)>2THENPRINT"[217]OU MISSED!":RETURN
  290. 4210 PRINT"[217]OU GOT HIM!":PRINT"[212]HE GHOST DISAPPEARS IN A WHITE MIST!"
  291. 4220 GN=GN-1:GA=0:GF=0:OB%(61)=0
  292. 4230 RETURN
  293. 4300 IFR=27THENPRINT"[193] CLOCK SHOWS THE TIME: ";LEFT$(TI$,2)":"MID$(TI$,3,2)"[146]"
  294. 4305 IFHA=1THENPRINT"[212]HE SPIRIT OF [200]UBIE [205]ARSTEN APPEARS AND SAYS:":PRINTHS$(FNR(3))"."
  295. 4306 IFHA=1THENOB%(74)=R:HA=0
  296. 4310 IFFNR(5)=4ANDR>6THENPRINTE$(FNR(7))"."
  297. 4315 IFR>3ANDR<7ANDFNR(4)=2THENPRINT"[212]HE TREES SEEM TO BE ALIVE!"
  298. 4316 IFR>32ANDR<36ANDOB%(74)<>RTHENIFFNR(3)=2THENHA=1
  299. 4317 IFOB%(74)=RANDFNR(3)=2THENPRINT"[212]HE SPIRIT VANISHED??":OB%(74)=0:HA=0
  300. 4320 IFOB%(54)=RANDFNR(3)=2THEN4400
  301. 4330 IFOB%(55)=RANDFNR(3)=2THEN4500
  302. 4335 IFOB%(73)=RANDFNR(3)=2THEN4600
  303. 4340 RETURN
  304. 4400 PRINT"[212]HE GOBLIN ATTACKS WITH AN AXE IN HAND!"
  305. 4410 IFFNR(6)=4THENPRINT"[195][210][213][206][195][200]!!     [200]E GETS YOU!":R=LB:GK=1:RETURN
  306. 4420 PRINT"[215][200][207][207][211][200]!     [200]E MISSES!":RETURN
  307. 4500 PRINT"[212]HE TROLL ATTACKS!"
  308. 4510 IFFNR(7)=6THENPRINT"[200]E SMASHES YOUR SKULL!":R=LB:GK=1:RETURN
  309. 4520 PRINT"[200]E MISSED!":RETURN
  310. 4600 PRINT"[194]ARLOW ATTACKS!"
  311. 4610 IFOB%(38)=-1THENPRINT"[200]E SEES YOUR CROSS AND BACKS OFF!":RETURN
  312. 4620 IFFNR(4)=3THENPRINT"[200]E GOT YOU!!":R=LB:GK=1:RETURN
  313. 4630 PRINT"[200]E MISSED!":RETURN
  314. 4800 INPUT  "[215]HAT TIME IS IT ([200][200][205][205])";TM$
  315. 4805 IFLEN(TM$)<>4THENPRINT"ILLEGAL TIME":GOTO4800
  316. 4810 TI$=TM$+"00"
  317. 4820 PRINT"THANK YOU."
  318. 4830 RETURN
  319. 10269 DATA 35,31,58,78,59,91,0,35
  320. 10279 REM
  321. 10289 REM
  322. 10299 REM
  323. 10309 DATA NNN,MAI,BIG,SPI,LET,DOO,MAT,BUT,KNI,BOT,LIQ,DES,OYS,PAP,RED
  324. 10319 DATA BLU,GRE,BOO,GOL,CLO,COF,POT,STA,LAD,GUN,CRO,TRU,RUG,GOB,GHO,TRO,SIG
  325. 10329 DATA FLA,WIN,GAM,PAS
  326. 10339 DATA VVV,NOR,SOU,EAS,WES,UP,DOW,TAK,DRO,ENT,INV,LOO,SCO,QUI,HEL,PUS
  327. 10349 DATA REA,OPE,MOV,SHO,RUN,KIL,EAT,CLI,TUR,ON,OFF,DRI,CBM,SAV,THR,STA
  328. 10359 REM
  329. 10369 REM
  330. 10379 DATA ROOM #0,0,0,0,0,0,0
  331. 10389 DATA "*[217]OU'RE ON AN OLD WORN PATH",6,0,1,2,0,0
  332. 10399 DATA "*[217]OU'RE WALKING ALONG AN OLD PATH",5,0,1,3,0,0
  333. 10409 DATA "FRONT OF A BIG SPOOKY HOUSE",0,7,2,4,0,0
  334. 10419 DATA "THE HAUNTED FOREST",5,4,4,5,0,0
  335. 10429 DATA "THE HAUNTED FOREST",4,4,6,4,0,0
  336. 10439 DATA "THE HAUNTED FOREST",5,4,1,5,0,0
  337. 10449 DATA "*[217]OU'RE ON THE PORCH OF THE OLD HOUSE",3,0,0,0,0,0
  338. 10459 DATA "AN OLD DUSTY LIVING ROOM",7,12,9,0,0,0
  339. 10469 DATA "THE DINING ROOM",0,13,10,8,0,0
  340. 10479 DATA "THE KITCHEN",0,0,11,9,0,0
  341. 10489 DATA "A MUSTY OLD PANTRY",0,0,0,10,0,0
  342. 10499 DATA "THE FAMILY ROOM",8,0,13,0,00,0
  343. 10509 DATA "A SMALL ALCOVE",9,16,0,12,26,0
  344. 10519 DATA "THE STUDY",0,17,0,0,0,0
  345. 10529 DATA "*[217]OU'RE AT THE WEST END OF A CORRIDOR",0,18,16,0,0,0
  346. 10539 DATA "THE MIDDLE OF A CORRIDOR",13,19,17,15,0,0
  347. 10549 DATA "*[217]OU'RE AT THE EAST END OF A CORRIDOR",14,20,0,16,0,0
  348. 10559 DATA "THE [196]EN",15,0,0,0,0,0
  349. 10569 DATA "THE [204]IBRARY",16,0,0,0,0,0
  350. 10579 DATA "A [199]UEST [210]OOM",17,0,0,21,0,0
  351. 10589 DATA "A DUSTY CLOSET",0,0,20,0,0,0
  352. 10599 DATA "THE TROPHY ROOM",0,25,0,0,0,0
  353. 10609 DATA "AN OLD DUSTY NURSERY",0,26,0,0,0,0
  354. 10619 DATA "A LARGE BATHROOM",0,27,0,0,0,0
  355. 10629 DATA "*[217]OU'RE AT THE WEST END OF A HALLWAY",22,28,26,0,0,0
  356. 10639 DATA "A STAIRWELL",23,31,27,25,0,13
  357. 10649 DATA "*[217]OU'RE AT THE EAST END OF A HALLWAY",24,32,0,26,0,0
  358. 10659 DATA "THE MASTER BEDROOM",25,0,0,29,0,0
  359. 10669 DATA "A DARK, DUSTY CLOSET. [193] LADDERLEADS UP HERE",0,0,28,0,30,0
  360. 10679 DATA "*[217]OU'RE ON THE LADDER",0,0,0,0,0,29
  361. 10689 DATA "A YELLOW BEDROOM",26,0,0,0,0,0
  362. 10699 DATA "A WHITE BEDROOM",27,0,0,0,0,0
  363. 10709 DATA "THE WEST END OF THE ATTIC",0,0,34,0,0,30
  364. 10719 DATA "THE EAST END OF THE ATTIC",0,35,0,33,0,0
  365. 10729 DATA "A DIRTY OLD STOREROOM",34,0,0,0,0,0
  366. 10739 DATA "THE BASEMENT, THERE IS A LARGEOPEN DOOR TO THE SOUTH",0,40,0,37,10,0
  367. 10749 DATA "A LAUNDRY ROOM",0,0,36,38,0,0
  368. 10759 DATA "A MUSTY, OLD ROOM IN THE      BASEMENT",0,39,37,0,0,0
  369. 10769 DATA "AN OLD WINE CELLAR",38,0,0,0,0,0
  370. 10779 DATA "A CHILLY, DAMP ROOM",36,0,0,0,0,0
  371. 10789 DATA "A SECRET UNDERGROUND CAVERN",0,42,0,0,40,0
  372. 10799 DATA "A NARROW PASSAGE",41,0,43,0,0,0
  373. 10809 DATA "A DRAFTY CHAMBER",0,0,44,42,0,0
  374. 10819 DATA "A LARGE CIRCULAR CHAMBER",45,0,46,43,0,0
  375. 10829 DATA "A SPLENDID CHAMBER 30 FEET    HIGH",47,44,0,0,0,0
  376. 10839 DATA "A ROUGHLY[160]CARVED ROOM, A PIT  LEADS DOWN",0,52,0,44,0,53
  377. 10849 DATA "*[217]OU'RE AT A JUNCTION OF THREE PASSAGES",0,45,48,56,0,0
  378. 10859 DATA "A DUSTY PASSAGE",0,0,49,47,0,0
  379. 10869 DATA "AN OLD BROKEN PASSAGE",0,0,50,48,0,0
  380. 10879 DATA "*[217]OU'RE AT A TURN IN THE PASSAGE",0,51,0,49,0,0
  381. 10889 DATA "A [212][207][210][212][213][210][197] [195][200][193][205][194][197][210]",50,0,0,0,0,0
  382. 10899 DATA "A COLD DAMP ROOM",46,0,0,0,0,0
  383. 10909 DATA "A PIT",0,0,0,0,0,54
  384. 10919 DATA "A PIT",0,0,0,0,0,55
  385. 10929 DATA "A PIT.  [212]HERE ARE NO EXITS",0,0,0,0,0,0
  386. 10939 DATA "A DEAD END PASSAGE",0,0,47,0,0,0
  387. 10949 DATA " A MISTY ROOM WITH STRANGE    LOOKING EXITS",1,58,58,58,5,58
  388. 10959 DATA " [200][146] [197][146] [204][146] [204][146] _[192][174][157][157][157]_[192][219][157][157][157]_[192][189][145][192][192][192][192][192][192][192][192]*",0,0,0,0,0,0
  389. 10969 REM
  390. 10979 REM                       CLOSE
  391. 10989 REM
  392. 10999 DATA "[205][193][201][204][194][207][216] (NAME ON IT:  [200]UBIE [205]ARSTEN)",MAI,3,1
  393. 11009 DATA RING OF KEYS,KEY,0,0
  394. 11019 DATA OLD LETTER,LET,0,0
  395. 11029 DATA "[204][193][210][199][197][160][208][193][196][204][207][195][203][197][196] [196][207][207][210]",DOO,7,1
  396. 11039 DATA "[207][208][197][206][160][196][207][207][210]",DOO,0,1
  397. 11049 DATA DOORMAT,MAT,7,0
  398. 11059 DATA "[194][213][212][212][207][206][160][194][217][160][196][207][207][210] (DOORBELL?)",BUT,7,1
  399. 11069 DATA "[211][201][199][206] - [204][197][193][214][197][160][212][210][197][193][211][213][210][197][160][200][197][210][197][160][211][193][217][160][211][195][207][210][197][146]",SIG,7,1
  400. 11079 DATA "[198][213][210][206][201][212][213][210][197]",FUR,8,1
  401. 11089 DATA "[212][193][194][204][197] & [195][200][193][201][210][211]",TAB,9,1
  402. 11099 DATA *SILVER CANDLESTICKS*,CAN,9,0
  403. 11109 DATA *SILVER KNIFE*,KNI,10,0
  404. 11119 DATA POOL OF BLOOD,BLO,10,1
  405. 11129 DATA "[194][201][199][160][205][193][195]",BIG,10,0
  406. 11139 DATA "VIAL OF STRANGE LIQUID",VIA,11,0
  407. 11149 DATA *WALLET FULL OF $100S*,WAL,12,0
  408. 11159 DATA "[196][197][211][203]",DES,14,1
  409. 11169 DATA SLIP OF PAPER,PAP,0,0
  410. 11179 DATA MAGIC GUN,GUN,0,0
  411. 11189 DATA *GOLD WATCH*,WAT,18,0
  412. 11199 DATA *RARE PAINTING*,PAI,18,0
  413. 11209 DATA RED BOOK,RED,19,0
  414. 11219 DATA BLUE BOOK,BLU,19,0
  415. 11229 DATA GREEN BOOK,GRE,19,0
  416. 11239 DATA *GOLD BOOK*,GOL,0,0
  417. 11249 DATA "[195][204][207][211][197][212]",XXX,20,1
  418. 11259 DATA BED,BED,20,1
  419. 11269 DATA *ORIENTAL RUG*,RUG,20,0
  420. 11279 DATA CLOTHS,CLO,21,1
  421. 11289 DATA *MINK*,MIN,21,0
  422. 11299 DATA *GOLD MEDAL*,MED,22,0
  423. 11309 DATA CRIB,CRI,23,1
  424. 11319 DATA * $1000 SAVINGS BOND *,BON,23,0
  425. 11329 DATA TOILET,TOI,24,1
  426. 11339 DATA SINK,SIN,24,1
  427. 11349 DATA A BUBBLING POTION,POT,24,0
  428. 11359 DATA STAIRS GOING DOWN,STA,26,1
  429. 11369 DATA WOODEN CROSS,CRO,26,0
  430. 11379 DATA "[195][204][207][211][197][212]",XXX,28,1
  431. 11389 DATA *PEARL NECKLACE*,NEC,28,0
  432. 11399 DATA BED,BED,28,1
  433. 11409 DATA *VELVET PILLOW*,PIL,28,0
  434. 11419 DATA LADDER,LAD,29,1
  435. 11429 DATA FURNITURE,FUR,31,1
  436. 11439 DATA "*[195]OMMODORE [208][197][212]*",PET,31,0
  437. 11449 DATA FURNITURE,FUR,32,1
  438. 11459 DATA COBWEBS,COB,33,1
  439. 11469 DATA *RARE FAMILY JEWELS*,JEW,34,0
  440. 11479 DATA "[193] BODY HANGING FROM A NOOSE ([200]UBIE?)",BOD,35,1
  441. 11489 DATA OLD TRUNK,TRU,35,1
  442. 11499 DATA *RARE COINS*,COI,0,0
  443. 11509 DATA *BOTTLE OF RARE IMPORTED WINE*,WIN,39,0
  444. 11519 DATA "[193]N OLD WOODEN [195]OFFIN",COF,40,1
  445. 11529 DATA "[193] DANGEROUS [199][207][194][204][201][206]",GOB,45,2
  446. 11539 DATA "[193] MEAN [212][210][207][204][204]",TRO,43,2
  447. 11549 DATA "A TORTURE RACK",RAC,51,1
  448. 11559 DATA *GOLD DEATH MASK*,MAS,51,0
  449. 11569 DATA "[199][201][193][206][212][160][207][217][211][212][197][210]",OYS,52,1
  450. 11579 DATA *SACK OF DIAMONDS*,DIA,55,0
  451. 11589 DATA *LARGE RUBY*,RUB,56,0
  452. 11599 DATA "[193][160][199][200][207][211][212]",GHO,0,2
  453. 11609 DATA FLASHLIGHT(ON),FLA,0,0
  454. 11619 DATA FLASHLIGHT(OFF),FLA,11,0
  455. 11629 DATA LARGE RUG,XXX,10,1
  456. 11639 DATA LOCKED TRAPDOOR,TRA,0,1
  457. 11649 DATA OPEN TRAPDOOR,TRA,0,1
  458. 11659 DATA LOCKED TRAPDOOR,TRA,30,1
  459. 11669 DATA OPEN TRAPDOOR,TRA,0,1
  460. 11679 DATA *GIANT PEARL*,PEA,0,0
  461. 11689 DATA STAIRS GOING UP,STA,13,1
  462. 11699 DATA COBWEBS,COB,8,1
  463. 11709 DATA "[211][201][199][206][160][211][193][217][211] - [217][207][213][160][211][200][193][204][204][160][196][201][197]...[146]",SIG,5,1
  464. 11719 DATA "-[194]ARLOW THE [214]AMPIRE-",VAM,0,2
  465. 11729 DATA "[212]HE SPIRIT OF [200]UBIE [205]ARSTON",SPI,0,1
  466. 11739 DATA EMPTY VIAL,VIA,0,0
  467. 11749 DATA SWEET SMELLING BROKEN GLASS,GLA,0,0
  468. 11759 DATA "[208][193][211][211][193][199][197]",PAS,0,1
  469. 11760 DATA EMPTY BOTTLE,BOT,0,0
  470. 11769 DATA NOTHING HAPPENS
  471. 11779 DATA "HOW SHOULD [201] KNOW WHAT TO DO"
  472. 11789 DATA "[201]'[205][160][196][197][193][196]"
  473. 11799 DATA A COUPLE THINGS FELL OUT
  474. 11809 DATA SOMETHING FELL OUT
  475. 11819 DATA THE TRAPDOOR CREAKS OPEN
  476. 11829 DATA THE DOOR CREAKS OPEN
  477. 11839 DATA"[201]T SAYS: THOSE WHO ENTER MAY NOT LEAVE  HERES A HINT THEY MAY NEED"
  478. 11849 DATA"[201]F SOMETHING IS TOO HEAVY TO TAKE, TRY   TO MOVE IT"
  479. 11859 DATA "[207][203], [201] MOVED IT"
  480. 11869 DATA "[207][203], WEIRD LAUGHING COMES FROM THE HOUSE"
  481. 11879 DATA"THE TROLL DRINKS THE POTION AND TURNS   INTO A FROG, THE FROG HOPS AWAY"
  482. 11889 DATA"YOU GOT HIM.  [212]HE GOBLIN AND DISAPPEARS IN A CLOUD OF BLACK SMOKE"
  483. 11899 DATA "[194]ARLOW TURNS TO DUST                    AND BLOWS AWAY"
  484. 11909 DATA "[212]HE GHOST VAPORIZES"
  485. 11919 DATA "[147][201]T'S POISON  [201]'M DEAD!"
  486. 11929 DATA "[147][197]VERYTHING CHANGES AND...."
  487. 11939 DATA "[194][193][206][199][194][193][206][199][145][194][193][206][199]"
  488. 11949 DATA YOU GOT HIM
  489. 11959 DATA YOU MISSED
  490. 11969 DATA "IT SAYS - [200]UBIE IS HARMLESS"
  491. 11979 DATA "[201]T SAYS:"
  492. 11989 DATA "[212]HIS BOOK IS A TREASURE"
  493. 11999 DATA "[212]HE BOTTLE OF WINE DROPS WITH A [195][210][193][211][200]!"
  494. 12009 DATA "[201]T'S EMPTY"
  495. 12019 DATA "SOME TREASURES MAY BE WEAPONS           SHOOT GOBLIN-TROLL POTION!
  496. 12029 [131] "SAY LENPEEK(null)"
  497. 12039 [131] "(null)ILL A (null)AMPIRE WITH *SILVER*            WHEN TRAPPED, TAKE A DRINK"
  498. 12049 [131] INDENTIFY BOOK BY COLOR
  499. 12059 [131] "RIGHT$ DON'T HAVE IT"
  500. 12069 [131] "(null)HERE?!?"
  501. 12079 [131] "(null)HE PEEK(null)(null)VAL BOOK TURNS INTO A *GOLD* BOOK"
  502. 12089 [131] "THANKS RIGHT$ WAS HUNGERY"
  503. 12099 [131] THE FLASHLIGHT IS ON
  504. 12109 [131] THE FLASHLIGHT IS OFF
  505. 12119 [131] "RIGHT$ CAN'T MOVE THAT!"
  506. 12129 [131] THERE WAS SOMETHING UNDER IT
  507. 12139 [131] "(null)(null),"
  508. 12149 [131] "RIGHT$T'S LOCKED"
  509. 12159 [131] "RIGHT$T'S TO HEAVY"
  510. 12169 [131] "RIGHT$ NEED A KEY"
  511. 12179 [131] "(null)HE OYSTER OPENS UP TO EAT THE PEEKRIGHT$CHR$ (null)ATNLEN  AND A PEARL ROLLS OUT!"
  512. 12189 [131] "(null)HE BOTTLE LANDS SOFTLY ON THE PILLOW"
  513. 12199 [131] "ATN VOICE BOOMS OUT.....(null)(null)VALATN(null)VALCLOSE(null)VALATN(null)VALCLOSERIGHT$(null)CLOSEATN(null)(null)(null)VAL!WAIT"
  514. 12209 [131] "(null)HE LID OF THE LENOFFIN RISES AND PEEKARLOW  THE VAMPIRE JUMPS OUT!!!"
  515. 12219 [131] "RIGHT$ DON'T SEE IT HERE"
  516. 12229 [131] "LEFT$(null)(null)?!?"
  517. 12239 [131]"RIGHT$ HAVE NOTHING TO READ","(null)(null)(null)CLOSE(null)VAL(null)LEN(null)(null)VAL",CLOSETS AREN'T CLOSED
  518. 12249 [131] "RIGHT$ HAVE NOTHING TO EAT"
  519. 12259 [131]  "RIGHT$ HAVE NOTHING TO DRINK"
  520. 12269 [131] "RIGHT$ DON'T HAVE A GUN"
  521. 12279 [131] "RIGHT$ DON'T HAVE A KNIFE"
  522. 12289 [131] "PEEKARLOW STOPS ME!"
  523. 12299 [131] "(null)HERE IS NOTHING TO ATTACK HERE"
  524. 12309 [131] "(null)HE BULLETS BOUNCE OFF THE SHELL!"
  525. 12310 [131] "LEFT$E ONLY EATS BIG MACS AND RIGHT$ DON'T       HAVE ONE"
  526. 12312 [131] "HIC HIC, BURP.  PEEKOY WAS THAT GOOD!"
  527. 12319 [131]1000000000000000100000000000000000,1100000000000000110000000000000000
  528. 12329 [131]1200000000000000120000000000000000,1300000000000000130000000000000000
  529. 12339 [131]0712055800000000014000000000000000,0720055300000000014000000000000000
  530. 12349 [131]0726055000000000014000000000000000,0717000000000000012900000000000000
  531. 12355 [131] 0731000000000000014400000000000000
  532. 12359 [131] 0727056400000000014000000000000000
  533. 12369 [131]0732056300000000146300000000000000,0802055803690114014200046900031400
  534. 12370 [131]0802055800000000015800000000000000
  535. 12379 [131]0821055501360000011200035500033600,0832016300000000156300000000000000
  536. 12389 [131]0817000000000000012900000000000000,0905050400000000013900000000000000
  537. 12399 [131]0833015205420000014300155200000000,0833015200000000012400155200025276
  538. 12402 [131] 0700000000000000070000000000000000,0800000000000000080000000000000000
  539. 12409 [131]0905050500000000050800000000000000,0905056600000000053600000000000000
  540. 12419 [131]0905056800000000053300000000000000
  541. 12429 [131]0919052600000000052100000000000000,0919053900000000052900000000000000
  542. 12439 [131]0935057700000000054100000000000000
  543. 12445 [131] 1400000000000000010200000000000000
  544. 12449 [131]1507050700000000011100000000000000
  545. 12459 [131]1604010300000000010800010900000000
  546. 12469 [131]1606050600000000012200014900000000
  547. 12479 [131]1613011800000000012100000000000000
  548. 12489 [131]1617000000000000012900000000000000
  549. 12499 [131]1614012200000000012200012600000000
  550. 12509 [131]1615012300000000012200012700000000
  551. 12519 [131]1616012400000000012200012800000000
  552. 12529 [131]1618012500000000012200012300000000
  553. 12539 [131]1600000000000000014800000000000000
  554. 12549 [131] 1720037305530000012500014500047300
  555. 12555 [131]1720055300000000012500000000000000
  556. 12559 [131]1705050401020000010700020405170108
  557. 12569 [131]1701050103020303010400040300040200
  558. 12579 [131]1701050100000000012500000000000000
  559. 12589 [131]1705056501020000010600026566170536
  560. 12599 [131]1705056500000000014100000000000000
  561. 12609 [131]1705050400000000014100000000000000
  562. 12619 [131]1705056701020000010600026768170433
  563. 12629 [131]1705056700000000014100000000000000
  564. 12639 [131]1719000000000000015000000000000000
  565. 12649 [131]1711051703180319010400041800041900
  566. 12659 [131]1726055003510000010500045100000000
  567. 12669 [131]1726055000000000012500000000000000
  568. 12679 [131]1711051700000000012500000000000000
  569. 12689 [131] 1820057305530000015500000000000000
  570. 12699 [131] 1820037305530000014500015500047300
  571. 12709 [131]1827056403650366011000013700046500
  572. 12719 [131]1820055303770000011000013700047700
  573. 12729 [131]1812000000000000013600000000000000
  574. 12739 [131]1900056101190000011800180000000000
  575. 12749 [131]1900057401190000011800010100000000
  576. 12759 [131]1900055401190000011800011300035400
  577. 12769 [131]1900055501190000011800010100000000
  578. 12779 [131]1900055801190000015700000000000000
  579. 12789 [131]1900057301190000011800010100000000
  580. 12799 [131]1900011900000000015600000000000000
  581. 12809 [131]1900000000000000015300000000000000
  582. 12819 [131]2000000000000000013100000000000000
  583. 12829 [131]2100000000000000014700000000000000
  584. 12839 [131]2200011400000000013300031400000000
  585. 12849 [131]2200000000000000015100000000000000
  586. 12859 [131]2323054300000000053000000000000000
  587. 12869 [131]2400016200000000013500026263770000
  588. 12879 [131]2400016300000000013400026263770000
  589. 12889 [131]2500016300000000013400026263770000
  590. 12899 [131]2600016200000000013500026263770000
  591. 12909 [131]2710011502550000011700021575050600
  592. 12919 [131]2710011500000000011700021575050800
  593. 12925 [131]2733015200000000015900025278000000
  594. 12929 [131]2721013600000000011600033600060000
  595. 12939 [131]2721000000000000013000000000000000
  596. 12940 [131]2710000000000000013000000000000000
  597. 12941 [131]2700000000000000015200000000000000
  598. 12949 [131]2800012300000000013200022325000000
  599. 12959 [131]2800000000000000010100000000000000
  600. 12969 [131]2934000000000000160000000000000000
  601. 12979 [131]3008057301120000011400097399041200
  602. 12989 [131]3008011200000000010100041200000000
  603. 12999 [131]3008000000000000015400000000000000
  604. 13000 [131]3100057301120000011400097399000000
  605. 13001 [131]3100011200000000010100000000000000
  606. 13002 [131]3100000000000000015400000000000000
  607. 13009 [131]13,N,NOR,S,SOU,E,EAS,W,WES,U,UP,D,DOW,GET,TAK,USE,SHO,SEA,OPE,ATT,KIL
  608. 13010 [131]FIR,SHO,FEE,DRO,GIV,DRO,END
  609. 13012 [131]"ATN BLACK CAT RUNS BY","RIGHT$ HEARD A FUNNY NOISE","RIGHT$ THINK RIGHT$ HEAR FOOTSTEPS"
  610. 13014 [131] "(null)AS THAT A SCREAM RIGHT$ HEARD ?","RIGHT$ FEEL A CHILL","ATN SPIDER RUNS BY"
  611. 13016 [131] "RIGHT$ THINK RIGHT$ HEARD A DOOR SLAM"
  612. 13019 [131] "(null)HO DARES TO ENTER THIS HOUSE","(null)OU SHALL DIE..."
  613. 13020 [131] "CHR$ET OUT, GET OUT BEFORE IT'S TOO LATE"
  614. 13029 [131]"THE END"
  615.