8 "GO" "GET" "DROP" "EXAMINE" "SUCK" "STROKE" "LICK" "FUCK" 4 "I AM ON THE FRONT PORCH" 51 "YOU ARE IN A LARGE PALOR" 55 "I AM IN A LONG HALL" 6 "M IN A LONG HALL" 6 8 "I SEE A DIG DILLDO","NORT", 0, 1, 1, 2 "SOUTH","SOUT", 0, 0, 0, 0 "EAST","EAST", 0, 0, 0, 0 "WEST","WEST", 0, 0, 0, 0 "UP","UP", 0, 0, 0, 0 "DOWN","DOWN", 0, 0, 0, 0 "ROOM","ROOM", 0, 0, 0, 0 "INVENTORY","DILL", 0, 0, 0, 0 LL" 6 "M IN A LONG HALL" 6 8 "I SEE A DIG DILLDO","NORT", 0, 1, 1, 2 "SOUTH","SOUT", 0, 0, 0, 0 "EAST","EAST",`Pߧތ&9`)#1Zێ '&+'`01? 1? ŧ '  ' &| &O '| '| GO&~JGE&T&~J0&-&&"&)& & @'*&|  ' UP& T2&(&!UP& #& & *&| Ɓ@'6 Z۶&w900') 700'A800')ٶ")#%^|#800d|&.800d'800z#y&'V'800' d')K900')5:00$&ZcG!8|!d'!'$+ %_@'*&\!' Z@') *' ۾ #%=& '$%r&$'f&$;00' pl&$;00' d Pi&"$800d' > *n&$' & $' &%+%@&)ρ*' %*'$%e&% s&þ% ؁t&Ҿ% ́g&% b&% j&% u&% p&c% q&% k& a%wl$;009$;009$7009$7009$9009$9009$)*&|' ZԿZ!8|!' !'$6 9!00'%_@'*&\!' Z Z%00!!&%N:Z۶!&%N@Z۶!&%NFZ۶!&%NKZ۶!&%NP)Z۶! &%NSZۆ 9*' 9 ;*'@' |$': 9;.'@' |' 9.'@' $' Z/&  @& *' \&X`9`瀌#9Z@' I DON'T UNDERSTAND YOU! @)I DON'T SEE THAT HERE! @I CAN'T GET THAT RIGHT NOW! @I CAN'T CARRY ANYTHING ELSE! @OK, I GOT IT! @I DON'T HAVE THAT WITH ME! @OK, I DROPPED IT @NOTHING SPECIAL HAPPENNED @I CAN SEE: @OBVIOUS WAYS TO GO INCLUDE: @NOTHING SPECIAL ABOUT IT @'@' 9NO1)W WHAT?@NOW WHAT NORTH SOUTH EAST WEST UP DOWN ])ELSE! @OK, I GOT IT! @I DON'T HAVE THAT WITH ME! @OK, I DROPPED IT @NOTHING SPECIAL HAPPENNED @I CAN)#1Zێ '&+'`01? 1? ŧ '  ' &| &O '| '| GO&~JGE&T&~J0&-&&"&)& & @'*&|  ' UP& T2&(&!UP& #& & *&| Ɓ@'6 Z۶&w900') 700'A800')ٶ")#%^|#800d|&.800d'800z#y&'V'800' d')K900')5:00$&ZcG!8|!d'!'$+ %_@'*&\!' Z@') *' ۾ #]%=& '$%r&$'f&$;00' pl&$;00' d Pi&"$800d' > *n&$' & $' &%+%@&)ρ*' %*'$%e&% s&þ% ؁t&Ҿ% ́g&% b&% j&% u&% p&c% q&% k& a%wl$;009$;009$7009$7009$9009$9009$)*&|' ZԿZ!8|!' !'$6 9!00'%_@'*&\!' Z Z%00!!&%N:Z۶!&%N@Z۶!&%NFZ۶!&%NKZ۶!&%NP)Z۶! &%NSZۆ 9*' 9 ;*'@' |$': 9;.'@' |' 9.'@' $' Z/&  @& *' \&X`9`瀌#9Z@' I DON'T UNDERSTAND YOU! @)I DON'T SEE THAT HERE! @I CAN'T GET THAT RIGHT NOW! @I CAN'T CARRY ANYTHING ELSE! @OK, I GOT IT! @I DON'T HAVE THAT WITH ME! @OK, I DROPPED IT @NOTHING SPECIAL HAPPENNED @I CAN SEE: @OBVIOUS WAYS TO GO INCLUDE: @NOTHING SPECIAL ABOUT IT @'@' 9NO1)W WHAT?@NOW WHAT NORTH SOUTH EAST WEST UP DOWN ]/)ELSE! @OK, I GOT IT! @I DON'T HAVE THAT WITH ME! @OK, I DROPPED IT @NOTHING SPECIAL HAPPENNED @I CAN* :COMPILER/500: VERB$,OB$,ROOM$,MSG$d:"ENTER FILENAME";F$:SC$F$"/VOR":"I",#1,SC$("(S)ILENT OR (T)ALKING";T$: T$"S" T$"T" 50 : 402M&H1900:M,&H2A:MM1:#1,NV< X1 NV:#1,VERB$:L(VERB$)!F PA1 L:C$(VERB$,PA,1):C(C$):M,C:MM1: PA8P M,&H2A:MM1: XFZM1,&H40odM1&H1A90:M2&H2580:M1,&H2A:M1M11zn#1,NRx X1 NR:#1,ROOM$:L(ROOM$) PA1 L:C$(ROOM$,PA,1) C$"/" M1,13:M1M11: 160&C(C$):M1,C:M1M11: PA:M1,13:M1M11:M1,&H2A:M1M11@#1,OD:M2,OD:M2M21S X:M11,&H40M1&H25E3:M2&H31FF:M3&H3704:M4&H3803:M5&H3902:M6&H3A01#1,OC:M1,&H2A:M1M11:M2,&H2A:M2M21Ȁ X1 OC:#1,OB$:L(OB$)Ҁ PA1 L:C$(OB$,PA,1):C(C$):M1,C:M1M11: PA7܅ X8 M1,13:M1M11M M1,&H2A:M1M11c#1,OF$:Lp 1@xGq$@='HvEp $3ΓL"# ' H"'A:M2: G$2b ID ;6`&D 4I XtA4 I xL@X:M11,&H40:M2,&H40:#1)M&H3BFF:MSG\"SC$F$"/MSG":"I",#1,SC$:#1,NM:M,&H2A:MM1, X1 NM:#1,VERB$:L(VERB$)6 PA1 L:C$(VERB$,PA,1): C$"/" M,13:MM1: 330@C(C$):M,C:MM1J PA:M,13:MM1:M,&H2A:MM1TX:M1,&H40:#17^M&H3B00:SC$F$"/FLG":"I",#1,SC$ih X1 255:#1,VERB$:#1,F:M,F:MM1:X:#1|r T$"T" 400|SC$F$"/PRG":M SC$M F$,&H1900,&H7F2F,&H1900:410M F$,&H1900,&H5F00,&H1900&H205,(F$) X1 (F$):&H205X,((F$,X,1)):X("SAGSAVE":"I",#1,SC$ih X1 255:#1,VERB$:#1,F:M,F:MM1:X:#1|r T$"T" 400|SC$F$"/PRG":M SC$M F$,&H1900,&H7F2F,&H1900:410M F$,&H1900,&H5F00,&H1900&H205,(F$) X1 (F$)& : 200,&H7FFF&  20000&X VERB$(70),OB$(255),ROOM$(99),MSG$(512),FLAG$(255)&{("FILENAME";F$: (F$)8 40&2"LOADING:":"...VERBS, ROOMS AND OBJECTS"&<"I",#1,F$"/VOR"&F#1,NV: X1 NV:#1,VERB$(X): X'P#1,NR: X1 NR:#1,ROOM$(X):#1,OD'Z X'$d#1,OC'Ln X1 OC:#1,OB$(X),O$,G,R,S,P:X'Tx#1'g"...MESSAGES"'"I",#1,F$"/MSG":#1,NM' X1 NM:#1,MSG$(X):X:#1'"...FLAGS"'"I",#1,F$"/FLG": X1 255:#1,FLAG$(X),FLAG: X:#1( "...ADVENTURE LINES"(""I",#1,F$"/PSC"(-ȉ#1,NL(DҀ X1 NL:#1,PL$(n܇:,"STEP NO.";X;"- ";PL$::,"IF: ";( N1(PL$)( ((PL$,N))59 450( (PL$,N,1)"=" ::,"THEN: ";:450(T$(PL$,N,1):T((PL$,N1)))S ("rivnflekpqstgbsu",T$) 280,290,300,310,320,330,340,350,360,370,380,390,400,410,420,430)i,ROOM$(T);:440)",OB$(T)" IS IN INVENTORY";:440),,"VERB IS: ";VERB$(T);:440)6,"OBJECT IS: ";OB$(T);:440)@,"FLAG SET: ";FLAG$(T);:440*J,"FLAG NOT SET: ";FLAG$(T);:440*3T,ROOM$(T);:440*L^,"GAME ENDS";:440*sh,"PRINT MESSAGE: ";MSG$(T);:440*r,"PRINT MESSAGE: ";MSG$(T);:440*|,"SET FLAG: ";FLAG$(T);:440*,"RESET FLAG: ";FLAG$(T);:440+,"CAN GET: ";OB$(T);:440+%,"CANNOT GET: ";OB$(T);:440+F,"CAN SEE: ";OB$(T);: 440+c,"CANNOT SEE: ";OB$(T);+p," / ";+w‹N+̇:,(80,"-")+֋X:#1+:"ALL DONE!!"+"SAG":440*,"RESET FLAG: ";FLAG$(T);:440+,"CAN GET: ";OB$(T);:" M&H5D97 : T$"T" M&HE000 : 440Ì X1 NL:NC1:L(PL$(X))`C$(PL$(X),NC,1) C$"=" M,&H3D:MM1:NCNC1: 470 M,(C$):MM1:NCNC1V$(PL$(X),NC,3):V(V$): M,V:MM1:NCNC3 NCL 470M,&H2A:MM1 XMM1:M,&H40:EAM:&8800(M&H5E5F)" FREE"L0SC$F$"/PRG"s: T$"S" M SC$,&H5D97,EA,&H5D97< T$"T" M SC$,&HE000,&HFE00,&HE000D"PRESS FOR MENU";Z$:"SAG"N:PRINTOUTX:"PRESS WHEN PRINT IS READY";Z$'b#2,F$" ADVENTURE PROGRAM"Pl X1 NL:#2,0)X;PL$(X):X: 60Zv:MONgM&H5D97(M)"="(M)"="((M))Z$: Z$"" 660MM1: 650> FOR MENU";Z$:"SAG"N:PRINTOUTX:"PRESS WHEN PRINT IS  :ADV LANGUAGE EDITOR, 1000,&H5D97C 10000: PL$(999)O( 282,0x2NL1:PL1:PL$(1)"r13f216v27n81=e14"<:" ADVENTURE LANGUAGE EDITOR":(32,131);+F" 1 - PROGRAM EDITOR"::" 2 - LOAD EXISTING PROGRAM"::" 3 - SAVE CURRENT PROGRAM"::" 4 - COMPILE PROGRAM"P:" 5 - PRINTOUT PROGRAM"::" 6 - MAIN MENU":@448,(32,140);:@490,"YOUR CHOICE?";UI$: I$""85 : Z(I$)V Z1 Z6 85d Z 110,320,370,430,590?e:"IF YOU EXIT AT THIS POINT AND YOU HAVE NOT SAVED YOUR PROGRAM,IT WILL ALL BE LOST."vf:"DO YOU WANT TO SAVE THE PROGRAM AT THIS TIME?"gI$: I$""103h I$"N" I$"n" "SAG" : 60nx@0,PL;(8);": ";PL$(PL)@128,(11,131);"conditions";(11,131);*" r-ROOM i-INV v-VERB n-NOUN"P" f-FLAG IS SET l-FLAG NOT SET"x:(12,131);"outcome";(13,131);" e-ENTER ROOM k-KILL GAME"" p-PRINT MSG q-PRINT MSG"" s-SET FLAG t-RESET FLAG" ȇ" g-CAN GET OBJ b-CAN'T GET OBJ"0҇" s-CAN SEE OBJ u-CAN'T SEE OBJ"F܇@448,(32,140);s@480,"aDD dEL eDT nXT pREV qUIT vERFY";Z$: Z$""240 Z$"n" NLPL PLPL1:@0,(120," ");:120 Z$"p" PL1 PLPL1:@0,(120," ");:120N Z$"a" NLNL1:@0,(127," "):@0,"";NL;(8);": ";:Z$:PL$(NL)Z$:PLNL: 110 Z$"e" @64,"";PL;(8);": ";:Z$:PL$(PL)Z$: 110" Z$"q" 60, Z$"d" XPL NL:PL$(X)PL$(X1):X:NLNL1: 110. Z$"v" 303 : 310(/:NC0: X1 NL:L(PL$(X)):LL4:TCTCL:X0" SILENT BUFFER ="(8600TC)"BYTES FREE":"TALKING BUFFER ="(7680TC)"BYTES FREE"::" PRESS enter TO CONTINUE ";: I$:1106 240@:LOAD8J:282,&HFF:"LOAD PROGRAM FROM DISK":"ENTER FILENAME: ";F$: F$"" 60 : (F$)8 330 :SC$F$"/PSC"WL"D",#1,SC$,1:CK(1):#1N CK0 "NO SUCH FILE EXISTS!": 100,5: SC$:60T"I",#1,SC$^#1,NLh X1 NL:#1,PL$(X):X:#1:PL1:282,0: 60r:SAVEc|:282,&HFF:" SAVE CURRENT PROGRAM TO DISK"::"ENTER FILENAME: ";F$: F$""60 : (F$)8 380 : SC$F$"/PSC"z"O",#1,SC$:#1,NL X1 NL#1,PL$(X):X#1:PL1:282,0: 60:282,255 :COMPILE"(S)ILENT OR (T)ALKING ADV";T$( T$"SESCRIPTION": FLAG$:FLAG$(N)FLAG$:"ENTER FLAG STATUS (0,1):";FLAG:FLAG(N)FLAG: 590` 610o:PRINTOUTD$"HARDCOPY ROUTINE":990:"IS PRINTER READY?"I$: I$""690 I$"N" 520 : I$"Y" 690Ƈ:"PRINT UP TO WHAT FLAG";F2Ї#2,"FLAG DESCRIPTIONS AND STATUS PRINTOUT"]ڇ#2:#2,"NO. STATUS DESCRIPTION:"#2,"--- ------ ------------"U$"### # " X1 F:#2, U$;X,FLAG(X);:#2,FLAG$(X):X:530D$"LOADING FLAG DATA":990B "ENTER FILENAME";F$: F$"" 520 : (F$)8 770 : SC$F$"/FLG"b"D",#1,SC$,1:CK(1): #1 CK0 "NO SUCH FILE EXISTS!":100,5: SC$:520*"I",#1,SC$: X1 255:#1,FLAG$(X),FLAG(X): X:#1: 5304D$"SAVING DATA":990R>"ENTER FILENAME";F$: F$""520 : (F$)8 820 : SC$F$"/FLG":"PLEASE WAIT...."bH"O",#1,SC$R X1 255:#1,FLAG$(X),FLAG(X): X:#1: 530\:"YOU ARE GETTING READY TO EXIT PROGRAM."f:"WHEN YOU DO, ALL DATA WILL BE LOST!!",p:"DO YOU WANT TO EXIT PROGRAM AT THIS TIME?"BzI$: I$""890c I$"Y" I$"N" : 890D$"ADDING MESSAGES":990:"PRESS enter WHEN DONE""MESSAGE NUMBER"NM1;(8);":" I$: I$"" 270:NMNM1:CMNM:MSG$(CM)I$ 920 990:@448,(32,140);Mʇ@480,"aDD dEL eDIT nEXT pREVIOUS qUIT";Zԇ@64,;:u:**** PRINT MENU ****LN0:LL0:MG0:MD1TL$(32,(131)):BL$(32,(140))1060::TB((32(ME$))2) TB)ME$: TL$;1060:LNLN1: (ME$)LL LL(ME$)BME$(LN)ME$: CN0 1100 : 1040[$CN((D$,MD),",")}. CN0 ME$(D$,MD):10908ME$(D$,MD,CN1):MDMDCNBLMG((26LL)2):MG$(MG," ")V LN1 ` X1 (10LN)2::Xj X1LN:MG$;X"- ";ME$(X):X8t @448,BL$;:@489,"YOUR CHOICE?";O~I$: I$""1150yI(I$): I1 ILN 100,2:1140ME$(D$,MD,CN1):MDMDCNBLMG((26LL)2):MG$(MG," ")V LN1 ` X1 (10LN)2::Xj X1LN::MSG EDITOR> 17000: MSG$(512),FLAG$(255),FLAG(255)V# (&H200)2 520(D$"MESSAGE EDITOR,CREATE NEW FILE,EDIT MESSAGES,LOAD OLD FILE,SAVE DATA,PRINT DATA,FLAG EDITOR,MAIN MENU":9902 I 70,90,300,380,430,520,60<860: I$"Y" "SAG" : 40)F:CREATE NEWFILEBPNM0:CM0:910:40OZ:EDITORed@480,(31," ");n@480,"WHICH MESSAGE NUMBER";x CMD$"MESSAGE EDITOR"960 CM256 "BUFFER P MSG#"CM:160 :"BUFFER Q MSG#"CM255MSG$(CM) X1 (MSG$(CM))MA$(MSG$(CM),X,1): A$"/" "" : A$;XX:""oZ$: Z$"" 200҅ Z$"N" CMNM CMCM1: 140܅ Z$"P" CM1 CMCM1: 140 Z$"D" XCM NM:MSG$(X)MSG$(X1):X:NMNM1: 1409 Z$"E" "ENTER REVISED MESSAGE": Z$:MSG$(CM)Z$: 140 Z$"A" NMNM1:CMNM:"ENTER NEW MESSAGE": Z$:MSG$(NM)Z$: 140 Z$"Q" 40 : 140: X1 NM:NCNC(MSG$(X)):X:NCNCNM1: NC8600 8600NC" BYTES FREE" NC8600 NC8600" BYTE OVERFLOW!!"/" ""290 : :,:LOADV6D$"LOADING DATA":990@"FILE NAME";F$: F$""40 : (F$)8 310JF$F$"/MSG"::"PLEASE WAIT...."T"D",#1,F$,1:CK(1):#1^ CK0 "NO SUCH FILE EXISTS!":100,5: F$: 40h"I",#1,F$:#1,NMGr X1 NM:#1,MSG$(X):X:#1:270:40R|:SAVED$"SAVING DATA":990:"FILE NAME";F$: F$"" 40 : (F$)8 390F$F$"/MSG""O",#1,F$:#1,NM X1 NM:#1,MSG$(X):X:#1: 40:PRINTOUT MESSAGES%D$"HARDCOPY ROUTINE":990>‡"IS PRINTER READY?"TI$: I$""460yօ I$"N" 40 : I$"Y" 460 X1 NM#2,"NO."X"- ";#2,MSG$(X):#2,"" X: 40:FLAGS6D$"FLAG EDITOR,LOAD OLD FILE,SAVE DATA,EDIT FLAG FILE,PRINT DATA,MESSAGE EDITOR,MAIN MENU":990X I 770,820,570,670,40,550b&8600 I$"Y" "SAG" : 520::EDD@480," WHICH FLAG NUMBER";: N: ND$"EDITING FLAGS":990:@448,(32,140);:@480,"eDIT nEG 0,@@ qUIT";:@64,;oX"FLAG #"N" FLAG STATUS:";FLAG(N):: FLAG$(N)"" "(NO FLAG DESCRIPTION)" : FLAG$(N)bZ$:Z$"" 610l Z$"N" N255 NN1: 590v Z$"P" N1 NN1: 590 Z$"Q" 530U Z$"E" :"ENTER FLAG DW?")I$: I$""1780). I$"N" "SAG")C I$"Y" 1780)O 1210I(I$): I1 ILN 100,2:1710(}̐(֞:" YOU ARE ABOUT TO EXIT PROGRAM."(:" ONCE YOU EXIT, ALL DATA WILL BE LOST!"):" DO YOU WANT TO SAVE DATA NO6)1 OD$(X)"U"OD$(X):AA16 Gj (A8)1 OD$(X)"W"OD$(X):AA8 pt (A4)1 OD$(X)"E"OD$(X):AA4 ~ (A2)1 OD$(X)"S"OD$(X):AA2  A1 OD$(X)"N"OD$(X)  X #1,OC! X1 OC:#1,OB$(X),OF$(X),G(X),RO(X),SEE(X),OP(X):X!#1: 110! :SAVE!tD$"SAVING DATA":1560:"FILE NAME";F$: F$"" (F$)8 80 : F$F$"/VOR"!Ι"O",#1,F$!#1,NV! X1 NV:#1,VERB$(X):X!#1,NR: X1 NR:#1,ROOM$(X):#1,OD(X):X!#1,OC"$ X1 OC:#1,OB$(X),OF$(X),G(X),RO(X),SEE(X),OP(X):X"2 #1: 80"A:PRINTOUT"D$"HARDCOPY ROUTINE,PRINT VERBS,PRINT ROOMS,PRINT OBJECTS,MAIN MENU":1560"( I4 80"2@480,"PRESS enter WHEN PRINTER READY";:100,2"";Z$: 340&3000NC" BYTES FREE": 3800:OBJECTS:D$"OBJECT EDITOR":O1:1550D"DESCRIPTION OF OBJECT"O:OB$(O)1N"ABREVIATION: ";OF$(O)nX G(O)1 "IT CAN BE GOTTEN" : "IT CANNOT BE GOTTEN"b"IT STARTS IN ROOM"RO(O)l SEE(O)1 "IT CAN"; : "IT CANNOT";v" BE READILY SEEN""DESCRIPTION MSG #"OP(O)960Z$: Z$"" 660# Z$"Q" 110M Z$"N" OOC OO1:1550: 580v Z$"P" O1 OO1:1550: 580 Z$"D" XO OC:OB$(O)OB$(X1):G(O)G(X1):SEE(O)SEE(X1):OP(O)OP(X1):RO(O)RO(X1): X:OCOC1: 580ƅ Z$"A" 720 : 7805OCOC1:1550:"ENTER OBJECT: ": OB$(OC)Sڻ"ABREVIATION: ";OF$(OC)"IS IT GETABLE (Y,N):";G$: G$"Y" G(OC)1 : G$"N" G(OC)0 : 740"CAN IT BE READILY SEEN (Y,N)";Z$: Z$"Y" SEE(OC)1 : Z$"N" SEE(OC)0 : 750"IN WHAT ROOM";RO(OC)P"MSG POINTER? (0 IF NONE";OP(OC):OOC:1550:580j Z$"E" 790 : 6601550:"ENTER REVISED OBJECT:": OB$(O) "ABREVIATION: ";OF$(OC)*"CAN IT BE GOTTEN (Y,N):";G$: G$"Y" G(O)1 : G$"N" G(O)0 : 810/4"ROOM OBJECT STARTS OUT IN:";RO(O)>"CAN IT BE READILY SEEN (Y,N)";SEE$: SEE$"Y" SEE(O)1 : SEE$"N" SEE(O)0 : 830H"DESCRIPTION MSG #";OP(O):OOC:1550:580R:NAV\BC0: (OD$(R),"N")0 BC1 f (OD$(R),"S")0 BCBC2.p (OD$(R),"E")0 BCBC4Oz (OD$(R),"W")0 BCBC8q (OD$(R),"U")0 BCBC16 (OD$(R),"D")0 BCBC32OD(R)BC:Z$:Z$""930Z$"Y" Z$"N" Z$: 930NC0::VERIFY OBJ BUFF ʀ X1 OC"NCNC(OB$(X)): X1NCNCOC1^ NC3100 "FREE BUFFER SPACE="3100NC NC3100 "BYTE OVERFLOW OF "NC3100"BYTES":LOADD$"LOADING OLD FILE":1560:"FILENAME";F$: F$"" (F$)8 80 : F$F$"/VOR""D",#1,F$,1:CK(1):#1O$ CK0 F$:"NO SUCH FILE EXISTS!":100,10:80^."I",#1,F$8#1,NV: X1 NV:#1,VERB$(X): XB#1,NR: X1 NR:#1,ROOM$(X):#1,OD(X)LAOD(X):OD$(X)""V (A32)1 OD$(X)"D"OD$(X):AA32 ` (A1Q 11000n VERB$(70),OB$(255),OF$(255),G(255),RO(255),SEE(255),OP(255),ROOMS$(99),OD(99),OD$(99)LG$"aDD dEL eDIT nEXT pREVIOUS qUIT"(NV4:VERB$(1)"GO":VERB$(2)"GET":VERB$(3)"DROP":VERB$(4)"EXAMINE"2NR1:ROOM$(1)"I AM NOWHERE"