1 mode 0:goto 10 2 c$=c$+" ":k=0:d$=n$ 3 k=k+1:a$=left$(c$,k):if right$(a$,1)<>" " then 3 4 b$=mid$(c$,k):if left$(b$,1)=" " then k=k+1:goto 4 5 if b$="" then n$="***":goto 7 6 b$=left$(b$,len(b$)-1) 7 a$=left$(a$,len(a$)-1):v$=left$(a$+"***",3) 8 n$=left$(b$+"***",3):if n$<>"it*" and n$<>"***" then return 9 n$=d$:return 10 ?" NOSFERATU":?" by M. Taylor.":n$="***" 15 dim q$(4):q$(1)="N":q$(2)="S":q$(3)="E":q$(4)="W":q$=chr$(34) 20 l=32:o=45:dim l$(l),d$(l),o$(o),c$(o),p(o),f(o) 30 for i=1 to o:read o$(i),c$(i),p(i),f(i):next:for i=1 to l:read l$(i),d$(i):next:i=1 35 data "transylvanian Atlas",atl,4,1 40 data "book of Magic",mag,4,1 45 data "book of Games",gam,4,1 50 data "long Rope",rop,8,1 55 data "brass Key",key,6,1 60 data "golden Coins",coi,25,1 65 data "old Lamp",lam,,1 70 data "balcony Rail",rai,5, 75 data "newly dug open Grave",gra,10, 80 data "locked Door",doo,8, 85 data "wrinkled old Witch",wit,12, 90 data "Tombstone, engraved: BEWARE THE WITCH",sto,10, 95 data "large red no. 29 Bus",bus,, 100 data "Hole (above me)",hol,12, 105 data "bus Conductor",con,13, 110 data "scarlet Kipper",kip,6,1 115 data "bottle of Whisky",whi,7,1 120 data "Water of youth",wat,29,9 125 data "sharp Axe",axe,14,1 130 data "inpeneterable Thicket",thi,27, 135 data "hanging Rope",rop,6,2 140 data "garden Spade",spa,21,1 145 data "Hut with locked door",hut,20, 150 data "oak-Trees",tre,24, 155 data "brick Wall",wal,26, 160 data "Sign says: 'TREES ARE RESERVED FOR COFFINS'",sig,24, 165 data "tall Ladder",lad,15,1 170 data "Fountain of youth",fou,29, 175 data "maneating Shark!",sha,16,3 180 data "brick Wall",wal,28, 185 data "safety Match",mat,28,1 190 data "Hole in thicket",hol,29, 195 data "Sign here says: 'EXA NA FO TROHS'",sig,27,0 200 data "Pit in the ground",pit,98, 205 data "secret Tunnel",tun,30, 210 data "Stalactites hanging from the ceiling",sta,31, 215 data "the count Nosferatu",nos,32, 220 data "stone Altar",alt,32, 225 data "giant *BLOODSTONE*",blo,32,1 230 data "sharp wooden Stick",sti,21,1 235 data "7-pound Mallet",mal,9,1 240 data "Crusif ix engraved on the ground",cru,23, 245 data "stone Sarcophagus",sar,3, 250 data "decomposing Body",bod,,1 255 data "wooden Cross",cro,,1 300 data "in a tall, satin- lined wooden box",000002 305 data in an empty room,07030501 310 data in a dark crypt,020004 315 data in the library,05000003 320 data on a balcony over-looking a tall clif f,00040002 325 data on a narrow ledge high up a clif f, 330 data in the kitchen,0802 335 data in the washroom,000709 340 data in the mortuary,10000008 345 data in a desolate windswept graveyard,1109 350 data by a bus-stop,0010 355 data in a dark gloomy cave, 360 data on a double-deckerbus,0011 365 data in a rather dark yard,15000816 370 data in a dark shed,0014 375 data by a fishpond ..,001714 380 data in a damp swamp,16000018 385 data "on a track. To myNorth is a bridge overa pond",19001723 390 data on a very flimsy bridge..,2018 395 data "on a lawn to the North of a pond",0019 400 data in a small hut,0020 405 data west of a pond,00230027 410 data in a sunny field,22241826 415 data in an oak-forest,23242425 420 data at the bottom of adisused cesspit, 425 data north of a rather smelly hole,272523 430 data at the top of a clif f,002622 435 data "on a narrow ledge,East of a chasm",29 440 data at the edge of a deep chasm,002827 445 data at the bottom of adeep hole, 450 data in a subterranean cavern,0030 455 data in a cavern where the count sleeps,0031 700 ?" press 'RETURN'" 710 r$=inkey$:if r$<>chr$(13) then 710 720 d=0:if((p(7)<>99 and p(7)<>i) or f(7)<>13) and i>30 then d=1 730 if d=1 then ?"It's too dark to see!":goto 830 750 ?"I'm ";l$(i);"." 760 k=0:for j=1 to o:if p(j)=i then k=1 770 next:if k=0 then 800 780 ?"Visible items:":for j=1 to o:if p(j)=i then ?o$(j) 790 next 800 if val(d$(i))=0 then 830 810 ?"I can go: ";:for j=1 to 4:if val(mid$(d$(i),j*2-1,2))<>0 then ? q$(j)","; 820 next:?"." 830 ?"----------------------"; 831 if i=19 and c>1 then 988 832 if i=32 and p(45)<>99 and p(37)=i then 9950 840 if f(43)<0 then f(43)=f(43)+1:if f(43)=0 then ?"I feel weaker." 841 c$="":input"Command";c$:?"";:if left$(c$,3)<>"aga" then gosub 2 842 rem ifc$="{CBM-B} " then ?"I don't understand.":goto 840 845 if n$="the" then e$=v$:c$=b$:gosub 2:v$=e$ 846 if n$="ax*" then n$="axe" 850 if v$="q**" or v$="qui" then 9000 851 k=0:for j=1 to o:if c$(j)=n$ then k=j:j=o 852 next 855 if v$="n**" or v$="nor" then k=1:goto 1500 860 if v$="s**" or v$="sou" then k=2:goto 1500 865 if v$="e**" or v$="eas" then k=3:goto 1500 870 if v$="w**" or v$="wes" then k=4:goto 1500 871 if v$="i**" or v$="inv" then 3000 873 if v$="l**" or v$="loo" then 720 874 if v$="wai" then 4500 876 if v$="scr" then b$="Yaaaagh!":goto 8500 877 if n$="***" then ?"I need a Noun too!":goto 840 879 if v$="go*" then 1000 880 if v$="get" or v$="tak" or v$="g**" then 2000 885 if v$="dro" or v$="lea" or v$="d**" then 2500 895 if v$="tie" then 3490 900 if v$="to*" then 3500 901 if v$="i=*" then i=val(b$):goto 750 905 if v$="cli" then 4000 915 if v$="giv" then 5000 920 if v$="rea" then 5500 925 if v$="ope" then 6000 930 if v$="dri" then 6500 935 if v$="thr" then 6990 940 if v$="at*" then 7000 950 if v$="cho" or v$="cut" then 7500 955 if v$="lig" then 7600 960 if v$="dig" then 8000 965 if v$="say" then 8500 970 ?"I don't know "q$a$q$:goto 840 982 ?"It shatters!":goto 700 983 ?"It's locked!":goto 840 984 ?"He doesn't want it.":goto 840 985 ?"Nothing happens.":goto 840 987 ?"It's not here.":goto 840 988 ?"I'm too heavy:I fall!" 989 ?"I'm dead!":goto 9000 991 ?"I've already done it!":goto 840 992 ?"I'm carrying too much.";:goto 840 993 ?"I can't "a$:?"a "b$:goto 840 994 ?"I don't have it.":goto 840 995 ?"I can't do that.":goto 840 996 ?"I've already got it.":goto 840 997 ?"not now.":goto 840 998 ?"I can't go there.":goto 840 999 ?"OK.":goto 840 1000 if n$="hol" then 1100 1005 if n$="gra" then 1130 1010 if n$="bus" then 1150 1020 if n$="pit" then 1170 1030 if n$="tun" then 1190 1095 v$=n$:goto 855 1100 if i<>12 then 997 1120 i=10:goto 720 1130 if i<>10 then 997 1140 i=12:goto 720 1150 if i<>p(13) then 987 1160 i=13:goto 720 1170 if p(34)<>i then 997 1180 i=30:goto 720 1190 if i<>30 then 997 1200 i=31:goto 720 1500 d$=mid$(d$(i),2*k-1,2):if val(d$) then i=val(d$):goto 720 1510 if d then?"I fall and break my neck!":goto 989 1520 goto 998 2000 if n$="i**" or n$="inv" then 3000 2001 k=0:for j=1 to o:if c$(j)=n$ then k=j:j=o 2005 if f(k)=3 then ?"He doesn't seem to be too keen on that idea:He's eating me!":goto 989 2010 next:if f(k)=2 then ?"It's tied to a rail!":goto 840 2020 if p(k)=99 then 996 2030 if p(k)<>i then ?"I can't see it here.":goto 840 2031 if n$="dus" then ?"It slips through my fingers":goto 840 2032 if k=44 then f(k)=31:o$(k)="pile of Dust":c$(k)="dus":?"It turns to dust!":goto 700 2033 if f(k)=9 and (p(17)<>99 or f(17)<>4) then ?"I need a container.":goto 840 2034 if k=39 and p(37)=i then 9950 2035 if f(k)=0 then ?"That's beyond me!":goto 840 2040 if c=5 then 992 2050 if k=18 then o$(17)="whisky Bottle" 2060 if k=17 and p(18)=i and f(k)=4 then c=c+1:p(18)=99 2070 c=c+1:p(k)=99:goto 999 2500 if p(k)<99 then 994 2510 if k=18 and i<>29 then p(k)=98:?"It soaks away.":c=c-1:goto 840 2540 if i<>12 or k<>17 or p(18)<>99 then p(k)=i:c=c-1:goto 999 2550 p(18)=98:p(7)=i:p(11)=98:c=c-2:?"The witch drinks the water, rejuvenates," 2560 p(17)=i:?"drops something, and disappears!":goto 700 3000 ?"I'm carrying:":k=0:for j=1 to o:if p(j)=99 then ?o$(j):k=j 3010 next:if k=0 then?"Nothing at all!" 3020 goto 840 3490 if n$<>"rop" then 993 3492 if p(4)<>99 then 994 3495 ?"To what? (eg. to key)":goto 840 3500 if p(4)<>99 then ?"I haven't got a rope.":goto 840 3510 if n$<>"rai" then a$="tie a rope to":goto 993 3520 if i<>5 then 997 3530 c=c-1:p(4)=5:o$(4)="rope tied to rail":f(4)=2:goto 700 4000 if k=27 then 7310 4005 if n$<>"rop" then 993 4010 if f(4)<>2 or (i<>5 and i<>6) then 997 4020 if c>1 then 988 4030 if i=5 then i=6:goto 720 4040 i=5:goto 720 4500 ?"time passes...":for j=1 to 2000:next:if i<>11 or p(13)=11 then 985 4510 p(13)=11:?"a bus arrives!":goto 700 5000 if i<>13 then 997 5010 if p(k)<>99 then 994 5015 if k<>6 then 984 5020 ?"He takes them, the busstarts, and I'm home" 5030 ?"with";:if p(39)<99 then ?"out"; 5040 ?" Nosferatu's Bloodstone.":if p(39)=99 then ?"* Congratulations * You win! 5050 goto 9000 5500 if n$="boo" then ?"Which one?":goto 840 5501 if n$="lib" then ?"OK, but it'll take a while.":for j=1 to 5000:next 5502 if n$="lib" then ?"That was boring! It was in Transylvanian!":goto 840 5509 if k=0 or k>3 then 993 5510 if p(k)<>99 then 994 5520 ?"The book says:":on k goto 5530,5550,5600 5530 ?"Near the forest is a disused cess-pit.":goto 840 5550 ?"Magic word is:":?"'OVYEZ'":goto 840 5600 ?"Bored with this game already, huh?":goto 840 6000 if n$="sar" then 6100 6001 if n$<>"doo" then 993 6005 if i=20 then 6040 6010 if i<>8 or f(10)=2 then 997 6020 if p(5)<>99 then 983 6030 f(10)=2:d$(8)="00070914":o$(10)="wide open door":goto 700 6040 if p(5)<>99 then 983 6050 ?"My key won't fit!":goto 840 6100 if i<>p(43) then 997 6105 if f(43)=24 then 991 6110 if f(43)>-1 then?"The lid's too heavy!":goto 840 6120 p(44)=i:f(43)=24:p(45)=i:o$(43)="open Sarcophagus":?"I find something!":goto 700 6500 if k<>17 then 993 6510 if p(k)<>99 then 994 6520 if f(k)=4 then 991 6525 f(43)=-6:?"OK.":?"Burp! It's good!":?"I feel stronger." 6530 f(k)=4:o$(k)="empty whisky Bottle":c$(k)="bot":goto 840 6990 if n$<>"axe" then 993 6993 if p(19)<>99 then 994 6996 ?"At what? (eg. at bus)":goto 840 7000 if p(19)<>99 then ?"I need an ax.":goto 840 7010 c=c-1:p(19)=i:if n$="sta" then 7040 7015 if n$<>"doo" then ?"It bounces off.":goto 700 7020 if i<>20 then 997 7030 o$(23)="hut with smashed door":d$(20)="21190000":goto 982 7040 if i<>31 then 997 7050 o$(36)="entrance to cave":d$(31)="3230":goto 982 7310 if p(k)<>i then 987 7320 if i<>25 and i<>30 then 997 7330 if f(k)=6 then ?"It's broken!":goto 840 7340 if c<4 then i=24:p(27)=i:goto 700 7350 ?"I'm too heavy:The ladder breaks!":f(k)=6:o$(k)="broken Ladder":goto 700 7500 if p(19)<>99 then 7000 7505 if n$="tre" and i=24 then ?"What's the point?":goto 840 7510 if k<>20 then 993 7520 if i<>27 then 997 7530 if f(k)=8 then 991 7540 f(k)=8:o$(k)="mutilated thicket":d$(27)="00262229" 7550 o$(33)="'SHORT OF AN AXE' is written backwards on a Sign nearby":goto 700 7600 if p(31)<>99 then ?"First I need a match.":goto 840 7610 if f(31)=3 then ?"Using a SPENT match?":goto 840 7620 f(31)=3:o$(31)="spent Match":if k<>7 then ?"It won't burn.":goto 840 7630 if p(k)<>99 then 994 7640 f(k)=13:o$(k)="lit Lamp":?"OK.":goto 700 8000 if p(22)<>99 then ?"I'll need a spade.":goto 840 8010 if n$<>"hol" then 993 8020 if i<>23 then 997 8030 if p(34)=i then 991 8040 p(42)=98:p(34)=i:goto 700 8500 ?"OK.":?q$b$q$:if p(39)<>i or n$<>"ovy" then 985 8510 ?"Nosferatu vanishes in a cloud of smoke!":p(37)=98:goto 700 9000 ?"Play again? (Y/N)" 9010 input r$:if r$="y" then run 9020 if r$="n" then call 0 9030 goto 9010 9950 ?"Nosferatu rises from his altar, and bites my neck!":goto 989