þþ¦> X; SYNTAX ERRORX; ------------ †SYNERR(†PRINT ƒT13;; "Syntax:"2:<X;FX; CLEAR WINDOWSPX; -------------ZX; What Happens windowdX;n„CLWHx$> ‚ …ERASEŒ2– …ERASE %> ª !‡POSIT13´X;¾X; Inventory windowÈX;Ò …CLINVÜ$> æ †CLINV1ð …ERASEú2(> D†CLINV1:"X;,"X; DISPLAY ROOM VECTORS6"X; --------------------@ ‰SHOWVECTSJ$>T …ERASE^%>h$>r &„ANY?|ƒSVL† Q‡CURVECT9 G…VSKIPš Q†VNAMES9¤P†SCREEN]8® #„ANY?¸3Â3Ì …VSKIPÖ2à(>êDƒSVLô Q„ANY?þ H†VECTEX‰POSITION  =†PRINT ƒT87;; "None" †VECTEX&:0X;:X; Vector initialsDX;N †VNAMESX A†NSEWUDAbX;l"X; DISPLAY ROOM OBJECTSv"X; --------------------€ ‡SHOWVISŠ$>” …CLVISž …ERASE¨2²(> ¼ D…CLVISƉPOSITION  =Ð$>Ú &„ANY?ä„SHV1î &„PDEXø Q‡CUROBJS9 G„SHV2  #„ANY?>  Q…OBDLS9* %…OBDHS94 †EPRINT>„SHV2H $„PDEXR2\(>f D„SHV1p Q„ANY?z H†SHEXIT„†PRINT ƒT28;; "Nothing"Ž †SHEXIT˜:¢X;¬X; DISPLAY INVENTORY¶X; -----------------À ‡SHOWINVÊ …CLINVÔ‰POSITION  = Þ$>è &„ANY?ò„SHI1ü &„PDEXQˆHOLDINGS9 G„SHI2 #„ANY?$>. Q…OBDLS98 %…OBDHS9B †EPRINTL„SHI2V $„PDEX`2j(>t D„SHI1~ Q„ANY?ˆ H†SIEXIT’†PRINT ƒT28;; "Nothing"œ †SIEXIT¦:°X;ºX; "OKAY" PROMPTÄX; -------------Î …POKAYØ „CLWHâ†PRINT ƒT20;; "Okay"ì!‰GOODPARSEöX;X; SEARCH INVENTORY X; ---------------- ‰INVSPACE?Q>ÿ( †OWNIT?2$>< …OLOOPFRˆHOLDINGS9P F…FOUNDZ0d I…OLOOPnAx:‚ …FOUNDŒ &†INVPOS–Q> :ªX;´X; SEARCH ROOM¾X; -----------ÈŠROOMSPACE?ÒQ>ÿÜ ‡INROOM?æ$>ð †IRLOOPú R‡CUROBJS9 F†FOUND20 I†IRLOOP"A,:6 †FOUND2@ &‡ROOMPOSJQ>T:^X;h"X; PRINT INTEGER IN FR0r"X; --------------------| †VPRINT† ƒIFP „FASCš-¤%>ÿ® …VLOOP¸3 Q@†INBUFF7Ì I…VLOOPÖM>à P@†INBUFF7ê3ô Q>ƒEOLþ P@†INBUFF7 Q†INBUFF%†INBUFF !†EPRINT&X;0X; DEATH:X; -----D …KILLSN‰POSITION =X †PRINT ƒT63;; "does you in!"b …DEATHl‰POSITION =v †PRINT ƒT66;; "YOU ARE DEAD"€ !‡STARTOPŠX;”X; CLOSE IOCB #1žX; -------------¨ †CLOSE1²$>¼Q> Æ P…ICCOM9Ð !„CIOVÚX;ä X; POINT TO FILENAMESî X; ------------------ø †DPOINT Q>4„FILE  %>5„FILE !…POINT  †TPOINT* Q>4„CADR4 %>5„CADR> …POINTH$>R P†ICBADR9\CfP†ICBADR9p:zX;„X; INIT DATABASEŽX; -------------˜X;¢ ˆINITDATA¬X;¶X; Set status flagsÀX;Ê$>ÔQ>ÞƒID0è P…EVENT9ò0üIƒID0 X; X; Clear vector/object matrix X;$ $>. Q>ÿ8 ƒID1B P‡OBJECTS9L P‡VECTORS9V 2` (>„j DƒID1t X;~ X; Clear working arraysˆ X;’ $>œ ƒID2¦ PˆHOLDINGS9° P‡CUROBJS9º P‡CURVECT9Ä 0Î IƒID2Ø Q>;; walletâ PˆHOLDINGS;; put in invì Q>ö P†MATCNT;; 3 matches 'Q>;; # of turns till chest appears P†CHECNT #Q>;; # of turns till hit rocks P‡ROCKCNT( Q>2 P…PLACE;; start in cabin< X;F X; Init tranlation tableP X;Z $>%d ƒID3n Q…TRANS9x P†NTRANS9‚ 0Œ IƒID3– X;  X; Init vector matrixª X;´ $>+¾ ƒID4È Q…VDATA9Ò %…VSETS9Ü P‡VECTORS8æ 0ð IƒID4ú X; X; Init object matrix X; $>" ƒID5, Q…ODATA96 %…OSETS9@ P‡OBJECTS8J 0T IƒID5^ :h X;r X; Translator data| X;† …TRANS  =======š  ==== = = = ¤   = = = ====®  =======¸  ===== X;Ì X; Vector dataÖ X;à …VDATAê  =======ô  =======þ  ===== =  = = = == ==   = == ====  ==== & …VSETS0  = = =====:  == =!=$=%=&='D  *=+=,=-=0=1=3N  6===>=B=I=J=K=PX  Q=W=[=\=]=`=a=gb  h=l=r=x=~l X;v X; Object data€ X;Š …ODATA”  =======ž  === === =¨  == = == ==² =¼ …OSETSÆ  === ==$=*=0Ð  1=6=B=H=I=N=T=UÚ  V=Z=[=`=a=r=s=xä ~=î X;ø X; DICTIONARY X; ---------- X; X; SINGLE-CHAR COMMANDS X; --------------------* …SCOMS4  ANA;; 0 - North>  ASA;; 1 - SouthH  AEA;; 2 - EastR  AWA;; 3 - West\  AUA;; 4 - Upf  ADA;; 5 - Downp  AQA;; 6 - Quitz  AXA;; 7 - Save„  AAA;; 8 - AgainŽ X;˜ X; COMPOUND VERBS¢ X; --------------¬ …VERBS¶  AƒTAKA;; 0 - takeÀ  AƒGETA;; 1 - getÊ  AƒPULA;; 2 - pullÔ  AƒDROA;; 3 - dropÞ  AƒKICA;; 4 - kickè  AƒLOOA;; 5 - lookò  AƒEXAA;; 6 - examineü  AƒSEAA;; 7 - search AƒREAA;; 8 - read AƒPUSA;; 9 - push AƒPREA;; 10 - press$ AƒOPEA;; 11 - open. AƒCLOA;; 12 - close8 AƒWITA;; 13 - withB AƒKILA;; 14 - killL AƒHITA;; 15 - hitV AƒLIGA;; 16 - light` AƒPULA;; 17 - pullj AƒCLIA;; 18 - climbt AƒSCAA;; 19 - scale~ AƒINSA;; 20 - insertˆ AƒDRIA;; 21 - drink’ AƒSWAA;; 22 - swallowœ AƒROWA;; 23 - row¦ AƒPOUA;; 24 - pour° AƒTHRA;; 25 - throwº AƒHEAA;; 26 - heaveÄ AƒWEAA;; 27 - wearÎ AƒLASA;; 28 - lassoØ AƒMOVA;; 29 - moveìX;ö‚NV;; total # of verbsX; X; VERB VECTOR TABLEX; ----------------- †VVECTS( †DOTAKE;; 02 †DOTAKE;; 1< †DOPULL;; 2F †DODROP;; 3P †DOKICK;; 4Z †DOLOOK;; 5d †DOLOOK;; 6n †DOLOOK;; 7x †DOREAD;; 8‚ †DOPUSH;; 9Œ †DOPUSH;; 10– †DOOPEN;; 11  ‡WHYBOTH;; 12ª †DOWITH;; 13´ †DOKILL;; 14¾ †DOKILL;; 15È ‡DOLIGHT;; 16Ò †DOPULL;; 17Ü ‡DOCLIMB;; 18æ ‡DOCLIMB;; 19ð ˆDOINSERT;; 20ú ‡DODRINK;; 21 ‡DODRINK;; 22 …DOROW;; 23 †DOPOUR;; 24" ‡DOTHROW;; 25, ‡DOTHROW;; 266 †DOWEAR;; 27@ ‡DOLASSO;; 28J †DOMOVE;; 29TX;^X; COMPOUND NOUNShX; --------------r …NOUNS| AƒCAVA;; 0 - cave† AƒCABA;; 1 - cabinet AƒCHEA;; 2 - chestš AƒPALA;; 3 - palm¤ AƒTREA;; 4 - trees® AƒSNAA;; 5 - snake¸ AƒPILA;; 6 - pile AƒRUBA;; 7 - rubbleÌ AƒGATA;; 8 - gateÖ AƒSTOA;; 9 - stoneà AƒHOUA;; 10 - houseê AƒTEMA;; 11 - templeô AƒMARA;; 12 - marbleþ AƒBUIA;; 13 - building AƒPAIA;; 14 - painting AƒSHOA;; 15 - shop AƒABAA;; 16 - abandoned& AƒSHEA;; 17 - shelves0 AƒDOOA;; 18 - doorway: AƒSECA;; 19 - secretD AƒMACA;; 20 - machineN AƒSTRA;; 21 - strangeX AƒJUGA;; 22 - jugb AƒKNIA;; 23 - knifel AƒWALA;; 24 - walletv AƒOARA;; 25 - oars€ AƒCERA;; 26 - ceremonialŠ AƒROBA;; 27 - robe” AƒPHOA;; 28 - photož AƒPAPA;; 29 - paper¨ AƒRAFA;; 30 - raft² AƒINFA;; 31 - inflatable¼ AƒCARA;; 32 - carcassÆ AƒROPA;; 33 - ropeÐ AƒDYNA;; 34 - dynamiteÚ AƒMATA;; 35 - matchesä AƒCOCA;; 36 - coconutî AƒGOBA;; 37 - gobletø AƒspaA;; 38 - spare AƒBUTA;; 39 - button  AƒINVA;; 40 - inventory AƒCORA;; 41 - cord  AƒOILA;; 42 - oil* AƒLIQA;; 43 - liquid4X;>‚NN,;; total # of nounsHX;RX; ROOM DESCRIPTIONS\X; -----------------fX;pƒRD0z…TEXT AŠYour cabinA„ƒRD1Ž…TEXT A‡On deckA˜ƒRD2¢…TEXT A‹In the raftA¬ƒRD3¶…TEXT A…BeachAÀƒRD4Ê…TEXT AŠWest beachAÔƒRD5Þ…TEXT AŠEast beachAèƒRD6ò…TEXT A†JungleAüƒRD7…TEXT A†JungleAƒRD8…TEXT A†JungleA$ƒRD9. …TEXT A“Beside a cliff wallA8„RD10B…TEXT A‹In the caveAL„RD11V…TEXT A‘Gate to lost cityA`„RD12j…TEXT AŽAncient streetAt„RD13~…TEXT AˆAlleywayAˆ„RD14’…TEXT A‹Stone houseAœ„RD15¦…TEXT AŠBrick roadA°„RD16º…TEXT A†TempleAÄ„RD17Î…TEXT AMarble buildingAØ„RD18â…TEXT ABeside an altarAì„RD19ö…TEXT AŒStorage roomA„RD20 …TEXT A‹Secret roomA„RD21…TEXT AŽAbandoned shopA(X;2'X; ROOM DESC. ADDRESS TABLES<'X; -------------------------F„RDLSP' 4ƒRD0=4ƒRD1=4ƒRD2=4ƒRD3=4ƒRD4=4ƒRD5Z) 4ƒRD6=4ƒRD7=4ƒRD8=4ƒRD9=4„RD10=4„RD11d- 4„RD12=4„RD13=4„RD14=4„RD15=4„RD16=4„RD17n 4„RD18=4„RD19=4„RD20=4„RD21xX;‚„RDHSŒ' 5ƒRD0=5ƒRD1=5ƒRD2=5ƒRD3=5ƒRD4=5ƒRD5–) 5ƒRD6=5ƒRD7=5ƒRD8=5ƒRD9=5„RD10=5„RD11 - 5„RD12=5„RD13=5„RD14=5„RD15=5„RD16=5„RD17ª 5„RD18=5„RD19=5„RD20=5„RD21´X;¾!X; OBJECT DESCRIPTIONSÈ!X; -------------------ÒX;Ü„OBD0æ…TEXT A„CaveAð„OBD1ú…TEXT A‡CabinetA„OBD2…TEXT A…ChestA„OBD3"…TEXT AŠPalm treesA,„OBD46…TEXT A…SnakeA@„OBD5J…TEXT AŽPile of rubbleAT„OBD6^…TEXT A„GateAh„OBD7r…TEXT A‹Stone houseA|„OBD8†…TEXT A†TempleA„OBD9š…TEXT AMarble buildingA¤ …OBD10®…TEXT AˆPaintingA¸ …OBD11Â…TEXT AŽAbandoned shopAÌ …OBD12Ö…TEXT A‡ShelvesAà …OBD13ê…TEXT AŽSecret doorwayAô …OBD14þ…TEXT AStrange machineA …OBD15…TEXT AƒJugA …OBD16&…TEXT A…KnifeA0 …OBD17:…TEXT A†WalletAD …OBD18N…TEXT A„OarsAX …OBD19b…TEXT ACeremonial robeAl …OBD20v…TEXT A…PhotoA€ …OBD21Š…TEXT A…PaperA” …OBD22ž…TEXT AInflatable raftA¨ …OBD23²…TEXT A‡CarcassA¼ …OBD24Æ…TEXT A„RopeAÐ …OBD25Ú…TEXT AˆDynamiteAä …OBD26î…TEXT A‰MatchbookAø …OBD27…TEXT A‡CoconutA  …OBD28…TEXT A†GobletA X;*%X; DESCRIPTION ADDR TABLES4%X; -----------------------> …OBDLSH 4„OBD0=4„OBD1=4„OBD2=4„OBD3R 4„OBD4=4„OBD5=4„OBD6=4„OBD7\! 4„OBD8=4„OBD9=4…OBD10=4…OBD11f# 4…OBD12=4…OBD13=4…OBD14=4…OBD15p# 4…OBD16=4…OBD17=4…OBD18=4…OBD19z# 4…OBD20=4…OBD21=4…OBD22=4…OBD23„# 4…OBD24=4…OBD25=4…OBD26=4…OBD27Ž 4…OBD28˜X;¢ …OBDHS¬ 5„OBD0=5„OBD1=5„OBD2=5„OBD3¶ 5„OBD4=5„OBD5=5„OBD6=5„OBD7À! 5„OBD8=5„OBD9=5…OBD10=5…OBD11Ê# 5…OBD12=5…OBD13=5…OBD14=5…OBD15Ô# 5…OBD16=5…OBD17=5…OBD18=5…OBD19Þ# 5…OBD20=5…OBD21=5…OBD22=5…OBD23è# 5…OBD24=5…OBD25=5…OBD26=5…OBD27ò 5…OBD28üX;X; TEXTX; ----X;$„EADR.…TEXT A‚E:A8„CADRB…TEXT A‚C:AL„FILEV…TEXT A‹D1:ROAD.DATA`‚T0j…TEXT AClayton Walnum'sAt‚T1~…TEXT AONE FOR THE ROADAˆ‚T2’%…TEXT A˜(C)1985 ANALOG ComputingAœ‚T3¦+…TEXT AžPress  ÓÔÁÒÔ  to play new gameA°‚T4º/…TEXT A¢Press  ÏÐÔÉÏΠ to restore old gameAÄ‚T5Î+…TEXT AžRestore from Äisk or Ãassette?AØ‚T6â1…TEXT A¤ ÏÎÅ ÆÏÒ ÔÈÅ ÒÏÁÄ      ÅÖÅÎÔ £      Aì‚T7ö"…TEXT A• ÌÏÃÁÔÉÏΠ     ÅØÉÔÓ A‚T8 "…TEXT A•  ÖÉÓÉÂÌÅ      ÉÔÅÍÓ A‚T9…TEXT AŠ          A(ƒT102…TEXT AŠ     ×ÈÁÔ A<ƒT11F-…TEXT A   ÈÁÐÐÅÎÓ       ÙÏÕÒ   ÒÅÓÐÏÎÓÅ APƒT12Z-…TEXT A       ÙÏÕ        ÁÒÅ   ÃÁÒÒÙÉÎÇ AdƒT13n…TEXT A‡Syntax:AxƒT14‚…TEXT A‹Bad commandAŒƒT15–…TEXT AˆBad verbA ƒT16ª…TEXT AˆBad nounA´ƒT17¾…TEXT A‘That's impossibleAȃT18Ò…TEXT A‘Can't go that wayA܃T19æ!…TEXT A”Type Y to quit game:AðƒT20ú…TEXT A„OkayAƒT21…TEXT A’Already holding itAƒT22"…TEXT AŠIsn't hereA,ƒT236…TEXT A‘Can't do that yetA@ƒT24J …TEXT A“Your arms are full!ATƒT25^…TEXT AŒNo room hereAhƒT26r…TEXT AŠIt's stuckA|ƒT27†…TEXT A‘You don't have itAƒT28š…TEXT A‡NothingA›ƒT29œ…TEXT AŽMatch goes outAàƒT32ê…TEXT A’The strange liquidAôƒT33þ…TEXT A‹Why bother?AƒT34…TEXT AŽSeems ordinaryAƒT35&!…TEXT A”You found something!A0ƒT36:…TEXT AIt has a cordADƒT37N…TEXT A’The raft inflates!AXƒT38b…TEXT AŽRaft's too bigAlƒT39v…TEXT AŽInto the oceanA€ƒT40Š…TEXT AThey're too highA”ƒT41ž…TEXT AThere's coconutsA¨ƒT42²!…TEXT A”It's from your boat!A¼ƒT43Æ …TEXT A“Ouch! But it opens.AЃT44Ú%…TEXT A˜Liquid spills over floorAäƒT45î…TEXT AIt's got a fuseAøƒT46!…TEXT A”Snake won't let you!A ƒT47%…TEXT A˜The coconut clobbers himA ƒT48*…TEXT A‘Boooooooommmmm!!!A4ƒT49> …TEXT A“It's pretty high...AHƒT50R…TEXT AThere's a buttonA\ƒT51f …TEXT A“It's tightly corkedApƒT52z&…TEXT A™Sacrifice being performedA„ƒT53Ž…TEXT AŠWith what?A˜ƒT54¢…TEXT A‘There's oil in itA¬ƒT55¶…TEXT A’A fiery sacrifice!AÀƒT56Ê…TEXT ANothing happensÃT57Í…TEXT AInto the slotA΃T58Ï…TEXT A‹You open itAÔƒT59Þ$…TEXT A—Liquid fills the gobletAèƒT60ò#…TEXT A–It shows a stone houseAüƒT61…TEXT A‘A secret doorway!AƒT62 …TEXT A“A button and a slotA$ƒT63.…TEXT AŒdoes you in!A8ƒT64B…TEXT A‘One for the road!ALƒT65V…TEXT AŒAlready openA`ƒT66j…TEXT AŒyou are DEADAˆƒT68’…TEXT AIt's your houseA•ƒT70– …TEXT A“You put the robe onAœƒT71¦#…TEXT A–The storm tossed oceanAăT73Î…TEXT AA huge explosionAσT74Ð…TEXT AŽOn the carcassA؃T75â(…TEXT A›Blasphemy! A lightning boltAìƒT76ö%…TEXT A˜A blast of divine energyAƒT77 $…TEXT A—Crashing into the rocksAƒT78…TEXT AŒA snake biteA(ƒT792…TEXT A’There's none left!A<ƒT80F"…TEXT A•You already did that!AdƒT82n&…TEXT A™Save to Äisk or Ãassette?AxƒT83‚…TEXT AIt looks deadly!AŒƒT84–"…TEXT A•Don't look very heavyA ƒT85ª …TEXT A“Don't do that here!A´ƒT86¾…TEXT AYou are home!AȃT87É…TEXT A„NoneAʃT88Ë…TEXT A‘Don't get burned!AÜX;æ!X; REDEFINE CHARACTER SETð!X; ----------------------úX;X; MOVE ROM SETX; ------------X;" ‡MOVESET, Q>4†NEWSET6PË;; lo byte of new set@ Q>5†NEWSETJPÌ;; hi byte of new setT"Q>4†ROMSET;; lo byte of ROM set^PÍh"Q>5†ROMSET;; hi byte of ROM setrPÎ|$>;; # of pages to move†ƒMR1%>;; reset indexšƒMR2¤Q@Í7;; get ROM byte®P@Ë7;; move to new location¸3;; add 1 to indexÂHƒMR2;; go move next byteÌ#Î;; point to next pageÖ#Ìà0;; -1 from # of pagesê!HƒMR1;; go move next 256 bytesôX;þX; MOVE NEW SET X; ------------ X; Q>;; init counter& P†OFFCNT0 #Q>4…CHSET;; move char set adr lo: P†SETPNT;; to temp work spaceD #Q>5…CHSET;; move char set adr hiN #P†SETPNT;; to temp work spaceX ƒMS1b #%†OFFCNT;; use y to index tablesl "$‡CHARCNT8;; # of chars to movev "QˆCHARADRL8;; get offset adr lo€ PË;; and store itŠ "QˆCHARADRH8;; get offset adr hi” PÌ;; and store itž #†OFFCNT;; add 1 to counter¨ ƒMS2² %>;; reset index¼ ƒMS3Æ !Q@†SETPNT7;; get char data andÐ P@Ë7;; move to new setÚ 3;; add 1 to indexä )>;; done with char?î HƒMS3;; no, get next byteø X;!#0;; yes, -1 from number of chars !FƒMS5;; go check if done! ƒMS7 !,*!Q>4!OË>!PËH!DƒMS2R!#Ì\!!ƒMS2f!ƒMS5p! Q†OFFCNTz!R>„!FƒMS6Ž! ƒMS7˜!!ƒMS1¢!ƒMS6¬!:¶!ƒMS7À!,Ê!Q>Ô! O†SETPNTÞ! P†SETPNTè!DƒMS8ò!#†SETPNTü!ƒMS8":"X;"X; character offset tables$"X; -----------------------."X;8" ‡CHARCNTB"  ==L" ˆCHARADRLV" €==`" ˆCHARADRHj" D=E=Gt"X;~"X; CHARACTER SET DATAˆ"X; ------------------’"X;œ" …CHSET¦" =~=f=n=v=v=~=°" =x=x====~=º" =~=f= =8=p=~=Ä" =~=== =v=~=Î" ==<=|=l=~==Ø" =~=`=~==v=~=â" =|=`=~=f=v=~=ì" =~======ö" =~=f=<=f=v=~=# =~=f=~==== # =|=l=l=þ=Æ=Æ=# =|=l=~=f=f=~=# =~=f=`=p=v=~=(# =|=f=f=v=v=~=2# =~=`=~=p=p=~=<# =~=`=~=p=p=p=F# =~=f=`=n=v=~=P# =f=f=~=æ=æ=æ=Z# =0=0=0=8=8=8=d# = = ===n=~=n# =l=l=|=~=f=f=x# =`=`=p=p=p=~=‚# =w=w==k=c=c=Œ# =~=f=f=f=f=f=–# =~=n=n=f=f=~= # =~=f=v=~=`=`=ª# =~=f=f=f=~==´# =|=l=l=~=v=v=¾# =~=`=~==f=~=È# =~======Ò# =f=f=f=f=v=~=Ü# =f=f=v=~=<==æ# =c=c=k==w=w=ð# =v=v=<=<=v=v=ú# =f=f=~====$ =~===p=p=~=$ ==>==>=f=~=$ =`=`=~=v=v=~="$ ==|=`=`=p=|=,$ ===~=f=n=~=6$ ==~=f=~=p=~=@$ ===~=8=8=8=J$ ==~=f=n=~==~T$ =`=`=~=f=v=v=^$ =======h$ =======~r$ =`=l=l=x=n=n=|$ =8=====<=†$ ==w===k=c=$ ==~=f=f=f=f=š$ ==~=f=v=v=~=¤$ ==~=f=f=~=p=p®$ ==~=f=f=~==¸$ ==~=f=`=p=p=Â$ ==~=`=~==~=Ì$ ==~=====Ö$ ==f=f=v=v=~=à$ ==f=f=v=~==ê$ ==c=k===w=ô$ ==f=~==~=f=þ$ ==f=f=f=~==~% ==~= =8=p=~=