Atari 8-bit Source code

5SZ=24:GOTO100
10GOTOA+10
13?"INTHEINSANEWARD.Thereisanopendoorhere.":W=5:E=9:GOTO320
14?"INYOURROOM.":S=3:GOTO320
15?"INTHEINSANEWARD.Thereisanopendoorhere.Asignoutsidethedoorsays:":GOTO1300
16?"INAROOM.":S=5:GOTO320
17?"INTHEINSANEWARD.Thereisanopendoorhere.":E=5:GOTO320
18?"INAROOM.":S=7:GOTO320
19?"INAHALL.":W=3:N=40:E=10:S=14:GOTO320
20?"INTHELOONEYWARD.Thereisanopendoorhere.Asignoutsidethedoorsays:":GOTO1301
21?"INAROOM.":S=10:GOTO320
22?"INTHELOONEYWARD.":W=10:E=13:GOTO320
23?"INTHELOONEYWARD.":W=12:GOTO320
24?"INAHALL.":W=20:N=9:E=15:S=22:GOTO320
25?"INTHETOTALLYINSANEWARD.Thereisanopendoorhere.Asign":?"outsidethedoorsays:":GOTO1302
26?"INAROOM.":S=15:GOTO320
27?"INTHETOTALLYINSANEWARD.":W=15:E=18:GOTO320
28?"INTHETOTALLYINSANEWARD.Stairsgoup.":W=17:GOTO320
29?"INASMALLSTORAGECOMPARTMENT.Stairsgodown.":GOTO320
30?"INASTAIRWELL.Stairsgoup.":E=14:GOTO320
31?"INASTAIRWELL.Stairsgodown.Thereisalockeddoorhere.";:GOTO1303
32?"INASTAIRWELL.Stairsgodown.";:N=14:GOTO320
33?"INASTAIRWELL.Stairsgoup.":?"Thereisa";DR$;"doorhere.":E=25:GOTO320
34?"INTHELAUNDRYROOM.Thereisalockeddoorherewhichleadsoutsidethecomplex.";:GOTO1305
35W=23:?"INAHALL.";:GOTO1306
36W=25:E=27:GOTO1700
37W=26:S=28:GOTO1700
38W=29:N=27:GOTO1700
39N=26:E=28:GOTO1700
40W=32:E=40:GOTO1309
41?"INAROOM.":S=30:GOTO320
42W=34:E=30:GOTO1309
43?"INAROOM.":S=32:GOTO320
44W=36:E=32:GOTO1309
45?"INAROOM.":S=34:GOTO320
46E=34:GOTO1309
47?"INAROOM.":S=36:GOTO320
48?"INTHECOMPLETELYLOONEYWARD.":W=39:E=45:GOTO320
49?"INTHECOMPLETELYLOONEYWARD.Thereisanopendoorhere.Asignoutsidethedoorsays:":GOTO1310
50?"INAHALL.":W=30:N=41:E=39:S=9:GOTO320
51?"INAHALL.":E=42:S=40:GOTO320
52?"INTHEADMINISTRATIONWING.Thereisanopendoorhere.Asign":?"outsidethedoorsays:":GOTO1311
53?"INTHEADMINISTRATIONWING.":W=42:E=44:GOTO320
54?"INTHEADMINISTRATIONWING.":W=43:GOTO320
55?"INTHECOMPLETELYLOONEYWARD.":?"Thereisa";D1$;"doorhere.":W=38:GOTO320
56?"INANOFFICE.Thereisadeskhere.":S=42:GOTO320
57?"INASTORAGEROOM.":W=45:GOTO320
58?"INSIDEATALLLAUNDRYBAG,":?"HIDINGUNDERAPILEOFDIRTYLAUNDRY.":U=24:GOTO320
59?"LYINGONYOURBUNKINYOUR":?"ROOM.":GOTO320
60?"INALAUNDRYSOMEWHEREINTOWN.Therearemanymachineshere,andlaundryispiled";:GOTO1312
61?"INAROOM.":S=39:GOTO320
100POKE752,1:Y=1:J=10:Z=1
101FORA=YTOJSTEPZ:GRAPHICS18:SETCOLOR0,12,15:POSITIONA,6:?#6;"MADHOUSE":FORB=1TO99:NEXTB:GRAPHICS17
102SETCOLOR0,12,15:POSITIONA,6:?#6;"MADHOUSE":FORB=1TO99:NEXTB:NEXTA:IFJ=1THEN200
103Y=10:J=1:Z=-1:GOTO101
200DIMA$(38*SZ),A(38),B(5),B$(69),C(15),D(23),DW$(72),DR$(7),D1$(7)
203DIMSZ$(SZ),D$(20),E$(20),A9$(50),X$(SZ),F$(1)
205SZ$=""
207FORA=1TO15:C(A)=0:NEXTA:FORA=1TO38:A(A)=0:NEXTA
210FORA=1TO38:A$(A*SZ-SZ+1,A*SZ)=SZ$:READX$:A$(A*SZ-SZ+1,A*SZ)=X$:READV:A(A)=V
212NEXTA
214READB$:FORA=6TO23:READV:D(A)=V:NEXTA:READDW$
220DR$="locked":D1$=DR$:F$=CHR$(34):A=4:DW=A:Z=0
300SOUNDZ,Z,Z,Z:X5=Z:V=Z:V1=Z:IFA>25ANDA<30THENV=12:V1=12
301IFNR>1THENV=4
304N=Z:W=Z:E=Z:S=Z:U=Z:GRAPHICSZ:SETCOLOR2,V,Z:SETCOLOR1,Z,15:SETCOLOR4,V1,Z
305POKE752,1:IFA=24THENIFDK=0OR(A(18)<>-1ANDA(18)<>A)THENX5=7
306IFX5=7THEN?"IT'STOODARKINHERETOSEECLEARLY.":E=23:GOTO364
307?"YOU'RE";
310GOTO10
320IFWW=0THENA(13)=A(13)-1:IFA(13)=-45THENA(13)=-38
321A(29)=Z:IFA(13)<>-AAND((A>37ANDA<46)OR(A>8ANDA<19))ANDA(7)<>-AANDA(5)<>-AANDA<>11THENX5=1
322IFX5=1ANDRR=0ANDRA=0THENX5=2:FORV=1TO15:IFC(V)=ZORC(V)=15THENNEXTV:GOTO324
323IFX5=2ANDINT(RND(0)*25)+1>20THENA(29)=-A:RA=1:X=V
324IFA=23ORA=21THENA(36)=-A
325IFNR=1ANDA=9THENNR=2
364?:IFN+W+E+S+U>ZTHEN?""
367FORB=1TO5:B(B)=Z:NEXTB
369IFW>ZTHENB(1)=W:?"West";
371IFN>ZTHENB(2)=N:?"North";
372IFE>ZTHENB(3)=E:?"East";
373IFS>ZTHENB(4)=S:?"South";
375IFU>ZTHENB(5)=U:?"Up";
383?:?
385IFA=24ANDDK=ZTHEN396
390FORB=1TO38:IFABS(A(B))=ATHENC=C+1:GOTO393
391NEXTB:PRINT:GOTO396
393IFC=1THENPRINT""
395?"";A$(B*SZ-SZ+4,B*SZ):GOTO391
396IFLP>1THENLP=LP+1:IFLP=6THEN?"YOUHEARTHENOISESOFACITY..."
397IFA=36ANDGW=0THEN?F$;"Men,I'mgettingtired.":?"I'vegottositdown.";F$
398IFA=34ANDWS=0THEN?F$;"Alltheworld'sastage...";F$
399IFA=32ANDNP=0THEN?F$;"SowhatifI'mshort...";F$
400IFA=30ANDNR=0THEN?"Youhearawfulmusic!"
401IFLP>1THENIFLP<6THEN?"THETRUCKISMOVINGDOWNTHEROAD."
402IFLP=7THEN?"THETRUCKSLOWSDOWNANDSTOPS."
403IFLP=8THEN?"Thebackdoorsopenandsomeonetakesthebagoflaundry(withyouinside)"
404IFA=8ANDSW=0THEN?F$;"Gimmebooktoread!";F$
405IFA=35ANDWS=0THEN?F$;"I'vegotwriter'scramp...!";F$
406IFA=33THENIFNP=0THENGOSUB1320:?"Heiseatingahamburger."
407IFA=31ANDNR=0THEN?"Neroisplayingafiddle."
408IFA=6ANDGN=0THEN?F$;"I'venothingtodoatrickwith.";F$
409IFA=16ANDSM=0THEN?F$;"Gimmefood!";F$
410IFA=11ANDDD=0THEN?F$;"Mepullyourteeth,No?";F$
411IFA(13)=-ATHEN?F$;"Givemeafiddleand":?"I'llgiveyouabook.";F$
412IFA=17ANDCH=0THEN?F$;"Let'sflipacoin.":?"Ifyouwin,I'llletyoupassby.";F$
413IFA(29)=-ATHEN?F$;"Gotacigarette?";F$:X5=10
414IFX5=10ANDA(28)=-1THEN?"Hespotsyourpackageofcigarettes,":?"stealsthem,";:GOTO1314
415IFX5=10THEN?"Disgustedatyou,hestealsoneof":?"yourpossessionsandflees."
416IFX5=10THENA(C(X))=47:C(X)=0:GOTO5000
417IFRN=0ANDA=12AND(A(8)=-2ANDA(16)=-2ANDA(21)=-1)THEN?F$;"Ah!HonestAbe!";F$:X5=11
418IFX5=11THEN?"Heispleasedatfindingan":?"honestman,givesyousomething,":?"andvanishes."
419IFX5=11THENC(15)=20:A(20)=-1:A(5)=0:RN=1:GOTO5000
420IFRN=0ANDA=12THEN?F$;"I'mlookingforanhonestman.";F$
421IFSP=1ANDFY=0ANDA=35ANDSL=1THENX5=12
422IFX5=12ANDDW=HTANDHH<7THEN?F$;"Good!You'reback.":?"Hereisyourpoem.";F$:SL=-1:C(14)=24:X5=13
423IFX5=13THENA(24)=-1:GOTO425
424IFX5=12THEN?F$;"Isaid,'comebacktomorrow.'":?"Nopoemforyou!";F$:SL=-1
425IFA=36ANDGW=1THEN?"SuddenlyGeorgeWashington":?"tossessomethingoutofhisroom."
426IFA=36ANDGW=1THENGW=2:A(15)=36:GOTO5100
427IFNR>1ANDA=31THEN?"Nero'sroomisonfire.":?"He'splayingwiththeromancandles."
428IFNR>1ANDA=31THEN?F$;"Whereismyfiddle?";F$:IFA(33)=-1THENX5=15
429IFX5=15THEN?"Youquicklyputoutthefire":?"withthefireextinguisher.":NR=-1:SETCOLOR2,0,0
430IFNR>1ANDA=31THEN?"Youareconsumedbytheflames!":GOTO6700
431IFNR>1THENNR=NR+1:IFNR<15THEN?:?""
432IFNR>14THEN?"Theinstitutionisonfire":?"andthebuildingcollapses!":GOTO6700
433IFDK=1ANDA(18)=-1ANDDW=3AND(A=24ORA=48)THENX5=16
434IFX5=16ANDLP=0THEN?"Youhearsomeone":?"unlocktheoutsidedoor.":LP=1:GOTO436
435IFX5=16ANDLP=1ANDA=24THEN?"Laundrymanarriveswith2strong":X5=17
436IFX5=17THEN?"guardsguardingtheopendoor.Hetakesatallbagoflaundryandthey":X5=96
437IFX5=96THEN?"leave,lockingthedooragain.":LP=-1
438IFLP=1ANDA=48THEN?"Theytakethelaundrybagyou're":?"hidinginandthrowitintotheback"
439IFA=48ANDLP=1THEN?"ofatruck.Thetwoguardsclimbinthebackwiththebag,thedriver"
440IFA=48ANDLP=1THEN?"climbsintothecab,andthetruckstartstomoveandleaves.":LP=2:GOTO5000
441IFG=0THEN?"You'reinamentalasylum,unjustlysentencedforacrimeyoudidnot"
442IFG=0THEN?"commit.Therearefewguards,mostdoorsarekeptopen,andinmates"
443IFG=0THEN?"maymoveaboutastheywish.Escapeshouldbenoproblemforyou,ORWILLIT?":G=1
444IFLP=8THEN?"andtossesitonafloor."
445IFLP>10THEN?"Someoneopensupthebagoflaundryandspotsyou.":?F$;"Asylumescapee!";F$
446IFLP>10THEN?"Youarecapturedandreturnedtotheinstitution.":GOTO6710
447IFA=50THEN?:IFA(37)<>-2THEN?F$;"Asylumescapee!";F$;"oneoftheguards":X5=19
448IFX5=19THEN?"yells.Youarerecapturedandreturnedtotheasylum!":GOTO6710
449IFA=50THEN?"Theguardspaynoparticular":?"attentiontowardsyou."
450SOUNDZ,Z,Z,Z:X5=Z:C=Z:BF=475:SP=Z
451TRAP3000
455POKE752,0:?:?"";:INPUTA9$:POKE752,1:?:GOSUB1100
457IFA9$="LOOK"THEN300
458IFA9$="SLEEP"ANDA<>49THEN?"It'stoouncomfortable":?"tosleephere.":GOTO450
459IFA9$="SLEEP"THENLP=0:DW=DW+1:?"Anightpasses...":GOTO1800
460IFA=48THEN1400
461IFA=17ANDA9$="E"ANDCH=0THEN?"LuckyChuckywon't":?"letyoupass,yet...":GOTO450
462IFLEN(A9$)>3THENIFA9$(1,4)="HINT"THEN1200
471FORB=1TO5:IFLEN(A9$)=1ANDA9$=B$(B*3-2,B*3-2)THEN476
473NEXTB:GOTO500
476IFB(B)<>ZTHENA=B(B):RA=0:SP=1:GOTO300
493?"Youcan'tmovethatway.":GOTO450
500IFA9$<>"I"THEN531
502?""
510FORK=1TO15:IFC(K)=ZTHEN530
512?A$(C(K)*SZ-SZ+4,C(K)*SZ):IFA(C(K))=-2THEN?"(whichyouarewearing)"
530NEXTK:GOTO450
531FORB=6TO23:IFA9$(1,3)=B$(B*3-2,B*3)THEN600
535NEXTB
540?"Idon'tknowwhat";CHR$(34);A9$;CHR$(34);"means.":GOTO450
600FORK=1TOLEN(A9$):IFA9$(K,K)<>""THENNEXTK:?"Idon'tunderstand...":GOTO450
605D$=A9$(K+1,LEN(A9$))
606IFLEN(D$)<3THEND$(LEN(D$)+1)="":GOTO606
607E$=D$(1,3):IFD$="PACKAGE"THENE$="CIG"
608IFD$="BUNNY"THENE$="RAB"
612IFD(B)<>1THEN680
614IF(A=31ANDNR=0ANDE$="FID")OR(A=33ANDNP=0ANDE$="HAM")THEN?"Hewon'tgiveittoyouYET!":GOTO450
615IFA=46ANDE$="CAL"THEN?"Youcan't!":GOTO450
616IFE$="TYP"ANDA=46ANDTW=0THENTW=1:J=31:GOTO675
617IFE$="NOT"ANDA=46ANDNO=0THENNO=1:J=32:GOTO675
618IFA>25ANDA<30ANDE$="CLO"ANDCL=0THEN?"Youpickedanoddly-shapedone.":CL=1:J=22:Y=1:GOTO675
619IFA>25ANDA<30ANDE$="CLO"THEN?"Therearen'tanymore4-leafclovers.":GOTO450
620IFE$="UP"ANDA=49THENA=4:GOTO300
621IFA=21ANDE$="EXT"ANDFX=0ANDNR<2THEN?F$;"Mayonlybetakenincaseoffire!";F$:GOTO450
622IFA=21ANDE$="EXT"ANDFX=0THENJ=33:FX=1:GOTO675
623IFA=48ANDLP>0ANDGU=0ANDE$="UNI"THENGU=1:J=37:GOTO675
639FORJ=1TO38:IFE$=A$(J*SZ-SZ+1,J*SZ-SZ+3)ANDA=ABS(A(J))THEN642
640NEXTJ
641?"There'sno";CHR$(34);D$;CHR$(34);"here.":GOTO450
642IFJ=34THENA$(796,816)="BUNNYRABBIT":?"Bunnyrabbitwakesup...":Y=1
645IFA(J)<0THEN?"Youcan'tcarrythat.":GOTO450
675FORK=1TO15:IFC(K)=0THENC(K)=J:A(J)=-1:X5=20:IFY=1THEN5100
676IFX5=20ANDY=2THEN5000
677IFX5=20THEN5050
678NEXTK
680IFD(B)<>2THEN750
707FORJ=1TO38:IFE$=A$(J*SZ-SZ+1,J*SZ-SZ+3)THENIFA(J)=-1ORA(J)=-2THEN710
708NEXTJ
709?"You'renotcarryingit":GOTO450
710FORK=1TO15:IFC(K)=JTHEN712
711NEXTK:GOTO709
712A(J)=0:C(K)=0
713IFA=6ANDJ=8THEN?"TheGreatNutsotakesthehat,":?"promptlypullsoutahungry"
714IFA=6ANDJ=8THEN?"littlebunnyrabbit,and":?"givesittoyou.":GN=1:Y=2:J=34:GOTO675
715IFA=8ANDJ=27THENJ=18:SW=1:GOTO1710
716IFA=31ANDJ=20THENJ=23:NR=1:GOTO1710
717IFA=33ANDJ=19THENJ=17:NP=1:?F$;"Josephine!";F$:GOTO1710
718IFA=37ANDJ=15ANDGW=0THENJ=26:GW=1:GOTO1710
719IFA=35ANDJ=31THENWS=1:?F$;"Ah!'Tismuchbetter!":IFFY<>0THEN450
720IFA=35ANDJ=31THEN?"Comebacktomorrow,":?"andonlytomorrow,"
721IFA=35ANDJ=31THEN?"andIshallwriteyouapoem.";F$:?:?"Hetakesthetypewriter.":SL=1:X5=76
722IFA=11ANDJ=26THENJ=19:DD=1:GOTO1710
723IFA=16ANDJ=17THENJ=21:SM=1:GOTO1710
724IFX5=76THENHT=DW+1:HH=1:IFHT=8THENHT=1
725IFX5=76THEN450
726IFA=51ANDJ=34ANDBB=0THEN?F$;"Feedthehungrybunnyrabbit":?"first,thenIwilltakehim.";F$:X5=21
727IFX5=21THEN?:?"Hehandsitbacktoyou.":C(K)=J:A(J)=-1:GOTO450
728IFA=51ANDJ=34THEN?F$;"Ah!Apet!";F$:J=35:GOTO1710
729IFJ=23ANDA(13)=-ATHENJ=27:A(13)=0:WW=1:?"S";:GOTO1710
730IFA=35ANDJ=22THENFY=1:?F$;"'TistheluckIneed.";F$:J=25:GOTO1710
731IFJ=34ANDBB=0AND(A>25ANDA<30)THENX5=22:?"Thehungrylittlebunnyrabbitruns"
732IFX5=22THEN?"intothecloverandfeasts.":GOTO1503
733IFJ=34ANDBB=0AND(A(17)=AORA(22)=A)THEN1500
734IFX5=33THEN5100
735IFX5=55THENA(15)=A:GOTO5000
736IFX5=72THEN5000
737IFJ=34THEN?"Asyoudropthebunnyrabbit,itruns":?"away,nevertobeseenagain.":GOTO450
738IFA=6ORA=8ORA=31ORA=33ORA=35ORA=37ORA=51ORA=11ORA=16THENX5=23
739IFX5=23OR(A(13)=-AORA(7)=-AORA(5)=-A)THEN?"Inmateacceptsyourpresent":?"andthanksyou.":GOTO450
744A(J)=A
745GOTO5050
750IFD(B)<>5THEN795
752IFA(15)=-1ANDE$="DOL"ANDA=43THEN?"Youinsertthedollar":?"intotheslot":X5=24
754IFX5=24THEN?"andsomethingfalls":?"outofthemachine.":J=15:A(28)=A:X5=33:GOTO710
795IFD(B)<>6THEN810
796IFA=4ANDE$="BUN"THENA=49:GOTO300
797IFE$="DOO"ORE$="ROO"ORE$="OFF"THENX5=25:IFA=45ANDDR=1THENA=47:GOTO300
798IFX5=25AND(A=3ORA=5ORA=7ORA=30ORA=32ORA=34ORA=36ORA=15ORA=10)THENA=A+1:SP=1:GOTO300
799IFX5=25ANDA=39THENA=51:GOTO300
800IFX5=25ANDA=42THENA=46:GOTO300
801IFA=50ANDE$="DOO"THEN?"YOUHAVE":?"SUCCESSFULLYESCAPED.":GOSUB1320:GOTO6710
802IFA=24ANDE$="BAG"THENA=48:GOTO300
803IFE$="STA"AND(A=20ORA=18ORA=22)THENA=A+1:GOTO300
804IFE$="STA"AND(A=21ORA=23ORA=19)THENA=A-1:GOTO300
805IFA=23ANDE$="DOO"ANDD3=1ANDA(35)=-1THENA=24:GOTO300
806IFA=23ANDE$="DOO"ANDD3=1THENDR$="locked":D3=0:?F$;"Youmusthavedirty":X5=26
807IFX5=26THEN?"laundrytoenter.";F$:GOTO5100
810IFD(B)<>9THEN840
811IFA=46ANDE$="DES"ANDTW=0THEN?"There'satypewriterhere."
812IFE$="CEN"ANDA(19)=-1THEN?"It'sapictureof":?"MissApril-Josephine.":GOTO450
814IFE$="POE"ORE$="NOT"THEN?"Try:READ":GOTO450
815IFA=46ANDE$="DES"ANDNO=0THEN?"There'sanotehere."
816IFA=43ANDE$="MAC"THEN?"Itdispensescigarettes.":?"There'sacoinslothere."
817IFA=43ANDE$="MAC"THEN?"Sign:.":GOTO450
818IFA=46ANDE$="DES"THEN?"Aflipcalendarisaffixed":?"tothedesk.":GOTO450
819IFA=46ANDE$="CAL"THEN?"It's";DW$(DW*9-8,DW*9):GOTO450
820IFA=48ANDLP>1ANDE$="LAU"ANDGU=0THEN?"Youseeaguard'suniform.":GOTO450
821IFA=48ANDLP>1ANDE$="LAU"THEN?"Justsomedirtylaundry.":GOTO450
822?"Youseenothingspecial.":GOTO450
840IFD(B)<>10THEN875
842IFE$="DOO"ANDA(25)=-1ANDA=23ANDD3=0THEND3=1:DR$="nopen":GOTO5050
844IFE$="DOO"ANDA=21OR(A=25ANDD5=0)THEN?"Doorwon'topen.":GOTO450
845IFE$="DOO"ANDA(30)=-1ANDA=45ANDDR=0THEND1$="nopen":DR=1:GOTO5050
875IFD(B)<>11THEN890
876IFA(24)=-1ANDE$="POE"THENX5=30:?"THISPOEM'SFORYOU,":?"PLEASEREADITTHROUGH;"
877IFX5=30THEN?"DONOTDESPAIR,":?"ESCAPEISTHERE;":?"YOU'LLNEEDAKEY,":?"YOU'LLGETFROMME;"
878IFX5=30THEN?"BRINGMESOMELUCK,":?"YOUMAYGOBYTRUCK.":GOTO450
879IFE$="BOO"ANDA(27)=-1THEN?"Ithasblankpages.":GOTO450
880IFE$="NOT"ANDA(32)<>-1THEN?"Youdon'thaveit.":GOTO450
881IFE$="NOT"THEN?"LAUNDRYPICKUP:WEDNESDAY":GOTO450
890IFD(B)<>12THEN900
891IFE$="FID"ANDA(23)=-1THEN?"":?"Ahigh-pitchedscreechingsound":X5=31
892IFX5=31THENFORV=50TO1STEP-1:SOUND0,V,14,15:FORHI=1TO10:NEXTHI:NEXTV
893IFX5=31THEN?"bringsachilltoyourteeth."
894IFX5=31ANDA=25ANDD5=0THEN?:?"Theglassdoorshatterscompletely!":D5=1:GOTO5000
895IFX5=31THEN450
900IFD(B)<>13THEN910
902IFA(15)=-1AND(E$="DOL"ORE$="COI")THENX5=32:?"Youflipthesilverdollar...":J=15
903IFX5=32ANDA=17ANDCH=0THENFORV=1TO300:NEXTV:?"LuckyChuckycalls,";F$;"heads!";F$
904IFX5=32ANDA=17ANDCH=0THENFORV=1TO300:NEXTV:?"Itfalls...":FORV=1TO300:NEXTV
905IFX5=32ANDA=17ANDCH=0THEN?"Itlandstails.":?F$;"Youwinandmaypass";F$:X5=33
906IFX5=33THEN?"LuckyChuckyvanishes.":CH=1:A(7)=0:J=15:X5=55:GOTO710
907IFX5=32THEN710
910IFD(B)<>14THEN925
912IFA(18)=-1ANDE$="FLA"ANDDK=0THENDK=1:A$(412,425)="LITFLASHLIGHT":GOTO5050
925IFD(B)<>15THEN930
926IFA(37)=-1ANDE$="UNI"THENA(37)=-2:?"Ok.":GOTO450
927IFA(16)=-1ANDE$="BEA"THENA(16)=-2:?"Ok.":GOTO450
928IFA(8)=-1ANDE$="HAT"THENA(8)=-2:?"Ok.":GOTO450
929IFA(35)=-1ANDE$="SHI"THEN?"It'snotyoursize.":GOTO450
930IFD(B)<>16THEN940
931IFA(37)=-2ANDE$="UNI"THENA(37)=-1:?"Ok.":GOTO450
932IFA(16)=-2ANDE$="BEA"THENA(16)=-1:?"Ok.":GOTO450
933IFA(8)=-2ANDE$="HAT"THENA(8)=-1:?"Ok.":GOTO450
940IFD(B)<>17THEN1000
942IFA=25ANDD5=0THEN?"How?It'sunbreakable!":GOTO450
950?"Itcan'tbebroken!":GOTO450
1000?"Sorry,butyoucan'tdothat.":GOTO450
1100FORV=1TOLEN(A9$):HI=ASC(A9$(V,V)):IFHI>96THENA9$(V,V)=CHR$(HI-32)
1101NEXTV:RETURN
1200HI=LEN(A9$)
1201V=5:IFHI=4THEN?:?"Pleaseentertheencodedhint":?"youwishdecrypted.":POKE752,0
1202IFHI=4THEN?:INPUTA9$:?:GOSUB1100:V=1:HI=LEN(A9$):IFHI<3THEN450
1203FORXX=VTOHI:ZZ=ASC(A9$(XX,XX)):?CHR$(ABS(155*(ZZ>64)-ZZ));:NEXTXX:?:?
1204GOTO450
1300?:?"":?"":W=7:E=3:GOTO320
1301?:?"":W=9:E=12:GOTO320
1302?:?"":W=14:E=17:GOTO320
1303IFFX=0THEN?"Thereisalsoafireextinguisherfastenedtoawallhere.":GOTO320
1304?"":GOTO320
1305?"Thereisaverytallbagoflaundryhere.":E=23:GOTO320
1306IFD5=0THEN?"Thereisalargedoorheremadeofverythick,":?"unbreakableglass.";
1307IFD5=0THEN?"Throughtheglassyoucanseeouttothegarden.":GOTO320
1308?"":E=26:GOTO320
1309?"INTHEFAMOUSPEOPLEWARD.Thereisanopendoorhere.":GOTO320
1310?:?"":W=40:E=38:GOTO320
1311?:?"":W=41:E=43:GOTO320
1312?"everywhere.Thetwoguardsarebusywashingandstacking.Thereisadoorhereleadingtothe";
1313?"outside.":GOTO447
1314?"andthenvanishes,":?"droppingsomethingasheflees.":A(30)=A:J=28:RR=1:X5=72:GOTO710
1320RESTORE2120:FORV=1TO9:READXX:SOUND0,XX,14,15:IFV=1ORV=2ORV=8THENFORHI=1TO10:NEXTHI:GOTO1322
1321FORHI=1TO18:NEXTHI
1322SOUND0,0,0,0:NEXTV:RETURN
1400IFA9$="U"ANDLP>1ANDLP<8THENX5=40:?"Guardsinthetruckseeyouand"
1401IFX5=40THEN?"recaptureyou.Thetruckturnsaroundandbringsyouback.":GOTO6710
1402IFA9$="U"ANDLP>1THENA=50:?"Youpokeyourheadoutofthebagto":X5=41
1403IFX5=41THEN?"seeifthecoastisclear.Youseethattheguardsarebusyandyouare"
1404IFX5=41THEN?"notbeingwatched.":GOTO5000
1405GOTO461
1500IFA(17)=ATHENA9$="hamburger.":A(17)=0:GOTO1502
1501A9$="4-leafclover.":A(22)=0
1502?"Thebunnyrabbiteats":?"the";A9$
1503A(J)=A:BB=1:A$(796,816)="SLEEPINGBUNNYRABBIT":GOTO5100
1700?"INAGARDENSURROUNDEDBYAVERYHIGH,UNSCALABLEFENCE.Allkindsofcloverisgrowinghere.":GOTO320
1710Y=1:?"HEtakesyourgift":?"andgivesyousomething.":GOTO675
1800IFHH>0THENHH=HH+1
1801IFDW=8THENDW=1
1802GOTO450
2000DATABUNBUNK,-4,NUTTHEGREATNUTSO,-6,WILSILLYWILLY,-8,DENDENNISTHEDENTIST,-11,DICTRICKYDICKY,-12
2005DATAMARSTARVIN'MARVIN,-16,CHULUCKYCHUCKY,-17,HATTOPHAT,19,NERNERO,-31,NAPNAPOLEON,-33
2010DATASHASHAKESPEARE,-35,WASGEORGEWASHINGTON,-37,WANWANDERINGWANDA,-38,VENVENDINGMACHINE,-43
2020DATADOLSILVERDOLLAR,44,BEAFAKEBEARD,47,HAMHAMBURGER,0,FLAFLASHLIGHT,0,CENMAGAZINECENTERFOLD,0
2030DATACANROMANCANDLES,0,ADDGETTYSBURGADDRESS,0,CLO4-LEAFCLOVER,0,FIDFIDDLE,0,POEPOEM,0
2035DATAKEYLARGEKEY,0,TEEWOODENTEETH,0,BOOBOOK,0,CIGPACKAGEOFCIGARETTES,0,ROBROBBERROBERT,0
2040DATAKEYSMALLKEY,0,TYPTYPEWRITER,0,NOTNOTE,0,EXTFIREEXTINGUISHER,0,RABHUNGRYBUNNYRABBIT,0
2045DATASHIDIRTYSHIRT,0,BARBARTTHEGUARD,0,UNIGUARD'SUNIFORM,0,JEDJEDTHEVET,-51
2100DATAWNESUGETDROGIVPUTINSGOENTCLILOOOPEREAPLAFLILIGONWEAREMBRE
2110DATA1,2,2,5,5,6,6,6,9,10,11,12,13,14,14,15,16,17
2115DATAMondayTuesdayWednesdayThursdayFridaySaturdaySundayxxxxxxxxx
2120DATA111,111,84,84,76,76,55,67,83
3000?"Idon'tknowwhatyoumean!":GOTO450
5000Y=0:C=0:?:?"HITANYKEYTOCONTINUE...";
5005IFPEEK(764)=255THEN5005
5006POKE764,255:GOTO300
5050?"Ok":BF=50
5100Y=0:C=0:FORHI=1TOBF:IFPEEK(764)=255THENNEXTHI
5150POKE764,255:GOTO300
6700?"You'redead."
6710?"Thisadventure":?"isover.":POKE752,0	

• Download link 1

• Download link 1
• Download link 2
• Download link 3