& : 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$(z܇#2:#2,"STEP NO.";X;"- ";PL$:#2:#2,"IF: ";( N1(PL$)( ((PL$,N))59 450( (PL$,N,1)"=" #2:#2:#2,"THEN: ";:450)T$(PL$,N,1):T((PL$,N1)))h ("rivnflekpqstgbsu",T$) 280,290,300,310,320,330,340,350,360,370,380,390,400,410,420,430)#2,ROOM$(T);:440)"#2,OB$(T)" IS IN INVENTORY";:440),#2,"VERB IS: ";VERB$(T);:440)6#2,"OBJECT IS: ";OB$(T);:440*@#2,"FLAG SET: ";FLAG$(T);:440*DJ#2,"FLAG NOT SET: ";FLAG$(T);:440*]T#2,ROOM$(T);:440*y^#2,"GAME ENDS";:440*h#2,"PRINT MESSAGE: ";MSG$(T);:440*r#2,"PRINT MESSAGE: ";MSG$(T);:440*|#2,"SET FLAG: ";FLAG$(T);:440+#2,"RESET FLAG: ";FLAG$(T);:440+>#2,"CAN GET: ";OB$(T);:440+d#2,"CANNOT GET: ";OB$(T);:440+#2,"CAN SEE: ";OB$(T);: 440+#2,"CANNOT SEE: ";OB$(T);+#2," / ";+‹N+̇#2:#2,(80,"-")+֋X:#1+:"ALL DONE!!","SAG"LAG: ";FLAG$(T);:440+>#2,"CAN GET: ";OB$(T);:440+d#2,"CANNOT GET: ";OB$(T);:440+#2,"CAN SEE: ";OB$(T);: 440+#2,"CANNOT SEE: ";OB$(T);+#2," / ";+‹N+̇#2:#2,(80,"-")+֋X:#1+:"ALL DONE!!","S)#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: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 nEXT pREVIOUS 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 DESCRIPTION": 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: 9 "GO" "GET" "DROP" "EXAMINE" "SHOOT" "OPEN" "FEED" "ENTER" "PULL" 6 "I AM STANDING ON THE FRONT PORCH OF MY UNCLE'S HOUSE" 1 "I AM IN THE HALLWAY" 7 "I AM IN THE LIBRARY" 8 "I AM IN THE DINING ROOM" 10 "I AM IN THE KITCHEN" 4 "I AM IN MY UNCLE'S SECRET VAULT" 4 25 "NORTH","NORT", 0, 0, 0, 0 "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","INVE", 0, 0, 0, 0 "A PORCH SWING","SWIN", 0, 1, 1, 1 "A MILKCAN","MILK", 1, 1, 1, 2 "A HIDDEN DOORWAY","DOOR", 0, 5, 1, 14 "AN IMPRESSIVE LOOKING PLAQUE","PLAQ", 1, 2, 1, 4 "A PAINTING","PAIN", 1, 2, 1, 5 "YOUR UNCLE'S SMOKING JACKET","JACK", 1, 3, 1, 6 "BOOKCASES","CASES", 0, 3, 1, 7 "A READING DESK","DESK", 0, 3, 1, 0 "A CLAW FOOT TABLE","TABL", 0, 4, 1, 8 "A MUSKET","MUSK", 1, 4, 1, 9 "A STOVE","STOV", 0, 5, 1, 10 "A REFRIGERATOR","REFR", 0, 5, 1, 11 "CANS OF FOOD","FOOD", 1, 5, 1, 12 "A COAT HOOK","HOOK", 0, 5, 1, 0 "A GUARDIAN SNAKE","SNAK", 0, 6, 1, 13 "A TREASURE CHEST","CHES", 0, 6, 1, 15 "GOLD BARS","GOLD", 0, 6, 0, 16 1, 4, 1, 9 "A STOVE","STOV", 0, 5, 1, 10 "A REFRIGERATOR","REFR", 0, 5, 1, 11 "CANS OF FOOD","FOOD", 1, 5, 1, 12 "A COAT HOOK","HOOK", 0, 5, 1, 0 "A GUARDIAN SNAKE","SNAK"% (25)14 10: :M"SAG.SCR"34,1:1,1GI$: I$""3P0,0] 10190n2000,&H7FFF{282,255dD$"SPECTRUM ADVENTURE GENERATOR,V/R/O EDITOR,MESSAGE EDITOR,FLAG EDITOR,LANGUAGE EDITOR,ADVENTURE COMPILER,DETAIL PRINTOUT,EXIT TO BASIC":10000@n I 1000,2000,3000,4000,5000,5500,6000N"SAGVOR"dВ&H200,1:"SAGMF"z &H200,2:"SAGMF""SAGLANG":"THE FOLLOWING INFORMATION IS NEEDED BEFORE THE ADVENTURE CAN BE COMPILED:"&:"IN WHICH ROOM DO YOU WANT THE ADVENTURE TO START";N:&H200,Nq"WHAT IS MAXIMUM NUMBER OF ITEMS YOU ARE ALLOWED TO CARRY";N:&H201,N"WHAT IS TOTAL NUMBER OF OBJECTS IN THE ADVENTURE";N:&H202,N"IS THIS A TALKING ADVENTURE";I$:I$(I$,1): I$"Y" &H203,1 : &H203,0250,&H18FF&Ď"COMPILER"h|:"YOU MUST HAVE THE PRINTER READY BEFORE YOU CAN CONTINUE.":"ARE YOU READY TO CONTINUE?"I$: I$""5520 I$"N" 100 I$"Y" 5520"SAGPRINT"p:'':**** PRINT MENU ****'LN0:LL0:MG0:MD1F'$TL$(32,(131)):BL$(32,(140))j'.10070::TB((32(ME$))2)'8 TB)ME$: TL$;'B10070:LNLN1: (ME$)LL LL(ME$)'LME$(LN)ME$: CM0 10110 : 10050'VCM((D$,MD),",")'` CM0 ME$(D$,MD):101001'jME$(D$,MD,CM1):MDMDCM7't['~MG((26LL)2):MG$(MG," ")j' LN1 ' X1 (10LN)2::X' X1LN:MG$;X"- ";ME$(X):X' @448,BL$;:@489,"YOUR CHOICE?";'I$: I$""10160'I(I$): I1 ILN 100,2:10150'Đ^'Ξ:Y0:A$"BDB3ED1F027E96A": (&H96A7)147 A$A$"7" : A$A$"5"t'؀I1 (A$) 2'&H200Y,("&H"(A$,I,2)):YY1:'0&H200:X0(&HE00)' 20ICE?";'I$: I$""10160'I(I$): I1 ILNQ 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"?@ACATEBAS2EST BAS3HOUSE PRG4HOUSE BIN5SAG BAS SAG SCR. SAGSAVE BAS-SAGVOR BAS!TSAGMF BASSAGLANG BAS%SAGPRINTBASCOMPILERBAS)-BRAINS BINTBRAINS BIN*ALLRAM BIN+$HOUSE PSC(HHOUSE FLG'HOUSE MSG&HOUSE VORUHOUSE PRG4HOUSE BIN5 RNR 340NC0G X1 NR:NCNC(ROOM$(X)):X:NCNCNR1 NC2800 "ROOM BUFFER OVERFLOW BY":NC3000" BYTES":"PRESS ";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 ` (A16)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"