Pub Quest (C64) BASIC Listing
This is possibly the most boring post ever, but I wanted to preserve this silliness for posterity.
This is the listing for the first commercially published game I ever made. It’s called “Pub Quest”, it’s 100% BASIC, and I wrote it in 1983. The game was published by a Dream Software based in Basingstoke. They were a nice bunch and I met them once at ECTS way-back-when. I wrote another text adventure called “Mad House”, that used a disk based database (very swish) and was massive with 100s of locations. Sadly Dream Software when bust before it got published and the game was lost forever.
Looking through the listing, all I can say is, it’s pretty crap code. Enjoy!
1 rem "tttttt ***** (c) c.p.shrigley 1983 *****2 rem "tttttt3 rem "tttttt5 poke 774,248: poke 775,252: poke 808,2307 poke 53272,21: poke 53280,5: poke 53281,11: print chr$(8): gosub 8000: ss=1: bc=159 poke 650,128: print"“": poke 53281,1: poke 53280,15: dim co$(13): sc=0: nn=30: t=010 poke 53272,22: print chr$(8): r=1: dim r$(87),ob$(32),o$(32),o(32),de$(87): gosub 500020 print"“"30 if (r=32 or (r>=23 and r<=30) or r>38) and t=0 then kk=1: goto 5040 kk=050 if kk=1 then print"£qqGosh isn't it dark in here.": goto 15590 if f2=1 then 155100 print"You're "; r$(r)101 gosub 16010110 print"‘qYou can see : q"120 for i=1 to nn: if o(i)=r then print ob$(i): f1=1130 next: if f1=1 then f1=0: goto 150140 print"Nothing of any use to you here.": goto 151150 print"qhere.": f1=0151 print"•qExits are : ";152 gosub 2900155 if r=31 then print"qYou have failed. Thanks for playing.": goto 2408156 if du>2 then poke 198,0: gosub 4600158 if ti$>tl$ then tl=1159 if tl=1 then tl=0: gosub 3300160 print"£qqWhat shall I do ?": print">–";165 in$="": bb$=""170 gosub 20000175 if rt=1 then rt=0: goto 159180 for i=1 to len(in$): if mid$(in$,i,1)=" " then ch=i: l1=1190 next: if l1=0 then 196195 bb$=mid$(in$,ch+1,(len(in$)-ch+1)): l1=0: in$=left$(in$,(len(in$)-len(bb$))-1)196 gosub 22000200 if in$="n" or in$="north" then a=1: gosub 1000: goto 999210 if in$="s" or in$="south" then a=3: gosub 1000: goto 999220 if in$="e" or in$="east" then a=5: gosub 1000: goto 999230 if in$="w" or in$="west" then a=7: gosub 1000: goto 999240 if in$="take" or in$="get" then gosub 1100: goto 999241 if in$="eat" then gosub 4900: goto 999242 if in$="drive" then gosub 10020: goto 999243 if in$="pay" then gosub 10700: goto 999244 if in$="steal" then print"I'm no thief!": f2=1: goto 999245 if left$(bb$,3)="cup" then gosub 4650: goto 999246 if bb$="car" then gosub 4700: goto 999247 if left$(bb$,3)="com" then gosub 4710: goto 999248 if in$="climb" then gosub 4800: goto 999249 if in$="jump" then gosub 4850: goto 999250 if in$="i" or in$="inv" or in$="inventory" then gosub 1200: goto 999251 if (in$="walk" and r=6) and pb=1 then r=7: un=0: f2=0: sc=sc+100: goto 999260 if in$="look" or in$="l" then f2=0: goto 999270 if in$="push" or in$="press" then gosub 1300: goto 999280 if in$="throw" then gosub 1400: goto 999290 if in$="open" then gosub 1500: goto 999300 if in$="exam" or in$="examine" then gosub 1600: goto 999:310 if left$(in$,3)="unl" then gosub 1700: goto 999320 if in$="drop" then gosub 1800: goto 999330 if bb$="torch" then gosub 1900: goto 999380 if bb$="n" or bb$="north" then a=1: gosub 1000: goto 999390 if bb$="s" or bb$="south" then a=3: gosub 1000: goto 999400 if bb$="e" or bb$="east" then a=5: gosub 1000: goto 999410 if bb$="w" or bb$="west" then a=7: gosub 1000: goto 999420 if in$="buy" then print"£qWhat wiv' ? Buttons ?": f2=1: goto 999430 if in$="time" then gosub 2000: goto 999440 if bb$="glove" then gosub 2100: goto 999450 if bb$="something" or in$="something" then gosub 2130: goto 999460 if bb$="bed" then gosub 2200: goto 999470 if in$="read" then gosub 2300: goto 999480 if in$="quit" then gosub 2400: goto 999490 if in$="help" then gosub 2600: goto 999500 if in$="rub" then gosub 2700: goto 999510 if in$="light" then gosub 3500: goto 999520 if in$="tie" then gosub 3600: goto 999530 if in$="fill" then gosub 3700: goto 999550 if in$="wear" then gosub 3800: goto 999560 if in$="save" then gosub 4000: goto 999570 if in$="load" then gosub 4100: goto 999580 if in$="list" then gosub 4300: goto 999590 if in$="function" or in$="func" then gosub 4400: goto 999600 if in$="border" then gosub 7500: goto 999610 if in$="screen" then gosub 7530: goto 999620 if in$="command" then gosub 7550: goto 999630 if in$="smash" or in$="break" or in$="kill" then gosub 7800: goto 999650 if in$="score" then gosub 7950: goto 999670 if in$="freeze" then gosub 10500: goto 999998 print"I'm afraid I didn't understand that": du=du+1: f2=1: goto 90999 du=0: goto 301000 a$=mid$(de$(r),a,2): ct=ct+1: if lf=1 then 10021001 if ct>25 and t=1 then tc=1: t=0: ct=0: print"£qYour light source has run out.": f2=1: return1002 if val(a$)=0 then p=1: goto 10271003 if (r=6 and hh=1) and a=3 then un=0: goto 10221004 if (r=6 and hh<>1) and a=3 then 10271005 if (r=2 or r=20) and a=7 then gosub 6020: goto 10131006 if ((r=2 or r=20) and un=1) and a=7 then goto10221007 cc=01008 if t=0 then ct=01009 if r=3 and a=7 then gosub 6000: goto 10131010 if (r=3 and un=1) and a=7 then goto10221011 gosub 3000: if bo=1 then bo=0: goto 10271012 cc=01013 if cc=1 then cc=0: goto 10221014 if cc=2 then cc=0: goto 10221015 if cc=3 then cc=0: if un<>1 then 10301016 if (r=61 and a=5) and pe=0 then print"q£You've fallen down the crevasse.": r=31: goto 1551017 if (r=73 and so=0) and a>2 then print"£qYou've been asphixiated by the gas.": r=31: goto 1551018 if (o(12)=0 and r=39) and a=7 then gosub 39001019 if (r=32 or (r>=23 and r<=30) or r>38) and t=0 then mo=mo+1: print"q£It's dark,you might fall"1020 if mo>4 then mo=0: print"£qOh dear,It looks as though you've fallen": r=31: goto 1551022 if un=1 and r=3 then sc=sc+501023 r=val(a$)1024 f2=0: return1027 if p=1 then p=0: print"—qI'm afraid you can't go that way": f2=1: return1028 if r=6 then print"£That's to dangerous.You might get splattered.": f2=1: return1029 if r=19 then f2=1: return1030 print"—qYou've just walked into a locked door": f2=1: return1100 if bb$="spider" and r=62 then gosub 3080: f2=1: return1110 for p=1 to nn: if o$(p)=bb$ and o(p)=r then dd=p: goto 11601130 next1131 for p=1 to nn: if o$(p)=bb$ and o(p)<>r then print"—I don't see one here.": f2=1: return1132 next1135 if bb$="" then bb$="thingy"1140 print"—To ";in$;" a ";chr$(34);bb$;chr$(34);" is beyond my power.": f2=1: return1160 if no>5 then print"—I can't carry anything else.": f2=1: return1161 if o$(dd)=bb$ and no<=5 then print"O.K.": ok=1: no=no+11163 if ok=1 then ok=0: o(dd)=0: f2=1: return1165 print"—qWhat's a ";chr$(34);bb$;chr$(34): f2=1: return1200 ff=0: print"—“You're carrying : q"1210 for i=1 to nn: if o(i)=0 then print ob$(i): ff=11220 next1230 if ff=0 then print"nothing at all.": f2=1: return1240 if ff=1 then ff=0: f2=1: return1300 if bb$="button" then 13201310 print"£Wow, that really helped.": f2=1: return1320 if (o(9)=0 and r=6) and wg=1 then goto 13601325 if r=6 then goto 13301326 print"£qI don't see a button here.": f2=1: return1330 print"£“You press the red button and a nasty poison spike sticks into"1340 print"your thumb.You fall to the floor unconsious."1350 r=31: goto 1551355 hh=0: f2=1: return1360 print"you press the red button and a little sign lights up above your head1370 print"It says ‘r'WALK NOW'’"1380 pb=1: hh=1: f2=1: sc=sc+500: return1400 if bb$="" then print"£qThrow what ";: input"]]]*";bb$: print1401 rn=8+(int(rnd(1)*8)+1)1402 if bb$="slab" and (r<>18 and r<>33) and o(3)=0 then o(3)=rn: print"O.K.": f2=1: return1403 if (r=44 or r=72) and bb$="canister" then gosub 30901404 if ca=1 then ca=0: f2=1: return1405 if r=18 and bb$="slab" and o(3)=0 and cv=0 then goto 14701407 if r=33 and bb$="slab" and o(3)=0 and cj=0 then goto 14901415 for i=1 to nn: if bb$=o$(i) and o(i)=0 then bb=i: s=11420 next1425 if s<>1 then 14401430 s=0: gosub 1492: o(bb)=r: print"O.K.": no=no-11431 if bb=4 then t=01432 if bb=5 then t=01433 if bb=26 then so=01439 f2=1: return1440 print"£I can't throw something I haven't got.": f2=1: return1470 print"£“The paving slab lands in the mine field. There is a deafening ";1480 print"explosion and rubble showers down all around.": o(16)=r: et=1: cv=11485 if et=1 then et=0: sc=sc+500: f2=1: return1490 print"“The paving slab rips into the side of the shed leaving a gaping hole"1491 o(15)=r: de$(33)="22350000": sc=sc+500: cj=1: f2=1: return1492 if bb$="hook" or bb$="rope" then 14941493 f2=1: return1494 if ((o(19)=0 and o(11)=0) and pe=1) and r=61 then 14961495 o(19)=r: o(11)=r: pe=0: f2=1: return1496 print"£qThe hook and rope sails through the air and catches on an outcrop ";1497 print"of rock on the far side of the cravass."1498 print"qIt looks safe to cross."1499 sc=sc+200: f2=1: return1500 if bb$<>"door" then 15201501 if un=1 then goto 17001502 if bb$="door" and o(1)=0 or o(2)=0 then print"£qTry unlocking it first.": gg=11505 if gg=1 then gg=0: f2=1: return1510 if bb$="door" and o(1)<>0 or o(2)<>0 then print"£qYou could unlock it IF you had a KEY"1515 f2=1: return1520 if bb$<>"book" then print"£You can't open a ";bb$;".": f2=1: return1521 if bb$="book" and o(8)=0 then z=1: print"£qThe book falls open and you see the word"1522 if z=1 then print" rTOILET’ IS A RELIEVING WORD.": sc=sc+100: f2=1: return1530 print"£qYou don't have a book.": f2=1: return:1540 f2=1: return1600 if bb$="self" or bb$="yourself" or bb$="you" then 16201601 if bb$="me" then print"œI seem to be a COMMODORE 64.": f2=1: return1602 if bb$="card" then 16921604 if bb$="button" then 16511605 if bb$="bar" then 16801607 for i=1 to nn1608 if o$(i)=bb$ and o(i)<>0 then print"œYou haven't got a ";bb$: f2=1: return1609 next1610 for i=1 to nn1611 if o$(i)=bb$ and o(i)=0 then print"œThe ";bb$;" looks normal to me.": f2=1: return1612 next1613 for i=1 to nn1614 if o$(i)=bb$ and o(i)<>r then ew=11615 if ew=1 then ew=0: print"œI can't examine something I havn't got": f2=1: return1616 next:1617 if bb$="" then print"œEverything looks very normal to me.": f2=1: return1618 print"The ";bb$;" looks rather like a ": print bb$;" to me.": f2=1: return1620 if pp=0 then print"qYou begin to rummage through your q pockets, ";1630 if pp=0 then print"'WHAT'S THIS' you cry, q 'A KEY ?'"1632 if pp=1 then print"qœYou rummage through your pockets and find nothing.": po=11633 if po=1 then f2=1: po=0: return1640 o(2)=0: sc=sc+300: pp=11645 f2=1: return1650 if lc=1 then print"šIt's already unlocked.": f2=1: return1651 if r<>6 then print"I don't see a button here.": f2=1: return1660 print"A torn note hangs from the button.It reads : 'FOR SAFE CROSSING ";1670 print"WEAR ....' The rest of the note is missing.": f2=1: return1680 if r<>2 then print"œqThere isn't a bar here.": f2=1: return1681 if r=2 then print"£qThere's a sign on the bar that says : ": br=11682 if br=1 then br=0: goto 16901690 print"œq]]]]]]]r'WE TAKE AMERICAN EXPRESS'’": sc=sc+100: f2=1: return1692 if o(13)=0 then print"£qThe word r'BARCLAYCARD'’ is written across it": cr=11694 if cr=1 then cr=0: f2=1: return:1695 if cr=0 then print"You haven't got a card.": f2=1: return1696 gosub 1684: return1700 if un=1 then 17051701 if r=2 and o(1)=0 then un=1: goto 17201702 if r=20 and o(2)=0 then un=1: goto 17301703 if r=2 or r=20 then 17101704 if r<>2 or r<>20 then print"šDon't be silly.": f2=1: return1705 print"œIt has already been ";in$;"ed.": f2=1: return1710 print"œYou don't have the key.": f2=1: return1720 print"—The door swings open to reveal the gentstoilets": sc=sc+200: f2=1: return1730 print"—The door swings open to reveal a large hallway": f2=1: return1800 if bb$="" then print"£qDrop what ";: input"]]]*";bb$: print1801 if (r=44 or r=72) and bb$="canister" then gosub 31201802 if cx=1 then cx=0: f2=1: goto 1551804 if (bb$="bottle" and r=25) and o(7)=0 then gosub 21401805 if bb$="glove" then wg=0: goto 18101807 if bb$="all" then gosub 4950: f2=1: no=0: return1810 for i=1 to nn: if o$(i)=bb$ and o(i)=0 then dd=i: jp=11814 next:1816 if jp=1 then jp=0: goto 18401818 print"£I can't drop something I haven't got.": f2=1: return1840 o(dd)=r: f2=1: print"O.K.": no=no-11845 if r=84 then f2=1: return1850 if dd=4 then t=01851 if dd=5 then t=01852 if dd=26 then so=01853 if r>38 and r<86 then print"£The ";o$(dd);" is carried away ": et=11854 if et=1 then et=0: print"into the depths of the sewer system by the ";: et=11855 if et=1 then et=0: print"strong flow of sewage.": o(dd)=38+int(rnd(1)*45)+11856 if r=86 then print"£The ";o$(dd);" is lost in the ": et=11857 if et=1 then et=0: print"thick branches.": o(dd)=851860 return1900 if tc=1 then print"£qYou can't do that with a melted torch.": f2=1: return1905 if (in$="on" and o(4)=0) and t=1 then 19921906 if in$="on" and o(4)=0 then 19501910 if (in$="off" and o(4)=0) and t=0 then 19951912 if in$="off" and o(4)=0 then 19701920 if in$="light" and o(4)=0 then 19901930 if (in$="on" or in$="off" or in$="light") and o(4)<>0 then tu=11932 if tu=1 then tu=0: print"£qYou don't have the torch.": f2=1: return1940 print"£qYou can't do that with a torch": f2=1: return1950 print"£qO.K. the torch is now on.": t=1: f2=1: return:1970 print"£qO.K. the torch is now off.": t=0: f2=1: ct=0: return1990 print"£qYou hear a strange sizzleing noise and your torch melts in your hands."1991 tc=1: t=0: f2=1: ct=0: ob$(4)="a melted torch": return1992 print"£qThe torch is already on.": f2=1: return1995 print"£qThe torch is already off.": f2=1: return2000 print"œqqYou've been playing : "2010 ho=val(mid$(ti$,1,2))2020 mi=val(mid$(ti$,3,2))2030 print"—q";ho;" HOURS & ";mi;" MINUTES.": f2=1: return2100 if wg=1 and in$="wear" then print"ŸYou're already wearing it.": f2=1: return2102 if in$="wear" and o(9)=0 then wg=1: print"£qYou are now wearing the glove.": ww=12105 if ww=1 then ww=0: sc=sc+200: f2=1: return2110 gosub 9000: return2130 if r=25 then print"The tramp smiles and asks for a drink.": so=1: sc=sc+200: f2=1: return2140 if so=1 then print"The tramp is very happy and lets you pass.": r=36: sc=sc+200: return2150 print"The tramp doesn't want a drink YET.": f2=1: return:2200 if in$="enter" and r=30 then 22402210 if in$<>"exit" then gosub 9000: f2=1: return2215 if ob=1 then print"£qYou're not in bed.": f2=1: return2220 if ib=1 and r=30 or r=84 then ob=1: print"You leave the bed after a refreshing sleep."2222 sc=sc+200: o(21)=30: r=302230 f2=1: return:2240 if ib=1 then print"£qYou lasy thingy ! You're not sleeping again.": f2=1: return2250 if o(8)=0 then ib=1: print"You get into bed and settle down to sleep": r=84: f6=12255 if f6=1 then f2=1: sc=sc+50: f6=0: return2260 print"£qYou get into the bed only to find a hugesnake keeping you company."2270 print"The snake strikes and you pass out.": r=31: goto 1552300 if bb$="book" then gosub 1500: f2=1: return2310 gosub 9000: f2=1: return2400 print"“œqARE YOU SURE YOU WANT TO QUIT ?"2402 input qu$2404 if left$(qu$,1)="y" then 24082406 if left$(qu$,1)="n" then f2=1: return2408 print"qqœr <ANY KEY TO CONTINUE> ’"2409 get a$: if a$="" then 24092410 print"“"2420 gosub 7950:2450 gosub 2000: goto 45002500 if th<>1 then p=1: return2600 if r=61 then print"œqrTry for the long shot.’": f2=1: return2610 if r=44 or r=72 then print"œqrBandit to rid the sewer.’": f2=1: return2620 print"œqrWho's playing this game,me or you ?’": f2=1: return2700 print"—Nothing happened.": f2=1: return2900 g=1: for i=1 to 8 step 2: qw$=mid$(de$(r),i,2)2910 if val(qw$)<>0 then print d$(g);",";: f7=12920 g=g+12930 next: if f7=0 then print"none ";2940 f7=0: print".": f2=1: return3000 if r=33 and o(15)<>33 and a=3 then bo=1: return3001 if r=18 and o(16)<>18 and a=3 then x=1: print"“£qYou enter the mine field detonating a"3002 if x=1 then x=0: goto 30043003 goto 30063004 print"mine.You explode into little bits and make a terrible mess."3005 r=31: goto 1553006 if r=25 and (so=0 or o(7)<>r) and a=7 then print"£qThe tramp won't let you.": goto 9993007 for i=1 to nn: if o(i)=0 then ci=ci+13010 next3020 if (r=19 and a=5) and ci>3 then print"“q£A little man dressed in a boiler suit";: ws=13025 if ws=1 then ws=0: ci=0: goto 30303026 sc=sc+100: ci=0: goto 30643030 print" jumps out of the hole and says : ":3040 print"q'YOU CAN'T ENTER HERE WITH MORE THAN THREE OBJECTS'"3050 print"qthen he jumps back in muttering"3060 print"something about safety precautions.": f2=1: bo=1: return3064 if (r=44 or r=72) and pc=0 then print"£qYou're attacked by savage rats": r=31: goto 1553070 f2=1: return:3080 print"£qYou try to ";in$;" the spider,but it ";in$;"s you instead.": r=31: return3090 if o(21)=0 then f=1: print"£qYou throw the smoke canister into the mass of rats,";3095 if f=0 then return3100 print"it explodes into a cloud ofsmoke and the rats flee in all "3110 print"directions.They are still here but it's safe to pass.": ca=1: pc=13115 o(21)=85: f2=1: f=0: return3120 print"£qYou drop the canister and it envelopes you in choking smoke.": r=313130 cx=1: return3300 print"£“I'm afraid your time is up.The debt collectors are here to take";3310 print" you away.Youhave failed.Bad luck.": r=31: dh=1: goto 1553500 if nm=1 and bb$="lamp" then print"£qYou have nowt to light it with.": f2=1: return3510 if ((bb$="lamp" and o(5)=0) and o(6)=0) and r>=39 then 3590:3515 if (bb$="lamp" and o(5)=0) and o(6)=0 then 35503520 if (bb$="matches" and o(6)=0) and nm=0 then 35803530 print"£qI'm no arsonist.": f2=1: return3550 if t=1 then print"£qThe lamp is already lit.": f2=1: return3560 print"£qO.K. The lamp is now lit.": t=1: sc=sc+100: f2=13580 print"£qA blaze of light and no matches left.": nm=1: f2=1: o(6)=85: return3590 print"£qAs you light the lamp you ignite a cloudof smelly gas."3592 print"£You explode into little bits.": r=31: goto 1553600 if (bb$="rope" and o(11)=0) and o(19)=0 then 36503610 if (bb$="hook" and o(11)=0) and o(19)=0 then 36703620 print"£qI see nothing to tie the ";bb$;" to.": f2=1: return3650 if pe=1 then gosub 9050: return3660 print"£qThe rope is now securely tied to the hook.": pe=1: sc=sc+200: f2=1: return3670 if pe=1 then gosub 9050: return3680 print"£qThe hook is now securely tied to the rope.": pe=1: f2=1: return3700 if lf=1 then print"£qThe lamp is already full.": f2=1: return3705 if o(22)=0 and o(5)=0 then 3750:3710 if o(22)=0 then print"£qYou can't fill something you haven't got": f2=1: return3720 if o(5)=0 then print"£qYou've got nowt to fill it with.": f2=1: return3730 print"£qFill what ?": f2=1: return3750 print"£qThe lamp is now full of oil."jf=1: lf=1: sc=sc+500: f2=1: ct=0: return3800 if in$="wear" then 38303810 gosub 9000: return3830 if o(26)=0 then so=1: print"£qO.K. You're now wearing the suit.": sc=sc+200: f2=1: return3840 print"£qYou don't have a ";bb$;".": f2=1: return3900 for i=1 to nn: if o(i)=0 then df=df+13901 next3902 if df>1 then f4=1: df=03903 if f4=1 then f4=0: goto 39053904 df=0: f2=1: return3905 print"“œqAnother little man jumps out from behind a wall an says : "3910 print"q£'Ahhh ! It's you again,I'm afraid you can only take one object ";3920 print"out of the sewers with you'œq"3930 print" then he jumps back and dissapears.": f2=1: df=0: goto 9994000 print"“Do you want to save current game (Y/N)"4010 input yn$: if yn$="y" then 4026:4015 if yn$="n" and dh=1 then 40954020 if yn$="n" then f2=0: return4025 goto 40004026 print"qInsert game tape into the tape & press r*’"4027 get sp$: if sp$="" then 40274028 if sp$<>"*" then 40274030 print"Please type in name of current game : "4035 in$=""4040 gosub 200004041 print"q£Is ";chr$(34);in$;chr$(34);" the correct title (Y/N) ?"4042 get yn$: if yn$="" then 40424043 if yn$="y" then 40504044 if yn$="n" then in$="": print"‘ ‘‘‘‘‘";: goto 40304045 if yn$<>"y" or yn$<>"n" then 4042:4050 open 1,1,1,in$4060 gosub 300504065 for i=1 to 8: print#1,f$(i): print#1,f(i): next4070 for i=1 to nn4080 print#1,o(i)4090 next: print#1,"stop": close14093 print"qqqq]]]]]]]]]O.K. GAME ";chr$(34);in$;chr$(34);" SAVED"4094 gosub 170004095 if dh=1 then print"qq]]]]]]]]]]]]]]]goodbye!!": poke808,237: end: rem poke115,964096 gosub 171004099 f2=1: return:4100 print"“Do you want to load a game (Y/N)"4110 input yn$: if yn$="y" then 41264120 if yn$="n" then f2=0: return4125 goto 41004126 print"qInsert game tape into the tape & press r*’"4127 getsp$: if sp$="" then 41274128 if sp$<>"*" then 41274130 print"Please type in name of game to load : "4135 in$=""4140 gosub 200004141 print"q£Is ";chr$(34);in$;chr$(34);" the correct title (Y/N) ?"4142 get yn$: if yn$="" then 41424143 if yn$="y" then 41504144 if yn$="n" then in$="": print"‘ ‘‘‘‘‘";: goto 41304145 if yn$<>"y" or yn$<>"n" then 41424150 open 1,1,0,in$4160 gosub 300004165 for i=1 to 8: input#1,f$(i): input#1,f(i): next4170 for i=1 to nn4180 input#1,o(i)4190 next: input#1,a$: if a$="stop" then close14191 gosub 170004195 print: print"qqqq]]]]]]]]O.K. GAME ";chr$(34);in$;chr$(34);" LOADED"4196 gosub 171004199 f2=1: return4230 return4300 for i=1 to 8: if f(i)=1 then print"‘<R> ";: gb=14304 if gb=0 then print" ";4305 print rm$(i);f$(i)4310 if gb=0 then print;4315 if gb=1 then gb=04320 next4330 f2=1: return4400 print"“"4405 input"œDefine function key (1-8)";a4410 if a>8 or a<1 then print"q£function keys 1 to 8 only please.q": goto 44054420 input"œqType in required function ";f$(a)4430 input"qDo you want auto-return (Y/N) ";yn$4440 if left$(yn$,1)="y" then f(a)=1: f2=1: return4450 f$(a)=f$(a)+" ": f(a)=0: f2=1: return4500 input"qDo you want to play again ]]]*";pl$4510 if pl$="y" then 4530:4520 if pl$="n" then dh=1: goto 40004530 clr: restore: goto 14600 print"qLook mate,either you're being very silly,or you haven't ";4605 print"got the slightest idea of how to play an adventure game."4610 print"q‘Now which is it (rS’illy - rN’o idea) ?"4615 in$="": gosub 200004620 if left$(in$,1)="s" then gosub 20500: f2=1: du=0: return4630 if left$(in$,1)="n" then gosub 21000: f2=1: du=0: return4640 print"£q So you are being silly.": in$="s": goto 46204650 if lc=1 then 17054651 if r<>3 then print"—I don't see a cupboard.": f2=1: return4652 if in$="open" then print"—The cupboard door won't move.": f2=1: return4654 if in$="unlock" and o(2)=0 then 46704656 if in$="unlock" and o(2)<>0 and o(1)<>0 then print"—You don't have the key.": f2=1: return4657 if in$="unlock" and o(1)=0 then print"—The key doesn't fit.": f2=1: return4658 if left$(in$,4)="exam" then et=14660 if et=1 then et=0: print"—The cupboard seems to be locked.": f2=1: return:4662 gosub 9000: f2=1: return4670 de$(3)="00000232": r$(3)=r$(3)+".The cupboard isopen.": sc=sc+1004675 print"—O.K. The cupboard is now unlocked.": sc=sc+500: f2=1: lc=1: return4700 if r<>5 and r<>4 then print"—I don't see a car here.": f2=1: return4701 if r=4 and left$(in$,4)="exam" then print"—The car is big,black and shiny.": f2=1: return4702 if left$(in$,4)="exam" then print"—There is a glove compartment here.": f2=1: et=14704 if et=1 then et=0: o(27)=r: f2=1: return4706 gosub 9000: f2=1: return4710 if o(27)<>r then print"—I can't see a compartment here.": f2=1: return4712 if in$="open" and tf=0 then print"—A torch falls out.": f2=1: tf=1: o(4)=r: sc=sc+200: return4714 if left$(in$,4)="exam" and tf=0 then print"—There's something in there.": f2=1: return4715 if left$(in$,4)="exam" and tf=1 then print"—There's nothing in there.": f2=1: return4716 if in$="break" or in$="smash" then print"—You little vandal !": f2=1: return4717 if in$="open" and tf=1 then print"—The glove compartment is already open.": f2=1: return4718 gosub 9000: f2=1: return:4800 if r=38 and bb$="tree" then print"O.K.": r=86: sc=sc+300: f2=1: return4848 print"—My name is not Spider man !": f2=1: return4850 if r=86 and o(30)=38 then print"—You sail through the air and land safely";: et=14852 if et=1 then et=0: print"on the mattress.": r=38: f2=1: return4854 if r=86 and o(30)<>38 then print"—You sail through the air and land SPLATT";: et=14856 if et=1 then et=0: print"on the ground below.": r=31: goto 1554858 if r>38 then print"—œDon't you think that's a bit dangerous.": f2=1: return4859 print"I don't see anything to jump.": f2=1: return4900 if bb$="apple" and o(29)=0 and r=86 then et=1: jm=04902 if et=1 then et=0: print"—You take a big,greedy byte from the apple";: et=14904 if et=1 then et=0: print" but you suddenly notice from the corner of your";: et=14906 if et=1 then et=0: print" eye something that must have come from a horror";: et=14908 if et=1 then et=0: print" film...ARGHHH !!You scream as the worm";: et=1:4910 if et=1 then et=0: print" crawls towards you.Your stomach suddenly ";: et=14911 if et=1 then et=0: print"decides to come up for a drop of fresh air.";: et=14912 if et=1 then et=0: print"You release another agonizing scream as you crash ";: et=14915 if jm=1 then jm=0: print"to the floor clutching your throat.": jm=14916 if jm=1 then jm=0: r=31: goto 1554917 if et=1 then et=0: print"Through the branches of the tree. The ";: et=14918 if et=1 then et=0: print"very,very hard ground rushes towardsyou ";: et=14919 if et=1 then et=0: print"at a very,very alarming rate.You hitthe ";: et=14920 if et=1 then et=0: print"ground with a bone crunchin' THUD!!!‘‘": r=31: goto 1554930 if bb$="apple" and o(29)=0 then et=1: jm=1: goto 49004940 print"œYou'll surely break your teeth!": f2=1: return4950 et=0: for i=1 to nn: if o(i)=0 then o(i)=r: et=14952 next:4953 if r>38 and r<77 and et=1 then goto49564954 if et=1 then et=0: print"œO.K. ";4955 goto49704956 if et=1 then et=0: print"q—All your objects are carried off by the ";: et=14958 if et=1 then et=0: print"strong flow of sewage,into the depths ofthe";: et=14960 if et=1 then et=0: print" sewer system.": et=14962 if et=1 then et=0: for i=1 to nn: if o(i)=r then o(i)=38+int(rnd(1)*38)+1: et=14964 next4966 if et=1 then et=0: f2=1: return4970 if et=0 then print"—You're not carrying anything.": f2=1: return49995000 r$(1)="standing on a pavement running east-west along a busy main road."5002 r$(1)=r$(1)+"To the north there is a pub which looks very welcoming"5004 r$(2)="standing inside the pub next to the bar,there's a door to the west"5005 r$(2)=r$(2)+" and asign above the bar that says: "+chr$(13)5006 r$(2)=r$(2)+"r'WELCOME TO THE CHEQUERED FLAG INN'’"5007 r$(3)="in the gents toilets,on the west wall there is a cupboard"5008 r$(4)="standing next to a parked car ":5010 r$(5)="inside the parked car.The car is very expensive looking"5012 r$(6)="standing in front of a pelican crossing there is a red button "5014 r$(7)="on the other side of the busy main road"5016 r$(8)="standing on a very rough piece of pavement":5018 r$(9)="on a desolate waste ground, all about is horrid, bleak wilderness"5020 r$(10)=r$(9): r$(11)=r$(9): r$(12)=r$(9): r$(13)=r$(9): r$(14)=r$(9)5022 r$(15)=r$(9): r$(16)=r$(9): r$(17)=r$(9)5024 r$(18)="next to a sign which says : "5025 r$(18)=r$(18)+" qr'DANGER MINE FIELD'’":5026 r$(19)="standing next to a huge bomb crater all about there is rubble"5028 r$(20)="standing in front of an old, dirty, derelict house"5029 r$(20)=r$(20)+".A huge doorway looms ominously before you."5030 r$(21)="standing in the front garden. (Gosh what a mess)"5032 r$(22)="standing in the back garden, to the south there is an old shed"5034 r$(23)="inside the house standing in a grotty hallway."5036 r$(24)="in a big living room there are cobwebs everywhere (Yuk)"5038 r$(25)="nearly in a huge kitchen. There is a tramp sitting here, he says"5040 r$(25)=r$(25)+" 'Hello,say something to me and I'll let you pass'"5042 r$(26)="standing at the bottom of a small flight of stairs"5044 r$(27)="on a small landing at the top of the flight of stairs you've just "5046 r$(27)=r$(27)+"come up":5048 r$(28)="inside a big white bathroom "5050 r$(29)="standing in a small,pokey,little bedroom there is a bed "5052 r$(29)=r$(29)+"in the middle,youmust be feeling very,very tired"5054 r$(30)=r$(29)5056 r$(31)="lying in the middle of the busy main road "5058 r$(31)=r$(31)+"There seem to be strange marks across your body "5060 r$(32)="standing inside a big cupboard "5062 r$(33)="standing outside the shed, there doesn't seem to be an entrance"5064 r$(34)="looking inside a deep, dark pocket"5065 r$(38)="standing in the pub's car park"5066 r$(35)="inside the old garden shed"5068 r$(36)="in the big kitchen, the tramp is smiling"5070 ob$(1)="a shiny brass key": o$(1)="key": o(1)=865080 ob$(2)="a dull brass key": o$(2)="key": o(2)=34:5090 ob$(3)="a piece of broken paving slab": o$(3)="slab": o(3)=85100 ob$(4)="a torch": o$(4)="torch": o(4)=855110 ob$(5)="an old lamp": o$(5)="lamp": o(5)=355120 ob$(6)="a box of matches": o$(6)="matches": o(6)=115130 ob$(7)="a bottle wrapped in brown paper": o$(7)="bottle": o(7)=19:5140 ob$(8)="a book called : 'BEDTIME STORIES'": o$(8)="book": o(8)=365145 ob$(9)="a strong leather glove": o$(9)="glove": o(9)=325146 d$(1)="north": d$(2)="south": d$(3)="east": d$(4)="west":5150 de$(1)="02310406"5160 de$(2)="00010003"5170 de$(3)="00000200"5180 de$(4)="00050001":5190 de$(5)="04000000"5200 de$(6)="00070138"5210 de$(7)="06090800"5220 de$(8)="31000007"5230 de$(9)="07121000"5240 de$(10)="00131109"5250 de$(11)="00140010"5260 de$(12)="09151300":5270 de$(13)="10161412"5280 de$(14)="11170013"5290 de$(15)="12001620"5300 de$(16)="13001715"5310 de$(17)="14180016"5320 de$(18)="17190000"5330 de$(19)="18003900":5340 de$(20)="21221523"5350 de$(21)="00200000"5360 de$(22)="20330000"5370 de$(23)="24262025"5380 de$(24)="00230000":5390 de$(25)="00222336"5400 de$(26)="23000027"5410 de$(27)="29302628"5420 de$(28)="00002700"5430 de$(29)="00270000"5435 de$(30)="27000000":5440 de$(31)="00000000"5450 de$(32)="00000300"5460 de$(33)="22000000"5470 de$(34)="00000000"5480 de$(35)="33000000"5490 de$(36)="00002500"5500 de$(37)="00000000"5510 de$(38)="00000600":5520 r$(39)="in the smelly,horrid,dark sewers"5530 for i=40 to 80: r$(i)=r$(39): next5540 ob$(10)="a crisp new fifty pound note": o$(10)="note": o(10)=675550 ob$(11)="an old oily rope": o$(11)="rope": o(11)=765560 ob$(12)="a cheque": o$(12)="cheque": o(12)=64:5570 ob$(13)="a credit card": o$(13)="card": o(13)=655580 ob$(14)="a huge diamond": o$(14)="diamond": o(14)=595582 ob$(15)="a hole in the shed": o$(15)="shriggles": o(15)=855584 ob$(16)="a broken sign": o$(16)="shriggles": o(16)=855585 ob$(17)="a diamond studded bracelet": o$(17)="bracelet": o(17)=265586 ob$(18)="a Swiss-army combination knif e": o$(18)="knif e": o(18)=215587 ob$(19)="a grappling hook": o$(19)="hook": o(19)=80:5588 ob$(20)="an old rusty shovel": o$(20)="shovel": o(20)=29:5589 ob$(21)="a smoke canister": o$(21)="canister": o(21)=855600 de$(39)="41004019"5602 de$(40)="42000039"5604 de$(41)="43394200":5606 de$(42)="00400041"5608 de$(43)="45004441"5610 de$(44)="46006543"5611 de$(45)="66434600"5612 de$(46)="00444845":5614 de$(47)="49464800"5616 de$(48)="50000047"5618 de$(49)="51475000"5620 de$(50)="51480049"5622 de$(51)="53005249"5624 de$(52)="54736851"5626 de$(53)="00515400"5628 de$(54)="00525653":5630 de$(55)="57545600"5632 de$(56)="58540055"5634 de$(57)="00555800"5636 de$(58)="40565957"5638 de$(59)="00600058":5640 de$(60)="59006100"5642 de$(61)="00626360"5644 de$(62)="61000000"5646 de$(63)="64636361":5648 de$(64)="00630000"5650 de$(65)="00000044"5652 de$(66)="00450067"5654 de$(67)="00006600"5656 de$(68)="00006952":5658 de$(69)="00007068"5660 de$(70)="00717469"5662 de$(71)="70000072"5664 de$(72)="00777173"5666 de$(73)="52007200"5668 de$(74)="74757470":5670 de$(75)="76757574"5672 de$(76)="76007675"5674 de$(77)="72000078"5676 de$(78)="00797700"5678 de$(79)="78008000"5680 de$(80)="00000079":5685 gosub 82005690 print"–“Please type in your time limit qq (r 1 2 OR 3 HOURS ’ ";5695 print" Default = 1 hour) "5700 in$="": q$="": print"q]? ";: gosub 200005710 if left$(in$,1)="1" then ti$="000000": tl$="010000": return5720 if left$(in$,1)="2" then ti$="000000": tl$="020000": return5730 if left$(in$,1)="3" then ti$="000000": tl$="030000": return5740 ti$="000000": tl$="010000": return5999 end6000 if o(2)=0 then cc=1: return6010 cc=3: return6020 if o(1)=0 and un=1 then cc=2: return6030 cc=3: return:7000 print"“]]]]]]]]]]]r CONGRATULATIONS ’"7010 print"‘qq]]]]You've managed to solve my first"7015 print"q adventure 'PUB QUEST'"7020 print: print"q You have done very well to have solved"7030 print"q this adventure,if not a little lucky"7040 print"q We will meet again and next time I "7050 print"q won't be so friendly"7060 sc=15000: goto 24087400 print"“sqqqqqqqqqq]]] who's a naughty pirate then ?": poke115,96: end7500 print"—New border colour (0 - 15) ";: input"]]]*";bc7510 poke 53280,bc: f2=1: return7530 print"—New screen colour (0 - 15) ";: input"]]]*";ss7535 poke 53281,ss: f2=1: return7550 for i=1 to 13: print co$(i): next7560 f2=1: return7800 if bb$="" then bb$="thingy"7805 print in$;"ing a ";bb$;" is a symptom of madness": mp=mp+1: bb$=""7810 if mp>2 then mp=0: goto 78307820 f2=1: return7830 print"£It seems you are being taken somewhere rather unpleasant by a ";7840 print"group of men dressed in white coats..."7850 print"‘You're feeling very dqiq]]zqzq]y."7860 r=31: goto 1557950 print"qYour score is ";sc;" out of 15000.":7952 if sc>15000 then print"—qHey thats an amazing score...": et=17954 if et=1 then et=0: print"qšHave you been cheating ?": f2=1: return7960 print"q‘Your rating is : q"7962 if sc<=5000 then print"10th..I'd take up crochet if I were you": f2=1: return7964 if sc<=6000 and sc>5000 then print"9th..Terrible - very amature.": f2=1: return7966 if sc<=7000 and sc>6000 then print"8th..Very bad - are you being silly ?": f2=1: return7968 if sc<=8000 and sc>7000 then print"7th..bad - You're getting better.": f2=1: return7970 if sc<=9000 and sc>8000 then print"6th..not bad - You're getting better.": f2=1: 7972 if sc<=10000 and sc>9000 then print"5th..slightly good - very slightly.": f2=1: return7974 if sc<=11000 and sc>10000 then print"4th..pretty good - well played.": f2=1: return7976 if sc<=12000 and sc>11000 then print"3rd..very good - well played.": f2=1: return7978 if sc<=13000 and sc>12000 then print"2nd..excellent - You're nearly there": f2=1: return7980 if sc<=15000 and sc>13000 then print"1st..Super - I take back the crochet bit": f2=1: return7990 f2=1: return8000 gosub 9100: if in=1 then in=0: return8001 print"“eq]]]]]]]]]rwelcome to 'pub quest'’qqž":8002 yu$="deep in the bowels of the local sewer": gosub 81008004 yu$="system lies the ultimate challenge": gosub 81008006 yu$="it is your job to find the means": gosub 81008008 yu$="to pay off your debt at your local": gosub 81008010 yu$="pub (pause for fanfare)...i wish": gosub 81008011 yu$="you good speed and much luck.": gosub 81008012 print"qq]]]]]]]]]]]‘renjoy yourself!!!’"8020 print"šqqr just tickle the <space bar> to play ";8030 get im$: if im$="" then 80308040 if im$<>" " then 80308050 return8100 lx=len(yu$): if lx/2<>int(lx/2) then yu$=yu$+" ": lx=lx+18110 for i=1 to lx/2: print tab(20-i)mid$(yu$,lx/2+1-i,1)chr$(145)8120 print tab(19+i)mid$(yu$,lx/2+i,1)chr$(145): next: print"q": return8200 r$(61)="standing on the edge of a huge crevasse.You can just make out the"8205 r$(61)=r$(61)+" dim outline of an archway on the far side. There doesn't"8210 r$(61)=r$(61)+" seem to be any way across."8215 r$(44)="in a cavernous chamber.All about there are red eyes and white "8220 r$(44)=r$(44)+"fangs.I'm afraid you're slightly surrounded by rats."8225 r$(72)=r$(44)+" again.":8230 r$(77)="in the sewer workers rest station"8232 r$(84)="lying in a nice comfortable bed."8335 for i=78 to 80: r$(i)=r$(77): next8340 ob$(22)="a rusty old oil can": o$(22)="can": o(22)=508345 ob$(23)="a cloud of obnoxious gas": o$(23)="shriggles": o(23)=738350 ob$(24)="a smoke canister": o$(24)="canister": o(24)=718355 ob$(25)="a massive,big hairy spider": o$(25)="spider": o(25)=628360 ob$(26)="a Sewer-Protect-o-Suit.": o$(26)="suit": o(26)=578370 f$(1)="north": f(1)=1: rm$(1)="f1 - "8380 f$(3)="south": f(3)=1: rm$(3)="f3 - "8390 f$(5)="east": f(5)=1: rm$(5)="f5 - "8400 f$(7)="west": f(7)=1: rm$(7)="f7 - "8410 f$(2)="look": f(2)=1: rm$(2)="f2 - "8420 f$(4)="take ": f(4)=0: rm$(4)="f4 - ":8430 f$(6)="drop ": f(6)=0: rm$(6)="f6 - "8440 f$(8)="inventory": f(8)=1: rm$(8)="f8 - "8450 is$(0)="piss": is$(1)="fuck": is$(2)="sod": is$(3)="bollocks"8460 is$(4)="shit"8470 co$(1)="help - computer might give a tip."8475 co$(2)="quit - terminate adventure."8485 co$(3)="examine - localised search."8490 co$(4)="screen - change screen colour."8495 co$(5)="border - change border colour."8500 co$(6)="command - list out these commands."8505 co$(7)="list - list out function keys."8510 co$(8)="function - define a function key.": rem*8515 co$(9)="load - load saved game off tape."8520 co$(10)="save - save game to tape."8525 co$(11)="inventory - list objects you have."8530 co$(12)="time - prints time elapsed."8535 co$(13)="freeze - stops game."8540 ob$(27)="a glove compartment": o$(27)="shriggles": o(27)=85:8542 ob$(28)="a big apple tree": o$(28)="shriggles": o(28)=388544 ob$(29)="a big juicy apple": o$(29)="apple": o(29)=868546 r$(86)="at the top of a huge apple tree."8548 ob$(30)="an old mattress": o$(30)="mattress": o(30)=58999 return9000 print"£qHow do you ";in$;" a ";bb$" ?": f2=1: return9050 print"£qIt's already tied.": f2=1: return9100 rem * * * * * * * * * * *9104 poke 53281,119105 print"“qqqqq]]]]]]]]]]]]]]]r‘pub quest’Ÿ"9110 print"qq]]]]]]]]written & programmed by"9115 print"q]]]]]]]]]]]c.p.shrigley 1984"9117 print"q]]]]]]]]]]] for "9120 print"eq ²`I U`®9122 print" } }reamJ`Ioftware9124 print" ±`K``````K```````9125 print"ž ·················9130 a$="instructions (y/n) ? ": po$="esqqqqqqqqqqqqqqqqqqqq]]]]]]"9135 for i=1 to len(a$): get i$9140 print po$right$(a$,len(a$)-i)left$(a$,i):9145 if i$="y" then return9150 if i$="n" then in=1: return9151 if i$="" then 91559155 for t=1 to 70: next t,i: goto 913510020 if bb$="car" and r=5 then print"‘You haven't got the ignition key.": f2=1: return10022 if r<>5 then print"—I don't see a ";bb$;" here.": f2=1: return10024 print"—That's beyond even me!": f2=1: return10500 print"£O.K. Game frozen - press a key to cont.": tt$=ti$10510 get a$10520 ti$=tt$: if a$="" then 1051010530 f2=1: return10700 if r<>2 then print"‘I see nobody to pay.": f2=1: return10702 in$="": print"œqWhat with ? ";: gosub 2000010704 bb$=in$10706 if bb$="cheque" and o(12)=0 then goto 1075010708 if bb$="card" and o(13)=0 then goto 1080010709 if bb$="note" and o(10)=0 then goto 1085010710 if bb$="cheque" or bb$="card" or bb$="note" or bb$="money" then et=110720 if et=1 then et=0: print"You don't possess any ";bb$: f2=1: return10740 if et=0 then print"£The barman doesn't trade in trinkets.": f2=1: return10750 print"œThe barman grabs the cheque and says : ":10755 print"q—";chr$(34);"That'll do nicely!";chr$(34)10760 gosub 1500010765 print"‘r <ANY KEY TO CONTINUE> ’"10770 get a$: if a$="" then 1077010775 goto 700010800 print"œThe barman looks at the card and says : "10805 print"q—";chr$(34);"Sorry mate,this is a Barclay card.";chr$(34)10808 gosub 1500010810 f2=1: return10850 print"œThe barman looks at the note and says : ":10855 print"q—";chr$(34);"Sorry mate,this note's a forgery.";chr$(34)10860 gosub 1500010865 f2=1: return15000 print"œqHe rushes off to serve another customer.": return16000 poke 850,asc("("): poke 680,111: poke 186,1: return16010 if jf=1 then return16020 if ct>20 and t=1 then tc=1: t=0: lf=0: ct=0: print"q£Your light source just ran out"16030 return17000 poke 680,111: poke 850,asc("("): return17100 print"qqr PRESS <SPACE BAR> TO RESUME GAME ’"17110 get sp$: if sp$="" then 1711017120 if sp$<>" " then 1711017130 return:20000 get q$: if q$="" then q$="–"20020 if cf=1 then print"r¦’";20030 if cf>2 then cf=0: print"¦";: goto 2004520040 cf=cf+120045 if in$="" and q$=" " then 2000020050 qq=asc(q$): ll=len(in$)20060 if pos(io)>39 then print" œqHey! You'll blow my memory capacity": rt=1: return20070 if qq=32 then 2019520080 if qq=20 and ll>0 then in$=left$(in$,ll-1): print q$;: goto 2000020090 if qq=20 and ll<1 then 2000020100 if qq=13 and ll<1 then 2000020110 if qq=13 and ll>0 then print".";q$: return20120 if q$="…" then print f$(1);: in$=f$(1): q$="": if f(1)=1 then print chr$(13): return20130 if q$="†" then print f$(3);: in$=f$(3): q$="": if f(3)=1 then print chr$(13): return20140 if q$="‡" then print f$(5);: in$=f$(5): q$="": if f(5)=1 then print chr$(13): return20150 if q$="ˆ" then print f$(7);: in$=f$(7): q$="": if f(7)=1 then print chr$(13): return20160 if q$="‰" then print f$(2);: in$=f$(2): q$="": if f(2)=1 then print chr$(13): return20170 if q$="Š" then print f$(4);: in$=f$(4): q$="": if f(4)=1 then print chr$(13): return:20180 if q$="‹" then print f$(6);: in$=f$(6): q$="": if f(6)=1 then print chr$(13): return20190 if q$="Œ" then print f$(8);: in$=f$(8): q$="": if f(8)=1 then print chr$(13): return20192 if qq<48 or qq>90 then 2000020195 if ch$=" "andq$=" " then 2000020200 if q$<>"" then print q$;: in$=in$+q$: ch$=q$20210 goto 2000020500 print"]qqœLook I can be silly to......":20510 poke 53270,320520 for i=1 to 2000: next i20530 poke 53281,6: poke 53280,14: poke 53270,820540 print"š“sq **** COMMODORE 64 BASIC V2 ****"20550 print"q 64K RAM SYSTEM 38911 BASIC BYTES FREE ";20560 du=0: print"qREADY.": poke 198,020570 get rr$20580 if cf=4 then print"r ’";20590 if cf>8 then print" ";: cf=0: goto 2060020595 cf=cf+120600 if rr$<>"" then print"qqr‘Fooled you!’": poke 53281,ss: poke 53280,bc: return20610 goto 2057021000 print"I understand commands of two words. The first has to be a verb";21010 print" and the second a noun.": print"qE.g. GO WEST or TAKE BUCKET etc."21020 print"q‘I also know special word such as : ":21030 print"œqLOOK,INVENTORY,TIME,FUNCTION,LIST,LOAD, SAVE,HELP and COMMAND."21040 print"qTRY THEM!!!"21050 print"qAlso try to examine objects."21060 poke 198,0: print"qqrš PRESS <SPACE> TO CONTINUE GAME ’"21070 get a$: if a$="" then 2107021080 if a$<>" " then 2107021090 return22000 for i=0 to 4: if is$(i)=in$ then goto 2202022010 next22015 return22020 print"—You mucky beast! Wash your mouth out!"22030 goto 159:30000 input#1,r: input#1,t: input#1,so: input#1,ti$: input#1,tl$: input#1,no: input#1,un: input#1,sc30010 input#1,ct: input#1,tc: input#1,wg: input#1,pe: input#1,ib: input#1,ob: input#1,pc: input#1,ca30020 input#1,cx: input#1,dh: input#1,nm: input#1,lf: input#1,bo:30030 return30050 print#1,r: print#1,t: print#1,so: print#1,ti$: print#1,tl$: print#1,no: print#1,un: print#1,sc30060 print#1,ct: print#1,tc: print#1,wg: print#1,pe: print#1,ib: print#1,ob: print#1,pc: print#1,ca30070 print#1,cx: print#1,dh: print#1,nm: print#1,lf: print#1,bo30080 return
