10 REM******* WARRIOR ******* 15 GOSUB 8000:REM TITLE SCREEN 20 GOSUB 9000:REM INITIALIZE 25 REM** MAIN PROGRAM ** 30 GOSUB 7000:REM RM DESCRIPTION 35 GOSUB 5000:REM OBJECT DESCRIPTION 40 GOSUB 6000:REM MONSTER DESCRIPTION 50 GOSUB 1000:REM INPUT 60 GOTO 25 1000 REM*** INPUT *** 1005 PRINT"[151] [146]"; 1006 PRINT"[151] [146]"; 1010 INPUT" [155][215]HAT DO YOU WANT TO DO [191][157][157][157]";A$ 1015 B$=LEFT$(A$,3) 1020 N=1:M=LEN(A$) 1025 IFMID$(A$,N,1)=" "ANDMID$(A$,N+1,1)<>" "THENC$=MID$(A$,N+1,3):GOTO1035 1030 N=N+1:IF N0THENPRINT" [217]OU MUST EITHER FIGHT OR RETREAT!":GOTO1010 1048 IFB$="N"ORB$="NOR"THEN1700 1050 IFB$="S"ORB$="SOU"THEN1750 1052 IFB$="E"ORB$="EAS"THEN1800 1054 IFB$="W"ORB$="WES"THEN1850 1056 IFB$="U"ORB$="UP"THEN1900 1058 IFB$="D"ORB$="DOW"THEN1950 1060 IFB$="GO "ORB$="MOV"THEN2000 1062 IFB$="CLI"THEN2020 1064 IFB$="UNL"THEN2050 1066 IFB$="L"ORB$="LOO"THENRETURN 1068 IF B$="I" OR B$="INV" THEN 2080 1070 IF B$="EAT" THEN 2130 1072 IF B$="TIE" AND C$="[210]OP" OR C$="ROP" THEN 2150 1074 IF B$="THR" AND C$="[206]EC" OR C$="NEC" THEN 2170 1076 IF B$="REA" THEN 2190 1078 IF B$="GIV" THEN 2210 1080 IF B$="GET" OR B$="TAK" THEN 2250 1082 IF B$="DRO" THEN 2300 1084 IFB$="RIN"ORB$="[210]IN"ANDC$="BEL"THEN2400 1086 IF B$="ENT" THEN 1480 1190 PRINT" [201] DON'T UNDERSTAND '";A$;"'.":GOTO 1010 1200 REM** FIGHT** 1202 IF A(RM,5)=0 THEN PRINT" [212]HERE'S NOTHING HERE TO FIGHT!":GOTO 1010 1204 IF WC(1)=0 AND WC(2)=0 THEN PRINT" [217]OU HAVE NO WEAPONS!":GOTO 1010 1205 IF A(RM,5)=6 THEN 1420 1206 IF WC(1)=0 OR WC(2)=0 THEN 1216 1208 PRINT"[147][155] [195]HOOSE YOUR [215]EAPON":PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145]" 1210 FORJ=1TO2:PRINT" ";J;"[159]";O$(WC(J)):NEXT J:POKE 198,0 1212 GET X:IF X=1 THEN WU=WC(1):GOTO 1220 1214 IF X=2 THEN WU=WC(2):GOTO 1220 1215 GOTO 1212 1216 IF WC(1)>0 THEN WU=WC(1) 1218 IF WC(2)>0 THEN WU=WC(2) 1220 M=A(RM,5):PRINT"[147]"; 1222 PRINT"[147][159] [217]OU GRAB YOUR ";O$(WU);" AND" 1224 PRINT" PREPARE TO FACE THE ";M$(M);"...":FOR T=1TO3000:NEXT T:PRINT"[147]"; 1226 PRINT" [159][217]OU [156]";M$(M) 1228 PRINT" [159][163][163][163][163][163] ";:FORT=1TOLEN(M$(M))+2:PRINT"[156][163]";:NEXT 1230 PRINT" ":PRINT" [159][197]NDURANCE:";EP:PRINT" [159][198]IGHTING :";FS 1232 PRINT" [159][215]EAPON:";O$(WU) 1234 PRINT"[145][145][145]";TAB(22);"[156][197]NDURANCE:";ME(M):PRINTTAB(22);"[156][198]IGHTING :";MF(M) 1236 PRINTTAB(22);"[156][215]EAPON:";MW$(M) 1238 PRINT"[151] [146]"; 1240 FORT=1TO2:PRINT" [146]";:NEXT T 1250 X=INT(20*RND(1))+1:IF X<=FS THEN 1260 1251 FORT=1TO1500:NEXT T 1252 Z=INT(2*RND(1))+1:ON Z GOTO 1254,1258 1254 PRINT"[159] [217]OUR SWING AT THE ";M$(M):PRINT" MISSES BY A FEW INCHES." 1255 FORT=1TO2000:NEXTT:GOTO 1280 1258 PRINT"[159] [217]OU ATTACK THE ";M$(M);", BUT" 1259 PRINT" HE MOVES OUT OF THE WAY.":FORT=1TO2000:NEXTT:GOTO 1280 1260 FORT=1TO3000:NEXT T:Z=INT(3*RND(1))+1 1262 PRINT"[159] [217]OU STRIKE THE ";M$(M);" IN THE" 1264 PRINT" ";BI$(Z);" WITH YOUR ";O$(WU);"!" 1266 AD=WD(WU)+BE(Z)+(INT(5*RND(1))-2):IFAD>ME(M)THENAD=ME(M) 1268 PRINT" [200]E LOSES";AD;"[197]NDURANCE...":FORT=1TO2000:NEXTT 1270 FORJ=1TOAD:ME(M)=ME(M)-1:PRINT"";TAB(32);" [157][157][157]";ME(M) 1271 IFME(M)=0THEN1350 1272 FOR T=1 TO 200:NEXT T:NEXT J 1280 PRINT""; 1281 X=INT(20*RND(1))+1:IF X<=MF(M) THEN 1290 1282 IFM=2 THEN PRINT" [156][212]HE [199]IANT [211]PIDER LUNGES FOR YOU" 1283 IFM=2 THEN PRINT" BUT JUST MISSES...":GOTO 1310 1284 IFM=5 THEN PRINT" [156][212]HE [196]RAGON BREATHES OUT A BURST" 1285 IFM=5 THEN PRINT" OF FLAME THAT BARELY MISSES YOU...":GOTO 1310 1286 PRINT" [156][212]HE ";M$(M);" SWINGS HIS ";MW$(M) 1287 PRINT" BUT YOU MOVE OUT OF THE WAY.":GOTO 1310 1290 PRINT" [156][212]HE ";M$(M);" HARMS YOU IN THE":Z=INT(3*RND(1))+1 1292 PRINT" ";BI$(Z);" WITH HIS ";MW$(M);"!":EL=DW(M)+BE(Z)+AR(AW)+INT(5*RND(1))-2 1293 IFEL>EPTHENEL=EP 1294 IF EL<1 THEN PRINT" [217]OUR ARMOR ABSORBS THE BLOW.":GOTO 1302 1296 PRINT" [217]OU LOSE";EL;"[197]NDURANCE...":FOR T=1TO2000:NEXTT 1300 FORJ=1TOEL:EP=EP-1:PRINT"";TAB(12);" [157][157][157]";EP:IFEP=0THEN1402 1302 FOR T=1TO200:NEXT T:NEXT J 1310 PRINT""; 1312 PRINT"[151] [146]"; 1314 PRINT"[151] [208]RESS ([198]1) TO [195]ONTINUE [146]"; 1316 PRINT"[151] ([198]3) TO [210]ETREAT [157][148] [146]";:POKE 198,0 1318 GET Z$:IF Z$="[134]" THEN PRINT"[147]";:GOTO1500 1320 IF Z$<>"[133]" THEN 1318 1322 PRINT"[147]";:GOTO 1226 1350 FOR X=1 TO 4000:NEXT X:PRINT"[147]" 1352 PRINT" [159][212]HAT LAST BLOW SEEMS TO HAVE " 1354 PRINT" BEEN TOO MUCH FOR THE ";M$(M);"." 1356 PRINT" [212]HE ";M$(M);" DROPS TO THE GROUND" 1358 PRINT" DEAD, YOUR ";O$(WU);" EMBEDDED DEEPLY" 1360 PRINT" IN HIS ";BI$(Z);"." 1362 PRINT" [159][217]OU WIPE OFF YOUR BLOOD-STAINED" 1364 PRINT" ";O$(WU);" AND BEGIN TO SEARCH THE" 1366 PRINT" ";M$(M);"'S DEAD BODY." 1368 PRINT" [159][217]OUR SEARCH REVEALS "; 1370 ON M GOTO 1371,1372,1373,1374,1375 1371 Q=50:GOTO 1380 1372 Q=0:GOTO1380 1373 Q=45:GOTO 1380 1374 Q=100:GOTO 1380 1375 Q=150:GOTO 1380 1380 IFQ=0THENPRINT"NOTHING.":GOTO1390 1382 PRINT"A LEATHER SACK":PRINT" CONTAINING[158]";Q;"[159]GOLD PCS. [217]OU PICK" 1384 PRINT" THEM UP AND STICK THEM IN YOUR BAG." 1390 GP=GP+Q:FS=FS+1:A(RM,5)=0 1392 PRINT"[151] [146]"; 1394 PRINT"[151] [208]RESS <[210][197][212][213][210][206]>[160]TO [195]ONTINUE [157][148] [146]";:POKE198,0 1396 GETX$:IFX$=CHR$(13)THENRETURN 1398 GOTO 1396 1402 FOR T=1TO1000:NEXT T 1403 PRINT"[159][147] [201]'M AFRAID THAT LAST INJURY WAS" 1404 PRINT" TOO MUCH FOR YOU. [212]HE ";M$(M);" " 1406 PRINT" WALKS OVER AND DRAGS YOUR LIMP " 1407 PRINT" BODY AWAY..." 1408 PRINT" [196]O YOU WANT TO PLAY AGAIN?" 1409 PRINT" ([217]/[206])":POKE198,0 1410 GET Q$:IFQ$="Y" THENPRINTCHR$(9):PRINTCHR$(142)"[147]":RUN 1412 IF Q$="N" THEN POKE 53280,14:POKE53281,6:PRINT"[154][147]";:GOTO 1416 1414 GOTO 1410 1416 PRINTCHR$(9);CHR$(142):PRINT"---------------- WARRIOR ---------------[146]"; 1418 PRINT" BY NATE GOUDIE":END 1420 IFWC(1)=7 OR WC(2)=7 THEN 1450 1422 PRINT"[147] [217]OU ATTACK THE [211]WAMP [195]REATURE." 1424 PRINT" [201]T GRABS YOU BY THE NECK AND LIFTS" 1426 PRINT" YOU 3 FEET OFF THE GROUND! [212]HEN IT" 1428 PRINT" DRAWS BACK ITS OTHER ARM AND WITH A" 1430 PRINT" SINGLE SWING SENDS YOUR HEAD FLYING!":GOTO 1408 1450 PRINT"[147][158] [217]OU PULL OUT [197]XCALIBUR AND RAISE" 1452 PRINT" IT ABOVE YOUR HEAD. [193] BLUE FLAME" 1454 PRINT" FLIES FORTH FROM THE SWORD. [212]HE [211]WAMP" 1456 PRINT" [195]REATURE LUNGES FOR YOU BUT YOU SWING" 1458 PRINT" [197]XCALIBUR AT IT. [197]XCALIBUR HITS ITS" 1460 PRINT" MARK IN AN EXPLOSION OF BLUE SPARKS." 1462 PRINT" [212]HE [211]WAMP [195]REATURE'S BODY FLIES BY " 1464 PRINT" YOU AND ITS HIDEOUS HEAD DROPS AT" 1466 PRINT" YOUR FEET...":A(RM,5)=0:A(RM,6)=18:GOTO 1000 1480 IFRM=2 THEN RM=1:RETURN 1482 IFRM=21THEN RM=22:RETURN 1484 IFRM=6THENRM=7:RETURN 1486 IFRM=16THENRM=17:RETURN 1488 IFRM=23THENRM=24:RETURN 1490 IFRM=39THENRM=40:RETURN 1492 IFRM=19 AND OB(1)=0 THEN RM=25:RETURN 1494 PRINT" [212]HERE'S NOTHING TO ENTER HERE!":GOTO 1010 1500 REM** RETREAT ** 1502 IF A(RM,5)=0 THEN PRINT" [212]HERE IS NOTHING TO RUN AWAY FROM!":GOTO 1010 1503 IF A(RM,5)=6 THEN 1510 1504 PRINT" [217]OU TURN AROUND AND RUN LIKE HECK!":FOR Z=1 TO 1000:NEXT Z:B$=R$ 1506 GOTO 1048 1510 PRINT"[147] [217]OU TURN AROUND TO RUN. [212]HE [211]WAMP" 1511 PRINT" [195]REATURE REACHES OUT AND GRABS YOU!" 1512 PRINT" [212]HE HE DRAWS BACK HIS OTHER ARM AND" 1513 PRINT" WITH ONE SWING SENDS YOUR HEAD " 1514 PRINT" ROLLING ACROSS THE FLOOR..." 1515 GOTO 1408 1700 REM** NORTH ** 1702 IF A(RM,1)=0 THEN 1740 1704 R$="S":RM=A(RM,1):RETURN 1740 PRINT" [217]OU CAN'T GO THAT WAY.":GOTO 1010 1750 REM** SOUTH ** 1752 IF RM=42 AND FS<20 THEN GOTO 2610 1754 IF A(RM,2)=0 THEN 1740 1756 R$="N":RM=A(RM,2):RETURN 1800 REM** EAST ** 1802 IF RM=30 AND OB(2)=1 THEN PRINT" [212]HE DOOR IS LOCKED!":GOTO 1010 1804 IF A(RM,3)=0 THEN 1740 1806 R$="W":RM=A(RM,3):RETURN 1850 REM** WEST ** 1852 IF A(RM,4)=0 THEN 1740 1854 R$="E":RM=A(RM,4):RETURN 1900 REM** UP ** 1902 IF RM<>38 THEN 1740 1904 R$="D":RM=37:RETURN 1950 REM** DOWN ** 1952 IF RM<>37 THEN 1740 1953 IF OB(3)=1 THEN PRINT" [201]T'S TOO STEEP!":GOTO 1010 1954 R$="U":RM=38:RETURN 1993 IF EL>EPTHEN EL=EP 2000 REM*** MOVE *** 2001 IF C$="BUS" THEN 2070 2002 X$=LEFT$(C$,1) 2003 IF X$="N" THEN 1700 2004 IF X$="S" THEN 1750 2005 IF X$="E" THEN 1800 2006 IF X$="W" THEN 1850 2007 IF X$="U" THEN 1900 2008 IF X$="D" THEN 1950 2009 GOTO 1190 2020 REM** CLIMB ** 2021 Z=0 2022 IF C$="UP" THEN Z=2:IF RM=38 THEN GOSUB 2036:IF OB(3)=0 THEN 1900 2024 IF C$="DOW"THEN Z=2:IF RM=37 THEN GOSUB 2036:IF OB(3)=0 THEN 1950 2026 IF C$="[210]OP" THEN 2030 2027 IF Z=0 THEN 1190 2028 IF Z=1 THEN 1010 2029 IF Z=2 THEN 1740 2030 IF RM=38 THEN GOSUB 2036:IF OB(3)=0 THEN 1900 2032 IF RM=37 THEN GOSUB 2036:IF OB(3)=0 THEN 1950 2033 IF Z=1 THEN 1010 2034 PRINT" [217]OU CAN'T DO THAT HERE!":GOTO 1010 2036 IF OB(3)=1 THEN PRINT" [217]OU HAVE TO TIE A [210]OPE FIRST! (DUH!)":Z=1 2037 RETURN 2050 REM** UNLOCK DOOR ** 2052 IF C$<>"DOO" THEN PRINT" [217]OU CAN'T UNLOCK THAT!":GOTO 1010 2054 IF RM<>30 THEN PRINT" [201] SEE NO DOOR HERE!":GOTO 1010 2056 Z=0 2058 FOR J=1 TO 5:IF BP(J)=15 THEN Z=1:NEXT J 2059 IF Z=0 THEN PRINT" [217]OU DON'T HAVE A KEY!":GOTO 1010 2060 PRINT"[147] [217]OU INSERT THE KEY INTO THE LOCK" 2062 PRINT" AND TURN IT..." 2064 FOR T=1 TO 1000:NEXT T 2066 PRINT" [195][204][201][195][203]. [212]HE DOOR IS NOW OPEN.":OB(2)=0:A(30,3)=31:GOTO 1000 2070 REM** MOVE BUSH ** 2071 IF RM<>19 THEN PRINT" [201] DON'T SEE A MOVABLE BUSH HERE!":GOTO 1010 2072 IF OB(1)=0 THEN PRINT" [201]T'S ALREADY MOVED!":GOTO 1010 2074 PRINT"[147] [193]S YOU PULL THE BUSH AWAY YOU" 2075 PRINT" DISCOVER A CAVE OPENING IN THE CLIFF!":OB(1)=0:A(19,2)=25:GOTO1000 2080 REM*** INVENTORY *** 2082 PRINT"[147]"; 2084 PRINT"[151] - [201]NVENTORY - [146]"; 2086 PRINT" [158][197]NDURANCE:[155]";EP 2088 PRINT" [158][198]IGHTING :[155]";FS 2090 PRINT" [158][199]OLD PCS :[155]";GP 2092 PRINT" [158][215]EAPONS" 2094 PRINT" [158][163][163][163][163][163][163][163][163][163]" 2096 FOR J=1 TO 2 2098 PRINT"[158] ";J;:IF WC(J)>0 THEN PRINT"[155]"; 2100 PRINT O$(WC(J)):NEXT J 2102 PRINT" [158][193]RMOR [215]ORN: [155]";O$(AW) 2104 PRINT" [158][194]ACKPACK [201]TEMS" 2106 PRINT" [158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 2108 FOR J=1 TO 5 2110 PRINT"[158] ";J;:IF BP(J)>0 THEN PRINT"[155]"; 2112 PRINT O$(BP(J)):NEXT J 2114 PRINT"[151] [146]"; 2116 PRINT" [208]RESS <[210][197][212][213][210][206]> TO [195]ONTINUE [157][148] [146]"; 2118 POKE 198,0 2120 GET X$:IF X$=CHR$(13) THEN RETURN 2122 GOTO 2120 2130 REM** EAT FOOD ** 2132 IF C$<>"[198]OO" AND C$<>"FOO" THEN PRINT" [217]OU CAN'T EAT THAT!":GOTO 1010 2134 J=0 2136 J=J+1:IF BP(J)=12 THEN 2140 2138 IF J=5 THEN PRINT" [217]OU AREN'T CARRYING ANY [198]OOD!":GOTO 1010 2139 GOTO 2136 2140 PRINT" [212]HE [198]OOD TASTES GOOD AND MAKES YOU" 2142 PRINT" FEEL STRONGER...":BP(J)=0:Z=INT(5*RND(1))+5:EP=EP+Z 2144 PRINT" [217]OU GAIN";Z;"[197]NDURANCE.":GOTO 1010 2150 REM** TIE ROPE ** 2152 J=0 2154 J=J+1:IF BP(J)=13 THEN 2158 2156 IF J=5 THEN PRINT" [217]OU AREN'T CARRYING ANY [210]OPE!":GOTO 1010 2157 GOTO 2154 2158 IF RM<>37 THEN PRINT" [212]HERE'S NOTHING TO TIE A [210]OPE TO!":GOTO 1010 2160 PRINT"[147] [217]OU TIE ONE END OF THE [210]OPE TO THE" 2162 PRINT" TREE BRANCH AND DROP THE OTHER END" 2164 PRINT" OVER THE LEDGE. [217]OU NOW HAVE A WAY" 2166 PRINT" DOWN THE CLIFF.":BP(J)=0:OB(3)=0:GOTO 1000 2170 REM** THROW NECKLACE ** 2172 J=0 2174 J=J+1:IF BP(J)=16 THEN 2178 2176 IF J=5 THEN PRINT" [217]OU DON'T EVEN HAVE A [206]ECKLACE!":GOTO 1010 2177 GOTO 2174 2178 IF RM<>41 THEN PRINT" [201]'M AFAID NOTHING HAPPENED.":GOTO 1010 2180 PRINT"[147] [212]HE NECKLACE STRIKES THE WALL AND" 2182 PRINT" EXPLODES INTO A FANTASTIC ARAY OF " 2184 PRINT" LIGHTS. [215]HEN THE BRIGHTNESS DIES DOWN":OB(4)=0 2186 PRINT" YOU CAN SEE A DOORWAY IN THE WALL.":BP(J)=0:A(41,2)=42:GOTO 1000 2190 REM** READ MESSAGE ** 2192 IF C$<>"MES" THEN PRINT" [217]OU CAN'T READ THAT!":GOTO 1010 2194 IF RM<>31 THEN PRINT" [212]HERE ISN'T A MESSAGE HERE!":GOTO 1010 2196 PRINT"[147] [217]OU WALK OVER TO THE MESSAGE IN" 2198 PRINT" THE WALL AND BRUSH SOME OF THE DUST" 2200 PRINT" AWAY WITH YOUR HAND. [201]T APPEARS TO" 2202 PRINT" HAVE SOMETHING TO DO WITH DIRECTIONS" 2204 PRINT" TO CROSS THE SWAMP. [212]HESE DIRECTIONS" 2206 PRINT" ARE, [197], [197], [211], [197], [206], [206], [197], [211], AND [197]." 2208 GOTO 1000 2210 REM** GIVE STAFF ** 2212 IF C$<>"STA" AND C$<>"[215]AL" THEN PRINT" [217]OU CAN'T GIVE THAT!":GOTO 1010 2213 GOTO 2242 2214 IF A(RM,5)>0 THEN PRINT" [212]HE ";M$(A(RM,5));" DOESN'T WANT IT!":GOTO 1010 2216 IF RM<>22 THEN PRINT" [212]HERE'S NO ONE HERE TO GIVE IT TO!":GOTO 1010 2218 PRINT"[147] [217]OU WALK OVER TO THE [200]ERMIT AND" 2220 PRINT" HAND HIM THE [215]ALKING STAFF. [200]E IS SO" 2222 PRINT" OVERJOYED TO HAVE HIS STAFF BACK THAT" 2224 PRINT" HE EMBRACES YOU! ' [212]HANKYOU FOR " 2226 PRINT" RETURNING MY STAFF TO ME', HE TELLS" 2228 PRINT" YOU. ' [193]ND NOW [201] WILL PASS THIS SKILL" 2230 PRINT" OF FIGHTING DOWN TO YOU LIKE [201] HAVE" 2232 PRINT" PROMISED.' [215]ITH THAT THE [200]ERMIT WALKS" 2234 PRINT" OVER TO YOU AND BEGINS TO TEACH AND" 2236 PRINT" SHOW YOU EVERTHING HE KNOWS. [217]OU ARE " 2238 PRINT" NOW AN EXPERT IN THE ART OF FIGHTING." 2240 BP(J)=0:FS=20:GOTO 1000 2242 J=0 2244 J=J+1:IF BP(J)=17 THEN 2214 2246 IF J=5 THEN PRINT" [217]OU DON'T HAVE IT!":GOTO 1010 2247 GOTO 2244 2250 REM*** GET OBJECTS *** 2252 J=5 2254 J=J+1:IF C$=LEFT$(O$(A(RM,J)),3) THEN Z=A(RM,J):GOTO 2258 2256 IF J=8 THEN PRINT" [201] DON'T SEE THAT HERE!":GOTO 1010 2257 GOTO 2254 2258 IF Z<8 THEN 2270 2260 IF Z<12THEN 2280 2262 IF Z<19THEN 2290 2270 X=0 2272 X=X+1:IF WC(X)=0 THEN WC(X)=Z:A(RM,J)=0:GOTO 2276 2274 IF X=2 THEN PRINT" [217]OU ALREADY HAVE 2 WEAPONS!":GOTO 1010 2275 GOTO 2272 2276 PRINT" [212]AKEN.":OD(Z)=0:GOTO 1010 2280 IF AW>0 THEN PRINT" [217]OU'RE ALREADY WEARING ARMOR!":GOTO 1010 2282 PRINT" [217]OU ARE NOW WEARING ";O$(Z);" ARMOR.":AW=Z:A(RM,J)=0:OD(Z)=0:GOTO1010 2290 X=0 2292 X=X+1:IF BP(X)=0 THEN BP(X)=Z:A(RM,J)=0:GOTO 2296 2294 IF X=5 THEN PRINT" [217]OUR BACKPACK IS ALREADY FULL!":GOTO 1010 2295 GOTO 2292 2296 PRINT" [212]AKEN.":OD(Z)=0:GOTO 1010 2300 REM** DROP OBJECTS ** 2302 IF A(RM,6)=0 OR A(RM,7)=0 OR A(RM,8)=0 THEN 2308 2304 PRINT" [212]HIS ROOM CAN'T HOLD ANY MORE ITEMS.":GOTO 1010 2308 X=0 2310 X=X+1:IF C$=LEFT$(O$(WC(X)),3) THEN Z=WC(X):WC(X)=0:GOTO 2314 2312 IF X=2 THEN 2320 2313 GOTO 2310 2314 X=5 2315 X=X+1:IF A(RM,X)=0 THEN A(RM,X)=Z:PRINT" [196]ROPPED.":GOTO 1010 2316 GOTO 2315 2320 IF AW=0 THEN 2330 2322 IF C$=LEFT$(O$(AW),3) THEN Z=AW:AW=0:GOTO 2314 2324 GOTO 2330 2330 X=0 2332 X=X+1:IF C$=LEFT$(O$(BP(X)),3) THEN Z=BP(X):BP(X)=0:GOTO 2314 2334 IF X=5 THEN PRINT" [217]OU AREN'T CARRYING IT!":GOTO 1010 2335 GOTO 2332 2336 GOTO 2530 2400 REM*** STORE *** 2402 IF RM<>1 THEN PRINT" [201] DON'T SEE A BELL HERE!":GOTO 1010 2405 PRINT"[147][155] [212]HE SHOPKEEPER LOOKS UP AT YOU." 2406 PRINT" '[211]O, WHAT CAN [201] HELP YOU WITH?' HE" 2407 PRINT" ASKS POLITELY." 2408 PRINT"[151] [146]"; 2409 PRINT" [146]"; 2410 PRINT" [215]HAT ARE YOU INTERESTED IN BUYING?" 2411 PRINT" 1 [159][215]EAPONS" 2412 PRINT" 2 [159][193]RMOR & [211]UPPLIES" 2413 PRINT" 3 [155]NONE" 2414 POKE 198,0 2415 GET K$:IFK$=""THEN2415 2416 K=ASC(K$):K=K-48:IF K=1 THEN 2420 2417 IF K=2 THEN 2500 2418 IF K=3 THEN RETURN 2419 GOTO 2415 2420 PRINT"[147][155] [212]HE SHOPKEEPER STANDS UP AND WALKS" 2422 PRINT" OVER TO THE RACK OF WEAPONS." 2424 PRINT" [217]OU HAVE[158]";GP;"[155]GOLD PCS." 2426 PRINT" [215]EAPON [195]OST" 2428 PRINT" [163][163][163][163][163][163][163][163] [163][163][163][163][163][163][145]" 2430 FOR J=1 TO 6:PRINT" ";J;"[159]";O$(J) 2432 PRINT"[145]";TAB(23);"[159]";WP(J):NEXT J 2434 PRINT" 7 [155]NONE" 2436 PRINT" - [197]NTER YOU [195]HOICE -" 2438 POKE 198,0 2439 GET K$:IF K$="" THEN 2439 2440 K=ASC(K$):K=K-48:IF K=1 OR K=2 OR K=3 OR K=4 OR K=5 OR K=6 THEN 2450 2441 IF K=7 THEN 2405 2445 GOTO 2439 2450 IF WC(1)>0 AND WC(2)>0 THEN 2460 2452 IF GP0 THEN 2546 2542 IF GP0 AND BP(2)>0 AND BP(3)>0 AND BP(4)>0 AND BP(5)>0 THEN 2558 2552 IF GP0 AND OD(Z)<1 THEN GOSUB 5070 5055 NEXT J 5060 RETURN 5070 IF Z<7 OR Z=14 OR Z=15 OR Z=16 OR Z=17 THEN 5080 5071 IF Z<12 AND Z>7 THEN 5085 5072 IF Z<14 AND Z>11 THEN 5090 5075 IF Z=7 THEN PRINT" [212]HE SWORD, [197]XCALIBUR, IS HERE." 5076 IF Z=18THEN PRINT" [212]HE [195]REATURE'S HEAD IS HERE." 5077 RETURN 5080 PRINT" [212]HERE IS A ";O$(Z);" HERE.":RETURN 5085 PRINT" [212]HERE IS SOME ";O$(Z);" ARMOR HERE.":RETURN 5090 PRINT" [212]HERE IS SOME ";O$(Z);" HERE.":RETURN 6000 REM*** MONSTER DESCRIPTION *** 6001 PRINT"[156]"; 6002 IF RM=22 THEN 6190 6005 IF A(RM,5)=0 THEN RETURN 6010 Z=A(RM,5) 6015 IF MD(A(RM,5))>0 THEN 6100 6020 ON Z GOSUB 6025,6030,6035,6040,6045,6050 6022 RETURN 6025 PRINT" [193] [194]ANDIT STANDS IN THE MIDDLE OF THE" 6026 PRINT" ROAD, READY TO ATTACK AT ANY TIME...":GOTO 6060 6030 PRINT" [193] [199]IANT [211]PIDER SITS IN THE HUGE WEB" 6031 PRINT" WAITING FOR YOU...":GOTO 6065 6035 PRINT" [193]N ANGRY LOOKING [204]IZARD [205]AN STANDS" 6036 PRINT" HERE, READY TO LASH OUT ANY TIME...":GOTO 6060 6040 PRINT" [193] [195]YCLOPS STANDS A FEW FEET AWAY" 6041 PRINT" FROM YOU, GRASPING HIS CLUB IN HIS" 6043 PRINT" ENORMOUS HANDS.":GOTO 6060 6045 PRINT" [193] [196]RAGON SITS IN FRONT OF YOU," 6046 PRINT" BREATHING SMOKE OUT OF HIS NOSTRILS.":GOTO 6065 6050 PRINT" [212]HE [211]WAMP [195]REATURE STANDS IN FRONT" 6051 PRINT" OF YOU (BETTER SAY YOUR PRAYERS!).":GOTO 6065 6060 PRINT" [217]OU MUST EITHER FIGHT HIM OR RETREAT.":RETURN 6065 PRINT" [217]OU MUST EITHER FIGHT IT OR RETREAT.":RETURN 6100 ON Z GOSUB 6105,6115,6125,6135,6145,6155 6102 RETURN 6105 PRINT" [211]UDDENLY, A BUSH BEHIND YOU MOVES." 6106 PRINT" [193] [194]ANDIT WITH AN EVIL GRIN ON HIS " 6107 PRINT" FACE JUMPS OUT PULLING A DAGGER FROM" 6108 PRINT" HIS COAT. [200]E DOESN'T LOOK NEGOTIABLE.":MD(1)=0:GOTO 6060 6115 PRINT" [211]UDDENLY THE COBWEBS BREAK OPEN IN" 6116 PRINT" FRONT OF YOU. [193] [199]IANT [211]PIDER CRAWLS" 6117 PRINT" THROUGH AND COMES STRAIGHT FOR YOU!":MD(2)=0:GOTO 6065 6125 PRINT" [212]HE SURFACE OF THE POOL BEGINS TO" 6126 PRINT" BUBBLE. [193] DARK SHADOW STARTS TO COME" 6127 PRINT" TOWARD THE SURFACE. [211]UDDENLY A [204]IZARD" 6128 PRINT" [205]AN EMERGES FROM THE MURKY WATER..." 6129 PRINT" [200]E DOESN'T SEEM VERY GLAD TO SEE YOU!":MD(3)=0:GOTO 6060 6135 PRINT" [211]UDDENLY YOU HEAR AN ANGRY BELLOW." 6136 PRINT" [217]OU WHIRL AROUND ONLY TO BE GREETED" 6137 PRINT" BY THE FEARSOME FACE OF THE [195]YCLOPS!" 6138 PRINT" [212]HE [195]YCLOPS GRABS HIS CLUB AND IT" 6139 PRINT" APPEARS HE WANTS TO USE IT...":MD(4)=0:GOTO 6060 6145 PRINT" [211]UDDENLY A BURST OF FLAME SHOOTS" 6146 PRINT" ACROSS THE CAVE IN FRONT OF YOU! [212]HE" 6147 PRINT" [196]RAGON ENTERS THE CAVE AND DOES NOT" 6148 PRINT" SEEM PLEASED TO SEE YOU HERE.":MD(5)=0:GOTO 6065 6155 PRINT" [193]S YOU LOOK FORWARD INTO THE DARK" 6156 PRINT" CAVE, YOU CAN SEE A PAIR OF EYES LIKE" 6157 PRINT" GLOWING COALS. [217]OU KNOW IT IS THE" 6158 PRINT" DREADED [211]WAMP [195]REATURE. [193]S IT COMES" 6159 PRINT" FORWARD INTO THE LIGHT, YOU CAN SEE" 6160 PRINT" WHY THE VILLAGERS FEARED IT SO...":MD(6)=0:GOTO 6065 6190 HE=HE+1 6191 IF HE=1 THEN 6200 6192 IF HE=2 THEN 6211 6193 IF HE>2 THEN 6220 6200 PRINT" [200]E LOOKS UP AT YOU WITH A SMILE." 6201 PRINT" '[211]O',HE SAYS,'YOU MUST BE THE NEW" 6202 PRINT" ADVENTURER. [217]OU KNOW THAT ONLY THE " 6203 PRINT" MOST SKILLED OF FIGHTERS WILL BE ABLE" 6204 PRINT" TO CLAIM THE SWORD, [197]XCALIBUR, FOR" 6205 PRINT" HIMSELF. [201]F YOU BRING ME MY STAFF," 6206 PRINT" WHICH WAS STOLEN BY THE [195]YCLOPS, [201]" 6207 PRINT" WILL PASS THIS SKILL ON TO YOU. '" 6208 PRINT" [215]ITH THAT HE PATS YOU ON THE SHOULDER" 6209 PRINT" AND WISHES YOU GOOD LUCK." 6210 RETURN 6211 PRINT" '[194]ACK AGAIN?' SAYS THE HERMIT.'[215]ELL," 6212 PRINT" YOU'RE ALWAYS WELCOME HERE.' " 6213 RETURN 6220 PRINT" '[217]OU MUST LIKE THIS PLACE', SAYS" 6221 PRINT" THE HERMIT. '[217]OU ARE LUCKY [201]'M A" 6222 PRINT" FRIENDLY PERSON!'":RETURN 7000 REM*** RM DESCRIPTION *** 7005 PRINT"[147][159]" 7010 IF RM<25 OR RM>36 AND RM<41 THEN 7100 7015 J=0 7020 J=J+1:IF BP(J)=14 THEN 7100 7025 IF J<5 THEN 7020 7030 TC=TC+1:IF TC=2 THEN 7045 7032 PRINT" [201]T IS SO DARK IN HERE THAT YOU" 7035 PRINT" CAN'T SEE ANYTHING. [201]T WOULD BE VERY" 7040 PRINT" DANGEROUS TO PROCEED ONWARD WITHOUT" 7041 PRINT" A TORCH...":RETURN 7045 PRINT" [217]OU STUMBLE FORWARD INTO THE " 7046 PRINT" DARKNESS. [211]UDDENLY YOUR FOOT CATCHES" 7047 PRINT" ON SOMETHING AND YOU FALL HEADFIRST" 7048 PRINT" INTO A DEEP PIT. [207]H DEAR, [201]'M AFRAID" 7049 PRINT" YOU ARE NOW LYING AT THE BOTTOM OF" 7050 PRINT" THE PIT WITH A BROKEN NECK... " 7051 PRINT" (PLEASANT THOUGHT, HUH?) 7052 [137] 1408 7100 TC[178]0:[139] RM[177]10 [167] 7215 7105 [145] RM [141] 7110,7125,7140,7155,7170,7185,7200,7200,7200,7200 7107 [142] 7110 [139] BP(1)[178]18[176]BP(2)[178]18[176]BP(3)[178]18[176]BP(4)[178]18[176]BP(5)[178]18 [167] 2700 7111 [153]" (null)OU ARE IN THE TOWN'S CHR$ENERAL" 7112 [153]" (null)TORE. ATNS YOU LOOK AROUND A WIDE" 7113 [153]" VARIETY OF ITEMS GREETS YOUR EYES." 7114 [153]" RIGHT$N FRONT OF YOU IS A MEDIUM SIZED" 7115 [153]" DESK. PEEKEHIND THE DESK SITS AN OLD" 7116 [153]" MAN READING A BOOK. LEFT$E DOESN'T SEEM" 7117 [153]" TO HAVE NOTICED YOU YET. (null)N TOP OF" 7118 [153]" THE DESK IS A SMALL BELL. PEEKESIDE " 7119 [153]" THE BELL IS A SIGN THAT SAYS, " 7120 [153]" ' (null)ING BELL FOR SERVICE '." 7121 [142] 7125 [143]* ROOM 2 * 7126 [153]" (null)OU ARE ON A NARROW STREET IN" 7127 [153]" THE MIDDLE OF A SOMEWHAT BUSY TOWN." 7128 [153]" (null)MALL TOWN HOUSES LINE BOTH SIDES" 7129 [153]" OF THE STREET. (null)O THE NORTH IS THE" 7130 [153]" TOWN'S CHR$ENERAL (null)TORE. ATN DIRT ROAD" 7131 [153]" LEAVES THE TOWN TO THE SOUTH." 7132 [142] 7140 [143]* ROOM 3 * 7141 [153]" (null)OU ARE ON A DIRT ROAD LEADING" 7142 [153]" THROUGH A MEADOW. (null)HE ROAD STRETCHES" 7143 [153]" OUT OF SIGHT TO THE SOUTH. (null)HE ROAD" 7144 [153]" APPEARS TO ENTER A SMALL TOWN TO THE" 7145 [153]" NORTH." 7146 [142] 7155 [143]* ROOM 4 * 7156 [153]" (null)OU HAVE COME TO A BEND IN THE" 7157 [153]" DIRT ROAD. PEEKOULDERS AND BUSHES " 7158 [153]" SURROUND BOTH SIDES OF THE ROAD." 7159 [153]" (null)HE ROAD LEADS INTO A FOREST TO" 7160 [153]" THE SOUTH AND INTO A MEADOW TO " 7161 [153]" THE NORTH. ATN NARROW PATH LEAVES" 7162 [153]" THE ROAD HERE AND LEADS EASTWARD." 7163 [142] 7170 [143]* ROOM 5 * 7171 [153]" (null)OU ARE ON A NARROW PATHWAY THAT" 7172 [153]" LEADS EAST AND WEST THROUGH SOME VERY" 7173 [153]" WET AND MUDDY TERRAIN. (null)OU THINK YOU" 7174 [153]" CAN STILL SEE THE DIRT ROAD TO THE" 7175 [153]" WEST. (null)HE PATH APPEARS TO LEAD INTO," 7176 [153]" WHAT LOOKS LIKE, A SWAMP TO THE EAST." 7177 [142] 7185 [143]* ROOM 6 * 7186 [153]" (null)OU ARE NOW STANDING AT THE" 7187 [153]" ENTRANCE TO THE SWAMP. ATN NARROW" 7188 [153]" PATH LEAVES THIS HORRIBLE PLACE" 7189 [153]" TO THE WEST. (null)O THE EAST OF YOU" 7190 [153]" LIES THE FORBIDDING LAND KNOWN AS" 7191 [153]" THE SWAMP. ATNS YOU LOOK INTO THE" 7192 [153]" GIANT MASS OF MUD, TREES, AND" 7193 [153]" QUICKSAND, YOU CAN SEE WHY MANY" 7194 [153]" AN ADVENTURER HAS TAKEN FRIGHT AT" 7195 [153]" IT..." 7196 [142] 7200 [143]* ROOM 7-14 * 7201 [153]" (null)OU ARE IN THE SWAMP. (null)OOLS OF" 7202 [153]" MUD AND QUICKSAND BUBBLE ALL AROUND" 7203 [153]" YOU. (null)HE CRIES OF THE THINGS OF THE" 7204 [153]" SWAMP FILL YOUR EARS. (null)HE VINES AND" 7205 [153]" TREES ARE SO THICK OVERHEAD THAT" 7206 [153]" THE SUNLIGHT IS TOTALLY BLOCKED OFF." 7207 [142] 7215 [139] RM[177]20 [167] 7300 7217 [145] RM[171]10 [141] 7200,7200,7200,7200,7220,7235,7250,7265,7280,7295 7218 [142] 7220 [143]* ROOM 15 * 7221 [153]" ATNS YOU WALK FORWARD YOU FEEL" 7222 [153]" YOURSELF SINKING DOWNWARD. (null)OU THRASH" 7223 [153]" AROUND HELPLESSLY AS YOU SLOWLY SINK" 7224 [153]" INTO THE QUICKSAND WHICH HAS NOW " 7225 [153]" BECOME YOUR GRAVE..." 7226 [137] 1408 7235 [143]* ROOM 16 * 7236 [153]" (null)OU HAVE COME TO A CLEARING IN" 7237 [153]" THE MIDDLE OF THE SWAMP. ATN WALL OF" 7238 [153]" DIRT AND ROCK RISES UP TO THE EAST" 7239 [153]" OF YOU. ATN HUGE BLACK OPENING IS SET" 7240 [153]" IN THIS WALL. RIGHT$T APPEARS TO BE THE" 7241 [153]" ENTRANCE TO A CAVE." 7242 [142] 7250 [143]* ROOM 17 * 7251 [153]" (null)OU ARE STANDING IN A SMALL CAVE." 7252 [153]" PEEKLOOD STAINS ARE SPLATTERED ALL OVER" 7253 [153]" THE WALLS. ATN FEW HUMAN SKELETONS LIE" 7254 [153]" SCATTERED ON THE FLOOR. RIGHT$ THINK YOU" 7255 [153]" HAVE FOUND THE LENREATURE'S (null)AIR..." 7256 [142] 7265 [143]* ROOM 18 * 7266 [153]" (null)OU ARE ON A DIRT ROAD LEADING" 7267 [153]" THROUGH A DARK FOREST. ATN SMALL TRAIL" 7268 [153]" LEADS WESTWARD FROM HERE. (null)HE ROAD" 7269 [153]" CONTINUES TO THE SOUTH AND NORTH." 7270 [142] 7280 [143]* ROOM 19 * 7281 [153]" (null)OU HAVE COME TO A CLEARING IN " 7282 [153]" THE FOREST. ATN DIRT ROAD LEADS NORTH" 7283 [153]" FROM HERE. ATN LARGE CLIFF RISES UP TO" 7284 [153]" THE SOUTH OF YOU. (null)HE CLIFF IS VERY " 7285 [153]" STEEP AND LOOKS IMPOSSIBLE TO CLIMB." 7286 [139] OB(1)[178]1 [167] [153]" ATN SMALL BUSH GROWS IN FRONT OF THE CLIFF." 7287 [139] OB(1)[178]0 [167] [153]" (null)HERE IS A CAVE OPENING IN THE CLIFF." 7288 [142] 7295 [143]* ROOM 20 * 7296 [153]" (null)OU ARE ON A NARROW TRAIL IN A" 7297 [153]" FOREST. (null)HE TRAIL CURVES TO THE" 7298 [153]" NORTH AND ANOTHER TRAIL LEADS WEST." 7299 [142] 7300 [139] RM[177]30 [167] 7450 7302 [145] RM[171]20 [141] 7305,7320,7335,7350,7365,7380,7395,7410,7425,7440 7303 [142] 7305 [143]* ROOM 21 * 7306 [153]" (null)OU HAVE COME TO AN OPENING IN" 7307 [153]" THE FOREST. ATN NARROW TRAIL LEADS " 7308 [153]" SOUTH FROM HERE. RIGHT$N FRONT OF YOU TO" 7309 [153]" THE NORTH SITS A SMALL CABIN. ATN THIN" 7310 [153]" LINE OF BLACK SMOKE EXITS FROM THE" 7311 [153]" STONE CHIMNEY." 7312 [142] 7320 [143]* ROOM 22 * 7321 [153]" (null)OU ARE IN A SMALL, BUT RATHER" 7322 [153]" COMFORTABLE CABIN OWNED BY A HERMIT." 7323 [153]" (null)OME FURNITURE AND A FEW BELONGINGS" 7324 [153]" DECORATE THE ROOM. (null)HE HERMIT, WHO" 7325 [153]" IS A KIND LOOKING OLD MAN, SITS IN" 7326 [153]" A CHAIR BESIDE A SMALL TABLE." 7327 [142] 7335 [143]* ROOM 23 * 7336 [153]" (null)OU ARE IN A SMALL RAVINE. (null)HE " 7337 [153]" WALLS OF THE CANYON RISE UP AROUND" 7338 [153]" YOU. RIGHT$N THE WESTERN CLIFF FACE IS A" 7339 [153]" LARGE CAVE. ATN TRAIL LEAVES THE RAVINE" 7340 [153]" TO THE EAST." 7341 [142] 7350 [143]* ROOM 24 * 7351 [153]" (null)OU ARE IN A SMALL CAVE THAT" 7352 [153]" IS THE LAIR OF A POWERFUL DRAGON." 7353 [153]" (null)HE WALLS OF THE CAVE ARE BLACK " 7354 [153]" FROM HIS FIERY BREATH AND A CHARRED" 7355 [153]" HUMAN SKELETON LIES ON THE FLOOR." 7356 [142] 7365 [143]* ROOM 25 * 7366 [153]" (null)OU ARE IN A LARGE CAVE. (null)HE " 7367 [153]" FLOOR IS OF PACKED EARTH. (null)OU CAN" 7368 [153]" SEE PASSAGES TO THE EAST AND WEST." 7369 [153]" (null)HERE IS A TUNNEL TO THE SOUTH." 7370 [153]" STR$AYLIGHT COMES IN THROUGH THE " 7371 [153]" OPENING TO THE NORTH." 7372 [142] 7380 [143]* ROOM 26 * 7381 [153]" (null)OU ARE IN AN (null)-SHAPED PASSAGE." 7382 [153]" (null)HERE IS A PASSAGE TO THE WEST AND" 7383 [153]" A STONE DOORWAY TO THE SOUTH." 7384 [142] 7395 [143]* ROOM 27 * 7396 [153]" (null)OU ARE IN A NARROW TUNNEL. (null)HE" 7397 [153]" PASSAGE TO THE NORTH HAS BEEN BLOCKED" 7398 [153]" BY A CAVE IN. ATN HUMAN SKELETON LIES" 7399 [153]" HALF BURIED BY THE RUBBLE. (null)HERE IS" 7400 [153]" A DOORWAY TO THE SOUTH." 7401 [142] 7410 [143]* ROOM 28 * 7411 [153]" (null)OU ARE IN A ROUND SHAPED ROOM" 7412 [153]" WITH DOORWAYS TO THE NORTH, SOUTH," 7413 [153]" AND EAST. ATN LARGE SCUM-COVERED POOL" 7414 [153]" OF WATER SITS IN THE CENTER OF THE" 7415 [153]" ROOM. (null)ISPS OF STEAM EMERGE FROM IT." 7416 [142] 7425 [143]* ROOM 29 * 7426 [153]" (null)OU ARE IN SMALL CAVE-LIKE ROOM" 7427 [153]" WITH A DOORWAY TO THE NORTH AND TO" 7428 [153]" THE WEST. (null)HE AIR IS EXTREMELY DAMP" 7429 [153]" HERE. (null)ATER DRIPS FROM THE MANY" 7430 [153]" STALACTITES ABOVE YOUR HEAD." 7431 [142] 7440 [143]* ROOM 30 * 7441 [153]" (null)OU ARE IN A ROOM WITH A LARGE" 7442 [153]" DOME-LIKE CEILING. (null)HERE IS AN EXIT" 7443 [153]" TO THE NORTH. (null)ET IN THE WALL TO THE" 7444 [153]" EAST IS A HEAVY IRON DOOR WITH A" 7445 [153]" PICTURE OF A HUMAN SKELETON ON IT." 7446 [139] OB(2)[178]1 [167] [153]" (null)HE DOOR IS LOCKED." 7447 [139] OB(2)[178]0 [167] [153]" (null)HE DOOR IS WIDE OPEN." 7448 [142] 7450 [139] RM[177]40 [167] 7600 7452 [145] RM[171]30 [141] 7455,7470,7485,7500,7515,7530,7545,7560,7575,7590 7453 [142] 7455 [143]* ROOM 31 * 7456 [153]" (null)OU ARE IN A ROOM CARVED FROM" 7457 [153]" SOLID ROCK. (null)HERE IS A DOORWAY TO" 7458 [153]" THE WEST. ATN MESSAGE IS CARVED INTO" 7459 [153]" ONE OF THE WALLS. ATN LARGE TABLE SITS" 7460 [153]" IN THE MIDDLE OF THE ROOM. " 7461 [142] 7470 [143]* ROOM 32 * 7471 [153]" (null)OU ARE IN A SMALL AND MUSTY" 7472 [153]" TUNNEL. (null)HERE ARE PASSAGES TO THE " 7473 [153]" NORTH AND TO THE WEST." 7474 [142] 7485 [143]* ROOM 33 * 7486 [153]" (null)OU ARE IN AN ODD-SHAPED CAVERN." 7487 [153]" (null)HERE ARE PASSAGES TO THE NORTH AND" 7488 [153]" SOUTH AND A TUNNEL TO THE EAST. ATN " 7489 [153]" HUGE SPIDER WEB HANGS FROM THE WALLS" 7490 [153]" AND CEILING AND COVERS EVERYTHING." 7491 [142] 7500 [143]* ROOM 34 * 7501 [153]" (null)OU ARE IN AN EXTREMELY DARK" 7502 [153]" PASSAGE. (null)HERE ARE EXITS TO THE EAST," 7503 [153]" WEST, AND SOUTH." 7504 [142] 7515 [143]* ROOM 35 * 7516 [153]" (null)OU ARE IN A LARGE NATURALLY" 7517 [153]" FORMED CAVERN. (null)NE BIG STALACTITE" 7518 [153]" HANGS FROM THE CEILING." 7519 [142] 7530 [143]* ROOM 36 * 7531 [153]" (null)OU ARE IN A NARROW ROOM. A" 7532 [153]" STRONG WIND BLOWS INTO THE ROOM" 7533 [153]" FROM A DAY-LIT OPENING TO THE WEST." 7534 [153]" (null)HERE IS ALSO A PASSAGE TO THE NORTH." 7535 [142] 7545 [143]* ROOM 37 * 7546 [153]" (null)OU ARE OUT ON A LEDGE ABOUT 30" 7547 [153]" FEET OFF THE GROUND. PEEKEHIND YOU TO" 7548 [153]" THE EAST IS A CAVE ENTRANCE. (null)HE EDGE" 7549 [153]" OF THE CLIFF LOOKS TO STEEP TO CLIMB" 7550 [153]" DOWN WITHOUT A ROPE. ATN SLENDER TREE" 7551 [153]" BRANCH JUTS OUT FROM THE LEDGE." 7552 [139] OB(3)[178]0 [167] [153]" ATN ROPE DANGLES DOWN THE CLIFF'S EDGE." 7553 [142] 7560 [143]* ROOM 38 * 7561 [153]" (null)OU ARE AT THE SOUTHERN END OF" 7562 [153]" A LARGE VALLEY. ATN FEW BONES LITTER" 7563 [153]" THE FLOOR OF THE VALLEY. ATN ROPE HANGS" 7564 [153]" FROM A LEDGE ABOVE YOU." 7565 [142] 7575 [143]* ROOM 39 * 7576 [153]" (null)OU HAVE COME TO THE NORTHERN END" 7577 [153]" OF THE VALLEY. ATN DARK, FORBIDDING" 7578 [153]" CAVE RESTS IN THE CLIFF FACE TO THE" 7579 [153]" WEST." 7580 [142] 7590 [143]* ROOM 40 * 7591 [153]" (null)OU ARE STANDING IN A CAVE THAT" 7592 [153]" IS INHABITED BY THE DREADED LENYCLOPS." 7593 [153]" ATN MANGLED BODY AND SOME BLOOD" 7594 [153]" STAINS ON THE FLOOR IS ALL THAT " 7595 [153]" REMAIN OF THE LENYCLOPS' LAST MEAL." 7596 [142] 7600 [145] RM[171]40 [141] 7605,7620,7635 7601 [142] 7605 [143]* ROOM 41 * 7606 [153]" (null)OU ARE IN A SMALL WINDING " 7607 [153]" PASSAGEWAY. (null)O THE NORTH IS A SMALL" 7608 [153]" DOORWAY CARVED OUT OF ROCK. (null)HE WALL" 7609 [153]" TO THE SOUTH IS MADE OF SOLID ROCK." 7610 [139] OB(4)[178]0 [167] [153]" (null)HERE IS AN OPEN PORTAL IN THE WALL." 7611 [142] 7620 [143]* ROOM 42 * 7621 [153]" (null)OU ARE IN A TOTALLY SQUARE ROOM." 7622 [153]" (null)HE WALLS ON BOTH SIDES OF YOU ARE" 7623 [153]" FILLED WITH HOLES. ATN SKELETON IS " 7624 [153]" PINNED TO THE WALL WITH A STEEL SPIKE" 7625 [153]" THROUGH HIS SKULL! (null)HERE ARE PORTALS" 7626 [153]" TO THE NORTH AND SOUTH. (null)HE PORTAL " 7627 [153]" TO THE SOUTH HAS A MESSAGE OVER IT," 7628 [153]" ' (null)NLY THE MOST SKILLFUL OF FIGHTERS" 7629 [153]" WILL PROCEED...'" 7630 [142] 7635 [143]* ROOM 43 * 7636 [153]" (null)OU HAVE ENTERED A MAGNIFICENTLY" 7637 [153]" DECORATED ROOM WITH AN AWE-INSPIRING" 7638 [153]" DOME CEILING. ATN THIN RAY OF SUNLIGHT" 7639 [153]" SHINES DOWN FROM THE CEILING AND ONTO" 7640 [153]" AN ALTAR IN THE MIDDLE OF THE ROOM." 7641 [142] 8000 [143]***** TITLE SCREEN ***** 8005 [153]"LOAD":[151] 53280,11:[151] 53281,0 8010 [153]"";[163]14);"(null) (null)":[153][163]14);"FN THEN" 8012 [153][163]10);"VERIFYSTEP WAIT FNTHENFNTHEN (null)(null) (null)(null) (null)(null) (null)USR (null)(null) (null)(null)" 8014 [153][163]9);"VERIFYSTEP WAITSTEP FNTHENFNTHEN (null)SQR (null)(null) (null)(null) THEN FNTHEN (null)(null)" 8016 [153][163]9);"VERIFY WAIT (null)(null)(null)(null) FNTHEN FN(null) FN(null) SQRAND (null)(null) SGN(null)" 8018 [153]" VERIFY WAIT  WAIT":[153]"VERIFYABSFNFORFNPEEKPEEKPEEKPEEKPEEKTHENVERIFY LIST(null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO(null)WAIT" 8020 [153]"VERIFYABSFNFORFNPEEKPEEKPEEKPEEKPEEKTHENVERIFY LIST(null) WAITSTEP" 8022 [153]" VERIFY WAIT VERIFY WAIT":[153][163]9)"VERIFY WAIT":[153][163]9)"VERIFY(null) (null)WAIT":[153][163]10)"VERIFY(null) WAIT" 8024 [153][163]20)"POKESTEP (null)AND(null)WAITAND":[153][163]18)"POKESTEP (null) (null) (null)":[153][163]17)"POKESTEP(null)AND WAITSTEP (null) (null)TAB(TAB((null)(null)" 8026 [153][163]14)"SPC(SPC(POKE USRWAIT SYS..POKE(null)SGN USR(null)" 8028 [153][163]13)"SPC(SPC(SPC(SPC(POKE (null)TAB(WAITSTEP  TAB(TAB((null) SPC(SPC(SPC(" 8030 [153][163]12)"SPC(SPC(SPC(SPC(SPC(SPC(POKE WAIT (null) (null) WAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(" 8032 [153]"POKE(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"; 8034 [153]"POKEPEEKLISTPROGRAMMED AND DESIGNED BY NATE GOUDIEPOKEPEEK"; 8036 [153]"POKEMID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)CMDSAVELENWAIT"; 8040 [142] 8200 [153]"LOAD":[153][199](14):[153][199](8):[151] 53280,0 8205 [153]"LOAD"[163]8)"STR$O YOU WANT INSTRUCTIONS?" 8210 [153][163]17)"((null)/(null))":[151] 198,0 8215 [161] Q$:[139] Q$[178]"Y" [167] [137] 8220 8216 [139] Q$[179][177]"N" [167] 8215 8218 [142] 8220 [153]"LOADOPEN (null)OU ARE A SKILLED ADVENTURER WHO":[153]" HAS TRAVELLED OVER "; 8222 [153]"MUCH OF THE KNOWN":[153]" WORLD AND HAS SLAIN MANY MONSTERS." 8224 [153]" ATN FEW DAYS AGO A MESSENGER CAME TO":[153]" YOUR VILLAGE, TELLING"; 8226 [153]" OF A TOWN THAT":[153]" IS BEING TERRORIZED BY A HORRIBLE" 8228 [153]" SWAMP CREATURE! (null)HE CREATURE COMES IN":[153]" AND KILLS THEIR"; 8230 [153]" LIVESTOCK, AND THEN":[153]" CARRIES THEIR CHILDREN BACK TO HIS" 8232 [153]" LAIR, WHICH LIES DEEP IN THE HEART OF":[153]" THE SWAMP. (null)O FAR,"; 8234 [153]" NORMAL WEAPONS":[153]" HAVE NOT BEEN ABLE TO EVEN SCRATCH" 8236 [153]" THE CREATURE, BUT LEGEND TELLS OF A":[153]" MAGIC SWORD,BY THE NAME"; 8238 [153]" OF VALXCALIBUR,":[153]" WHICH WAS HIDDEN LONG AGO SOMEWHERE" 8240 [153]" IN THE MOUNTAINS. (null)EGEND HAS IT,":[153]" HOWEVER, THAT ONLY THE MOST"; 8242 [153]" SKILLED ":[153]" OF FIGHTERS WILL BE ABLE TO CLAIM IT." 8244 [153]" (null)HE MESSENGER THEN TELLS YOU THAT ":[153]" WHOEVER BRINGS THE"; 8246 [153]" CREATURE'S HEAD ":[153]" BACK TO THE TOWN SHOPKEEPER WILL BE " 8248 [153]" WELL REWARDED. (null)OU DECIDE TO EMBARK":[153]" ON THIS DARING QUEST AND"; 8250 [153]" IN A FEW ":[153]" DAYS YOU ARRIVE IN THE TOWN..." 8252 [153]" < (null)RESS A (null)EY >":[151] 198,0 8254 [161] Q$:[139] Q$[178]"" [167] 8254 8300 [153]"LOADOPEN (null)OU WILL MOVE AROUND AND ACCOMPLISH":[153]" THINGS BY TYPING"; 8302 [153]" IN 1 OR 2 WORD":[153]" COMMANDS. (null)OME EXAMPLES ARE GO NORTH," 8304 [153]" THROW NECKLACE, GET PEEKROADSWORD, ETC.":[153]" RIGHT$F THE OBJECT YOU ARE"; 8306 [153]" ATTEMPTING TO":[153]" MANIPULATE HAS CAPITAL LETTERS IN IT," 8308 [153]" MAKE SURE YOU ARE TYPING THEM, OTHER ":[153]" WISE THE COMPUTER "; 8310 [153]"MAY NOT UNDERSTAND":[153]" YOU. (null)O SEE YOU CURRENT STATUS TYPE" 8312 [153]" 'INVENTORY'. (null)YPING 'LOOK' WILL GIVE":[153]" YOU THE DESCRIPTION"; 8314 [153]" OF THE LOCATION":[153]" YOU ARE AT. (null)OU ONLY NEED TO TYPE" 8316 [153]" THE FIRST 3 LETTERS OF EACH WORD FOR":[153]" THE COMPUTER TO "; 8318 [153]"RECOGNISE IT. ASCOR ":[153]" SOME COMMANDS YOU ONLY NEED TO TYPE" 8320 [153]" THE FIRST LETTER." 8322 [153]" <(null)RESS A (null)EY TO PEEKEGIN>":[151] 198,0 8324 [161] Q$:[139] Q$[178]"" [167] 8324 8326 [142] 9000 [143]******** INITIALIZE ******** 9005 [134] A(43,8),O$(18),OD(18),AR(11) 9010 EP[178][181](10[172][187](1))[170]40 9015 FS[178][181](4[172][187](1))[170]8 9020 GP[178][181](10[172][187](1))[170]70 9025 RM[178]2:AW[178]0:WC(1)[178]0:WC(2)[178]0:A$[178]"":HE[178]0:R$[178]"":TC[178]0 9030 [143]* READ ROOM DATA * 9035 [129] B[178]1 [164] 43 9040 [129] C[178]1 [164] 8 9045 [135] A(B,C) 9050 [130] C:[130] B 9055 [143]* READ OBJECT DATA * 9060 [129] J[178]0 [164] 18:[135] O$(J):[130] J 9065 [129] J[178]1 [164] 6:[135] WD(J):[130] J 9070 [129] J[178]8 [164] 11:[135] AR(J):[130] J 9075 [143]* MONSTER DATA * 9080 [129] J[178]1 [164] 6:[135] M$(J),ME(J),MF(J),MW$(J),DW(J):[130] J 9085 [143]* OTHER DATA * 9090 [129] J[178]1 [164] 5:BP(J)[178]0:[130] J 9095 [129] J[178]1 [164] 4:OB(J)[178]1:[130] J 9100 [129] J[178]1 [164] 18:[135] OD(J):[130] J 9105 [129] J[178]1 [164] 6:MD(J)[178]1:[130] J 9106 [129] J[178]1 [164] 6:[135] WP(J):[130] J 9108 [129] J[178]1 [164] 7:[135] AP(J):[130] J 9109 [129] J[178]3 [164] 1 [169][171]1:[135] BI$(J),BE(J):[130] J 9110 [129]J[178]1[164]5000:[130] J:[141] 8200 9115 [153]"LOADLIST":[151] 53280,11:[151] 53281,0 9117 [153] [199](14):[153] [199](8) 9120 [142] 9201 [131] 0,2,0,0,0,0,0,0 9202 [131] 1,3,0,0,0,0,0,0 9203 [131] 2,4,0,0,0,0,0,0 9204 [131] 3,18,5,0,1,0,0,0 9205 [131] 0,0,6,4,0,0,0,0 9206 [131] 0,0,7,5,0,0,0,0 9207 [131] 15,15,8,6,0,0,0,0 9208 [131] 15,9,15,7,0,0,0,0 9209 [131] 8,15,10,15,0,0,0,0 9210 [131] 11,15,15,9,0,0,0,0 9211 [131] 12,10,15,15,0,0,0,0 9212 [131] 15,11,13,15,0,0,0,0 9213 [131] 15,14,15,12,0,0,0,0 9214 [131] 13,15,16,15,0,0,0,0 9215 [131] 0,0,0,0,0,0,0,0 9216 [131] 0,0,17,14,0,0,0,0 9217 [131] 0,0,0,16,6,0,0,0 9218 [131] 4,19,0,20,0,0,0,0 9219 [131] 18,0,0,0,0,0,0,0 9220 [131] 21,0,18,23,0,0,0,0 9221 [131] 22,20,0,0,0,0,0,0 9222 [131] 0,21,0,0,0,0,0,0 9223 [131] 0,0,20,24,0,0,0,0 9224 [131] 0,0,23,0,5,15,0,0 9225 [131] 19,32,26,34,0,0,0,0 9226 [131] 0,28,0,25,0,0,0,0 9227 [131] 0,29,0,0,0,4,10,0 9228 [131] 26,30,29,0,3,0,0,0 9229 [131] 27,0,0,28,0,0,0,0 9230 [131] 28,0,0,0,0,0,0,0 9231 [131] 0,0,0,30,0,16,0,0 9232 [131] 25,0,0,33,0,0,0,0 9233 [131] 34,41,32,0,2,0,0,0 9234 [131] 0,33,25,35,0,0,0,0 9235 [131] 0,36,34,0,0,0,0,0 9236 [131] 35,0,0,37,0,0,0,0 9237 [131] 0,0,36,0,0,0,0,0 9238 [131] 39,0,0,0,0,0,0,0 9239 [131] 0,38,0,40,0,0,0,0 9240 [131] 0,0,39,0,4,17,0,0 9241 [131] 33,0,0,0,0,0,0,0 9242 [131] 41,43,0,0,0,0,0,0 9243 [131] 42,0,0,0,0,7,0,0 9251 [131] "(null)ONE","STR$AGGER","(null)HORTSWORD","(null)ARHAMMER","PEEKROADSWORD","(null)ACE" 9252 [131] "PEEKATTLE-AXE","VALXCALIBUR","(null)EATHER","(null)INGMAIL","LENHAINMAIL" 9253 [131] "(null)TEEL PLATE","ASCOOD","(null)OPE","(null)ORCH","(null)KELETON KEY","(null)ECKLACE" 9254 [131] "(null)ALKING STAFF","LENREATURE'S HEAD" 9255 [131] 2,4,6,7,8,10,-1,-2,-3,-4 9261 [131] "PEEKANDIT",25,11,"STR$AGGER",3 9262 [131] "CHR$IANT (null)PIDER",15,13,"PEEKITE",15 9263 [131] "(null)IZARD (null)AN",40,10,"LENLAWS",8 9264 [131] "LENYCLOPS",75,9,"LENLUB",9 9265 [131] "STR$RAGON",95,15,"ASCIRE",10 9266 [131] "(null)WAMP LENREATURE",500,20,"ASCANGS",50 9271 [131] 0,0,0,0,0,0,1,0,0,0,0,0,0,0,2,3,4,5 9275 [131] 14,28,36,58,64,80,34,46,58,70,6,8,10 9276 [131] "LEG",1,"CHEST",3,"HEAD",5