Jack h'h h9*********************** * JACK and the * * BEANSTALK * * * * YC/July 84/Page 100 * * * * by Colin Carruthers * * and Ronald Sellar * * * *********************** La$="":i=0:set=1000:pre=0:keys=0:score=0 =236099\,10 :0:0:7:8000@ cl(25)=1:h$="You're doing fine, Jack.":no=0:we=no:ea=no:so=no:up=no:do=no set #%l(20)=1e(4)=set (:'l$ *l(3)s$="ff(ee) ff(ii) ff(eau) ffum (ii)smel(th)(ee)bluud of an ingli(sh)man":'"A thundering voice just behind you says...."''" Fee Fi Fo Fum,"'" I smell the blood"'" of an Englishman." ->e(4)=setset1250"Daisybell the cow is here." 2l(20)=2l(20)=0:"A strange man wearing a white hat and a butcher's apron says 'Aha !! Just what I need.' He takes 'Daisybell' and before youcan do anything he disappears, leaving some beans on the path." 7;l(25)"It's too dark to see anything.":100d 9*l(25)=2l(25)=0 <5found=0:n=1max:l(n)setn:90Z ?,found:"You can see.."::found=1 A 700 Fn P 100d Z=(a$="look"a$="l")found"You can't see anything special" d1.01z# =,10 :600X:i$=""100d f>n=1̱i$:i$(n)"A"i$(n)"Z"i$(n)=(i$(n)+32 ) gn i 500 kpre=set6600 ml(3)pre=set na$="go"a$=b$:b$="" s*(a$="n"a$="north")noset=no:20 x*(a$="s"a$="south")soset=so:20 )(a$="w"a$="west")weset=we:20 )(a$="e"a$="east")easet=ea:20 6(a$="d"a$="down"a$="descend")doset=do:20 2(a$="u"a$="up"a$="climb")upset=up:20 a$="recap"a$="r"40( !a$="help"a$="h"h$:100d a$="take"a$="get"3000 a$="put"a$="drop"4500 a$="look"a$="l"557 ,a$="examine"a$="ex"a$="read"3400H a$="save"5600 a$="load"5800 .a$="inventory"a$="i"3600:100d a$="sleep"6400 a$="tie"44000 a$="wear"4000 "a$="quit"9000(# ,a$="remove"4100 6%a$="oil"a$="lubricate"4200h @a$="unlock"3200 Ja$="open"3800 Ta$="dig"4300 ^a$="eat"6000p h$a$="light"a$="strike"5400 r#a$="smash"a$="break"5000 |a$="drink"62008 a$="chop"6700, &a$=1"You can't!":100d '"You can't ";a$;" ";b$;"!":100d 9i$(1)=" "Ʊi$>1i$=i$(2):500 )sp=0:a$="":b$="":n=1̱i$ &i$(n)=" "spsp=1:520 spa$=a$+i$(n) spb$=b$+i$(n) n  X23692\,255:i$="" bxat=25-23689\ d xat>21xat=21:: g$6;xat,0;"]";i$;"_ "; l 0 qa$= t.004yn,34.4 v2a$=13 6;xat,0;"]";i$;" ": {4a$=12 i$""i$=i$(̱i$-1):615g #(a$<"A"a$>"z")a$" "620l -i$>25.1}L,-10 :620l i$=i$+a$:615g 'addr=60000`+(n-1)*32 .23675{\,addr-256*(addr/256) 23676|\,(addr/256) 23692\,255 8" ";c(n,1);144;c(n,2);145 L" ";c(n,3);146;c(n,4);147;7;" ";o$(n)   l$="You are inside a small, barely furnished room. To the south is a door leading into the garden and to the north is the front door." Hl(26)l(2)l$=l$+" Your Mother is asleep in the corner." xl(26)l$=l$+" Your poor Mother says 'Take our cow to the market and sell her, Jack.'":l(26)=1 l(26)l(2)i=i-1:l$=l$+" Your Mother is very,very angry. She says 'You bad, stupidboy. Now we shall starve.' In her anger she throws the beans out of the window.":l(2)=9999':l(18)=1 no=1050:so=1400x  l$="You are just outside the cottage. A dusty path leads to the east and a sign pointing west says 'To the Church'." l(19)h$="Going up?":l$=l$+13 +"There is a large green beanstalkrising up into the clouds!":l(7)+l(14)=-2up=1550 $-we=2950 :ea=1100L:so=1000 . Lyl$="You are on a dusty road leading east to west with an opening to the north. There is a pool of oil on the ground." `-we=1050:ea=1150~:no=2850" j ~l$="You are in some woods. The dusty road continues east to west, there is a clearing to thenorth and a small hill to the south." %l(20)ƥ>.75@5500| <no=2900T :we=1100L:so=1350F:ea=1200  l$="More woods. The dusty track nowruns north and south. Sounds (and smells) of farm animals drift from the south. A sign to the east says 'No Fishing'." %l(20)ƥ>.75@5500| -ea=3150N :no=1150~:so=1250  Rl$="The market. There are lots and lots of farmers and farm animalsto be seen." El(20)l$=l$+" No-one seems to be interested in 'Daisybell'" no=1200:so=1300  ll$="You are at the foot of a small hill just outside the market. A path to the west climbs the hill." %l(20)ƥ>.75@5500| (<up=1350F:ea=1250:we=1350F:no=1200 2 Ftl$="You are at the top of the small hill. To the east you can see the market and to the north is your cottage." Z<no=1150~:ea=1300:we=1400x:do=1300 d xl$="You are in the back garden at the foot of the hill. The houseis to the north, your garden shed is to the east and paths lead south and west." Kno=1000:up=1350F:ea=2800 :so=1450:we=1500  wl$="Beside a waterfall. There is a pool of clear water to the west.To the north is a church and a path leads east." -we=3150N :no=1500:ea=1400x  ܄l$="You are in an old churchyard. The church doors are open to thenorth, there is a gate to the south and a path to the east." -no=2950 :ea=1400x:so=1450  l$="Phew! You are about one third of the way up the large green beanstalk. Below you can see your house and the surrounding countryside. What a pity you don't have a camera!" "Bno=3100 :so=no:ea=so:we=ea:up=1600@:do=1050 , @l$="You are now about two thirds of the way up. The view is realy spectacular. That new fisheye lens would be great for this." TBno=3100 :so=no:we=so:ea=we:up=1650r:do=1550 ^ rl$="You are now at the top of the beanstalk, in a wild, bare country. Not a tree or blade of grass can be seen. A long road leads north." ?no=1700:l(7)+l(14)=-2do=1600@  Cl$="The long road winds its way across the barren wasteland." l(21)l(21)=1:l$=l$+" There is an old lady here. She says, 'Good morning, Jack. You are now in a country belonging to a wicked GIANT. His taste in food could be your downfall'." -no=1800:we=1650r:ea=1750  ִl$="You are still on the road. There is not much change to the countryside so I won't bother describing it again, exept to say that there is a castle away to the north." no=1800:we=1700  @l$="You are lost in a maze with paths leading everywhere." h$="1 5.45 10 ??" Sa$="n"(l(22)=0l(22)=2)l(22)=2:1820 =a$="e"l(22)=2l(22)=3:1820 =a$="w"l(22)=3l(22)=4:1820 Fa$="s"l(22)=4l(22)=0:set=1850::set l(22)=0 $no=1800:so=no:ea=no:we=no & :Zl$="You have arrived at the castle door. A path leads round the castle to the east." Nwe=1750:ea=1900l X lwl$="You are now faced with the east wall of the castle. There are no obvious entrances. The path continues north." -no=1950:so=1850::we=1850:  l$="The back of the castle looks much the same as the east wall. There does not seem to be a tradesman's entrance. The path continues westwards and there isanother going north." -no=2600( :we=1800:ea=1900l  cl$="You are in the entrance hall. There are four doors leading north, south, east and west." <so=1850::ea=2050:we=2500 :no=2350.  l$="The Library. This is a large and very impressive room which is full of books. There is a red 'phone on a small table in the corner." we=2000   4l$="The Kitchen. This is a fairly large room again. Indeed the furniture could be said to be GIANT! There is a cupboard to the east and stairs lead down." Cl(24)ea=2200 Hno=2250:do=2150f R fAl$="There is a distinct smell of Bordeaux white circa 1967." z$l(25)=0:up=21004  xl$="The Cupboard. There are shelvesall round the walls but you are too small to reach them. There is only one exit." we=21004  zl$="The Dining Room. The table in here is of epic proportions. Doors lead west and south and tothe east is a sign." -we=2300:so=21004:ea=1950  vl$="The Lounge. Large easy chairs are the main feature of this huge room. Doors lead west, south and east." Ll(3)l$=l$+" There is a GIANTsleeping in one of the chairs. Ssshh!" -we=2550 :ea=2250:so=2350.  .l$="The Music Room. There is a large portrait of Beethoven on the wall and the last movement of his ninth symphony is coming from the immense Hi-Fi in the corner. Doors lead north, west and south." B-we=2450 :so=2000:no=2300 L `l$="The Secret Passage." t$l(25)=0:up=2500 ~ l$="The Store Room. There is a large safe in the corner. Thereseems to be a passage leading downwards as well as the door tothe east." do=2400` :ea=2350.  l$="The Billiard Room. Several cuesare strewn about the floor. A large red ball the size of a football is lying up against thebiggest snooker table you have ever seen. There's a scoreboardon the wall. The door leads east." ea=2000  l$="The Television Room. The 45"" T.V. set is on. The programme is 'Blue Peter' and Simon Groomehas forgotten the script as usual. He appears to be showinghow to make your own secret passage out of yoghurt cartons and sticky-back plastic." ea=2300  (l$="You are on the first tee of a huge golf course. A sign stuck in the ground says 'Hole 1, 7345 yds, Par 3'. Some way off to the north you can see a flag.The castle is to the south." <no=2650Z :so=1950 F Zol$="You are now half way down the fairway. The flag blows gently in the breeze, but is still someway off." nno=2700 :so=2600( x l$="You are now on the green. The flag towers above you, and the hole is at least 6 feet across. There is a bunker to the east, and a stream to the north." -ea=2750 :so=2650Z :no=3150N  `l$="You are now in the bunker. This would be a tricky shot if you were really playing golf." we=2700 :so=2650Z  ql$="You are in the garden shed. The garden is to the west and a dusty track climbs the hill to the south." we=1400x:so=1350F  "Rl$="You are standing in a quarry. There are huge slabs of stone all around." 6%so=1100L:ea=2900T :up=ea @ T_l$="You are on a cliff top. Down below you can see the quarry andto the south some trees." hdo=2850" :so=1150~ r l$="Inside the church. Someone is playing music on the organ. Youare facing the main door to the south with a small side door to your left." so=1500:ea=1050  b$=""a$;" what??":100d El(25)=0"It's too dark to ";a$;" anything.":100d 3i5"You can't carry any more!":100d `found=0:n=1max:m$(n)=(b$+" ")(7)l(n)=setfound=n:3040 n found100d Tn=1max:o$(n)=(b$+" ")(14)l(n)=setfound=n:3040 n +found"That's not possible!":100d 100d pfound3found5l(3)*l(4)*l(5)"You can only carry one treasure at a time.": Xfound=3"The harp cries 'Master! Master!'You hear sounds of movement nextdoor." )"OK..":l(found)=0:i=i+1: "There is a loud scream as you fall to your death, narrowly missing your house.":n=60<0-2:.01z# =,n:n:9000(# N"Gurgle..gurgle..gurgle...... You have fallen in the water anddrowned.":n=60<0-2:.01z# =,n:n:9000(# #b$="""Unlock what??":100d b$="safe"3350 Eb$"door"b$"castle door""It doesn't have a keyhole!":100d :set1850:"There is no door to unlock.":100d 9l(23)"It's already unlocked, silly!":100d 3l(11 )"You don't have the key.":100d [l(14)=-1"You can't quite manage to get the key into the lock.":100d 9l(17)"The key is jamming the lock.":100d *"Clunk!":l(23)=1:100d P.01z# =,10 :"Combination please: ";a$:a$=""űa$>10 3300 l502:n=1̱a$:a$(n);:a$(n)<"0"a$(n)>"9"20,7;"That's not a number!":3390> ?m=1̰a$(n):.01z# =,0:10 :m:502:n Sa$="3725"20,7;"Click.":100d:l(27)=1:3390> a$="4234"a$="7345"20,7;2;"Boom!!":n=60<0-5:.01z# =,n:n/10 :" ":n/10 ;p$:n:" ":n=1150:n::"The safe blows up in your face. This has unfortunately caused you to meet your maker.":9000(# " IS WRONG!!!":3390> 5set2450 "There is no safe here.":100d ^:1:255,0:0,175:-255,0:0,-175:" " 557,47/:65A,0:0,81Q:-65A,0:0,-81Q:120x,47/:8,8:0,81Q:-65A,0:-8,-8:120x,128:8,8 Vp$=21+1:n=615:p$=p$+22+n+7+" ":n %|11 ,9 ;0;140;140:0;96`,104h,4:0;96`,104h,7 *0;7;p$ /18,7; 4 3300 >%100d:0::" ":20 H$b$="""Examine what??":100d M=l(25)=0"There's not enough light.":100d R}found=0:n=1max:m$(n)=(b$+" ")(7)(l(n)=setl(n)=0)found=1:"You see.."'d$(n) Wn:found100d \mn=110 :e$(n)=(b$+" ")(10 )e(n)=setfound=1:"You see.."'d$(n+16) an:found100d fpn=1max:o$(n)=(b$+" ")(14)(l(n)=setl(n)=0)found=1:"You see.."'d$(n) kn:found100d p+"You see nothing interesting.":100d ;found=0:n=1max:l(n)0n:36408 5found"You have the following.."::found=1 $ 700 .n 8$found"You don't have anything!" B !b$="""Open what??":100d &b$="safe"b$="safe door"3900< Fb$"door"b$"castle door""That would be a great feat!":100d 8set1850:"There is no door to open.":100d *l(23)"It's locked!!":100d :"Creak! The door swings open.":no=2000:100d <=set2450 "There ain't no safe here, man!":100d F+l(27)"It won't open.":100d P6l(27)=2"It's already open.":100d ZSl(27)=2:l(15)=2450 :"You open the safe door.":100d  b$=""a$;" what??":100d ,found=0:b$="gloves"found=14 b$="boots"found=7 &found"Don't be silly!":100d Fl(found)=0i=i-1:l(found)=-1:"OK..":4070 5l(found)=setl(found)=-1:"OK..":4070 "I see no ";b$;"!":100d Jset=1050l(7)+l(14)=-2up=1550:100d Jset=1650rl(7)+l(14)=-2do=1600@:100d  100d  b$=""a$;" what??":100d ,found=0:b$="gloves"found=14 b$="boots"found=7 "$found"Are you nuts?":100d ,+set=1600@set=15503100 6)l(found)=-1l(found)=set:"OK.." @found499 Jup=1550up=0 Tdo=1600@do=0 ^ 100d h b$="""Oil what??":100d r,b$"key"b$"rusty key""Why?":100d w3l(11 )"You don't have the key!":100d |7set1100L"I can see no lubricants.":100d g"OK..":l(17)=1:o$(11 )="shiny key":d$(11 )=" a nice, gleaming mortice key." -n=14:c(11 ,n)=5:n  100d @b$""b$"sand"b$"in sand""You must be joking!":100d :l(16)"You have no digging implement.":100d 7set2750 "There is nothing to dig.":100d @l(9 )9999'"You are too hungry to dig!":100d K"Scrape..scrape.. A hole appears in the sand.":l(4)=set:100d 0 b$="""Tie what??":100d :6b$"rope to cow""This is not possible!":100d D(set1050"What cow?":100d S,l(6)"You have no rope!":100d XMl(20)=1:"Mooo!! The cow is now tied by the neck.":100d  b$=""a$;" what??":100d }found=0:n=1max:m$(n)=(b$+" ")(7)l(n)=0"OK..":found=1:l(n)=set:i=i-1 n found100d qn=1max:o$(n)=(b$+" ")(14)l(n)=0"OK..":found=1:l(n)=set:i=i-1 n "found"You don't have ";b$;"!"  100d  b$=""a$;" what??":100d Wb$"door"b$"cupboard door""I don't think that would be a good idea!":100d cset=1850:set=1000set=1050set=1400x"The door is too strong.":100d 4set21004"You see no door here.":100d <l(13 )"You've nothing to smash it with!":100d :l(28)"You'll need some refreshment!":100d $l(24)=1:ea=2200 I"Crunch!! The remains of the cupboard door fall away to the side."  100d  b$=""a$;" what??":100d ")b$"match""Be reasonable!":100d ,(l(12 )"What match??":100d 65l(25)=1"That was a waste!":100d @2l(25)=2:"That's better!":100d |>l(20)=2:e(4)=9999':l(2)=set: 8l(33!)=e(4):l(34")=set:l(35#)=i  "Jack"l()  100d "Please wait..":7000X "Start tape.." D"Jack"l():e(4)=l(33!):set=l(34"):i=l(35#) l(17)n=14:c(11 ,n)=5:n:o$(11 )="shiny key":d$(11 )=" a nice, gleaming mortice key."  20 p b$="""Eat what??":100d z6b$"food""That would not be very nice!":100d Cl(9 )setl(9 )0"There is no food.":100d V"There are sounds of munching as you eat the food.":l(9 )=0i=i-1 l(9 )=9999'  100d 8 b$=""a$;" what??":100d :>l(25)=0"You can see nothing to ";a$:100d =b$="water"6300 B@b$"wine"b$"bottle of wine""That's impossible!":100d LEl(10 )setl(10 )0"There is no wine.":100d V8l(28)=1:"You drink some wine.":100d wset1450set2700 "This is a very dry area. In factit is so dry there is no water to drink.":100d "Due to a lack of pollution controls in this area, the waterwhich you have just drunk was highly toxic. This has meant that you are now an Ex-Jack." 9n=60<1-1:.01z# =,n:n:9000(# l(18)l(18)=0:l(19)=1::11 ,15;"ZZZzzzzz!!":8200 :200:0:20  =:10 ,10 ;"ZZZZZzzzzz!!":n=1400:n  20 -n=60<0-1:.01z# =,n:n ҏ"Due to your slow reactions the GIANT has caught you and bitten your head off. This has caused your bodily functions to cease.":9060d# ,!b$="""Chop what??":100d 6=b$"beanstalk""That would be a waste of time!":100d @3l(1)"You do not have the axe!":100d J;set1050l(19)"What beanstalk?":100d T 9000(# X 7400 ]max=16 bl(35#):o$(max,14) l.e$(10 ,10 ):d$(26,46.) vm$(max,7):e(10 ) {c(max,4) }0n=1max:m=14:c(n,m):m:n *n=1max:l(n),o$(n),m$(n),d$(n):n 2n=110 :e(n),e$(n),d$(n+16):n  !5,6,6,6 !6,3,4,4 !6,6,6,6 !4,4,4,4 !7,7,7,7 !6,6,6,6 !7,7,7,7  !5,5,5,5 !6,4,6,6 !4,4,4,4 !3,3,3,3 !5,6,5,6 $!5,5,6,5 )!6,6,6,6 .!6,6,6,6 3!6,6,5,5 L82800 ,"axe","axe"," an axe with a wooden handle" ML9999',"magic beans","beans"," some multi-coloured magic beans" N92350. ,"golden harp","harp"," a magic golden harp" OA9999',"money bag","bag"," a cloth bag full of gold coins" PR2200,"magic goose","goose"," a magic goose that lays golden eggs" Q;1300,"coil of rope","rope"," a coil of brown rope" RA1000,"climbing boots","boots"," a pair of Doc Martins!!" SL2050,"library book","book"," an old book with parchment pages" T921004,"some food","food"," an apple and a banana" US2150f,"bottle of wine","wine"," une bouttelle de Bordeaux Blanc 1967" V32950 ,"rusty key","key"," an old rusty key" W@2750 ,"box of matches","matches"," a box of Swan Vestas" XP2400` ,"sledge hammer","hammer"," a rather fine Stanley sledge hammer" YC1200,"leather gloves","gloves"," a pair of leather gloves" ZG9999',"old parchment","parchment"," that it says 'tricky shot'" [<2850" ,"spade","spade"," a spade with a metal handle" `62450 ,"safe"," a safe with a combination lock" aC2500 ,"scoreboard"," a scoreboard with score 37 25 on it" b12050,"phone"," a GPO 'phone number 4234" c31050,"cow"," a pretty black and white cow" dD1450,"waterfall"," a waterfall with pretty rainbow" e,1100L,"oil"," a pool of Castrol GTX" fA1050,"beanstalk"," a huge green plant climbing high" gD1850:,"door"," a HUGE wooden door with mortice lock" h52550 ,"television"," a DECCA 45"" goggle-box" i62250,"sign"," a sign saying 'EMERGENCY EXIT'" @d::8200 :5,15;"JACK";7,15;"and the";9 ,15;"BEANSTALK" O 7000X T1#0;" Press any key to continue":0 ^P:255,0:0,175:-255,0:0,-175 h1'''" JACK and the BEANSTALK ______________________"'''" In this adventure you play the part of Jack. Your aim is to steal the three treasures from the evil GIANT. They are.." rx1'" 1. The magic goose."'" 2. The golden harp."'" 3. The bag of gold coins."'''" GOOD LUCK!!" ?#0;" Press any key to start":0:0:" " /n=0-10 -1:0.05|L,n:n  1:" " ?20,0;4;" " _0,0:255,0:0,175:-255,0:0,-175  x=70F n=161602 !rnd= &/x=x+(rnd>.5)-(rnd<.5)+(x0) (Krnd>.95s333n>164;20-n/16,3-*6 )L>.95s3334;x,n:4;-20+n/16,3-*6 +!=13 .1}L,0: 074;x,n:4;(175-n)/10 ,0 5.0025x# =,n/6 :n D #29n=35:l(n)<1550score=score+1 #<n #Ascore=0"You have failed miserably. Due to you not being able to get onepiece of treasure back, your mother is sure to starve.":9060d# #Fscore=1"You have not done too well. Onlyone of the treasures will not last very long. Especially with inflation at 300%.":9060d# #Ktscore=2"Two out of three ain't bad. Mum won't starve, but she won't be all that rich either.":9060d# #Zoscore=3"Congratulations. You've managed to collect all the treasures. You live happily ever after." #d0.01z# =,10 :"Another game? (y/n) ";a$ #ia$=""a$="Y" #n*a$(1)="y"a$(1)="Y"0 #x 'Tape '559999_:"Load":"Jack.UDG":"Jack"9999' '""Jack.UDG"60000`,512 ' !"Verify":"Jack":"Jack.UDG": '59999_:"Jack.UDG": Jack.UDG ` ]~<<<<8x|< <890p8>555555`PPPp55576<88` ?8nx``??c"$%%$$"! >""9FBBB>?@@? 0xx|>Tl?< pp~BJJ~~~ ~~~~~"B8p @pPPPP =AH0|~