# ============================# I IK I THE ISLAND OF ARTUAN I 40 REM I I#2 I (C) B.S.BLATCHFORD I#< I JUNE 1984 I#F I I#P ============================#Z I I#d I INITIALISATION MODULE I#n I VER 1.0 I#x I I# ============================6 CM$(162),MAP%(131,10),OBS$(44),OBL$(44),TRP(11)9 CMN%(162),OL$(44),OS$(44),OP%(44),OW%(44),BH%(131) 15,5: 5:400 " "0 " "0 " THE ISLAND OF ARTUAN "0& " "00 " (C) B.S.BLATCHFORD "0: " JUNE 1984 "0D " "0N " "X J~1 r 6::.[:" Do you want to load an old game? ";\CH$~$: CH$^ CH$~"Y" { CH$~"y" s 45103b: " Do you want to see the introduction? ";lC$~$: C$?v C$}"Y" z C$}"y" s : " Good luck!": 1010:40: 4030401 "THE ISLAND OF ARTUAN VER 1.0"Y" You have been shipwrecked off a smallisland after a fierce storm wrecked your";V"boat. You managed to swim ashore, but lost all your possesions doing so. You">"remember the events leading to this withgreat clarity:"T" The audience with the king where you offered your services to recover the"Y"Orb of Power from the mysterious Island of Death where it was placed by the evil";U"wizard Artuan. The tale of the previous adventurer who failed and finally the"C"treacherous storm that left you here totally unprepared."" Good luck!"  1010% "Press any key to continue. ";CH$~$:40: 4030"NW%~162:NL%~131:NO%~44:NB%~44& J%~1 r NW%: CM$(J%),CMN%(J%):/ J%~1 r NL%: C%~1 r 10: MAP%(J%,C%)::5 J%~1 r NB%: OL$(J%),OS$(J%),OP%(J%),OW%(J%):"NTR~11: J~1 r NTR: TRP(J):$LAMPLEFT~500:LC~1:TGOB~12GUARDDOG~2:RATS~1ACT%~1:"ADVIOAP1"1: " Enter filename to load position from"$ " (with no extension) : ";F$#: " Loading previous game."  1010F$~F$t".ADV": F$,FD$" J~1 r NL%:# FD$;BH%(J): J" J~1 r NB%:# FD$;OP%(J): JE# FD$;BOULDER,STAIRCASE,RATS,CHIEF,GUARDDOG,SARC1,SARC2,FIGHTERA# FD$;THIEF,NAKED,HILT1,HILT2,BASILISK,SKEL1,SKEL2,LAMPFULLC# FD$;LAMPALIGHT,LAMPLEFT,BRANCH,GOBPRES,TGOB,CDR,CHES1,CHES26# FD$;CHES3,WRAITH,OCTPUS,SIRN,PENT,LC,WT,BN,STL  FD$ BH%(98) s MAP%(97,3)~98. BOULDER~1 s MAP%(22,1)~35:MAP%(35,5)~221  STAIRCASE~1 s MAP%(33,10)~50:MAP%(50,9)~33ACT%~1:BH%(LC)~0  LC35 s 40: "ADVIOAP1",* LC48 s 6: 15,6:40: "ADVIOAP2",4 LC81 s 6: 15,6:40: "ADVIOAP3"!> 1: 8,1:40: "ADVIOAP4""A ",31 ,"ANSPO",43"ARMOU",215,"ASSEM",56"ATTAC",31 ,"AXE ",206"BAG ",225,"BASE ",230"BLUE ",233,"BOTTO",230"BOX ",203,"BROKE",212"BUILD",56 ,"C ",30"CARRY",21 ,"CHEST",252"CHIEF",244,"CLIMB",35"CLOSE",30 ,"CLOTH",214"COINS",218,"COPPE",218"CROWN",222,"CRYST",236 "D ",10 ,"DAGGE",207"DECAN",236,"DOG ",221"DOOR ",251,"DOWN ",10("DOWSE",34 ,"DRINK",632"DROP ",22 ,"E ",3<"EAST ",3 ,"EAT ",37F"EMPTY",25 ,"END ",33P"ENTER",11 ,"EXIT ",12Z"EXTIN",34 ,"F ",24d"FILL ",24 ,"FLASK",202n"FOOD ",219,"FORM ",247x"G ",21 ,"GET ",21"GIVE ",50 ,"GO ",20"GOBLI",245,"GOLDE",209"GREEN",232,"HAMME",216"HECTO",60 ,"HELP ",66"HILT ",246,"I ",23"IN ",11 ,"INSUB",247"INVEN",23 ,"IRON ",239"JEWEL",213,"KEY ",238"KILL ",31 ,"KNOT ",51"L ",28 ,"LAMP ",201"LANTE",201,"LASH ",36"LIGHT",26 ,"LIQUI",253"LIST ",23 ,"LOG ",204"LOOK ",28 ,"MALLE",216"MEAT ",219,"MIRRO",242"MOVE ",20 ,"N ",1""NE ",2 ,"NORTH",1,"NW ",8 ,"O ",296"OCTOP",248,"OIL ",202@"OPEN ",29 ,"OPSNA",44J"ORB ",254,"OUT ",12T"P ",22 ,"PAPER",237^"PERSI",224,"PLACE",50h"PLATI",241,"POUR ",25r"PULL ",48 ,"PUT ",22|"QUIT ",40 ,"RATS ",243"READ ",57 ,"RED ",231"REFLE",59 ,"REMOV",54"REPLA",50 ,"RING ",223"RIVER",250,"ROBE ",214"ROPE ",217,"ROTTE",219"RUB ",38 ,"RUG ",224"RUSTY",211,"S ",5"SACK ",225,"SARCO",228"SAVE ",39 ,"SAY ",64"SCEPT",220,"SCORE",47"SE ",4 ,"SEARC",27"SEGME",235,"SILVE",240"SIREN",249,"SKELE",226"SNART",46 ,"SOUTH",5"SPEAK",64 ,"SPIKE",205"SPORT",41 ,"STAFF",229&"STATE",61 ,"STATU",2270"STEEL",210,"SUIT ",215:"SW ",6 ,"SWAG ",225D"SWIM ",55 ,"SWORD",208N"T ",32 ,"TASOT",58X"TEST ",53 ,"THROW",32b"TIE ",51 ,"TINDE",203l"TOUCH",49 ,"TRANS",45v"TROPS",42 ,"U ",9"UNLOC",65 ,"UP ",9"W ",7 ,"WATER",202"WAVE ",62 ,"WEAR ",52"WEST ",7 ,"WHIP ",36"WRAIT",247,"X ",34"YELLO",234,"ZZZZZ",0z 2,0,4,0,17,0,29,0,0,0 11,0,3,0,1,0,23,0,0,0 0,0,0,0,0,0,2,0,0,0 -2,0,18,0,5,0,1,0,18,0 4,0,6,0,-1,0,-1,0,-2,0 22,0,7,0,-1,0,5,0,22,0 8,0,-1,0,-1,0,6,0,-2,0 9,0,-1,0,7,0,-2,0,-2,0 -1,0,-1,0,8,0,10,0,-2,0 -1,0,9,0,-2,0,11,0,-2,0 -1,0,10,0,2,0,12,0,0,0 -1,0,11,0,25,0,13,0,0,0 -1,0,12,0,14,0,-1,0,0,0 13,0,26,0,15,0,-1,0,0,0 14,0,16,0,-1,0,-1,0,0,0 27,0,17,0,-1,0,15,0,0,0 1,0,-1,0,-1,0,16,0,0,0$ 0,0,-2,0,-2,0,4,0,0,4. -2,0,20,0,0,0,-2,0,20,0 8 -2,0,21,0,-2,0,19,0,21,19B -2,0,-2,0,-2,0,20,0,0,20L 0,0,0,0,6,0,0,0,0,6V 11,0,2,0,1,0,24,0,0,0` 25,0,23,0,28,0,25,0,0,0j 12,0,24,0,24,0,25,0,0,0t 34,0,31,0,32,0,14,0,0,0~ 31,0,30,0,16,0,31,0,0,0 24,0,29,0,28,0,28,0,0,0 28,0,1,0,30,0,29,0,0,0 29,0,27,0,30,0,30,0,0,0 27,0,27,0,32,0,26,0,0,0 26,0,33,0,31,0,34,0,0,0 0,0,0,0,0,0,32,0,0,0 26,0,34,0,34,0,26,0,0,0 0,0,0,0,0,0,0,0,0,0 37,0,0,0,35,0,0,0,0,0  38,41,0,0,36,40,47,39,0,0 0,0,0,0,37,0,39,0,0,0 0,0,38,37,47,0,0,0,0,0 0,37,0,0,0,0,0,0,0,0  0,0,42,0,35,37,0,0,0,0 44,0,0,0,43,0,41,0,0,0 0,0,0,0,0,0,0,0,0,0( 0,0,0,0,0,0,0,0,0,02 0,0,0,0,0,43,0,0,0,0< 0,0,0,0,0,44,0,0,0,0F 39,0,37,0,0,0,0,0,0,0P 0,0,52,0,0,0,0,0,0,0Z 0,0,0,0,0,0,52,0,0,0d 0,0,51,0,0,0,0,0,33,0n 0,0,55,0,0,0,50,0,0,0x 0,0,49,0,55,0,48,0,0,0 0,0,0,55,0,0,0,0,55,54$ 54,54,54,54,55,54,54,54,53,58" 52,54,56,58,59,57,51,53,0,0 0,0,0,0,0,0,55,0,0,0$ 57,57,57,57,57,57,57,57,55,58$ 58,58,58,58,58,58,57,58,54,69 55,0,0,0,60,0,0,0,0,67 59,0,0,0,61,0,0,0,0,61 60,0,62,0,0,0,66,0,60,0 0,0,63,0,0,0,61,0,0,0 68,0,0,0,62,0,64,0,0,0 0,0,63,0,0,0,65,0,0,0 0,0,64,0,66,0,0,0,0,0 0,0,61,0,0,0,65,0,0,0 0,0,64,0,0,0,64,0,59,0" 71,71,68,68,63,68,70,70,0,0#" 69,69,80,69,69,69,78,69,58,0", 75,70,71,70,68,72,68,68,0,0"6 71,74,68,68,71,71,70,76,0,0"@ 73,73,72,70,72,72,73,72,0,0"J 75,73,72,73,72,73,72,73,0,0"T 77,74,74,74,71,74,74,76,0,0"^ 78,75,79,76,70,75,73,75,0,0"h 79,76,77,74,71,75,76,79,0,0"r 80,77,80,77,76,77,74,77,0,0"| 69,78,80,78,79,78,75,78,0,0" 79,79,76,76,75,79,78,79,0,0" 69,80,77,80,77,76,78,80,0,0 0,0,0,0,0,0,0,0,0,0 92,0,84,0,81,0,83,0,0,0 0,0,82,0,0,0,0,0,0,0  94,0,88,87,86,85,82,0,0,0 0,84,0,0,0,0,0,0,0,0 84,0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,84,0,0 0,0,0,0,0,0,84,0,0,0 0,88,0,0,0,0,0,0,0,0 88,0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,88,0,0! 120,0,94,129,82,0,93,0,0,0 0,0,92,0,0,0,0,0,0,0 0,95,0,0,84,0,92,0,0,0& 0,0,0,0,0,94,0,0,0,00 0,0,97,0,0,0,95,0,0,0: 0,0,0,0,0,0,96,0,0,0D 0,0,0,0,0,0,0,0,0,0N 0,0,0,0,0,0,100,0,0,0X 0,0,99,0,0,0,0,0,0,103"b 113,0,102,0,105,0,104,0,0,0"l 114,0,103,0,106,0,101,0,0,0$v 115,0,104,0,107,0,102,0,100,0" 116,0,101,0,108,0,103,0,0,0" 101,0,106,0,109,0,108,0,0,0" 102,0,107,0,110,0,105,0,0,0" 103,0,108,0,111,0,106,0,0,0" 104,0,105,0,112,0,107,0,0,0$ 105,0,110,0,113,0,112,0,0,131" 106,0,111,0,114,0,109,0,0,0" 107,0,112,0,115,0,110,0,0,0" 108,0,109,0,116,0,111,0,0,0" 109,0,114,0,101,0,116,0,0,0" 110,0,115,0,102,0,113,0,0,0" 111,0,116,0,103,0,114,0,0,0" 112,0,113,0,104,0,115,0,0,0 0,118,0,0,0,0,131,0,0,0  0,0,0,0,0,117,0,0,0,0 0,0,131,0,0,0,35,0,0,0!  124,0,123,0,92,0,121,0,0,0 * 122,0,125,0,120,0,0,0,0,0 4 0,0,123,0,126,0,121,0,0,0 > 122,0,0,0,120,0,127,0,0,0"H 128,0,127,0,120,0,125,0,0,0"R 126,0,128,0,124,0,121,0,0,0"\ 122,0,127,0,128,0,125,0,0,0"f 126,0,123,0,124,0,128,0,0,0"p 126,0,127,0,124,0,125,0,0,0z 0,0,0,130,0,0,0,92,0,0 0,0,0,0,0,0,0,129,0,0  0,0,117,0,0,0,119,0,109,0J"an unlit brass lantern"T"an unlit lamp",3,1^"a shining brass lantern"h"a shining lamp",-1,1r"an empty glass flask"|"an empty flask",-1,1!"a glass flask full of oil""a flask of oil",3,1&"a glass flask full of seawater" "a flask of seawater",-1,1#"a glass flask full of water""a flask of water",-1,1 "a small rusty tinder box""a tinder box",3,1""a large gnarled wooden log""a large log",28,6 "a large rusty iron spike""a large iron spike",3,1"a large wooden mallet" "a mallet",-1,1 "a 100 ft coil of rope" "a coil of rope",-1,1& "a small crude handaxe"0 "a handaxe",-1,1": "several small copper coins"!D "several copper coins",47,1N "a seven tongued lash"X "a lash",42,1#b "a small lump of mouldy meat"l "some rotten meat",3,1v "an ornate gold sceptre" "a gold sceptre",45,2' "a pearl inlaid box of jewellery" "a box of jewellery",44,1% "a sharp gleaming magic dagger" "a magic dagger",-1,1& "a jewel encrusted golden sword" "a golden sword",-1,2 "a sharp steel sword" "a steel sword",-1,2 "a pitted and rusty sword" "a rusty sword",-1,2+ "the broken halves of a golden sword"$ "the broken golden sword",-1,2!"the floor"# !"a robe of invisibility",-1,1%!"a small silver suit of armour"# !"a small suit of armour",-1,3$*!"a large valuable persian rug"4!"a persian rug",65,37>!"a dirty bag marked 'swag' full of silver peices"H!"a bag of 'swag'",-1,1R!"a bright golden crown"\!"a golden crown",-1,1f!"a delicate diamond ring"p!"a diamond ring",-1,1.z!"an iron spike hammered into the ground"!"an iron spike",-1,1C!"an iron spike hammered into the ground with a rope attached"!"an iron spike",-1,1'!"a brown base of a magical staff"!"the brown base",82,1(!"a red segment of a magical staff"!"the red segment",118,1*!"a green segment of a magical staff"!"the green segment",-1,1)!"a blue segment of a magical staff"!"the blue segment",128,1+!"a yellow segment of a magical staff"!"the yellow segment",96,1/""the large multicoloured staff of Artuan" ""the staff of Artuan",-1,14""an elegent crystal decanter of orange liquid"*$""the decanter of orange liquid",93,1#.""an elegent crystal decanter" 8""an elegent decanter",-1,1"B""a small old peice of paper"L""the peice of paper",-1,1V""a large iron key"`""the iron key",89,1j""a large silver key"t""the silver key",90,1~""a large platinum key"""the platinum key",91,1""a small pocket mirror"""the mirror",20,1$""a large orb of polished gold"""the Orb of Power",98,1'2# 13,16,17,19,24,25,26,27,28,37,38H@?)