m*m*o*  HAUNTED HOUSE ADVENTURE  ***********************  SPECTRUM BASIC VERSION (# [OPTIONAL SAVE/LOAD/QUIT ADDED] 2# ******************************* <F$=" " F%V=28:W=36$:G=18 P 1600@ Z:"HAUNTED HOUSE" d"-------------" n"YOUR LOCATION" xD$(RM+1) "EXITS:" I=1̱(R$(RM+1)) R$(RM+1)(II);","; I  I=1G 5L(I)=RMF(I)=0"YOU CAN SEE ";O$(I);" HERE" I "=========================" M$:M$="WHAT" "WHAT WILL YOU DO NOW":Q$ 'X$="":W$="":VB=0:OB=0 (Q$)<2290" I=1̱(Q$)-1 'Q$(II)=" "X$=""X$=Q$(I-1) HQ$(I+1I+1)" "X$""W$=Q$(I+1):I=(Q$)-1 I "W$=""X$=Q$ '((X$)>(V$(1))X$=""325E ($X$=X$+F$(((V$(1))-(X$))) ,I=1V 6X$=V$(I)VB=I @I E(W$=""ű(W$)>(O$(1))360h F$W$=W$+F$(((O$(1))-(W$))) JI=1W TW$=O$(I)OB=I ^I h&W$>""OB=0M$="THAT'S SILLY" rVB=0VB=V+1 |W$=""M$="I NEED TWO WORDS" +VB>VOB>0M$="YOU CAN'T '"+Q$+"'" -VB>VOB=0M$="YOU DON'T MAKE SENSE" OB=0420 :VB0C(OB)=0M$="YOU DON'T HAVE '"+W$ kF(26)=1RM=13 ƺ(*3)+13VB21M$="BATS ATTACKING!":90Z LRM=44,ƺ(*2)=1F(24)1F(27)=1 %F(20)=1LL=LL-1 "LL<1F(20)=0 9500*(VB=1)+570:*(VB=2)+640*(VB>2VB<10 )+980*(VB=10 VB=11 )+1030*(VB=12 )+1070.*(VB=13 )+1140t*(VB=14)+1180*(VB=15)+1220*(VB=16)+1250*(VB=17)+1300*(VB=18)+1340<*(VB=19)+1380d*(VB=20)+1400x*(VB=21)+1430*(VB=22)+1460*(VB=23)+1490*(VB=24)+1510*(VB=25)+3000 *(VB=26)+4000*(VB=27)+5000*(VB=28)+15906*(VB=29) +LL=10 M$="YOUR CANDLE IS WANING!" 'LL=1M$="YOUR CANDLE IS OUT!"  90Z "WORDS I KNOW:" I=1V  V$(i);","; I  M$="": & 1580, 0 :"YOU ARE CARRYING:" DI=1G NC(I)=1O$(I);","; XI b M$="": l 1580, v  D=0 OB=0D=VB-3 OB=19D=1 OB=20D=2 OB=21D=3 OB=22D=4 OB=23D=5 OB=24D=6 #RM=20D=5D=1 #RM=20D=6D=3 #RM=22D=6D=2 #RM=22D=5D=3 #RM=36$D=5D=1 #RM=36$D=6D=2  TF(14)=1M$="CRASH! YOU FELL OUT OF THE TREE!":F(14)=0: GF(27)=1RM=524M$="GHOSTS WILL NOT LET YOU MOVE":  [RM=45-C(1)=1F(34")=0M$="A MAGICAL BARRIER TO THE WEST": *S(RM=26F(20)=0)(D=1D=4)M$="YOU NEED A LIGHT": 48RM=546C(15)1M$="YOU'RE STUCK!": >iC(15)=1(RM=535RM=546RM=557RM=47/)M$="YOU CAN'T CARRY A BOAT!": HI(RM>26RM<30)F(20)=0M$="TOO DARK TO MOVE": R,F(35#)=0:RL=(R$(RM+1)) \I=1RL fU$=R$(RM+1)(II) pM(U$="N"D=1F(35#)=0)RM=RM-8:F(35#)=1 zM(U$="S"D=2F(35#)=0)RM=RM+8:F(35#)=1 M(U$="W"D=3F(35#)=0)RM=RM-1:F(35#)=1 M(U$="E"D=4F(35#)=0)RM=RM+1:F(35#)=1 I  M$="OK" /F(35#)=0M$="CAN'T GO THAT WAY!" D<1M$="GO WHERE?" eRM=41)F(23)=1R$(502)="SW":M$="THE DOOR SLAMS SHUT!":F(23)=0  *OB>GOB=0M$="I CAN'T GET "+W$: L(OB)RMM$="IT ISN'T HERE" #F(OB)0M$="WHAT "+W$+"?" *C(OB)=1M$="YOU ALREADY HAVE IT" ZOB>0L(OB)=RMF(OB)=0C(OB)=1:L(OB)=65A:M$="YOU HAVE THE "+W$  ORM=43+(OB=28OB=29)F(17)=0:M$="DRAWER OPEN" ,RM=28OB=25M$="IT'S LOCKED" CRM=38&OB=32 M$="THAT'S CREEPY!":F(2)=0 $ .9OB=30F(18)=0:M$="SOMETHING HERE!" 8'OB=31M$="THAT'S DISGUSTING!" B4(OB=28OB=29)M$="THERE IS A DRAWER" L%OB=33!OB=51140t V<RM=43+OB=35#M$="THERE IS SOMETHING BEYOND.." `OB=32 1030 j t7RM=42*OB=33!M$="THEY ARE DEMONIC WORKS" ~j(OB=3OB=36$)C(3)=1F(34")=0M$="USE THIS WORD WITH CARE 'XZANFAR'" GC(5)=1OB=5M$="THE SCRIPT IS IN AN ALIEN TONGUE"  M$="OK '"+W$+"'" TC(3)=1OB=34"M$="*MAGIC OCCURS*":RM45-RM=(*64@) BC(3)=1OB=34"RM=45-F(34")=1  ,C(12 )=1M$="YOU MADE A HOLE" nC(12 )=1RM=30M$="DUG THE BARS OUT":D$(RM+1)="HOLE IN WALL":R$(RM+1)="NSE"  EC(14)1RM=7M$="THIS IS NO TIME TO PLAY GAMES" 5OB=14C(14)=1M$="YOU SWUNG IT" 0OB=13 C(13 )=1M$="WHOOSH!" OB=13 C(13 )=1RM=43+R$(RM+1)="WN":D$(RM+1)="STUDY WITH SECRET ROOM":M$="YOU BROKE THE THIN WALL"   GOB=14C(14)=1M$="IT ISN'T ATTACHED TO ANYTHING!" OB=14C(14)1RM=7F(14)=0M$="YOU SEE THICK FOREST AND CLIFF SOUTH":F(14)=1: (hOB=14C(14)1RM=7F(14)=1M$="GOING DOWN!":F(14)=0 2 F(20)=1F(20)=0:M$="EXTINGUISHED" n x/OB=26C(16)=1M$="HISSSS" `OB=26C(16)=1F(26)=1F(26)=0:M$="PFFT! GOT THEM"  ]OB=10 C(10 )=1C(11 )=1M$="SWITCHED ON":F(24)=1 dF(27)=1F(24)=1M$="WHIZZ- VACUUMED THE GHOSTS UP!":F(27)=0  4RM=43+(OB=27OB=28)1030 RM=28OB=25F(25)=0C(18)=1F(25)=1:R$(RM+1)="SEW":D$(RM+1)="HUGE OPEN DOOR":M$="THE KEY TURNS!"  4C(OB)=1C(OB)=0:L(OB)=RM:M$="DONE"   S=0 I=1G C(I)=1S=S+1 I jS=17C(15)1RM579"YOU HAVE EVERYTHING":"RETURN TO THE GATE FOR FINAL SCORE" IS=17RM=579"DOUBLE SCORE FOR REACHING HERE!":S=S*2 "D"YOUR SCORE=";S:S>18"WELL DONE! YOU FINISHED THE GAME": , "PRESS RETURN TO CONTINUE";Q$ 6 @MR$(64@,4):D$(64@,31):O$(W,13 ):V$(V,9 ) JC(W):L(G):F(W) T46.,38&,35#,502,13 ,18,28,42*,10 ,25,26,4,2,7,47/,60<,43+,32 ^I=1G hL(I) rI |]"HELP","CARRYING?","GO","N","S","W","E","U","D","GET","TAKE","OPEN","EXAMINE","READ","SAY" Q"DIG","SWING","CLIMB","LIGHT","UNLIGHT","SPRAY","USE","UNLOCK","LEAVE","SCORE" "SAVE","LOAD","QUIT" I=1V V$(I) I ,"SE","WE","WE","SWE","WE","WE","SWE","SW" *"NS","SE","WE","NW","SE","W","NE","NSW" ."NS","NS","SE","WE","NWUD","SE","WSUD","NS" +"N","NS","NSE","WE","WE","NSW","NS","NS" *"S","NSE","NSW","S","NSUD","N","N","NS" )"NE","NW","NE","W","NSE","WE","W","NS" )"SE","NSW","E","WE","NW","S","SW","NW" ,"NE","NWE","WE","WE","WE","NWE","NWE","W" I=164@ R$(I) I I"DARK CORNER","OVERGROWN GARDEN","BY LARGE WOODPILE","YARD BY RUBBISH" !5"WEEDPATCH","FOREST","THICK FOREST","BLASTED TREE" 0S"CORNER OF HOUSE","ENTRANCE TO KITCHEN","KITCHEN & GRIMY COOKER","SCULLERY DOOR" 5K"ROOM WITH INCHES OF DUST","REAR TURRET ROOM","CLEARING BY HOUSE","PATH" DD"SIDE OF HOUSE","BACK OF HALLWAY","DARK ALCOVE","SMALL DARK ROOM" IJ"BOTTOM OF SPIRAL STAIRCASE","WIDE PASSAGE","SLIPPERY STEPS","CLIFFTOP" XV"NEAR CRUMBLING WALL","GLOOMY PASSAGE","POOL OF LIGHT","IMPRESSIVE VAULTED HALLWAY" ]U"HALL BY THICK WOODEN DOOR","TROPHY ROOM","CELLAR WITH BARRED WINDOW","CLIFF PATH" lI"CUPBOARD WITH HANGING COAT","FRONT HALL","SITTING ROOM","SECRET ROOM" qM"STEEP MARBLE STAIRS","DINING ROOM","DEEP CELLAR WITH COFFIN","CLIFF PATH" T"CLOSET","FRONT LOBBY","LIBRARY OF EVIL BOOKS","STUDY WITH DESK AND HOLE IN WALL" P"WEIRD COBWEBBY ROOM","VERY COLD CHAMBER","SPOOKY ROOM","CLIFF PATH BY MARSH" J"RUBBLE-STREWN VERANDAH","FRONT PORCH","FRONT TOWER","SLOPING CORRIDOR" 7"UPPER GALLERY","MARSH BY WALL","MARSH","SOGGY PATH" T"BY TWISTED RAILING","PATH THROUGH IRON GATE","BY RAILINGS","BENEATH FRONT TOWER" d"DEBRIS FROM CRUMBLING FACADE","LARGE FALLEN BRICKWORK","ROTTING STONE ARCH","CRUMBLING CLIFFTOP" I=164@ D$(I) I T"PAINTING","RING","MAGIC SPELLS","GOBLET","SCROLL","COINS","STATUE","CANDLESTICK" W"MATCHES","VACUUM","BATTERIES","SHOVEL","AXE","ROPE","BOAT","AEROSOL","CANDLE","KEY" ,"NORTH","SOUTH","WEST","EAST","UP","DOWN" :"DOOR","BATS","GHOSTS","DRAWER","DESK","COAT","RUBBISH" -"COFFIN","BOOKS","XZANFAR","WALL","SPELLS"  I=1W O$(I)  I *F(18)=1:F(17)=1:F(2)=1:F(26)=1:F(28)=1:F(23)=1:LL=60<:RM=579:M$="OK" 4 "SAVE POSITION TO FILE>",Y$ Y$90Z N M$="OK"   "LOAD POSITION FROM FILE>",Y$ Y$ 6 M$="OK" h "WANT TO QUIT";Q$  Q$"Y" #"LIKE TO SAVE THE GAME FIRST",Q$ Q$="Y"3000 "THANKS FOR PLAYING" END