' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` PP>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(D @Π٠@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# uP00:20010D!JQSEX$"M":8:958:"SEX CHANGED TO MALE.":6500:20010!Q8:958:8);" 1. GOLD IN HAND",GOLD:8);" 2. GOLD IN BANK",BANK:X2:1000:S20910,20920"Q8:958:"HOW MUCH GOLD:";A$:(A$)0(A$)XG(A$)((A$))ĺ:"INVALID GOLD.":650SE:";A$:(A$)XW(A$)((A$))WA%(5)(A$)9 P20010 P8:958:"OLD ARMOUR EXP:";AE:"NEW ARMOR EXPERTISE:";A$:(A$)90(A$)XAEĺ"INVALID EXPERTISE.":6500:20700 PAE(A$):20010 !@QSEX$"M"SEX$"F":8:958:"SEX CHANGED TO FEMALE":65))WA%(2)(A$)P20010nP8:958:8);:"NEW MACE EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(3)(A$)yP20010P8:958:8);:"NEW SPEAR EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(4)(A$)P20010. P8:958:8);:"NEW SWORD EXPERTI;X;". ";WT$(X),WA%(X)::10);"6. RETURN":X6:1000^PS20610,20620,20630,20640,20650,20000P8:958:8);:"NEW AXE EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(1)(A$)P20010P8:958:8);:"NEW BOW EXPERTISE:";A$:(A$)XW(A$)((A$8:958:"NEW SPEED RATING:";SA$:(SA$)XM(SA$)0(SA$)((SA$))SA%(3)(SA$)_7P20010N8);" 8. SEX CHANGE":8);" 9. GOLD":8);" 10. ARMOUR CLASS":8);" 11. WEAPON CHANGE"$HN8);" 12. DISPLAY RECORD":8);" 13. RETURN TO M?0@"*** ATTEMPTING TO RECOVER ***"::1006_B`D$(4)Hb[eD$;"MONC,I,O"rjD$;"OPEN BASEMOD"lD$;"DELETE BASEMOD"nD$;"OPEN BASEMOD"tD$;"WRITE BASEMOD"v"MONCIO"~33,33:10059999:33,40D$;"CLOSE""#CODE53ĺ"ILLEGAL QUANTITY)"CCODE77ĺ"(OUT OF MEMORY)"iCODE90ĺ"(UNDEFINED STATEMENT)"CODE107ĺ"(BAD SUBSCRIPT)"CODE163ĺ"(TYPE MISMATCH)"CODE255ĺ"(CTRL-C INTERRUPT ATTEMPTED)":"TO STOP THIS PROGRAM, HIT 'RESET'",154:774,72:775,152:776,72:777,96:7680}UCODE(222):LN(218)256(219)(7);"**** ERROR #";CODE;" IN LINE ";LNCODEĺ"(NEXT WITHOUT FOR)"CODE16ĺ"(SYNTAX)"CODE22ĺ"(RETURN WITHOUT GOSUB)"CODE42ĺ"(OUT OF DATA)11:DR%(K1)K+>!:RR(1)K11:R2DR%(RR)i,SUC0:SA%(S)RLR(X):SUC(((RLS2%(S))(RL6))(RL96))x,SUC11520,R(X)1İ11600:," NOTHING HAPPENS.":x////ERROR HANDLING ROUTINE*y768,104:769,168:770,104:771,166:772,223:773D%(A2,4)ROOMZ//DROP WEAPONS,DISARM,REDUCE COURAGE (IN CASE MONSTER GETS RESURRECTED)MD%(DF,9)0AD%(MD%(DF,9),4)ROOM:MD%(DF,10)MD%(DF,10)AD%(MD%(DF,9),5):MD%(DF,9)1:MD%(DF,4)MD%(DF,4)2 4!K10:D16:KED%(ROOM,D):DR$DR$(K):K0K1KSSING 'R'""1":";A$:A$"R"14001UPİ5000?1D$"CLOSE"1:5:"INSERT RECEIVING DISKETTE":" AND PRESS ANY KEY":A$:1D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":C2:D$1:12);"MOVING CHARACTER":8:958:28);"SE1400l >>> MOVE CHARACTER0v:"THIS ROUTINE WILL MOVE AN ADVENTURER ":"FROM ONE DISKETTE/FILE TO ANOTHER.":"CHARACTER MUST BE IN MEMORY WHEN THIS ":"FUNCTION IS EXECUTED." 1:"IF CHARACTER IS NOT IN MEMORY, RETURN":"TO THE PRIMARY MENU BY PRE0:5000:10130!/vMO$"A"10130./ vS31409/v20010O/@ /// SELECT MODE/J13:958:8);"SELECT ACTIONS WANTED:":8);" 1. AUTOMATIC":8);" 2. MANUAL":8);" 3. MOVE CHARACTER":X3:1000/TS40100,40200,40300/MO$"A":1400MO$"":);6((WO%(X))));WO%(X);"%";:HW1.uWN$(X)"NONE"ĺ7((WD%(X))"D"(WS%(X))));WD%(X);"D";WS%(X);5((2AGWA%(WT%(X))WO%(X))));2AGWA%(WT%(X))WO%(X)EA;"%".uX::HW0ĺ8);"(NONE)"::.u6000:.uA$"U"20010/uMO$"A"ĭUP1UPAR:";WA%(4);" SWORD:";WA%(5)2-vuA$AC$(AC)W-u:"ARMOUR: ";A$;" AE=";AE;"%"t-u:"WEAPON INFORMATION:"-u"NAME TYPE COMP DAM. ODDS":-uEA10ACAE:EA0EA0-uHW0:X14#.uWN$(X)"NONE"ĺWN$(X);18(WN$(X)));WT%(X"HARDINESS:";HD;" AGILITY:";AG;" CHARISMA:";CH6,Nu,Xu" SPELL ABILITY":"BLAST:";SA%(1);" HEAL:";SA%(2);" SPEED:";SA%(3);" POWER:";SA%(4),bu:" WEAPON ABILITY":"AXE:"WA%(1);" BOW:";WA%(2);" MACE:";WA%(3)#-lu" SPEA$:(A$)XS(A$)((A$))(A$)0ĺ8);"INVALID SIDES.":6500:22510_+XWS%(W)(A$):22000{+0u /// DISPLAY CHARACTER+5uC0ĺ"NO RECORD IN MEMORY.":6000:140+:u:"NAME:";NAME$;" REC:";C::"SEX:";SEX$;" GOLD:";GOLD;" ";"BANK:";BANK0,Du:58:8);:"WEAPON ODDS:";A$:(A$)100(A$)((A$))ĺ"INVALID ODDS.":6500:22660e*XWO%(W)(A$)*X11:958:8);:"WEAPON DICE:";A$:(A$)XD(A$)((A$))(A$)0ĺ"INVALID DICE.":6500:22670*XWD%(W)(A$)G+X12:958:8);:"NEW SIDES:";,1)"Z"ĺ"INVALID WEAPON NAME.":6500:22610:)\XWN$(W)A$)fX9:958:8);"SELECT TYPE:":X15:8);" ";X;". ";WT$(X)::8);"INPUT # OF NEW TYPE:";)pXA$:A$"1"A$"5"22640)zXA$:WT%(W)(A$):9:868:8);"WEAPON TYPE:";WT$(WT%(W))T*X10:9":6500:22410"(W >> WEAP SIDES|(W8:958:8);:"NEW SIDES:";A$:(A$)XS(A$)((A$))(A$)0WS%(W)(A$):22510(W8);"INVALID SIDES.":6500:22510(HX >> ADD WEAPON,)RX8:958:8);:"WEAPON NAME:";A$:(A$)2(A$)20(A$,1)"A"(A$W >> WEAP ODDSa'&W8:958:8);:"NEW ODDS:";A$:(A$)100(A$)((A$))WO%(W)(A$):22000}'0W"INVALID ODDS.":22300'W >> WEAP DICE'W8:958:8);:"NEW DICE:";A$:(A$)XD(A$)((A$))(A$)0WD%(W)(A$):22000(W8);"INVALID DICE(A$,1)"A"(A$,1)"Z"ĺ"INVALID WEAPON NAME.":6500:22110R&hVWN$(W)A$:22000e&V >> WEAP TYPE&V8:958:8);"SELECT TYPE:":X15:8);" ";X;". ";WT$(X)::8);"INPUT # OF NEW TYPE:";&VA$:A$"1"A$"5"22220&VA$:WT%(W)(A$):22000'((WD%(W))));WD%(W):8);" 5. SIDES";38((WS%(W))));WS%(W)%"V8);" 6. NEXT WEAPON":8);" 7. END OF WEAPON CHANGE":X7:1000%,VS22100,22200,22300,22400,22500,22600,20000%TV >> WEAP NAME=&^V8:958:8);:"NEW NAME:";A$:(A$)2(A$)20:1000$US5200004$VWS::WN$(W)"NONE"22600$V8:958:8);"SELECT FIELD TO CHANGE:":8);" 1. NAME";38(WN$(W)));WN$(W)$V8);" 2. TYPE";38(WT$(WT%(W))));WT$(WT%(W)):8);" 3. COMP.";38((WO%(W))));WO%(W)@%V8);" 4. DICE";38#RX17:10);X;". "AC$(X):9#RX7:1000:ACS:20010R#S >>> CANCEL CHANGESo#SADDADD0:UP0:C0:140#SUP0:2000:140#U >>> WEAPON CHANGE$U8:958:8);"SELECT WEAPON TO CHANGE:":X14:8);" ";X;". ";WN$(X)::8);" 5. RETURN":X50:20910"QGOLD(A$):20010"Q8:958:8);:"HOW MUCH IN BANK:";A$:(A$)0(A$)XG(A$)((A$))ĺ:"INVALID AMOUNT.":6500:20920"QBANK(A$):20010"R8:958:8);"CURRENT ARMOUR CLASS":8);::AC$(AC)::8);"SELECT NEW ARMOUR CLASS:" FOR UNUSUALTHINGS.":D1NDl*+4D:"MOVE ";DD$(D);"--";:I2$"":1500:DR(I$):DR(DR)(DR)I$11050}4+DR%(D)DR:D#>+N%(1)N%(1)1:DK$;"WRITE EAMON.ROOM NAMES,R";N%(1):R1$:DK$;"WRITE EAMON.DESC,R";N%(1):(34);R2$;(34):DK$;"WRITE EAMON.ROTY$"A"EB1:110500+TY$"M"ĺ"BYPASSED.":9 +EBBI*+EEBN%(3)a4+"EFFECT #";E;":":>+DK$;"READ EAMON.DESC,R";E200:A$:8000H+::R+:216,0:DR$"6":DK$"CLOSE":35)N%(2)ĺ" [";AN$(M%(9));"]";':M22" ":Kp /// TOGGLE PRINTERVzSWSW_100oX /// QUITbD$"CLOSE":D$"PR#0":@PL40ĺA$:JAZ1(A$)40:(A$,AZ,40)::* ///LIST EFFECTS+(12);"LISTING EFFECTS" +TY$"R"" ":M2112:" ";M$(M2);10(M$(M2)));": ";6((M%(M2))));M%(M2);gM23M24M27M210ĺ" %";M25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";M29M%(9)1ĺ" [ NO WEAPONS ]"M29M%(9)0ĺ" [ NATURAL WEAPONS ]";M29M%(9)0M%(9":1:D$"WRITE CHARACTERS,R1":"":"OBODY":X153:0::L=JD$"CLOSE":100=| AXE,BOW,MACE,SPEAR,SWORD,NONE,SHIELD ONLY,LEATHER,LEATHER & SHIELD,CHAIN MAIL,CHAIN & SHIELD,PLATE,PLATE & SHIELDUPİ5000<216,0:D$<":"THERE IS NO CHARACTER FILE ON THIS DISK.":"DO YOU WANT TO CREATE ONE? (Y OR N):";<,A$:A$"Y"A$"N"63020<6A$:A$"N"Ĭ8=@D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0SA%(X)0::GOLD300:BANK0:NWİ60550N;^AE(S1)20:CNC1:NCNC1:SEX$"M";hD$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":C:D$;"CLOSE":5000;X14:WN$(X)"NONE":WT%(X)0:WD%(X)0:WS%(X)0:WO%(X)0:;;;0 /// QUIT ROUTINE <:16:CH16:AC2:WA%(1)8:WA%(2)4:WA%(3)40:WA%(4)14:WA%(5)10I:60500:HD22:AG22:CH22:AC4:WA%(1)20:WA%(2)20:WA%(3)50:WA%(4)20:WA%(5)40:60500:HD24:AG24:CH24:WA%(1)70:WA%(2)70:WA%(3)70:WA%(4)60:WA%(5)60:J60500&;TX15:WEAK CHARACTER":" 2. AVERAGE NORMAL":" 3. HIGH CHARACTER":" 4. SUPER CHARACTER"c9X4:1000v9:"NAME:";NA$9S60100,60200,60300,6040091409HD10:AG10:CH10:AC0:WA%(1)5:WA%(2)0:WA%(3)20:WA%(4)10:WA%(5)0960500>:(HD16:AG ADVENTURE."h8VǺ:"PRESS 'C' TO CONTINUE TO ADVENTURE"::"OR ANY OTHER KEY TO RETURN TO MENU.";:A$:v8`ǭA$"C"ı8jǡ:1308` >>> ADD A RECORD8eUPİ50008j:11);"CREATE A CHARACTER":8:958:8);"SELECT GENERAL POWER LEVEL:"U9~" 1. 02077xúD$"OPEN EAMON.NAME":D$"READ EAMON.NAME":DNG$m7×:5:"YOU ARE ABOUT TO ADVENTURE IN":::DNG$:7úD$"OPEN FRESH MEAT":D$"WRITE FRESH MEAT":C:7ð5020:D$"RUN ";DNG$78Dz >>> INSTRUCTIONS 8BǗ:"YOU ARE ABOUT TO TRANSFER ";NA$:"TO ANS,L150":D$"WRITE CHARACTERS,R0":NC:D$"CLOSE":5000:140V6Pò >>> WRITE FRESH MEAT6UíC0ĺ"NO CHARACTER IN MEMORY.":6500:1406ZíUPİ50006_úD$"CLOSE"6dð51000::6:" INSERT ADVENTURE TO TEST AND PRESS":" ANY KEY":A$:7nå50Y.":6000:140h5D$"CLOSE"::5:"INSERT ORIGINAL DISKETTE AND PRESS ANY"::" KEY":A$:5 D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$:1405૭C0ĺ:"NO CHARACTER IN MEMORY.":6500:140:6NCNC1:CNC:D$"OPEN CHARACTERIND THAT NAME.":42010d4C3C:CR:5000:CC3::"DONE.":"PRESS ANY KEY TO CONTINUE";:A$::43000~4ؤ >>> REPLACE BY REC#4⤢8:958:"RECORD #:";A$:(A$)((A$))(A$)C2(A$)1422104줫421204 >>> RETURN5C0ĺ"NO CHARACTER IN MEMOR.":6000:43000+3 >>> REPLACE CHARACTER38:958:"SELECT METHOD":8);" 1. REPLACE BY NAME":8);" 2. REPLACE BY RECORD #":X2:10003$S42100,422003t8:958:"NAME:";N$4~R1NC:D$"READ CHARACTERS,R";R:N2$:D$:N2$N$Ă:"I DON'T FLECT ACTION:":8);" 1. ADD CHARACTER AS NEW":8);" 2. REPLACE EXISTING CHARACTER":8);" 3. RETURN WITHOUT CHANGE":X3:10002S41000,42000,430002( >>> ADD NEW CHARACTER32C2C21:C3C:CC2:5000:CC3:D$"WRITE CHARACTERS,R0":C2:D$:"DONE=TREASURE W/SET PRICE, 1=TREASURE, 2=STANDARD WEAPON, 3=ODD WEAPON)":VZ2:33t'1VA$:A$(27)A$(TY):22070'4VA$"0"A$"3"22065'6VTYPE(A$):1:("SETTREASTREASUREWEAPON ODD WEAP",TYPE81,8);" ARTIFACT";:958:'@VI2$(WT)R(JVVZ3:$:"ENTER ARTIFACT DESCRIPTION:":1500:6:958:"ARTIFACT DESCRIPTION:"::I$::AD$I$:p&VVZ(37):I2$(VL)&"VVZ1:"ENTER THE VALUE IN GOLD PIECES:";:1500:VL(I$):(VL)I$(VL)VLĺ(7):I$I2$:22050R',V"HIT KEY FOR TYPE OF ARTIFACT":" (0.ARTIFACTS,R";N:AN$,VL,TYPE,WT,ROOM:TYPE1ĄWC,W2,DICE,SIDESG%UDK$%U:"EDITING ARTIFACT ";N:I2$AN$::"ENTER ARTIFACT NAME:"%V" ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:22020Y&V3:958:"ARTIFACT NAME:":" ";::I$::AN$I$:6:I2$AD)(I$):D$XRDK$;"WRITE EAMON.ROOM NAMES,R";N2:R1$:DK$;"WRITE EAMON.DESC,R";N2:(34);R2$;(34):DK$;"WRITE EAMON.ROOMS,R";N2:D1ND:DR%(D)::DK$$bR100$U///EDIT AN ARTIFACT>%U20030:NN2:DK$;"READ EAMON.DESC,R";N100:AD$:DK$;"READ EAMON):I2$I$:21040#:RR1$I$:6:"EDITING DESCRIPTION--":I2$R2$:1500:R2$I$::"EDITING ROOM DIRECTIONS (0 FOR NO DIR, NEGATIVE FOR STRANGE)":D1ND:I2$(DR%(D))#DR1D:"MOVE ";DD$(D);"-- ";:1500:DR(I$):DR(DR)(DR)I$I2$I$:21060 $NRDR%(DT A ROOM"R20030"RDK$;"READ EAMON.ROOM NAMES,R";N2:R1$:DK$;"READ EAMON.DESC,R";N2:R2$:DK$;"READ EAMON.ROOMS,R";N2:D1ND:DR%(D)::DK$"&R:"EDITING ROOM ";N2::"EDITING ROOM NAME--":I2$R1$#0R" ";:1500:(I$)39Ģ3:20:"TOO LONG!";(716,0:40$! N///EDIT OLD ITEM BLOCK]!*NC$"EDIT":1000:TYPEA:TYPE21000,22000,23000,24000x!4N///GET NUMBER TO EDIT!>N"ENTER NUMBER OF ";T$(TYPE);" TO EDIT":" (1-";N%(TYPE);:") ";A$:N2(A$):N21N2N%(TYPE)N2(N2)ġ:100!HN"R///EDI::M114_ 6"ENTER ";M$(M);": ";:I2$"":1500:M%(M)(I$):(M%(M))I$ĺ(7):(37):14050e 6 6N%(4)N%(4)1:DK$;"WRITE EAMON.DESC,R";300N%(4):(34);MD$;(34):DK$;"WRITE EAMON.MONSTERS,R";N%(4):MN$:M114:M%(M)::DK$ 7100!:ND6:2"WRITE EAMON.DESC,R";200N%(3):(34);I$;(34):DK$:100N6///ADD A MONSTER6:"ENTERING MONSTER # ";N%(4)1::I2$"":"ENTER NAME:";:1500:I$""(I$)3014010 6MN$I$::"ENTER DESC--":I2$"":1500:MD$I$::"MONSTER # ";N%(4)1;" ";::MN$:K$;"WRITE EAMON.DESC,R";N%(2)100:(34);AD$;(34):DK$;"WRITE EAMON.ARTIFACTS,R";N%(2):AN$:VL:TYPE:WT:ROOMn2TYPE1ĺWC:W2:DICE:SIDESx2DK$::10022///ADD AN EFFECT82:"ENTER EFFECT #";N%(3)1:I2$"":1500::N%(3)N%(3)1:DK$; NUMBER OF DICE OF DAMAGE DONE:";:1500:DICE(I$):DICE1DICE(DICE)(DICE)I$ĺ(7):I2$I$:12180s/I2$""/VZ8:"ENTER NUMBER OF SIDES PER DICE:";:1500:SIDES(I$):SIDES1SIDES(SIDES)(SIDES)I$ĺ"":I2$I$:12200pd2N%(2)N%(2)1:D(WC)I$ĺ(7):12130!l/I2$""{v/VZ6:958:"HIT KEY FOR WEAPON TYPE (1=AXE, 2=BOW, 3=CLUB, 4=SPEAR, 5=SWORD) ";/A$:W2(A$):W21W2512160/VZ6:1:958:("AXE BOW CLUB SPEARSWORD",(W21)51,5);" WEAPON":I2$""h/VZ7:"ENTERT(I$):WT(WT)(WT)I$ĺ(7):I2$I$:12090;D/I2$""N/VZ4:"ENTER ROOM STARTING IN:";:1500:ROOM(I$):ROOM(ROOM)(ROOM)I$ĺ(7):I2$I$:12110X/TYPE212900]/I2$""b/VZ5:"ENTER WEAPON COMPLEXITY:";:1500:WC(I$):WC(WC)REASURE W/SET PRICE, 1=TREASURE, 2=STANDARD WEAPON, 3=ODD WEAPON)":VZ2:33n!/A$:A$"0"A$"3"12065&/TYPE(A$):1:("SETTREASTREASUREWEAPON ODD WEAP",TYPE81,8);" ARTIFACT";:958:0/I2$""0:/VZ3:"ENTER WEIGHT IN GRONDS:";:1500:W$"":"ENTER ARTIFACT DESCRIPTION:":1500:6:958:"ARTIFACT DESCRIPTION:"::I$::AD$I$:p/VZ(37):I2$""/VZ1:"ENTER THE VALUE IN GOLD PIECES:";:1500:VL(I$):(VL)I$(VL)VLĺ"":I$I2$:12050Q/"HIT KEY FOR TYPE OF ARTIFACT":" (0=TOMS,R";N%(1):D1ND:DR%(D)::DK$,H+100E. ///ADD AN ARTIFACT.:"ENTERING ARTIFACT ";N%(2)1:I2$""::"ENTER ARTIFACT NAME:"." ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:12020\.3:958:"ARTIFACT NAME:":" ";::I$::AN$I$:6:I2RSWORD",(W21)51,5);" WEAPON":I2$""7J~VZ7:"ENTER NUMBER OF DICE OF DAMAGE DONE:";:1500:DICE(I$):DICE1DICE(DICE)(DICE)I$ĺ(7):I2$I$:323307T~I2$""#8^~VZ8:"ENTER NUMBER OF SIDES PER DICE:";:1500:SIDES(I$):SIDES1SIDES(SI:"ENTER WEAPON COMPLEXITY:";:1500:WC(I$):WC(WC)(WC)I$ĺ(7):32280Y6"~I2$""6,~VZ6:958:"HIT KEY FOR WEAPON TYPE (1=AXE, 2=BOW, 3=CLUB, 4=SPEAR, 5=SWORD) ";66~A$:W2(A$):W21W2532310&7@~VZ6:1:958:("AXE BOW CLUB SPEA 5}I2$""h5}VZ3:"ENTER WEIGHT IN GRONDS:";:1500:WT(I$):WT(WT)(WT)I$ĺ(7):I2$I$:32230s5}I2$""5}VZ4:"ENTER ROOM STARTING IN:";:1500:ROOM(I$):ROOM(ROOM)(ROOM)I$ĺ(7):I2$I$:322505~TYPE2323605~I2$""N6~VZ5$I2$:321804}"HIT KEY FOR TYPE OF ARTIFACT":" (0=TREASURE W/SET PRICE, 1=TREASURE, 2=STANDARD WEAPON, 3=ODD WEAPON)":VZ2:334}A$:A$"0"A$"3"322004}TYPE(A$):1:("SETTREASTREASUREWEAPON ODD WEAP",TYPE81,8);" ARTIFACT";:958:3}3:958:"ARTIFACT NAME:":" ";::I$::AN$I$:6:I2$"":"ENTER ARTIFACT DESCRIPTION:":1500:6:958:"ARTIFACT DESCRIPTION:"::I$::AD$I$:3}VZ(37):I2$"" 4}VZ1:"ENTER THE VALUE IN GOLD PIECES:";:1500:VL(I$):(VL)I$(VL)VLĺ"":IN.DESC,R";N2:(34);R2$;(34):DK$;"WRITE EAMON.ROOMS,R";N2:D1ND:DR%(D)::DK$[2x}100v2} /// REPLACE ARTIFACT2}200302}:"ENTERING ARTIFACT ";N2:I2$""::"ENTER ARTIFACT NAME :"2}" ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:32150M CONNECTS TO (USE ZERO FOR NO CONNETION, A NEGATIVE NUMBER FOR UNUSUALTHINGS.":D1ND1Z}16D:"MOVE ";("NSEWUD",D,1);"--";:I2$"":1500:DR(I$):DR(DR)(DR)I$320901d}DR%(D)DR:DR2n}DK$;"WRITE EAMON.ROOM NAMES,R";N2:R1$:DK$;"WRITE EAMO;0<}" ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:320600F}3:958:"ROOM NAME:":" ";::I$::R1$I$:6:I2$"":"ENTER ROOM DESCRIPTION:":1500:6:958:"ROOM DESCRIPTION:"::I$::R2$I$:X1P}13:"FOR EACH DIRECTION,GIVE THE ROOM THAT THIS ROO./:uDK$;"WRITE EAMON.DESC,R0":T14:N%(T):?/DuDK$;"CLOSE"L/Nu216,0:i/} /// REPLACE ITEM BLOCK/ }C$"REPLACE":1000:TYPEA:TYPE32020,32130,32400,32420/} /// REPLACE ROOM/}20030/2}:"ENTERING ROOM ";N2::I2$"":"ENTER ROOM NAME:"4050 .]z.^DK$;"WRITE EAMON.DESC,R";300N:(34);MD$;(34):DK$;"WRITE EAMON.MONSTERS,R";N:MN$:M114:M%(M)::DK$.^100.Hq"FOUND AN ERROR - CODE ";(222):"ON LINE # ";(218)(219)256:(222)10ĺ"CAN'T SAVE FILE - LOCKED.":.0u///QUITENTERING MONSTER # ";N::I2$MN$:"ENTER NAME:";:1500:I$""(I$)3024010-]MN$I$::"ENTER DESC--":I2$MD$:1500:MD$I$::"MONSTER # ";N;" ";::MN$:::M114.]"ENTER ";M$(M);": ";:I2$(M%(M)):1500:M%(M)(I$):(M%(M))I$ĺ(7):(37):2DESC,R";200N2:I2$:DK$::"EDITING EFFECT #";N2:1500:DK$;"WRITE EAMON.DESC,R";200N2:(34);I$;(34):DK$:100,]///EDIT A MONSTER,]20030:NN2:DK$;"READ EAMON.DESC,R";N300:MD$:DK$;"READ EAMON.MONSTERS,R";N:MN$:M114:M%(M)::DK$L-]:"(SIDES)(SIDES)I$ĺ"":I2$I$:22200+tYDK$;"WRITE EAMON.DESC,R";N100:(34);AD$;(34):DK$;"WRITE EAMON.ARTIFACTS,R";N:AN$:VL:TYPE:WT:ROOM+~YTYPE1ĺWC:W2:DICE:SIDES+YDK$::100+Y///EDIT AN EFFECT+Y:20030r,ZDK$;"READ EAMON.",(W21)51,5);" WEAPON":I2$(DICE)*VVZ7:"ENTER NUMBER OF DICE OF DAMAGE DONE:";:1500:DICE(I$):DICE1DICE(DICE)(DICE)I$ĺ"":I2$I$:22180*VI2$(SIDES)&+VVZ8:"ENTER NUMBER OF SIDES PER DICE:";:1500:SIDES(I$):SIDES1SIDESCOMPLEXITY:";:1500:WC(I$):WC(WC)(WC)I$ĺ"":22130)VVZ6:958:"HIT KEY FOR WEAPON TYPE (1=AXE, 2=BOW, 3=CLUB, 4=SPEAR, 5=SWORD) ";)VA$:A$(27)A$(W2))VW2(A$):W21W2522160%*VVZ6:1:958:("AXE BOW CLUB SPEARSWORD"ENTER WEIGHT IN GRONDS:";:1500:WT(I$):WT(WT)(WT)I$ĺ(7):I2$I$:22090b(TVI2$(ROOM)(^VVZ4:"ENTER ROOM STARTING IN:";:1500:ROOM(I$):ROOM(ROOM)(ROOM)I$ĺ"":I2$I$:22110(hVTYPE222900(mVI2$(WC)<)rVVZ5:"ENTER WEAPON N THE "TP$" ("("NSEWUD",DE%(R),1)"/"("NSEWUD",DX%(R),1)")":40250G0RNM$"IN A "("NSEWUD",DE%(R),1)"/"("NSEWUD",DX%(R),1)" "TP$G:RDESC$"YOU ARE "RNM$GDD%(DE%(R))R1:D%(DX%(R))R1LHNDK$"WRITE EAMON.ROOM NAMES,R";R:RNM$:DK$"WR",BD,1)Ă:40070 FRT$(RB)"B"-FRSSRBRFDE%(R)DI:DX%(R)OD::DE%(RB)BDwFOD16:BD$("SNWEDU",OD,1)ĂFœSSRB1:DIBD:40070F֜100FRSSER:DE%(R)DI:DX%(R)OD:FRSRERFD16:D%(D)0:IG&RT$(R)"B"RNM$"AT A BEND IR:SSSR E^"ENDING ROOM #:";ER?Eh"DIRECTION INCREASE:";DI$mErDI1ND:DI$(DD$(DI),(DI$))Ă:40040E|ODND11:DI$(DD$(OD),(DI$))Ă:40040E"BEND (ROOM/DIR.):";BEN$:BEN$""40200FRB(BEN$):BD$(BEN$,1):BD16:BD$("NSEWUDSC,R";N%(2)101:"YOU SEE ARTIFACT ";N%(2)1:DK$"WRITE EAMON.ARTIFACTS,R";N%(2)1:"ARTIFACT ";N%(2)1:0:0:0:0:N%(2)N%(2)1:DֈDK$:100D@ /// GEN HALLWAYDE:"NOT SUPPORTED.":A$::100DJ"TYPE OF PASSAGE:";TP$ET"STARTING ROOM #:";SE THE DEAD BODY OF ";MN$0CN%(2)N%(2)1:MM1܂DK$;"WRITE EAMON.DESC,R";N3100:(34);AD$;(34):DK$;"WRITE EAMON.ARTIFACTS,R";N3:AN$:VL:TYPE:WT:ROOM>悭TYPE1ĺWC:W2:DICE:SIDES>DK$::100L?@DK$;"READ EAMON.DESC,R";200N2:I2$:DK$::"EDITING EDR%(D)::DK$=DK$;"WRITE EAMON.ROOM NAMES,R";N3:R1$:DK$;"WRITE EAMON.DESC,R";N3:(34);R2$;(34):DK$;"WRITE EAMON.ROOMS,R";N3:D1ND:DR%(D)::DK$=100">xNN2:DK$;"READ EAMON.DESC,R";N100:AD$:DK$;"READ EAMON.ARTIFACTS,R";N:AN$,VL,TYPETO COPY FROM":" (1-";N%(TYPE);:")";A$:N2(A$):N21N2N%(TYPE)ī100l<N3N%(TYPE)N%(TYPE)N%(TYPE)1<TYPE33200,33400,33600,33800=DK$;"READ EAMON.ROOM NAMES,R";N2:R1$:DK$;"READ EAMON.DESC,R";N2:R2$:DK$;"READ EAMON.ROOMS,R";N2:D1ND:;耲 ///DUPLICATE ROUTINE8;C$"DUPLIC.":1000:TYPEA;"INPUT NUMBER OF ";T$(TYPE);" TO REPLACE OR ADD":" (1-";N%(TYPE);:")";A$:N3(A$):N31N3N%(TYPE)1ī100;N3N%(TYPE)ĺ"ADDING FROM ANOTHER ";T$(TYPE)G<"INPUT NUMBER OF ";T$(TYPE);" "MONSTER # ";N2;" ";::MN$:::M114~:~"ENTER ";M$(M);": ";:I2$"":1500:M%(M)(I$):(M%(M))I$ĺ(7):(37):32450:~:~DK$;"WRITE EAMON.DESC,R";300N2:(34);MD$;(34):DK$;"WRITE EAMON.MONSTERS,R";N2:MN$:M114:M%(M)::DK$:~100ECT #";N2:I2$"":1500::DK$"WRITE EAMON.DESC,R";N2200:(34);I$;(34):DK$:100l9~ /// REPLACE MONSTERw9~200309~:"ENTERING MONSTER # ";N2::I2$"":"ENTER NAME:";:1500:I$""(I$)3032430):~MN$I$::"ENTER DESC--":I2$"":1500:MD$I$::DES)(SIDES)I$ĺ"":I2$I$:323508h~DK$;"WRITE EAMON.DESC,R";N2100:(34);AD$;(34):DK$;"WRITE EAMON.ARTIFACTS,R";N2:AN$:VL:TYPE:WT:ROOM8r~TYPE1ĺWC:W2:DICE:SIDES8|~DK$::1008~8~ ///REPLACE EFFECT8~20030R9~:"ENTER EFF䍠䍠򍠠򍠠Үͮ占󍠠堠󍠠䍠􍠠󍠠􍠠獠占􍠠󍠠󍠠ﺍ􍠠Ůᠠɠ򮍍㮠笠宍砭򮍍򠭠宍砭宠宍󠭠宠䠠宍󠭠宠宍󠭠堭쮠嬠宠Ԡ͠塠宠䬠Үͮ欠䮠箍򠭠嬠󠭠宠宠嬠䮍󠭠宠宠堭젭ITE EAMON.DESC,R";R:RDESC$:DK$"WRITE EAMON.ROOMS,R";R:D16:D%(D)::DK$SHXRjHbERN%(1)N%(1)ERsHl100D䠭䮠箍򠭠嬠󠭠䮠󠭠䬠䮍宠堭宠䮠ح謠砭笠堢좠宍箠宍嬠宠䬠讍󠭠宠㮩宍䮠㠨笠󮍍䠭󮍍󠭠󍠠򍠠獮ɠɠ宠ﬠ殍嬠􍠠Ůᠠɍɠ宍砭ﺍ󮍍󠭠宠宍󮍍𠭠򮍍󮍍𠭠󮍍堭󠢱䢠䢠栢䠱䠲𠭠宠䮠嬠宠宍󠭠䮠󮍍堭쮠Үͮ欠Ԡ͠塠宠򠭠䬠宠쮠宍宠嬠󮍍堨䮠䠭䮠䮠ح謠宍砭笠堢좠䮍箠宍䮠䮍堭宠宍堭宠宠󍠠򍠠獮宠󠭠宠堠􍠠􍠠獠占󍠠󍠠򍠠Үͮ占󍠠󍠠箍ɠ󺍍󍠠占占֠宠ɠ󮍍ɠ󮍍ɠ󮍍Ů占ᠠ宠嬠򮍍                                                򮍍堭ﮠ宍砭à笠䍍䠭䍍󠭠䍍䍍堭䍍䍍堭獠占􍠠Үͮ󍠠荠򍍍󠭠䍍󠭠󠠠󍠠󍠠䍠󍠠􍠠占􍠠占􍠠󮍍֠󺍍ɠ򮍍򠭠󮍮֍֠嬠宍堭󮍍堭󮠨ɠɠ򮍍庍占占XE":1:10:1:6:"BOW":2:10:1:5:"MACE":3:10:1:4:"SWORD":5:10:1:8 8DK$"CLOSE":DK$"OPEN EAMON.NAME":DK$"READ EAMON.NAME":AD$:DK$"CLOSE" 9DK$"RUN ";AD$A10:WA%(5)20_ 8:5:"INSERT ADVENTURE TO TEST AND PRESS ANY"::" KEY TO CONTINUE" 8A$::DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT" 81:"TESTOR OF BENCH":HD:AG:CH:BL:HE:SP:PO:X15:WA%(X):O 815:"M":2000:1300:4:"A DK$(4)58:"DO YOU WANT TO USE DEFAULTS?";T8A$:A$"N"A$"Y"145108A$:A$"Y"HD18:AG18:CH18:HE40:SP40:145408"HARDINESS:";HD:"AGILITY:";AG:"CHARISMA:";CH8"SPELLS:";BL,HE,SP,PO 8WA%(1)15:WA%(2)0:WA%(3)30:WA%(4)  宠󮍍򠭠Үͮ䍍󠭠䍍蠭嬠䮠ɠ󮠍宠宠ɠ$(A)9 A:"---------------------------------------":RJ D$;"PR#0":_"PRINTER OUTPUT?(Y/N):";: bYN$:YN$"Y"YN$"N"98 cYN$:YN$"Y"ĺD$"PR#1":(12);(40("ROOM ANALYSIS"))2);"ROOM ANALYSIS":: dR1NR::"ROOM ";R;" (";RN$(R);")" nM1NM:MD%(M,5)RĺMN$(M) xM A1NANM AD%(A,4)RĺANMON.MONSTERS,L128":M1NM:D$"READ EAMON.MONSTERS,R";M:MN$(M):M2112:MD%(M,M2):M2,M:D$"CLOSE" PD$"OPEN EAMON.ARTIFACTS,L128":A1NANM:D$"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)2āA258:AD%(A,A2):A2 ZA:D$ :A$:T D$"OPEN EAMON DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$"CLOSE"_ 216,0 MD%(NM,12),AD%(NA,8),MN$(NM),AN$(NA),RN$(NR) 2D$"OPEN EAMON.ROOM NAMES,L64":R1NR:D$"READ EAMON.ROOM NAMES,R";R:RN$(R)::D$"CLOSE"d FD$"OPEN EAL EAMON ROOM ANALYSIS7 BY JOHN NELSON> x PRINT MONSTERS AND ARTIFACTS IN ROOMS~ 2-14-84 D$(4): 15 :6:"INSERT DUNGEON DISKETTE AND PRESS"::10);"ANY KEY TO CONTINUE ...";    ONSTERS,R";R:NN$:X112:MD%(X):5 <R:D$"CLOSE"D7 D$(4):MD%(12){D$"OPEN EAMON.MONSTERS,L128":R2734:D$"READ EAMON.MONSTERS,R";R:MN$:X112:MD%(X):X1(MN$):(MN$,X,1)" "Ă(NN$(MN$,X1)" "(MN$,X1):"NEW NAME IS ";NN$;"; OLD NAME WAS ";MN$# 2D$"WRITE EAMON.M KEY TO CONTINUE ======";:A$::(40< === DEL NONE?DL0ė:"PROGRAM HAS CALCULATED NO DELETIONS.":"WHY BOTHER?":"AN OVERLAP WOULD OCCUR. CANNOT CONTINUE.":NR:RMNM:NE:NM:D$"CLOSE""5 === VIEW ===:LP0:A1NA2:2((A)));A;"> ";(A$(A),12);:ANARĺ20((A1)));A1;"> ";(A$(A1),12)LPLP1:LP22ĺ"====== PRESS ANY KEY TO CONTINUE ======";:A$:::LP0 ::"====== PRESS ANYTIFACTS,R";R:AN$:A1,A2,A3,A4:A21ĄA5,A6,A7,A8D$"WRITE EAMON.ARTIFACTS,R";RDL:AN$:A1:A2:A3:A4:A22ĺA5:A6:A7:A8D$"READ EAMON.DESC,R";R100:DE$:D$"WRITE EAMON.DESC,R";RDL100:(34);DE$;(34)RD$"WRITE EAMON.DESC,R0":RM;" ARTIFACTS TO REMAIN ON FILE - PLUS":"BODIES FOR ";NM;" MONSTERS = ";RMNM:"IS THIS CORRECT? (Y/N):"; _A$:A$"Y"A$"N"95 bDLNARMNM:DL12000 dA$:A$"N"70 iD$"OPEN EAMON.ARTIFACTS,L128" nRRMDL1NA1D$"READ EAMON.AR ARTIFACTS TO REMAIN:";A$:RM(A$)] PRM(RM)RMNARM10ĺ"THAT CANNOT BE ACCEPTED.":70 U:"IF THERE ARE NO MONSTER BODIES ON THE ARTIFACT FILE, PRESS 'N'; OTHERWISE PRESS 'C' "; XBD$:BD$"N"BD$"C"88 YBD$:BD$"N"NM0k Z:AM."Z 4:"YOU MAY VIEW THE NAMES OF ALL ARTIFACTS BY PRESSING 'V' AT THE NEXT INPUT.": <"PRESS 'S' TO STOP; 'V' TO VIEW ARTIFACTS":"OR 'C' TO CONTINUE --> "; AA$:A$"V"A$"S"A$"C"65 DA$:A$"V"1000 EA$"S"Ā" F:"NUMBER OF REQUESTED TO INPUT THE ":"NUMBER OF ARTIFACTS THAT YOU WANT TO ":"KEEP. THIS WILL BE THE NUMBER OF " 2"ARTIFACTS TO REMAIN ON THE FILE. (DO ":"NOT COUNT MONSTER BODIES.)"::"BE SURE THE EAMON FILES ARE SET UP":"CORRECTLY BEFORE RUNNING THIS PROGRONTINUE ...";:16368,0:A$:& 15t D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$:216,0 A$(NA):D$;"OPEN EAMON.ARTIFACTS,L128":A1NA:D$;"READ EAMON.ARTIFACTS,R";A:A$(A)::D$;"CLOSE EAMON.ARTIFACTS"g (:"YOU WILL BE EAMON 9 REMOVE DUMMY ARTIFACTS X THIS PROGRAM WILL REMOVEw UNNEEDED ARTIFACTS FROM  EAMON FILES. 2-15-84 D$(4): :6:"INSERT EAMON ADVENTURE DISKETTE AND "::05);"PRESS ANY KEY TO C     z#??   àΠ٠àΠ٠àΠ٠ !ԠΠҮͮ"٠͠ԠŠ٠Ӡ ŠҠӠ͠Ӡ ԠȠ٠à O ŠԠŠǠŠԠϠؠԠŠԠϠŠŠĠ ήŠؠΠԠ ԠԠBĠŠΠԠŠ ؠҠҠ7ӠŠӠŠԠŠŠ958:"UNABLE TO COMPLY WITH REQUEST. SORRY.":X1750:X:100 DET EDIT,LIST EAMON R.A.M.Q  REVERSE MONSTER NAMES,TEST BENCH,CHARACTER EDITORe  === ERROR === (222)6Ģ6:958:"PROGRAM HAS BEEN DELETED.":X1750:X:100 (222)8Ģ6:958:"THAT PROGRAM HAS BEEN DESTROYED.":X1750:X:100=6:P)  17  CONDENSE CHARACTERS,ROOM ANALYSIS,DUNGEONAID,REMOVE DUMMY ARTIFACTS,QUICKY ROOM PRINT,ARTIFACT MAINTENANCE,FLEX DUNGEON LIST  CREATE TEXT TO SAVE GAME,CREATE TEXT TO FIX BOOT,CREATE TEXT SAVE ORIG,CREATE TEXT SAVE BASE,BASEFIX,GAUNTL1:150C C$DN$SPBPSPTP:7SPTP:" ";::PRG$(SP)::170s C$DN$Ģ7SPTP:" ";::PRG$(SP)::170 C$(13)500 C$(17)ĉ::37,255:16368,0: 170 2000 ::"RUNNING ";PRG$(SP) 16368,0 &D$;"RUN ";PRG$(S8):C$UP$Ģ7SPTP:" ";PRG$(SP):SPSP1:SPTPTP1TPTP1:BPBP1:150 C$UP$SPTPSPBP:7SPTP:" ";::PRG$(SP)::170 C$UP$Ģ7SPTP:" ";::PRG$(SP)::170 C$DN$Ģ7SPTP:" ";PRG$(SP):SPSP1:SPBPBPNPTPTP1:BPBP:" OR OR "\ d:11);"EAMON UTILITIES IV":13);"BY JOHN NELSON" n6:958:"UTILITIES AVAILABLE ARE:" 7:958:XTPBP:" ";:XSPĞ PRG$(X):: 16368,0 (16384)127200 180L C$((16384)12? EAMON UTILITIES IV4 MENU PROGRAML BY JOHN NELSONRXf 2-15-84t D$(4):NP:PRG$(NP):X1NP:PRG$(X)::TP1:BPNP:BP8BP8UP$(11):DN$(10):(637)255UP$(8):DN$(21)(SP1$ 235,23:24     958:"UNABLE TO COMPLY WITH REQUEST. SORRY.":X1750:X:100 DET EDIT,LIST EAMON R.A.M.Q  REVERSE MONSTER NAMES,TEST BENCH,CHARACTER EDITORe  === ERROR === (222)6Ģ6:958:"PROGRAM HAS BEEN DELETED.":X1750:X:100 (222)8Ģ6:958:"THAT PROGRAM HAS BEEN DESTROYED.":X1750:X:100=6:P)  17  CONDENSE CHARACTERS,ROOM ANALYSIS,DUNGEONAID,REMOVE DUMMY ARTIFACTS,QUICKY ROOM PRINT,ARTIFACT MAINTENANCE,FLEX DUNGEON LIST  CREATE TEXT TO SAVE GAME,CREATE TEXT TO FIX BOOT,CREATE TEXT SAVE ORIG,CREATE TEXT SAVE BASE,BASEFIX,GAUNTL1:150C C$DN$SPBPSPTP:7SPTP:" ";::PRG$(SP)::170s C$DN$Ģ7SPTP:" ";::PRG$(SP)::170 C$(13)500 C$(17)ĉ::37,255:16368,0: 170 2000 ::"RUNNING ";PRG$(SP) 16368,0 &D$;"RUN ";PRG$(S8):C$UP$Ģ7SPTP:" ";PRG$(SP):SPSP1:SPTPTP1TPTP1:BPBP1:150 C$UP$SPTPSPBP:7SPTP:" ";::PRG$(SP)::170 C$UP$Ģ7SPTP:" ";::PRG$(SP)::170 C$DN$Ģ7SPTP:" ";PRG$(SP):SPSP1:SPBPBPNPTPTP1:BPBP:" OR OR "\ d:11);"EAMON UTILITIES IV":13);"BY JOHN NELSON" n6:958:"UTILITIES AVAILABLE ARE:" 7:958:XTPBP:" ";:XSPĞ PRG$(X):: 16368,0 (16384)127200 180L C$((16384)12? EAMON UTILITIES IV4 MENU PROGRAML BY JOHN NELSONRXf 2-15-84t D$(4):NP:PRG$(NP):X1NP:PRG$(X)::TP1:BPNP:BP8BP8UP$(11):DN$(10):(637)255UP$(8):DN$(21)(SP1$ 235,23:24958:"UNABLE TO COMPLY WITH REQUEST. SORRY.":X1750:X:100 Mh,0ɍɛɓ Ƀ%, Nɋ ɉ LL Ԡ@A›BÛCěDśEƛFЛ@ɛʛ˛͛ ԍŭ ̭6ET EDIT,LIST EAMON R.A.M.Q  REVERSE MONSTER NAMES,TEST BENCH,CHARACTER EDITORe  === ERROR === (222)6Ģ6:958:"PROGRAM HAS BEEN DELETED.":X1750:X:100 (222)8Ģ6:958:"THAT PROGRAM HAS BEEN DESTROYED.":X1750:X:100=6:P)  17  CONDENSE CHARACTERS,ROOM ANALYSIS,DUNGEONAID,REMOVE DUMMY ARTIFACTS,QUICKY ROOM PRINT,ARTIFACT MAINTENANCE,FLEX DUNGEON LIST  CREATE TEXT TO SAVE GAME,CREATE TEXT TO FIX BOOT,CREATE TEXT SAVE ORIG,CREATE TEXT SAVE BASE,BASEFIX,GAUNTL1:150C C$DN$SPBPSPTP:7SPTP:" ";::PRG$(SP)::170s C$DN$Ģ7SPTP:" ";::PRG$(SP)::170 C$(13)500 C$(17)ĉ::37,255:16368,0: 170 2000 ::"RUNNING ";PRG$(SP) 16368,0 &D$;"RUN ";PRG$(S8):C$UP$Ģ7SPTP:" ";PRG$(SP):SPSP1:SPTPTP1TPTP1:BPBP1:150 C$UP$SPTPSPBP:7SPTP:" ";::PRG$(SP)::170 C$UP$Ģ7SPTP:" ";::PRG$(SP)::170 C$DN$Ģ7SPTP:" ";PRG$(SP):SPSP1:SPBPBPNPTPTP1:BPBP:" OR OR "\ d:11);"EAMON UTILITIES IV":13);"BY JOHN NELSON" n6:958:"UTILITIES AVAILABLE ARE:" 7:958:XTPBP:" ";:XSPĞ PRG$(X):: 16368,0 (16384)127200 180L C$((16384)12? EAMON UTILITIES IV4 MENU PROGRAML BY JOHN NELSONRXf 2-15-84t D$(4):NP:PRG$(NP):X1NP:PRG$(X)::TP1:BPNP:BP8BP8UP$(11):DN$(10):(637)255UP$(8):DN$(21)(SP1$ 235,23:24     1:150C C$DN$SPBPSPTP:7SPTP:" ";::PRG$(SP)::170s C$DN$Ģ7SPTP:" ";::PRG$(SP)::170 C$(13)500 C$(17)ĉ::37,255:16368,0: 170 2000 ::"RUNNING ";PRG$(SP) 16368,0 &D$;"RUN ";PRG$(S8):C$UP$Ģ7SPTP:" ";PRG$(SP):SPSP1:SPTPTP1TPTP1:BPBP1:150 C$UP$SPTPSPBP:7SPTP:" ";::PRG$(SP)::170 C$UP$Ģ7SPTP:" ";::PRG$(SP)::170 C$DN$Ģ7SPTP:" ";PRG$(SP):SPSP1:SPBPBPNPTPTP1:BPBP:" OR OR "\ d:11);"EAMON UTILITIES IV":13);"BY JOHN NELSON" n6:958:"UTILITIES AVAILABLE ARE:" 7:958:XTPBP:" ";:XSPĞ PRG$(X):: 16368,0 (16384)127200 180L C$((16384)12? EAMON UTILITIES IV4 MENU PROGRAML BY JOHN NELSONRXf 2-15-84t D$(4):NP:PRG$(NP):X1NP:PRG$(X)::TP1:BPNP:BP8BP8UP$(11):DN$(10):(637)255UP$(8):DN$(21)(SP1$ 235,23:24   91,9)::"====== PRESS ANY KEY TO CONTINUE ======";:A$::100Np /// QUITzUPĺ:"UPDATE HAS NOT BEEN APPLIED."::"PRESS ANY KEY TO CONTINUE";:A$::100D$"CLOSE"2)0:A2,A NANANI:100, /// APPLYxA1NA:D$"WRITE EAMON.ARTIFACTS,R";A:AN$(A):A218:AD%(A,A2):A2,AD$"WRITE EAMON.DESC,R0":NR:NA:NE:NM:D$UP0100 /// CANCEL?UPUP:"UPDATE IS ";("CANCELLEDIN EFFECT",UP A$:A$"N"100 UP1:X0:INANIIA11:D$"READ EAMON.DESC,R";INI100:RD$:D$"WRITE EAMON.DESC,R";I100:(34);RD$;(34) AN$(I)AN$(NAX):A218:AD%(I,A2)AD%(IANI1,A2):A2 XX1:I:D$:  AIA1NIIA:AN$(A)"DUMMY":A218:AD%(A,AW MANY TO INSERT?";NI$:(NI$)1(NI$)NA1003010r 8:"AFTER WHICH ARTIFACT:";IA$:(IA$)1(IA$)NART3020 :NI((NI$)):IA((IA$)):"INSERT ";NI;" ARTIFACTS AFTER ";IA;"." 6:"IS THIS CORRECT? (Y/N) "; A$:A$"Y"A$"N"3045A$"N"2045 A$:A$"N"100 UP1:DD1NDNA:D$"READ EAMON.DESC,R";D100:RD$:D$"WRITE EAMON.DESC,R";DND100:(34);RD$;(34) AN$(DND)AN$(D):A218:AD%(DND,A2)AD%(D,A2):A2 D:D$:NANAND 100 /// ADD3 6:958::"HO6:958:"HOW MANY TO DELETE?";ND$:(ND$)1(ND$)NART2010 8:958:"FIRST ARTIFACT TO DELETE:";D1$:(D1$)1(D1$)NART2020 ND(ND$):D1(D1$)::"DELETE ARTIFACTS ";D1;" THRU ";D1ND1 6:"IS THIS CORRECT? (Y/N) "; A$:A$"Y"͠A$:(A$)1000,2000,3000,4000,5000,60009  /// LIST :LP0:A1NA:" ";A;". ";AN$(A):LPLP1:LP22ĺ"====== PRESS ANY KEY TO CONTINUE ======";:A$::LP0:  B:"====== PRESS ANY KEY TO CONTINUE ======";:A$::100  /// DELETE? ں12);"BY JOHN NELSON":10:"SELECT ACTION:" i" 1. LIST ARTIFACTS":" 2. DELETE ARTIFACTS":" 3. INSERT ARTIFACTS":" 4. APPLY CHANGES TO FILE" n" 5. CANCEL CHANGES":" 6. QUIT" x"INPUT YOUR CHOICE (1-6):"; A$:(A$)1(A$)6130* D EAMON.DESC,R0":NR,NA,NE,NM6 (AN$(100),AD%(100,8)Y 2D$"OPEN EAMON.ARTIFACTS,L128" <A1NA:D$"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)2āA258:AD%(A,A2): FA:D$, d:17);"EAMON":9);"ARTIFACT MAINTENANCE":  ARTIFACT MAINTENANCE3 FOR EAMONL BY JOHN NELSONRXf 2-14-84l| D$(4)::6:" INSERT EAMON ADVENTURE DISKETTE AND"::6);"PRESS ANY KEY TO CONTINUE ...";:A$: D$"OPEN EAMON.DESC,L256":D$"REA     " IS BADLY INJURED.":;" IS VERY BADLY INJURED.":p" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY."::MN$(DF);" IS DEAD!":AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)0///PUT DEAD BODY IN ROOM A2DFNZNM:A%(OF,9)07550oFR957550Up //WEAPONS WITH HIGH COMPLEXITY BREAK LESS OFTEN:qAD%(MD%(OF,9),5)3R(X)ĺ" FUMBLE RECOVERED.":::"A CRITICAL HIT!"::R2R(X):R251A0:7635" IS IN GOOD SHAPE.":" IS LIGHTLY INJURED.":OMS,R";X:Y16:ED%(X,Y):Y,X+RN$(NR)bX1NR:DK$;"READ EAMON.ROOM NAMES,R";X:RN$(X):{R(X)((1)1001)F59000255 R2ED%(ROOM,D)e:"A FUMBLE!"::FRR(X)gFR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::lMDTD%(M2)(41(1)20)20(MD%(M,9)1)TMD%(M,4)MRĞ:MN$(M);" FLEES OUT AN EXIT."::8500:MD%(M,5)R2:M2MD%(M,14):TD%(M2)TD%(M2)MD%(M,1):FD%(MD)FD%(M2)MD%(M,13):490!DK$;"NOMONC,I,O""33,40ED%(NR,6)X1NR:DK$;"READ EAMON.ROAD%(A,9)ĺ" -- YOU SEE ";AN$(A)::190iDK$;"READ EAMON.DESC,R";A100:A$:DK$:A$:AD%(A,9)1::AANA:AD%(A,4)ROOMĺ" -> YOUR ";AN$(A);" IS HERE.":"YOUR COMMAND?";::" ";A$200&JM2MD%(M,14)(MD%(M,14)2):MR100FD%(M2);DK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1^M1NM:MD%(M,5)ROOMĂ:170MD%(M,15)ĺ" >> ";MN$(M);" IS HERE."::170DK$;"READ EAMON.DESC,R";M300:A$:DK$:MD%(M,15)1:A$""ĺA$::A1NZ:AD%(A,4)ROOMĂ:190*S WILL":" RUN FINE WITHOUT FURTHER ALTER-":" ATION, BUT SOME WON'T."B:"TYPE Q TO QUIT, OR HIT ANY OTHER KEY":"TO CREATE BASEMOD (THE EXEC FILE)";DA$:A$"Q"ĀFH60000Ji255V%(ROOM)ĺ"YOU ARE":" ";RN$(ROOM):150:"6. UNLOCK THE OLD BASE PROGRAM, AND":" RENAME IT 'OLD BASE,' OR SOMETHING.">:"7. SAVE THE ALTERED PROGRAM, USING":" THE ORIGINAL NAME OF THE BASE PRO-":" GRAM (USUALLY MAIN PGM OR MAIN PRG)."L@:"8. DEBUG. MOST EAMON ADVENTURE";:A$:8:"5. WITH THE BASE PROGRAM STILL IN MEM-":" ORY, PUT IN THE DISK WITH BASEMOD,":" AND TYPE, 'EXEC BASEMOD.' THIS":" WILL ADD THE LINES BETWEEN 100":" AND 59999 IN THIS PROGRAM TO THE":" BASE PROGRAM IN MEMORY."T<D BODIES DO NOT APPEAR WHEN":" CREATURES DIE, DELETE LINE 7704." 4:"4. MAKE SURE THERE ISN'T ANYTHING IN":" LINES 59000-60000, SINCE THAT'S":" WHERE WE'RE PUTTING THE ERROR-":" HANDLING ROUTINES."6:7);"(HIT ANY KEY TO CONTINUE)0 FOR SPECIAL":" FEATURES, SUCH AS TELEPORTATION":" OR DEMON SUMMONING. THESE FEATURES" 0" WILL PROBABLY BE FOULED UP BY THIS":" PROGRAM, SO YOU'LL HAVE TO PATCH":" THINGS UP LATER TO GET THE FEATURES":" BACK."D 2:"3. IF DEA FOLLOWS:"a )::"DO NOT USE THIS PROGRAM ON THE TEMPLE":"OF NGURCT OR THE BEGINNERS CAVE.": *:7);"(HIT ANY KEY TO CONTINUE)";:A$: ,:"1. LOAD THE BASE PROGRAM FOR THE":" ADVENTURE YOU WANT TO UPDATE."_ .:"2. LOOK AT LINES 130-21FORMAT, AND ELIMINATES A NUMBER OF":"MINOR BUGS IN THE BASE DUNGEON PROGRAM." &:" WHEN THIS PROGRAM IS RUN, IT MAKES":"A TEXT FILE NAMED ";::"BASEMOD";::", WHICH IS" ("USED AS AN EXEC FILE TO ALTER THE BASE":"PROGRAM. THE PROCEDURE IS ASOD' # THEN RESAVE THE BASE1 PROGRAM.7 V :3:17::"BASEFIX"::6 "" THIS PROGRAM ALTERS THE BASE DUNGEON":"PROGRAM FOR EAMON ADVENTURES."N $" IT SPEEDS UP THE MAIN LOOP, ADDS":"AN ERROR-RECOVERY ROUTINE, CLEANS UP":"THE ALTERS BASE DUNGEON PGM6FOR GREATER SPEED,QBETTER OUTPUT FORMAT,qAND MORE CONSISTANT LOGIC.w  BY ROBERT PLAMONDON, NOVEMBER, 1981TO USE, LOAD BASE PROGRAM FOR AN ADVENTURE,  THE TYPE 'EXEC BASEM        %NC0ĺ"NO CHARACTER IN MEMORY.":6000:140*N:" EAMON CHARACTER CHANGE PROGRAM":14);"BY JOHN NELSON":5:((40((NA$)8))2));"CHANGING ";NA$/N8:8);"INPUT FIELD TO CHANGE:":8);" 1. NAME":8);" 2. HARDINESS":8);" 3. AGILITY":8(C$)((C$))10090Vt'C(C$):CNCĺ"THERE AREN'T THAT MANY!":X1500:X:10090o~'2000:MO$"A"30000x'140' /// READ NEXT RECORD'CC1:CNCĺ"END OF FILE.":CNC:6000:140'2000:MO$"A"30000'140 N /// UPDATE ROUTINE-";NAME$%L'D$"OPEN CHARACTERS,L150"Q'C1NC:D$"READ CHARACTERS,R";C:FINM$:FINM$NAME$Ă:8);"I CAN'T FIND THAT CHARACTER.";:D$;"CLOSE":A$::C0:140V'D$"CLOSE":2000:MO$"A"30000`'140j'11:958:8);:"RECORD NUMBER:";C$:(C$)1dX1700:X:+' /// SELECT RECORD9'UPİ5000$'11:958:8);"SELECT RECORD BY:":8);" 1. NAME":8);" 2. RECORD NUMBER":8);" 3. NEXT RECORD":X3:1000.'S10040,10090,101308' /// FIND NAMEB'11:958:8);:"CHARACTER NAME:D:AG:CH:X14:SA%(X)::X15:WA%(X):IAE:SEX$:GOLD:BANK:ACX14:WNAME$(X):WTYP%(X):WODDS%(X):WDICE%(X):WSIDES%(X):D$UP0:ADD0:D$"CLOSE":p >>> STOP SCREENz:7);"PRESS ANY KEY TO CONTINUE";7);::A$:S AS A DEAD":" CHARACTER?";;< A$:A$"Y"A$"N"2620TF A$:A$"N"C0:140P D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R";C:X$:NA$Z 2015:140 /// WRITE RECORDD$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R";C+NAME$:H16:AG16:CH16:AC2:WA%(1)8:WA%(2)4:WA%(3)40:WA%(4)14:WA%(5)10 X15:SA%(X)0::GOLD300:BANK0:X14:WN$(X)"NONE":WT%(X)0:WD%(X)0:WS%(X)0:WO%(X)0: NA$"BADREC":AE0:SEX$"M":5000:140( READ DEAD2 :"DO YOU WANT TO TREAT THI:D$;"CLOSE"# >> ERROR ON READe D$:216,0:"ERROR ";(222);" AT LINE ";(218)(219)256;"." D$::"AN ERROR WAS DETECTED READING RECORD ";C: "DO YOU WANT THIS RECORD REPLACED?"; A$:A$"Y"A$"N"2530 A$:A$"N"2600D HD(X):WSIDES%(X)::D$-216,0:D$"CLOSE":k>D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R";C:NAME$HHD:AG:CH:X14:SA%(X)::X15:WA%(X):RAE:SEX$:GOLD:BANK:AC \X14:WNAME$(X):WTYPE%(X):WODDS%(X):WDICE%(X):WSIDES%(X)::D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R";C:NAME$: IF NA$ = "" THEN C = 0: PRINT D$;"CLOSE": POKE 216,0: RETURN HD:AG:CH:X14:SA%(X)::X15:WA%(X): AE:SEX$:GOLD:BANK:ACX14:WNAME$(X):WTYPE%(X):WODDS%(X):WDICE%A RECORD":8);" 7. MAKE A CLONE":8);" 8. QUIT":X8:1000t S10000,20000,30000,40000,50000,60000,44000,62000  /// GET NUMBER 8);"INPUT (1-";X;"):"; S$:(S$)1(S$)X1020 S$:S(S$):  /// READ RECORD 2500| UP0D1)61,6);" ";(" UPDATED",(UP1)71,7):X139:"=";::b 11:8);"SELECT ACTION:" 8);" 1. SELECT RECORD":8);" 2. UPDATE RECORD":8);" 3. DISPLAY RECORD":8);" 4. SELECT MODE":8);" 5. GO ON AN ADVENTURE"= 8);" 6. ADD G D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$;"CLOSE"R 216,0 :17);"EAMON":12);"CHARACTER EDITOR":12);"BY JOHN NELSON":X139:"=";: :"RECORD ";C;" IS IN MEMORY.... OF ";NC:" NAME = ";NA$:D (" ADDING",(ADG X3=MAX CH XW=MAX WEAP ABIL XM=MAX SPELL ABIL XD=MAX DICE XS=MAX SIDES XAE=MAX AE XG=MAX GOLD n:6: : POKE 1010,0: POKE 1011,0: POKE 1012,0: POKE 1013,0 x" INSERT DISKETTE CONTAINING CHARACTERS "::3);"AND PRESS ANY KEY TO CONTINUE ...";:A$:5 EAMON. CHARACTER EDITOR4:S BY JOHN NELSONY_eq263000<X15:WT$(X)::X07:AC$(X):dD$(4)::X1999:X2999:X3999:XW100:XM500:XD50:XS90:XAE100:XG10000` i X1=MAX HD X2=MAX A                 958:"UNABLE TO COMPLY WITH REQUEST. SORRY.":X1750:X:100 DET EDIT,LIST EAMON R.A.M.Q  REVERSE MONSTER NAMES,TEST BENCH,CHARACTER EDITORe  === ERROR === (222)6Ģ6:958:"PROGRAM HAS BEEN DELETED.":X1750:X:100 (222)8Ģ6:958:"THAT PROGRAM HAS BEEN DESTROYED.":X1750:X:100=6:P)  17  CONDENSE CHARACTERS,ROOM ANALYSIS,DUNGEONAID,REMOVE DUMMY ARTIFACTS,QUICKY ROOM PRINT,ARTIFACT MAINTENANCE,FLEX DUNGEON LIST  CREATE TEXT TO SAVE GAME,CREATE TEXT TO FIX BOOT,CREATE TEXT SAVE ORIG,CREATE TEXT SAVE BASE,BASEFIX,GAUNTLčōōōč͍čōōōԍ͍ҳٍ  ϠԠˤĠŮҢԠˤĠŮҢԠˤŠŮӢԠˤŠŮҢԠˤŠŮҢԠˤΠήì̲ԠˤΠήӬ̶ԠˤΠή͠Ӭ̠ŮĠ͠ԍŠԠԠϠՠԠϠԠӠſԠƠ٢Ġ΢ΠԠƠ΢ΠĠԠˤĠŮӢˠԠˤŠŮҬˠˠ̢ˠˠˠˠԠԠŠŠӠנĮԠΠӢԠŠϠԠΠԠƠ΢ΠԠˤŢؠŠԠˤŠŮӬ̸ԠˤŠŮҬˠˠ̢ˠˠˠЍҠϠˤҤԠˤ٠ŮӢϠŠϠ͠ŠōԠԠϠՠԠϠŠӠſԠٯΩԠƠ٢Ġ΢S ";NC;" CHARACTERS." NNM$(T):HD(T):AG(T):CH(T):S14:SA%(T,S):S:W15:WA%(T,W):W AE(T):SEX$(T):GO(T):BA(T):AC(T):W14:WN$(T,W):WT%(T,W):WO%(T,W):WD%(T,W):WS%(T,W):W T D$"CLOSE" :5:"THERE WERE ";OC;" RECORDS ON FILE.":"NEW FILE CONTAIN> n"FILE IS LOADED INTO TABLE.":"THERE ARE ";T;" RECORDS." x:"PRESS ANY KEY WHEN YOU ARE READY TO ":"COPY RECORDS OUT."; A$: OCNC:NCT1 D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":NCC T1NC:D$"WRITE CHARACTERS,R";T:1:C1NC:D$"READ CHARACTERS,R";C:NM$:NM$""Ă:100n <NM$(T)NM$:HD(T):AG(T):CH(T):S14:SA%(T,S):S FW15:WA%(T,W):W:AE(T):SEX$(T):GO(T):BA(T):AC(T) PW14:WN$(T,W):WT%(T,W):WO%(T,W):WD%(T,W):WS%(T,W):W ZTT1:C dD$SKETTE"::" AND PRESS ANY KEY"2 A$:l (D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC -NM$(NC),HD(NC),AG(NC),CH(NC),SA%(NC,4),WA%(NC,5),AE(NC),SEX$(NC),GO(NC),BA(NC),AC(NC),WN$(NC,4),WT%(NC,4),WO%(NC,4),WD%(NC,4),WS%(NC,4)6 2T! CONDENSE CHARACTER FILE< BY JOHN NELSONBa THIS PROGRAM WILL REMOVE CHARACTERS THAT HAVE BEEN KILLED OR NEVER RETURNED FROM ADVENTURES 2-14-84 D$(4):( :5:" INSERT MASTER DI     PTRS":DK$"BLOAD GAME.SVAR":DK$"BLOAD GAME.STR"{ jJDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR" tJDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64" ~J1000111)(112)2561a F:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."g Fz 8J /// RESTART BJ216,0::"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:"; LJA$:A$"Y"A$"N"19020 VJA$:A$"N"Ā0 `JDK$"BLOAD GAME."Y"A$"N"18020& nFA$:A$"N"100> xFDK$;"CLOSE":X(0)` FDK$"BSAVE GAME.PTRS,A$69,L8" FDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561 FDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(DD$(4):D$"OPEN APPEND SAVE BASE":D$"WRITE APPEND SAVE BASE"M10,^D$"CLOSE":g 50DK$(4):DK$"VERIFY GAME.PTRS":190002216,0:1000PF // SAVE GAMEZF216,0::"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :"; dFA$:A$   BLOAD GAME.SVAR":DK$"BLOAD GAME.STR"p JyDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR" TyDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64" hy1006)2561W u:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."] uo y /// RESTART "y216,0::"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:"; ,yA$:A$"Y"A$"N"31020 6yA$:A$"N"Ā% @yDK$"BLOAD GAME.PTRS":DK$"N"30020 NuA$:A$"N"1004 XuDK$;"CLOSE":X(0)V buDK$"BSAVE GAME.PTRS,A$69,L8" luDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561 vuDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112BD$(4):D$"OPEN APPEND SAVE ORG":D$"WRITE APPEND SAVE ORG"J5,[D$"CLOSE":d 50DK$(4):DK$"VERIFY GAME.PTRS":310002216,0:220000u // SAVE GAME:u:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :"; DuA$:A$"Y"A$"   >(4);"OPEN FIX BOOT PGM":(4);"WRITE FIX BOOT PGM":5,R(4);"CLOSE":Z9D$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM" 216,00R":DK$"BLOAD GAME.STR"b JyDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR" TyDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64" hy1002561V u:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."\ un y /// RESTART "y216,0::"DO YOU WANT TO RESTART THIS GAME?"; ,yA$:A$"Y"A$"N"31020 6yA$:A$"N"Ā @yDK$"BLOAD GAME.PTRS":DK$"BLOAD GAME.SVA"30020 NuA$:A$"N"1003 XuDK$;"CLOSE":X(0)U buDK$"BSAVE GAME.PTRS,A$69,L8" luDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561 vuDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112)BD$(4):D$"OPEN APPEND SAVE RTN":D$"WRITE APPEND SAVE RTN"J5,[D$"CLOSE":d 50DK$(4):DK$"VERIFY GAME.PTRS":310002216,0:10000u // SAVE GAME:u:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :"; DuA$:A$"Y"A$"N   DEF. ODDS,ARMOUR,WEAPON#,OFF.ODDS,W DICE,W SIDESm VALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES D:("OFFON",PRT31,3PRT):22:25:8681210A /// QUITRD$"CLOSE":h@ /// DATA LABELS}JX16:RL$(X):TML$(12):X112:ML$(X):^X18:AL$(X):hr NORTH,SOUTH,EAST,WEST,UP,DOWN0| HD,AG,FRIEND,COUR,ROOM,WEIGHT,(D):  D$  PRTĺD$"PR#1": :"ROOM #";R;" ";RN$z X16:RD%(X)0ĺ" ";RL$(X);":";20((RD%(X))));RD%(X) :R D$"PR#0" :"PRESS ANY KEY TO CONTINUE":A$::D$"CLOSE":40 === TOGGLE PRT ===PRTPRT(21:6:868D PRINT AS%(A2)ıH " ";AL$(A2);":";20((AD%(A2))));AD%(A2)N c /// LIST ROOMSi  D$"OPEN EAMON.ROOM NAMES,L64":D$"OPEN EAMON.ROOMS,L64" R1NR D$"READ EAMON.ROOM NAMES,R";R:RN$:D$"READ EAMON.ROOMS,R";R:D16:RD%ARTIF(%D$"OPEN EAMON.ARTIFACTS,L128"*A1NA:D$"READ EAMON.ARTIFACTS,R";A:AN$:A214:AD%(A2)::AD%(2)1āA258:AD%(A2):4PRTĺD$"PR#1">A;". ";AN$:A214:2500:HAD%(2)1āA258:2500:A2R:A:::1145 /// CHECK AN%(A)0:AS%(A)0:=10:958:"SELECT DATA FIELD TO LIST:"eA18:7((A)));A;". ";AL$(A):19:1:" INPUT 1-8 OR ";A$:A$""A$"9"A(A$):A1A9Ģ(37):2030A9Ģ10A:10::AL$(A)::2030  /// READY TO LIST MN$:M2112:MD%(M2):M2:D$. `M;". ";MN$q jM2112:MS%(M2)ĺ" ";ML$(M2);":";20((MD%(M2))));MD%(M2) tM2:::M yD$"CLOSE" |D$"PR#0" ~:"====== PRESS ANY KEY TO CONTINUE ======";:A$::40  /// LIST ARTIFACTSA18:AD" INPUT 1-12 OR ";A$:A$""A$"13"[ M(A$):(A$)1(A$)13Ģ(37):1030 M13Ģ10M:10::ML$(M)::MS%(M)1:1030 B /// LIST MONSTER GPRTĺD$"PR#1" LD$"OPEN EAMON.MONSTERS,L128" VM1NM:D$"READ EAMON.MONSTERS,R";M:" ( "INPUT YOUR CHOICE (1-5):";E A$:(A$)5(A$)1210M A$q (A$)1000,2000,3000,4000,5000  /// LIST MONSTER M112:MS%(M)0: 10:958:"SELECT DATA FIELD TO LIST:" M112:7((M)));M;". ";ML$(M):0 23:1:PRINT ";("OFFON",PRT31,3PRT):8] -"ROOMS:";NR;" ARTIF.:";NA;" EFF:";NE;" MONST:";NM 210:958:"SELECT ONE OF THE FOLLOWING:": <" 1. LIST MONSTERS"::" 2. LIST ARTIFACTS"::" 3. LIST ROOMS"::" 4. TOGGLE PRINTER": F" 5. QUIT(12) 8000 20m :6:" INSERT EAMON ADVENTURE DISKETTE"::10);"AND PRESS ANY KEY ...";:A$: D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$ #216,0# (:11);"EAMON DUNGEON AID":12);"BY JOHN NELSON":6:15:"o  DUNGEON AID PROGRAM7 BY JOHN NELSON> ] THIS PROGRAM LISTS ANY{ DATA FIELDS FOR ROOMS, ARTIFACTS OR MONSTERS 2-14-84 D$(4)::UP$(10):DN$(11):(637)255UP$(8):DN$(21) MD%(12),MS%     NSTERS,L128" SWĺD$"PR#";PS6RBEGEN:5500:gD$"CLOSE EAMON.MONSTERS":D$:D$"PR#0":100n| D$;"READ EAMON.MONSTERS,R";R:MN$:M2112:M%(M2)::D$;"READ EAMON.DESC,R";R300:A$F"MONSTER # ";R;" [";MN$;"]":" ":"DESC:":8000:D$;"READ EAMON.DESC,R";R200:A$:80004::M /// LIST MONSTERSk"BEGINNING WITH #:";BEG$"ENDING WITH #:";EN$(BEG$)NM(BEG$)1BEG$"1"(EN$)NM(EN$)(BEG$)EN$(NM)BEG(BEG$):EN(EN$) D$"OPEN EAMON.MOTS "BEGINNING WITH #:";BEG$:"ENDING WITH #:";EN$](BEG$)NE(BEG$)1BEG$"1"(EN$)NE(EN$)(BEG$)EN$(NE)BEG(BEG$):EN(EN$)SWĺD$"PR#";PSRBEGEN:4500::D$D$"PR#0":100"EFFECT #";R;":":*0A%(4)NRĺ" [";R$(A%(4));"]";8 :A2:A%(2)23610A258:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);:A26A%(6)1A%(6)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";:A2" ":" ": /// LIST EFFEC" ":D$;"READ EAMON.DESC,R";100R:A$:"DESC: ":8000:" " A214:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2); A22A%(2)0A%(2)3ĺ" [";("SET TREASURE TREASURE WEAPON ODD WEAPON",A%(2)121,12);"]";:3580  A24A%(4):EN(EN$)- D$"OPEN EAMON.ARTIFACTS,L128"A SWĺD$"PR#";PSW RBEGEN:3500: D$"CLOSE EAMON.ARTIFACTS":D$:D$"PR#0":100 D$;"READ EAMON.ARTIFACTS,R";R:X$:A14:A%(A)::A%(2)1āA58:A%(A):: "ARTIFACT # ";R;" [";AN$(R);"]":";:2160=fDR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";Hp:D:_ /// LIST ARTIF. "BEGINNING WITH ARTIFACT:";BEG$ "ENDING WITH ARTIFACT:";EN$ (BEG$)NA(BEG$)1BEG$"1" (EN$)NA(EN$)(BEG$)EN$(NA)  BEG(BEG$)00T4"ROOM # ";R;" [";R$(R);"]":" ":"DESC:":D$;"READ EAMON.DESC,R";R:A$:8000H:"DIRECTIONS MOVED IN--":D$;"READ EAMON.ROOMS,R";R:D1ND:DR%(D):RD1ND:" ";DD$(D);": ";(DR%(D)0)((DR%(D))10));DR%(D);5)\DR%(D)99ĺ"[EXIT]WITH #:";BEG$'"ENDING WITH #:";EN$J(BEG$)NR(BEG$)1BEG$"1"r(EN$)NR(EN$)(BEG$)EN$(NR)BEG(BEG$):EN(EN$) D$"OPEN EAMON.ROOMS,L64" SWĺD$"PR#";PS*RBEGEN:2100:/D$"CLOSE EAMON.ROOMS":D$:D$"PR#0":1:" 7. QUIT":"INPUT YOUR CHOICE (1-6):";CHR CH1000,2000,3000,4000,5000,6000[ 130o ND6:216,0:50  /// SET UP PRINTER "WHAT SLOT IS PRINTER IN?";PS:PS1PS71010 PS(PS)1010 100  /// LIST ROOMS "BEGINNING UTINE :12);"EAMON DUNGEON LIST":11);"BY JOHN NELSON":8:"SELECT ACTION DESIRED:":" 1. SET UP PRINTER":" 2. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS", " 5. LIST MONSTERS":" 6. TOGGLE PRINTER (NOW ";("OFFON ",SW31,3);")"WEST' XD$"OPEN EAMON.ROOM NAMES,L64"\ ZR1NR:D$;"READ EAMON.ROOM NAMES,R";R:R$(R):| \D$"CLOSE EAMON.ROOM NAMES" _D$"OPEN EAMON.ARTIFACTS,L128":R1NA:D$"READ EAMON.ARTIFACTS,R";R:AN$(R)::D$"CLOSE EAMON.ARTIFACTS":D$ d /// MAIN ROOUR,WEAPON#,O.ODDS,W.DICE,W.SIDESE FR$(NR),AN$(NA):A18:A$(A):[ KD110:DD$(D): P VALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES U NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTH :D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":DUNGN$:DR$:D$;"CLOSE"T #216,0b (ND(DR$) 2D$"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NR,NA,NE,NM:D$ <M$(12),M%(12):M112:M$(M):! A HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARM LIST DUNGEON, VERSION 2.0D BY JOHN NELSONJPg (4);"MAXFILES 5"D$(4)::5:"LISTING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN PRESS":" ANY KEY ";:16368,0:A$:200I     3:958:"ROOM NAME:":" ";::I$::R1$I$:6:I2$"":"ENTER ROOM DESCRIPTION:":1500:6:958:"ROOM DESCRIPTION:"::I$::R2$I$: +2:958:"FOR EACH DIRECTION,GIVE THE ROOM THAT THIS ROOM CONNECTS TO (USE ZERO FOR NO CONNETION, A NEGATIVE NUMBERRETURN TO MENU) ";:A$:::1007'///ADD ITEM BLOCKo'C$"ADD":1000:TYPEA:TYPE11000,12000,13000,14000* ///ADD ROOM+:"ENTERING ROOM ";N%(1)1::I2$"":"ENTER ROOM NAME:" +" ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:11020+ KEY TO RETURN TO MENU) ";:A$:::100(#::"LISTING ";::"EFFECTS":::34,2:A1N%(TYPE):DK$;"READ EAMON.DESC,R";A100:A2$:"EFFECT #";A::A2$:2#(16384)128ĺ:"(HIT ANY KEY TO CONTINUE) ";:A$:A$::(37)1 <#A::"(HIT ANY KEY TO ACTS":80607rF$"EAMON.MONSTERS":A$"MONSTERS":8060|::"LISTING ";::A$:::34,2:A1N%(TYPE):DK$;"READ ";F$;",R";A:A2$:DK$:A$;"#";A;": ";::A2$:(16384)128ĺ:"(HIT ANY KEY TO CONTINUE) ";:A$:A$::(37)1'A::"(HIT ANYGHC$}JC$"LIST":1000:TYPEA:N%(TYPE)0ĺ::"NONE OF THAT TYPE TO PRINT!":::"(HIT ANY KEX TO CONTINUE) ";:A$:100OHC$"Y"ĺDK$"PR#1"TTYPE8030,8040,9000,8050^F$"EAMON.ROOM NAMES":A$"ROOM":8060 hF$"EAMON.ARTIFACTS":A$"ARTIF1530EA$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:1520nA$(8)(I$)I2$I$I2$:A$;:1500"A$(8)1500,A$(27)ĺI2$:I$I$I2$:61520@///LIST THINGS ROUTINEE"HARDCOPY (Y/N)";FHC$:HC$"Y"HC$"N"8006I$I$A$:I2$(I2$,2):1520EA$(5)ĺI2$;:I$I$I2$:I2$"":1520A$(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":1520A$(4)I2$(I2$,2):1515A$(9)I2$" "I2$:1515A$(21)(I2$)A$(I2$,1):1530A$(21)A$" ":RAEM",A,1)Ă:1020A$:P///ROUTINE TO INPUT I$, HAVING BEEN PASSED I2$ZI$""I2$;:958:(I2$)āA1(I2$):(8);:A$:A$(13)Č958::(A$(31)A$(9)(A$(21)(I2$)))(I$)(I2$)250ĺ(7);:1520A$(31)ĺA$;:R CHOICE (1-7) ";.A$:C(A$):C1C7190bA$:C10000,20000,8000,32000,33000,34000,30000///ROUTINE TO SELECT WHAT TO WORK ON:"DO YOU WANT TO ";C$;" A ROOM, ARTIFACT,":" EFFECT, OR MONSTER (HIT KEY, RAEM) ";A$:A14:A$("F ROOMS, ARTIFACT,ETC" k " 4. REPLACE OLD ROOM,ARTIFACT OR":" MONSTER (WITHOUT VIEWING OLD)"q " 5. DUPLICATE A ROOM, ARTIFACT":" OR MONSTER" " 6. SPECIAL FUNCTIONS" " 7. QUIT":"ENTER KEY FOR YOUPR#0":T14:T$(T);"-";N%(T);" ";:::3:4);"EDITING ";::DUNGN$:: n"YOUR CHOICES ARE--"::" 1. ADD NEW ROOM,ARTIFACT,EFFECT OR":" MONSTER" s x" 2. EDIT OLD ROOM,ARTIFACT, EFFECT":" MONSTER" } " 3. LIST NAMES OM$(14),M%(14):M114:M$(M)::D110:DD$(D): Z HARDINESS,MISSION ,FRIENDLY ,COURAGE ,ROOM ,WEIGHT ,DEF. ODDS,ARMOUR ,WEAPON # ,OFF. ODDS,WEAP.DICE,WEAP.SIDES,LOW ROOM ,HIGH ROOM ] N ,S ,E ,W ,U ,D ,NE,NW,SE,SW _29000I d:DK$"AMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.MONSTERS,L128":DK$;"OPEN EAMON.ARTIFACTS,L128":DK$;"OPEN EAMON.DESC,L256" 2DK$;"READ EAMON.DESC,R0":N%(1),N%(2),N%(3),N%(4):DK$ <T14:T$(T): FROOM,ARTIF,EFFECT,MONST0 PK$(4)::5:"EDITING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$: 15000 :DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":DUNGN$:ND$:DK$;"CLOSE" #ND(ND$):216,0 (DK$;"OPEN Et@ DUNGEON EDIT PROGRAM9 BY DONALD BROWN?_ ENHANCED BY JOHN NELSON} THIS PROGRAM ADDS AND MODIFIES SIX AND TEN DIRECTION DUNGEONS.  (4);"MAXFILES 10"DE%(100),DX%(100),RT$(100) D                          E":DP D$"CLOSE"::"::34,2:LN4W A1N:DK$;"READ ";F$;",R";A:A2$:DK$:A$;"#";A;": ";:A2$:LNLN1 (16384)128ĺ:"(HIT ANY KEY TO CONTINUE) ";:A$:A$::(37)1 LN58ĺ(12);A$;" - CONT'D."::LN2 A:TYP DK$"PR#0":DK$"CLOSE":10 'D$"CLOSINE JDK$"PR#1" OTYP138 TTYPE8030,8040,8050g ^F$"EAMON.ROOM NAMES":A$"ROOM":NNR:8060 hF$"EAMON.ARTIFACTS":A$"ARTIFACT":NNA:8060 rF$"EAMON.MONSTERS":A$"MONSTER":NNM:8060 |::(12);"Adventure:";DUNGN$::"LISTING ";A$;"SEAMON.NAME":DUNGN$:DK$;"CLOSE" (DK$;"OPEN EAMON.MONSTERS,L128":DK$;"OPEN EAMON.ARTIFACTS,L128":DK$;"OPEN EAMON.DESC,L256" 2DK$;"READ EAMON.DESC,R0":NR,NA,NE,NM:DK$"CLOSE EAMON.DESC" <DK$"OPEN EAMON.ROOM NAMES,L64" @///LIST THINGS ROUT DUNGEON ABBREV.LIST ; BY JOHN NELSON AGM  DK$(4)::5:"LISTING A DUNGEON'S MONSTERS/ARTIFACTS":::"INSERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$: :DK$;"OPEN EAMON.NAME":DK$;"READ !! ! ! ! :'  NORTH,SOUTH,EAST,WEST,UP,DOWNPESC,R0":NR,NA,NE,NM:D$"CLOSE EAMON.DESC"? ,PRTĺD$"PR#";PSS ^X16:D$(X): R1NR:D$"READ EAMON.ROOM NAMES,R";R:N$:D$"READ EAMON.ROOMS,R";R:D16:DR%(D): "ROOM ";R;":";N$:D16:D$(D);":";DR%(D):: X: D$"PR#0":D$"CLOSE"UTPUT (Y/N):";* <A$:A$"Y"A$"N"60i FA$:PRT(A$"Y"):PRTĺ:"WHAT SLOT IS PRINTER IN (1-7):"; PA$:A$"1"A$"7"80 ZA$:PS(A$) dD$"OPEN EAMON.ROOM NAMES,L64":D$"OPEN EAMON.ROOMS,L64":D$"OPEN EAMON.DESC,L256"* D$"READ EAMON.D( EAMON. QUICKY ROOM PRINTG BY JOHN NELSONMU c 2-15-84iu D$(4)~40(:6:" INSERT EAMON ADVENTURE DISKETTE AND"::10);"PRESS ANY KEY TO CONTINUE ...";:A$: 2:6:"DO YOU WANT PRINTER O"" " "