L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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- ( t Ϡ@跻~!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# u`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$"   R":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͠Ӭ̶ϠŮӢԠˤĠŮҢԠˤĠŮҢԠˤŠŮӢԠˤŠŮҢԠˤŠŮҢԠˤΠήì̲ԠˤΠήӬ̶ԠˤΠŠŮĠ͠ԍŠԠԠϠՠԠϠԠӠſԠ٠ҠκԠƠ٢Ġ΢ΠԠƠ΢ΠĠԠˤĠǠˠԠˤŠŮҬˠˠ̢ˠˠˠˠԠԠŠŠӠנĮԠΠӢԠŠϠԠȠ΢ΠԠƠ΢ΠԠˤŢؠŠԠˤŠŮӬ̸ԠˤŠŮҬˠˠ̢ˠˠˠҠϠˤҤԠˤ٠ŮӢϠŠϠ͠ŠōŠԠԠϠՠԠϠŠӠſԠٯΩԠƠ٢Ġ  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$  CLOSE":40 uD$;"CLOSE"HAT IS THE RECORD LENGTH? ";NB< (:D$;"OPEN ";RF$;",L";NBj 2"READ WHICH RECORDS (FROM,TO)? ";R1,R2:w <IR1R2 FD$;"READ ";RF$;",R";I PA$::A$;:(A$)1380 Z:D$::50 0uER(222) uER5ĺD$:"RECORD CALLED OUT OF BOUNDS":D$;" D$""30000 "PROGRAM TO DISPLAY RANDOM ACCESS FILES":"ASSUMES ONE LINE OF TEXT PER RECORD...":"(I.E. ONE RETURN CHARACTER/RECORD" :"HIT ANY KEY TO CONTINUE":A$::D$;"CATALOG""RANDOM TEXT FILENAME: ";RF$ "WRETURN TO QUIT"; C$) C$"C"1500= x(1155)3000W ::(4);"CATALOG":q A$"APPLE ][ AND AAA"} X112 1:X1:A$; X:" ";:Z125:Z:X  :X121:X:25:A$ Z150:Z:X:W LAS VEGAS NV 89121 K, RECOPIED WITH"> R"ANY VOLUME YOU CHOOSE FROM OUR PUBLIC"i "DOMAIN LIBRARY, WITH MANY THANKS.":r 150 10:"AAA COMPUTER PRODUCTS" L13:"721 PIKE STREET" 7:"CHEYENNE * WY * USA * 82009": 255 2:"PRESS C FOR CATALOG OR M?":0 &"MAYBE YOU EVEN TOOK LOTS OF TIME TO"\ X"REWRITE A PROGRAM FROM END TO END?": "WE WOULD LIKE TO HARVEST YOUR ";Q$;"IMPROVED";Q$;"PROGRAMS FOR OTHERS TO ENJOY AND USE." 6:"-- PLEASE, SEND 3A A COPY --": "WE'LL RETURN YOUR DIS------------------  ( n::5 xQ$(34)N (1155)İ2000::W ,2: " AN INVITATION FOR APPLE PROGRAMMERS " : "PERHAPS YOU FOUND SOME ";Q$;"FAULTY";Q$;" PUBLIC" "DOMAIN PROGRAMS ON THIS DISK AND YOU" "FIXED THE3A MESSAGE+BY RON MALEIKA13A COMPUTER PRODUCTS 721 PIKE STREET CHEYENNE WY USA 82009 --------------------- MODIFIED FOR AAA BY PAUL RAYMER OF LAS VEGAS NV 89121  >(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,00 :'  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 $(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 ...";WRITE EAMON.ROOMS,R";R:D16:RD%(D):2 "1": D$;"CLOSE"::6:"DO YOU WANT TO CONVERT ANOTHER":" ADVENTURE? (Y/N) [_]";(8);(8); A$:A$"Y"A$"N"210 A$:A$"N"Ā 100 DDS A LIGHT FIELD TO THE EAMON.ROOMS FILE." xD$;"OPEN EAMON.ROOMS,L64":D$;"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NR:D$;"CLOSE EAMON.DESC" 13:12:"ROOM #" R1NR:D$;"READ EAMON.ROOMS,R";R:D16:RD%(D): 20:12:R' D$;" EAMON/ ADD LIGHT TO ROOMSF BY JOHN NELSONLX D$(4)d:6:"INSERT EAMON ADVENTURE DISKETTE AND "::"PRESS ANY KEY TO CONTINUE ...";:A$:+ n:11);"ADD LIGHT TO ROOMS":12);"BY JOHN NELSON":6:"THIS PROGRAM AD  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  J dQ:DK$"CLOSE":<! THIS PROGRAM CHECKS THEE DESCRIPTION FILE FOR ERRORSKX DK$(4)DK$"OPEN EAMON.DESC,L256":DK$"READ EAMON.DESC,R0":J14:N%(J):Q14(N%(Q)01002J1N%(Q)<DK$"READ EAMON.DESC,R"(Q1)100J:A$:A$ F  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       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        ;" MONSTERS."B <D$"WRITE EAMON.DESC,R0":NR:0:0:0:D$"CLOSE".DY AND"K "PRESS ANY KEY TO CONTINUE":" (GENTLY, PLEASE.)":A$: (D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$ 2"THERE ARE ";NR;" ROOMS ON THIS DISKETTE.":"THERE ARE SUPPOSEDLY ";NA;" ARTIFACTS":"AND THERE ARE ";NMCORRECT RECORD ZERO.  THIS PROCESS IS THE EQUIVALENT TO RUNNING THE COPY MAZE PROGRAM, BUT IT WILL RUN FASTER FOR LARGER DUNGEONS.  BY JOHN NELSON  D$(4): :"INSERT ADVENTURE DISKETTE THAT HAS THE":"ROOMS COPIED ONTO IT ALREAD ERASE ARTIFACTS, EFFECTS AND MONSTERS. THIS PROGRAM WILL READ THE DESC FILE AND RE-WRITE RECORD ZERO SO THAT NO ARTIFACTS, MONSTERS OR EFFECTS  ARE ON THE FILE. THIS IS DONE SO THAT YOU MAY USE FID TO COPY THE MAZE OF ANOTHER DUNGEON AND THEN  99D7:D:12220//12080:D2./:" (TYPE 'Q' TO RETURN TO MAIN MENU)":Y./"WHICH WAY? ";:A$:A$"Q"12230./:D$;"CLOSE EAMON.ROOMS":D$;"PR#0":2020./D16:A$("NSEWUD",D,1)Ă:(7):12210./A$:DR%(D)ĺ(7);"YOU CAN'T GO THAT WAY!":12210//:RDR%(D):Rl/S-v/:"DIRECTIONS MOVED IN--":D$;"READ EAMON.ROOMS,R";R:D1ND:DR%(D)::D$-/D1ND:" ";(DD$(D),ND1);": ";(DR%(D)0)((DR%(D))10));DR%(D);" ";-/DR%(D)99ĺ"[EXIT]";:12190-/DR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";./,/SWĺD$;"PR#";PS<,/:10);DUNGN$:10)"WALK-THROUGH"F,&/:R1l,0/D$;"READ EAMON.DESC,R";R:A$:D$,:/"ROOM # ";R;" [";R$(R);"]":" ":"DESC:":A$:"YOU SEE:",D/M1NM:MD%(M,5)Rĺ" ";MN$(M),N/,X/A1NA,b/AD%(A,4)Rĺ" "AN$(A)-K-THROUGH B+.:RFLAG0ĺ"...LOADING EAMON.ROOM NAMES...":10010+.:VT:AFLAG0ĺ"...LOADING EAMON.ARTIFACTS...":DT10110,10110,10110,10310+.:VT:MFLAG0ĺ"...LOADING EAMON.MONSTERS...":DT10210,10210,10210,10410,/D$;"OPEN EAMON.ROOMS,L"R1// LOAD EAMON.MONSTERS (RANDOM) C*(D$;"OPEN EAMON.MONSTERS,L128"*(R1NM:D$;"READ EAMON.MONSTERS,R"R:MN$(R):M112:MD%(R,M)::*(MFLAG1*)D$;"CLOSE":D$,"OPEN EAMON.DESC,L256":** /// QUIT *+D$;"CLOSE":D$;"PR#0": +. /// WAL(R):M112:MD%(R,M)::,)'MFLAG1:10500V)<( /// LOAD EAMON.ARTIFACTS (RANDOM) z)F(D$;"OPEN EAMON.ARTIFACTS,L128")P(R1NA:D$;"READ EAMON.ARTIFACTS,R"R)Z(AN$(R):A14:AD%(R,A)::AD%(R,2)1āA58:AD%(R,A):)d(:AFLAG1:10500 *( /ARTIFACTS":D$;"READ EAMON.ARTIFACTS":AN$:R1NAp('AN$(R):A14:AD%(R,A)::AD%(R,2)1āA58:AD%(R,A):(':AFLAG1:10500(' /// LOAD EAMON.MONSTERS (SEQUENTIAL) ('D$;"OPEN EAMON.MONSTERS":D$;"READ EAMON.MONSTERS":AN$:R1NM)'MN$;" SW:";DR%(10)'#SW0ĺ!'#5'#D$"PR#0":2010W'' /// LOAD EAMON.ROOM NAMES |''D$;"OPEN EAMON.ROOM NAMES,L";R2'$'R1NR:D$;"READ EAMON.ROOM NAMES,R"R:R$(R):'.'RFLAG1:10500't' /// LOAD ARTIFACTS (SEQUENTIAL) 2(~'D$;"OPEN EAMON.AMON.ROOMS,R";R:D1ND:DR%(D):;&x#"ROOM ";R;":";R$(R);X&#I140(R$(R)):".";:j&#"N:";DR%(1);}&#" S:";DR%(2);&#" E:";DR%(3);&#" W:";DR%(4);&#" U:";DR%(5);&#" D:";DR%(6)'#ND6ĺ40)"NE:";DR%(7);" NW:";DR%(8);" SE:";DR%(9)" "AN$(A)%:(%D$;"PR#0":2010@%(# /// DUNGEON MAP x%2#:RFLAG0ĺ"...LOADING EAMON.ROOM NAMES...":10010%<#NNNR:2500%A#:%F#SWĺD$;"PR#";PS:10);DUNGN$;" -- DUNGEON MAP"::%P#D$"OPEN EAMON.ROOMS,L"R1!&n#RBEEN:D$"READ ELAG0ĺ"...LOADING EAMON.MONSTERS...":DT10210,10210,10210,10410Q$hNNNR:2500$rSWĺD$;"PR#";PS:10);DUNGN$;" -- ROOM ANALYSIS"::$|RBEEN::"ROOM # ";R;" [";R$(R);"]"$M1NM:MD%(M,5)Rĺ" ";MN$(M)$$A1NA %AD%(A,4)RD%(R,9)0MD%(R,9)(NA)ĺ" [";AN$(MD%(R,9));"]";:#::O#D$;"PR#0":2010j#@ /// ROOM ANALYSIS #J:RFLAG0ĺ"...LOADING EAMON.ROOM NAMES...":10010#T:VT:AFLAG0ĺ"...LOADING EAMON.ARTIFACTS...":DT10110,10110,10110,10310A$^:VT:MF2112:" ";M$(M2);10(M$(M2)));": ";6((MD%(R,M2))));MD%(R,M2);f"M23M24M27M210ĺ" %";"M25MD%(R,5)0MD%(R,5)NRĺ" [";R$(MD%(R,5));"]";"M29MD%(R,9)1ĺ" [NO WEAPONS]";"M29MD%(R,9)0ĺ" [NATURAL WEAPONS]";0#M29MMFLAG0ĺ"...LOADING EAMON.MONSTERS...":DT10210,10210,10210,10410T!NNNM:2500!SWĺD$;"PR#";PS:10);DUNGN$;" -- MONSTERS"::!RBEEN!D$;"READ EAMON.DESC,R";R300:A$!::E""MONSTER # ";R;" [";MN$(R);"]"::"DESC:":A$::MECT #";R;":":8 D$;"READ EAMON.DESC,R";R200:A$:A$> S D$;"PR#0":2010m X /// LIST MONSTERS b:RFLAG0ĺ"...LOADING EAMON.ROOM NAMES...":10010 l:VT:AFLAG0ĺ"...LOADING EAMON.ARTIFACTS...":DT10110,10110,10110,10310D!v:VT:("[AXE] [BOW] [CLUB] [SPEAR][SWORD]",(AD%(R,6)1)71,7);C:K(:_2D$"PR#0":2010wp ///LIST EFFECTS NE0Ė15:(7);"NO EFFECTS!":2010NNNE:2500SWĺD$;"PR#";PS:10);DUNGN$;" -- EFFECTS"::RBEEN ::"EFFRE] [WEAPON] [ODD WEAPON] ",AD%(R,2)141,14);qA24AD%(R,4)0AD%(R,4)NRĺ" [";R$(AD%(R,4));"]";:A2:AD%(R,2)25160 A258:" ";A$(A2);10(A$(A2)));": ";6((AD%(R,A2))));AD%(R,A2);;A26AD%(R,6)0AD%(R,6)5ĺ" "; ::RBEEN=D$;"READ EAMON.DESC,R";100R:A$t"ARTIFACT # ";R;" [";AN$(R);"]"::"DESC: ":A$:A214:" ";A$(A2);10(A$(A2)));": ";6((AD%(R,A2))));AD%(R,A2);7A22AD%(R,2)0AD%(R,2)3ĺ" ";("[SET TREASURE][TREASUMS":D$;"PR#0":20100 /// LIST ARTIFACTS h:RFLAG0ĺ"...LOADING EAMON.ROOM NAMES...":10010:VT:AFLAG0ĺ"...LOADING EAMON.ARTIFACTS...":DT10110,10110,10110,10310NNNA:2500SWĺD$;"PR#";PS:10);DUNGN$;" -- ARTIFACTS"::"READ EAMON.ROOMS,R";R:D1ND:DR%(D)::D$|D1ND:" ";(DD$(D),ND1);": ";(DR%(D)0)((DR%(D))10));DR%(D);" ";DR%(D)99ĺ"[EXIT]";:4120DR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";:D":::,D$;"CLOSE EAMON.ROONAMES...":10010 NNNR:2500?D$;"OPEN EAMON.ROOMS,L"R1sSWĺD$;"PR#";PS:10);DUNGN$;" -- ROOMS"::::RBEEND$;"READ EAMON.DESC,R";R:A$:D$"ROOM # ";R;" [";R$(R);"]":" ":"DESC:":A$,:"DIRECTIONS MOVED IN--":D$;ENNN:(37):16:EN( ENNNĺ:2540. I /// SET UP PRINTER V SW3040 PS0ĺ:"WHAT SLOT IS PRINTER IN?";PS$:PS(PS$):PS1PS73020 PS(PS)3020 SWSW:2020 ///LIST ROOMS :RFLAG0ĺ"...LOADING EAMON.ROOM *CH(CH$):CH3000,4000,5000,6000,7000,8000,9000,12000,11000I42020a /// GET BE & EN k VT2 ::868:"BEGINNING WITH #: ";BE$:BE(BE$) BE1BE1:(37):19:"1" BENNĺ:2510 :"ENDING WITH #: ";EN$:EN(EN$) EN1N OFF PRINTER (NOW ON)";c :" 2. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS"" 5. LIST MONSTERS":" 6. ROOM ANALYSIS" " 7. DUNGEON MAP":" 8. WALK-THROUGH"%" 9. QUIT"::"INPUT YOUR CHOICE (1-9): ";CH$? /// MAIN ROUTINE C:" (HIT ANY KEY FOR MENU)":AN$c:(40(DUNGN$))2:DUNGN$:"ROOMS:";NR;" ART:";NA;" EFF:";NE;" MONSTERS:";NM7:"SELECT ONE OF THE FOLLOWING:":" 1. SET UP PRINTER (NOW OFF)";:SWĖ8:"TUR.DICE,W.SIDES!A18:A$(A):7D110:DD$(D):t VALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWESTD$;"OPEN EAMON.DESC,L256"$@:"ROOMS:";NR;" ART:";NA;" EFF:";NE;" MONSTERS:";NMxR$(NR),AN$(NA),AD%(NA,8),MN$(NM),MD%(NM,12),M$(12)D$;"CLOSE":1910l ///LIST HEADINGS vM112:M$(M):  HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARMOR,WEAPON#,O.ODDS,WMON.DESC,L256"?TDT2ĺD$;"READ EAMON.DESC,R0":NR,NA,NE,NMG^D$chDT4R164:R264:1680rR164:R232(DT(DT3))|D$;"OPEN EAMON.MONSTERS":D$;"READ EAMON.MONSTERS":NM:D$D$;"OPEN EAMON.ARTIFACTS":D$;"READ EAMON.ARTIFACTS":NA:D,L128"LDT2ĺ:"VALUES FOR NR,NA,NE,NM ARE STORED IN EAMON.DESC,R0"DT4ĺ:"CORRECT VALUES FOR NA AND NM ARE STORED AS THE FIRST VALUE IN THOSE FILES"DT2ĺ:"NO VALUES STORED FOR NR OR NE"@ /// GET NR,NA,NE,NM JD$;"OPEN EADT41190<~" EAMON.ROOM NAMES..RANDOM,L"32(DT(DT3))b" EAMON.ARTIFACTS...SEQUENTIAL"" EAMON.MONSTERS....SEQUENTIAL"1220" EAMON.ROOM NAMES..RANDOM,L64"" EAMON.ARTIFACTS...RANDOM,L128"" EAMON.MONSTERS....RANDOM(1-3), ASSIGNING THEM TO VARIABLE 'DT' IN LINE ";LN;"."R.:25:"TOM ZUCHOWSKI"8:::8:"(HIT ANY KEY TO CONTINUE)":A$:DT4:1000V::"DATA STORAGE TYPE ";DT`:" EAMON.DESC........RANDOM,L256"j" EAMON.ROOMS.......RANDOM,L64" tI DIDN'THAVE THIS DUNGEON, AND SO DIDN'T KNOW WHAT DATA TYPE IT IS.":"THE PROGRAM IS GOING TO TRY DATA TYPE 4.IF THE DUNGEON LOADS AND LISTS OK, THEN DELETE LINE ";LN;" AND RESAVE THIS PROGRAM."7$"IF YOU GET AN ERROR, TRY THE OTHER DATA TYPES I"DT1:LN720QDUNGN$""ĺ::(7);" THIS IS NOT AN EAMON DUNGEON DISK!":q:(40(DUNGN$))2:DUNGN$DT01110F::(7);"AT THE TIME THIS PROGRAM WAS WRITTEN, I DID NOT HAVE ALL OF THE DUNGEONS. THIS MESSAGE IS TO LET YOU KNOW THAT AL HISTORY"DT1:LN590G XDUNGN$"DAEMON'S PLAYGROUND"DT1:LN600s bDUNGN$"CAVERNS OF LANST"DT1:LN610 lDUNGN$"ALTERNATE BEGINNER'S CAVE"DT1:LN620 DUNGN$"SEARCH FOR THE KEY-PART I"DT1:LN710DUNGN$"RESCUE MISSION-PART IUNGN$"DEATH'S GATEWAY"DT1:LN540S &DUNGN$"LAIR OF THE MUTANTS"DT1:LN550 0DUNGN$"CITADEL OF BLOOD"DT1:LN560 :DUNGN$"QUEST FOR THE HOLY GRAIL"DT1:LN570 DDUNGN$"CITY IN THE CLOUDS"DT1:LN580 NDUNGN$"MUSEUM OF UNNATUR$"TOWER OF LONDON"DT1:LN480P DUNGN$"LOST ISLAND OF APPLE"DT1:LN490| DUNGN$"UNDERGROUND CITY"DT1:LN500 DUNGN$"GAUNTLET"DT1:LN510 DUNGN$"HOUSE OF ILL REPUTE"DT1:LN520 DUNGN$"ORB OF POLARIS"DT1:LN530$ D ///IDENTIFY DUNGEON TYPE ; DT4: DEFAULT DATA TYPEf DUNGN$"THE BEGINNERS CAVE"DT1:ND6 DUNGN$"THE LAIR OF THE MINOTAUR"DT2:NR92:NE0 DUNGN$"THE CAVE OF THE MIND"DT3 DUNGN$"THE CAVES OF TREASURE ISLAND"DT1 DUNGNDUNGEON LISTER"::17:"- BY -"::10:"THOMAS J. ZUCHOWSKI" :::"INSERT DUNGEON DISKETTE AND HIT ANY KEY":16368,0:A$: 170 D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":DUNGN$:DR$:D$;"CLOSE" ND(DR$):180 ND6 216,0 '  UNIVERSAL DUNGEON LISTER X BY TOM ZUCHOWSKI WINSTOM-SALEM,NC 27103 2THANKS TO ALL THE EAMON UTILITY PROGRAMMERS WHOSE PROGRAMS I BORROWED QUITE FREELY FROM. dMARCH 1984nD$(4):VT21< x:3:" UNIVERSAL EAMON                          NSTER#,KEY#,GUARD#,ATTACHED!#<DOT USED),(NOT USED)B"$ COUNTER,(NOT USED),(NOT USED),(NOT USED)m". CHANCES,HEAL AMT,NBR USES,(NOT USED)"8 1ST EFFECT,# EFFECTS,READABLE,(NOT USED)"B ROOM INTO,KEY#,STRENGTH,(NOT USED)"L (NOT USED),(NOT USED),(NOT USED),(NOT USED)#V MOT,NORTHWEST,SOUTHEAST,SOUTHWEST5!HD110:DD$(D):!zNF:FMP%(DT),FL$(DT,4):X0DT:FMP%(X)::X1NF:F14:FL$(X,F):!:PR$"...................."!! 8!ފ 0,0,1,1,2,3,4,5,6,7,8! ODDS,W.TYPE,DICE,SIDES" KEY#,STRENGTH,(N:TYP$(DT):X0DT:TYP$(X):' 10~ GOLD,TREASURE,WEAPON,SP.WEAPON,CONTAINER,LIGHT,HEAL,READABLE,DOOR,KEY,BOUND MON. A1AF:A$(A): Ɖ VALUE,TYPE,WEIGHT,ROOM!䉃 NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEASLPLP1::LPLP1:' >>> READ DATA3̈AF:MFmꈃ 4,12: AF = # ARTIF FIELDS, MF = # MONST FIELDSM$(MF),M%(MF):M$(0)"ADVENTURER":M1MF:M$(M): HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARMOUR,WEAPON#,O.ODDS,W.DICE,W.SIDES DTSS ANY KEY TO CONTINUE";6);:A$:::;A$(27)ġ:100A:Zp /// TOGGLE PRINTERgzPRTPRT~PRTMRG10:SIZ80PRTMRG0:SIZ40100X /// QUITbD$"CLOSE":D$"PR#0":@PRTĺA$:JAZ1(A$)40:MRG);(A$,AZ,40):1ĺ" [ NO WEAPONS ]"?M29M%(9)0ĺ" [ NATURAL WEAPONS ]";rM29M%(9)0M%(9)NARĺ" [";AN$(M%(9));"]";M29M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";:M2:D$LP36PRTLP0:(12);(SIZ(ADV$))21);ADV$&:PRTĞ:7);"PRENSTER # ";R;" [";MN$;"]":" ":MRG);"DESC:":8000:" ":LPLP4M2112:LPLP1:MRG);" ";M$(M2);(PR$,1,10(M$(M2)));(PR$,1,6((M%(M2))));M%(M2);M23M24M27M210ĺ" %";M25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";M29M%(9)ERS,L128"PRTĺD$"PR#";PS]:(12);(SIZ(ADV$))2);ADV$:::LP3:RBEGEN:5500:D$"CLOSE EAMON.MONSTERS":D$:D$"PR#0":100| D$;"READ EAMON.MONSTERS,R";R:MN$:M2112:M%(M2)::D$;"READ EAMON.DESC,R";R300:A$?MRG);"MO6:958:"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":18:6:BEG$8:958:"ENDING WITH #:";EN$:EN$""EN$(NM):8:15:EN$(BEG$)NM(BEG$)1BEG$"1"(EN$)NM(EN$)(BEG$)EN$(NM)BEG(BEG$):EN(EN$) D$"OPEN EAMON.MONSTG);"EFFECT #";R;":"::LPLP2ID$;"READ EAMON.DESC,R";R200:A$:8000{LP48PRTĺ(12);(SIZ(ADV$))2);ADV$:LP1LP500ıD$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);:A$::::A$(27)ġ:100 /// LIST MONSTERSA8:958:"ENDING WITH #:";EN$:EN$""EN$(NE):15:8:EN$^(BEG$)NE(BEG$)1BEG$"1"(EN$)NE(EN$)(BEG$)EN$(NE)BEG(BEG$):EN(EN$)PRTĺD$"PR#";PS:LP500:4525:RBEGEN:4500::D$D$"PR#0":100MR; :A2?LP36PRTLP0:(12);(SIZ(ADV$))21);ADV$D$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);::A$::A$(27)ġ:100 /// LIST EFFECTS6:958:"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":18:6:BEG$;:A2:FMP%(A%(2))03740A.A258:A$(A2)"(NOT USED)"3740BLPLP1:MRG);" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(A2))));A%(A2);tA26(A%(2)2A%(2)3)ĭA%(A2)1A%(A2)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]"4A%(4)0A%(4)NM1ĺ" [CARRIED BY ";MN$((A%(4))1);"]";x A24A%(4)200A%(4)200NRĺ" [";R$(A%(4)200);"]";A24A%(4)100A%(4)100NARĺ" [INSIDE ";AN$(A%(4)100);"]";A24A%(4)300A%(4)300NRĺ" [HIDDEN ";R$(A%(4)300);"]";2:" ":D$;"READ EAMON.DESC,R";100R:A$:MRG);"DESC: ":8000:" " A214:LPLP1:MRG);" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(A2))));A%(A2); A22ĺ" [";TYP$(A%(2));"]";:3580 A24A%(4)0A%(4)NRĺ" [";R$(A%(4));"]";= A2PR#0":100_ D$;"READ EAMON.ARTIFACTS,R";R:X$:A14:A%(A)::DV5A%(2)1āA58:A%(A): A%(2)DTāX14:A$(AFX)"FIELD "(AFX)::3520 FMP%(A%(2))0āX14:A$(AFX)FL$(FMP%(A%(2)),X):C MRG);"ARTIFACT # ";R;" [";AN$(R);"]":LPLP (BEG$)NA(BEG$)1BEG$"1"G (EN$)NA(EN$)(BEG$)EN$(NA)a BEG(BEG$):EN(EN$) D$"OPEN EAMON.ARTIFACTS,L128" PRTĺD$"PR#";PS :(12);(SIZ(ADV$))2);ADV$:::LP3:RBEGEN:3500:  D$"CLOSE EAMON.ARTIFACTS":D$:D$":" PRESS ANY KEY TO CONTINUE ";::A$::JA$(27)ġ:100Pg /// LIST ARTIF. 6:958:"BEGINNING WITH ARTIFACT:";BEG$:BEG$""BEG$"1":6:25:BEG$ 8:958:"ENDING WITH ARTIFACT:";EN$:EN$""EN$(NA):22:8:EN$R%(D):\RD1ND:LPLP1:MRG);" ";DD$(D);": ";(DR%(D)0)((DR%(D))10));DR%(D);5)}\DR%(D)99ĺ"[EXIT]";:2160fDR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";p:D:D$:LP(48ND)PRTĺ(12);(SIZ(ADV$))2);ADV$:LP15zPRTĺ:::LP3:RBEGEN:2100:H/D$"CLOSE EAMON.ROOMS":D$:D$"PR#0":1004:MRG);"ROOM # ";R;" [";R$(R);"]"::MRG);"DESC:":LPLP4:D$;"READ EAMON.DESC,R";R:A$:8000H:MRG);"DIRECTIONS MOVED IN--":LPLP2:D$;"READ EAMON.ROOMS,R";R:D1ND:D18:BEG$C8:"ENDING WITH #:";EN$:EN$""EN$(NR):8:15:EN$f(BEG$)NR(BEG$)1BEG$"1"(EN$)NR(EN$)(BEG$)EN$(NR)BEG(BEG$):EN(EN$) D$"OPEN EAMON.ROOMS,L64" PRTĺD$"PR#";PS*:(12);(SIZ(ADV$))2);ADV$:R$"6":216,0:D$;"CLOSE":356 DV5:D$;"CLOSE":35P  /// SET UP PRINTERz 6:958:"WHAT SLOT IS PRINTER IN?"; A$:A$"1"A$"7"1020 A$:PS(A$):100  /// LIST ROOMS6:958:"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":6:. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS" " 5. LIST MONSTERS":" 6. TOGGLE PRINTER (NOW ";("OFFON",PRT31,3PRT);")":" 7. QUIT":"INPUT YOUR CHOICE (1-6):";CH CH1000,2000,3000,4000,5000,6000,7000 130 DR$""DV4:D:R1NM:D$"READ EAMON.MONSTERS,R";R:MN$(R)::D$"CLOSE EAMON.MONSTERS"T cSIZ40k d /// MAIN ROUTINE n:12);"EAMON DUNGEON LIST":14);"BY JOHN NELSON":(40(ADV$))21);::ADV$:9 8:"SELECT ACTION DESIRED:":" 1. SET UP PRINTER":" 2N EAMON.ROOM NAMES,L64"L ZR1NR:D$;"READ EAMON.ROOM NAMES,R";R:R$(R):l \D$"CLOSE EAMON.ROOM NAMES" _D$"OPEN EAMON.ARTIFACTS,L128":R1NA:D$"READ EAMON.ARTIFACTS,R";R:AN$(R)::D$"CLOSE EAMON.ARTIFACTS":D$I bD$"OPEN EAMON.MONSTERS,L128" ...";:16368,0:A$: 200l :D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":ADV$:DR$,DV:D$;"CLOSE"w #216,0 (ND(DR$) 2D$"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NR,NA,NE,NM:D$ <35000 FR$(NR),AN$(NA),MN$(NM) XD$"OPE" LIST DUNGEON- VERSION 6.0E BY JOHN NELSONKQWi REV. 2-9-85 (4);"MAXFILES 5" D$(4)::5:" LISTING A DUNGEON DESIGN FOR EAMON"::" INSERT DISKETTE WITH DUNGEON, THEN"::" PRESS ANY KEY           L256":D$"WRITE EAMON.DESC,R0":N%(1):N%(2):N%(3):N%(4):D$"CLOSE"D,0z>>Ć === GENERATE DEAD>ΆXALA:DK$;"READ EAMON.MONSTERS,R";M:A$:X216:MD%(X2)::DK$:MM1?ӆ6:958:" 1. THE DEAD BODY OF ";A$::" 2. THE DEAD BODY OF THE ";A$::"CHOOSE THE CORRECT PHRASE (1-2):"(34);NA$;(34)M=yDK$;"WRITE EAMON.ROOMS,R";NO:D1ND:RD%(D)::LT:DK$S=yg=y >> WRITE ART.=yDK$;"WRITE EAMON.ARTIFACTS,R";NO:(34);NA$;(34):D1AF4:AD%(D):=yDK$:=z >> WRITE MONSTER >zDK$;"WRITE EAMON.MONSTERS,R";NO:(34)ART._> READ MONSTER<]DK$"READ EAMON.MONSTERS,R";NO:NA$:D1MF:M%(D):<^DK$:<|y >> WRITE ROOM=yDK$;"WRITE EAMON.ROOM NAMES,R";NO:ESC,R";REC:(34);DE$;(34):DK$:5; N >> READ DESC`;*NDK$;"READ EAMON.DESC,R";REC:DE$:DK$f;4Ny;R >> READ ROOM;RDK$;"READ EAMON.ROOM NAMES,R";NO:NA$:DK$;"READ EAMON.ROOMS,R";NO:D1ND:RD%(D):;RLT1:DV5ĄLT;&RDK$:> READ EACH FIELD.":D1MF:M%(D)DM%(D)::14040:D1MF:DM%(D)M%(D):K:;150b:; >> CHG DEF. ART.:;:"INPUT NEW DEFAULT VALUES FOR ALL FIELDS.":D1AF:AD%(D)DA%(D)::12050:D1AF:DA%(D)AD%(D)::;150:PF >> WRITE DESC";ZFDK$;"WRITE EAMON.D:M%(M)(I$):(M%(M))I$ĺ(7):(37):14050496:96Q9: >> CHG DEF. ROOM9;:"INPUT DEFAULT VALUES DESIRED.":D1ND:RD%(D)DD%(D)::110559;D1ND:DD%(D)RD%(D)::DLLT9;1509`; >> CHG DEF. MONST.B:j;:"ENTER NEW DEFAULT VALUES FOR$I$::86 >> EDIT MONSTERs86:"ENTERING MONSTER # ";NO::I2$NA$:"ENTER NAME:";:600:I$""(I$)301401086NA$I$::"ENTER DESC--":I2$DE$:600:DE$I$::"MONSTER # ";NO;" ";::NA$::86M1MF.96"ENTER ";M$(M);": ";:I2$(M%(M)):600(X);:XDTĺ22);X1;" = ";TYP$(X1).7/::^7/"1=AXE, 2=BOW, 3=MACE, 4=SPEAR, 5=SWORD":d707 0X14:AL$(XAF)FM$(FMP%(AD%(2)),X):70X14:AD%(AFX)FD%(FMP%(AD%(2)),X):7f072 >> EDIT EFFECT82:"ENTER EFFECT #";NO:I2$DE$:600:DEMBEDDED":"+300 = HIDDEN IN ROOM +400 = BURIED":"-2 > -NM = MONSTER CARRYING IT"6&/AL$(D);" : ";:I2$(AD%(D)):600:AD%(D)(I$)6+/D2PTAD%(2)İ1230060/6:/6/D112250,12290,12290,12290,122606/12290$7/X0DT2:" ";X;" = ";TYP$ DESCRIPTION:":I2$DE$:600:6:958:"ARTIFACT DESCRIPTION:"::I$::DE$I$:5/D1AF4:D2(DAF2AD%(2)1AD%(2)4)İ122005/D2PTAD%(2)5!/AL$(D)"(NOT USED)"120805$/DAFĭFMP%(AD%(2))012080S6%/D4ĺ"+100 = INSIDE ARTIF. +200 = EAL) ";:I2$(LT):600:LT(I$):74. >> EDIT ARTIFACTx4.:"ENTERING ARTIFACT ";NO:I2$NA$::"ENTER ARTIFACT NAME:"4." ";:600:(I$)39Ģ3:20:"TOO LONG!":I2$I$:12204.3:958:"ARTIFACT NAME:":" ";::I$::NA$I$:6:I2$DE$N5/"ARTIFACTHE ROOM THAT THIS ROOM CONNECTS TO (USE ZERO FOR NO CONNECTION, NEGATIVE NUMBER FOR UNUSUAL THINGS.)"t3/+D1ND34+"MOVE ";DD$(D);"...";:I2$(RD%(D)):600:RD%(D)(I$):RD%(D)(RD%(D))(RD%(D))I$Ģ(37):11060 4H+:"LIGHT (0 = NONE; 1 = NORMR ROOM NAME:"H2 +" ";:600:(I$)39Ģ3:20:"TOO LONG!":I2$I$:110202+3:958:"ROOM NAME:":" ";::I$::NA$I$:6:I2$DE$2 +"ENTER ROOM DESCRIPTION:":600:6:958:"ROOM DESCRIPTION:"::I$::DE$I$:h3*+13:958:"FOR EACH DIRECTION,GIVE T1h) === ADD A FORMAT ==='1r)6:9581|)NFNF1:X14:"FIELD ";XAF;" LABEL:";:I2$"":600:FML$(NF,X)I$:"DEFAULT DATA:";:I2$"0":6001)((I$))32765FD%(NF,X)(I$)1)1)68001* >> EDIT ROOM 2+:"ENTERING ROOM ";NO::I2$NA$:"ENTEVIOUS MENU"[0)"INPUT TYPE NUMBER:";A$:(A$)0(A$)DT2ĺ"TRY AGAIN, FROGFACE.":10520t0")X(A$):XDT268000,):"NEW TYPE:";:I2$TY$(X):600:I$""XDTDTDT1:1050006)I$""1500@)XDT1DTDT1:TY$(DT)I$:1500J)TY$(X)I$0^)105004:"FIELD ";AFX;" LABEL:";:I2$FM$(F,X):600:FM$(F,X)I$/("DEFAULT DATA: ";:I2$(FD%(F,X)):600:((A$))32765FD%(F,X)(I$)/(/(6800/) >> ART TYPES 0):X0DT:" ";X;". ";TY$(X)::" ";DT1;". NEW TYPE":" ";DT2;". RETURN TO PREA$)0Ģ(37):10320._(X(A$)d.d("NEW POINTER (0-";NF;:"): ";A$:(A$)0(A$)NFĢ(37):10340|.n(FMP%(X)(A$):6800.( === CHANGE FORMAT ===.(6:958:"INPUT FORMAT NUMBER:";.(A$:A$"1"A$(NF)10420.(A$:F(A$)9/(6:958:X1XAFAFAF1-2(102003-<( === CHANGE FPTR ===-F(6:958:"FOR WHICH ARTIFACT TYPE:":X0DT:" ";X;" = ";TY$(X);("..................................",1,20(TY$(X))((TY$(X))20));FM%(X):-P("INPUT NUMBER 0 - ";DT;:":";A$.Z((A$)DTY(::" ";AF1;". NEW FIELD":" ";AF2;". RETURN TO PREVIOUS MENU",'"INPUT FIELD NUMBER:";A$:(A$)1(A$)AF2ĺ"TRY AGAIN, FROGFACE.":10220,'(A$)AF26800,'X(A$)::"NEW LABEL:";A$:A$""XAFAFAF1:10200,(A$""150 - (AL$(X)A$:NUMBER:";A$:(A$)1(A$)MF2ĺ"TRY AGAIN, FROGFACE.":10120S+'(A$)MF26800+'X(A$)::"NEW LABEL:";A$:A$""XMFMFMF1:10100+'A$""150+'M$(X)A$:XMFMFMF1+'10100+' >> ARTIF. DATA ASSIGNB,':X1AF:" ";X;". ";AL$(X)1NF:X14:FD%(F,X):::MF:X1MF:M$(X)::X1MF:DM%(X)::DT:X0DT:TY$(X)::DK$;"CLOSE ";A$p*z150*t' >> MON. DATA ASSIGN*~':X1MF:" ";X;". ";M$(X)::" ";MF1;". NEW FIELD":" ";MF2;". RETURN TO PREVIOUS MENU">+'"INPUT FIELD )150)  >> SAVE PARAMW)*6:958:"NAME OF PARAMETERS FILE:"::" ===> ";A$)4(A$,1)"?"ĺDK$;"CATALOG";(A$,2)::A$:7200)>DK$;"OPEN ";A$:DK$"WRITE ";A$:AF:X1AF:AL$(X)::X1AF:DA%(X)::NF:F1NF:X14:FM$(F,X)::g*HFz#    ĠŠŠŠΠŠŠΠ̠   ήӠĠԠήӠӠήӠԠ ؠΠԠ ŠĠ͠ԠŠŠΠŠ ΠΠԠ ΠΠҠ) ήԠƠΠŠ ήӠҠ ήӠŠ ήàˠήҠŠŠŲΠӠ ڠՠˠΠԠӠ ԠΠϠΠԠ ٠ΠΠΠؠ ΠΠԠ@,"DO YOU WISH TO SEE THEM AGAIN? ";AN$=AN$"Y"250NAN$"N"780q"PLEASE TYPE 'Y' OR 'N'":740 216,0:"DO YOU WISH TO BUILD YOUR OWN CHARACTER?":ANS$ANS$"Y"820 ANS$"N"710*"PLEASE TYPE 'Y' OR 'N'":780%4:"TY(WOODS%(I))9)((WODDS%(I))99));WDICE%(I);"D";WSIDES%(I);x3(WSIDES%(I)9));WODDS%(I)2AGEAWA%(WTYPE%(I));"%"I24::"PRESS ANY KEY TO CONTINUE ";::A$::RECREC1:260:(4);"PR#0"12:13:"END OF PROGRAM"22::590AN(" AND SHIELD",110(AC2(AC2)));" AE=";AE;"%"JX" "eb"WEAPON INFORMATION:"l"NAME COMPLEXITY DAM ODDS"v" "I14WNAME$(I)"NONE"680;WNAME$(I);17(WNAME$(I)));WODDS%(I);"%";6(WODDS%(I)0)(" ":13);"WEAPON ABILITY"U"AXE ";WA%(1);9);"BOW ";WA%(2);9);"CLUB ";WA%(3)4);"SPEAR ";WA%(4);10);"SWORD ";WA%(5)" ""ARMOUR: ";:(AC2)1550,560,570,580&"SKIN";:5900"LEATHER";:590:"CHAIN";:590D"PLATE"; NAME: ";NAME$" "N"SEX ";SEX$;3);"GOLD ";GOLD;3);" IN BANK ";BANKW" ""HARDINESS ";HD;" AGILITY ";AG;" CHARISMA ";CH" "13);"SPELL ABILITY""BLAST ";SA%(1);" HEAL ";SA%(2);" SPEED ";SA%(3);" POWER ";SA%(4)@AE JSEX$ TGOLD,BANK& ^ACh hX14:WNAME$(X),WTYPE%(X),WOODS%(X),WDICE%(X),WSIDES%(X):Xy rDK$;"CLOSE" |EA5(AC2(AC2)):AC1EAEA10:AC3EAEA10:AC5EAEA40 EAEAAE:EA0EA0 NAME$""700 "CHARACTER 740 :# DK$(4):REC1V :"LISTING OF CURRENT CHARACTERS":T1400:Ti DK$(4):REC1 DK$;"OPEN CHARACTERS,L150" DK$;"READ CHARACTERS,R";REC NAME$:NAME$""700 "HD,AG,CH ,X14:SA%(X):X 6X15:WA%(X):X ILE?" "'Y' OR 'N' ";AN$/ AN$"N"210A AN$"Y"210 (7)::5:"YOU HAVE REQUESTED DELETION OF":7:"THE ENTIRE CHARACTER FILE!":::"ARE YOU SURE YOU WANT TO DO THIS ";:AN$ AN$"Y"ĺ::10:"REINITIALIZING CHARACTER FILE":1980. THIS DISK IS":"INCLUDED AS PART OF THE EAMON SERIES."B 1970 :"IF YOUR DISC HAS TOO MANY CHARACTERS":"STORED ON IT, YOU MAY WISH TO DELETE ":"ALL OF THEM AND START OVER CLEAN"::"DO YOU WISH TO DELETE CURRENT CHARACTERSAND BEGIN WITH A NEW FYOUR OWN":"DESIGN. BEFORE YOU CONTINUE PLEASE"z "INSERT THE EAMON MASTER DISK AND THEN":"PRESS ANY KEY TO CONTINUE."8 13:"PLEASE NOTE:":"FOR ADDITIONAL INFORMATION PLEASE REFER":"TO THE PLAYER'S MANUAL LOCATED ON THE":"DUNGEON DESIGNER'S DISKr"AAA CHARACTER BUILDER 1$DBY DON UNRATH 312/438-4799JPmREV BY THOMAS ZUCHOWSKIx10/83~  DK$(4):REC1xDK$;"NOMON I,O,C"C(18)/ :4:"THIS PROGRAM IS TO BE USED TO BUILD":"EAMON CHARACTERS OF             * d::D$(4)),D$;"CATALOG"D C(17)71380!"C(17)11380"::(17):"WEAPONS"::::"IF YOU PREFER, YOU MAY WAIT TO BUY YOUR WEAPONS UNTIL YOU GET BACK TO THE MAIN":"HALL. IF YOU WOULD PREFER TO WAIT TYPE A '0'!"H#::"YOU MAY CARRY UP TO FOUR WEAPONS WITH":"YOU AT A)'!Z"PIECES OF GOLD IN BANK ";C(16)P!d:"SELECT TYPE OF ARMOUR BY NUMBER"_!n"1) NONE"q!x"2) LEATHER"!"3) LEATHER AND SHIELD"!"4) CHAIN MAIL"!"5) CHAIN MAIL AND SHIELD"!"6) PLATE"!"7) PLATE AND SHIELD"::!C(17)"C(14)1001290Q :"IS YOUR CHARACTER A MALE OR FEMALE?":"TYPE 'M' OR 'F'"Z (SE$l 2SE$"M"1350 <SE$"F"1310 F:"HOW MANY PIECES OF GOLD DO YOU WISH TO":"HAVE WITH YOU AND HOW MANY IN THE BANK":!P"PIECES OF GOLD WITH YOU ";C(15240'"CLUB ";C(11):C(11)1001250K"SPEAR ";C(12):C(12)1001260o"SWORD ";C(13):C(13)1001270:"ARMOUR EXPERTISE--THE PLAYER ABILITY TO":"FIGHT WHILE WEARING ARMOUR": :"ARMOUR EXPERTISE GIVEN AS A PER CENT"::C(14) LITY PLUS YOUR":"EXPERTISE FOR THE WEAPON YOU ARE USING":"PLUS THE COMPLEXITY OF THAT WEAPON":k1970:"WHAT IS YOUR WEAPON EXPERTISE FOR:"::"(TYPE A VALUE FROM 0 TO 100)"::"AXE ";C(9):C(9)1001230"BOW ";C(10):C(10)1001F EAMON CAN BEDIVIDED INTO FIVE TYPES--AXES,BOWS,CLUBSSPEARS, AND SWORDS."::"WEAPON EXPERTISE - THE ABILITY TO USE A":"GIVEN WEAPON. IT IS EXPRESSED AS A VALUE":::"NOTE: "::"YOUR CHANCE OF HITTING YOUR TARGET IS"a"EQUAL TO TWICE YOUR AGI::"ENTER AS A PERCENTAGE THE ABILITY":" TO CORRECTLY CAST THE SPELL"::q~"ABILITY TO CAST BLAST ";C(5)"ABILITY TO CAST HEAL ";C(6)"ABILITY TO CAST SPEED ";C(7)"ABILITY TO CAST POWER ";C(8)J:"ALL WEAPONS IN THE WORLD O IT'S":"A CALL TO THE GODS 'HELP ME'!!":"WARNING, IT MAY WORK AGAINST YOU!!"Xl1970o:"THE VALUE YOU ASSIGN TO EACH WILL BE":"YOUR CHANCE TO SUCCESSFULLY CAST THE":"SPELL ON THE FIRST TRY. EACH SUCCESSIVETRY HAVLES YOUR CHANGE TO CAST IT."Mt AT YOUR":"OPPONENT.":^V"HEAL REMOVES HITS FROM THE BODY OF THE":"PERSON CASTING IT.":`"SPEED WILL DOUBLE THE CASTER'S AGILITY":"FOR THE NEXT 10 TO 34 TURNS":Nj"POWER MAY BE YOU MOST USEFUL SPELL AND":"AND CERTAINLY THE MOST UNCERTAIN. S AND SERVICES FOR."$1080g."DON'T YOU THINK YOU OVER DOING IT A BIT?":"HOW ABOUT 50 OR LESS?"8:"HOW MANY POINTS CHARISMA DO YOU WANT?";C(4)BC(4)501070L:"MAGIC - THERE ARE FOUR SPELLS AVAILABLE":::"BLAST FIRES A BURNING ARROW0 OR LESS?">:"HOW MANY POINTS AGILITY DO YOU WANT?";C(3)PC(3)501020:"CHARISMA - CHARISMA WILL DETERMINE HOW":"HOW WELL PEOPLE LIKE YOU. THIS WILL":"MOST LIKELY SHOW UP AS HOW MANY FRIENDS":"YOU MAKE OR WHAT PRICES YOU CAN BUY":"GOOD)C(2)50960"C(2)3940:"AGILITY - AGILITY'S MAJOR EFFECT IS HOW":"LIKELY YOU ARE TO HIT YOUR OPPONENT IN":"COMBAT. IT'S ALSO USEFUL IN AVOIDING":"SPECIAL TRAPS."1030 "DON'T YOU THINK YOU OVER DOING IT A BIT?":"HOW ABOUT 5HIM."970z" GIVE YOURSELF A BREAK, SELECT A NUMBER":"GREATER THAN 2!"::::"YOU WILL NOT BE WARNED AGAIN!!":970"DON'T YOU THINK YOU OVER DOING IT A BIT?":"HOW ABOUT 50 OR LESS?":"HOW MANY POINTS HARDINESS DO YOU WANT?";C(2T THE TOTAL SUM":"OF THE THREE DOES NOT EXCEED 48.">1970"HARDINESS - HARDINESS RELATES TO THE":"NUMBER OF POINTS OF DAMAGE YOUR BODY":"CAN WITHSTAND BEFORE YOU DIE. IT ALSO":"RELATES TO HOW MUCH TOTAL WEIGHT":"YOU CHARACTER CAN CARRY WITH HE THREE ATTRIBUTES OF ANY EAMON":"CHARACTER ARE HARDINESS,AGILITY, AND":"CHARISMA. WHEN RANDOMLY CHOSEN, THE"4"VALUE OF ANY ONE ATTRIBUTE CAN VARY":"FROM A LOW OF 3 TO A HIGH OF 24. YOU":"MAY CHOOSE ANY VALUE YOU PLEASE, BUT":"WE RECOMMEND THAPE IN A NAME FOR YOUR NEW CHARACTER!".>850]H"YOUR NAME MUST BE 20 CHARACTERS OR LESS"fRNA$y\(NA$)20840fNA$""850p::"WE WILL NOW BEGIN TO BUILD"::NA$::X11000:Xqz::"BUILDING ";NA$:::"CHARACTER ATTRIBUTES"::"T$jL'C1NC:D$"READ CHARACTERS,R";C:FINM$:FINM$NAME$Ă:"I CAN'T FIND THAT CHARACTER.":D$:A$:140V'2000:MO$"A"30000`'140j'"RECORD NUMBER:";Ct'CNCĺ"THERE AREN'T THAT MANY!":10090~'2000:MO$"A"30000'140 ' /// REA::"PRESS ANY KEY TO CONTINUE";::A$:. F ' /// SELECT RECORDT 'UPİ5000 $'6:958:"SELECT RECORD BY:":" 1. NAME":" 2. RECORD NUMBER":" 3. NEXT RECORD":X3:1000 .'S10040,10090,10130 8' /// FIND NAMEB'"CHARACTER NAME:";NAMER";C= NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X):[ AE:SEX$:GOLD:BANK:AC X14:WNAME$(X):WTYP%(X):WODDS%(X):WDICE%(X):WSIDES%(X): D$ ADDĺD$"WRITE CHARACTERS,R0":NC:D$: UP0:ADD0: p >>> STOP SCREEN( zSA%(X)::X15:WA%(X):7 AE:SEX$:GOLD:BANK:AC X14:WNAME$(X):WTYPE%(X):WODDS%(X):WDICE%(X):WSIDES%(X)::D$   /// WRITE RECORD ADDNA$"DUMMY"ĺ:"I DON'T ALLOW 'DUMMY' FOR A NAME."::6000:140 D$"WRITE CHARACTERS,ECORD":" 7. QUIT":X7:1000N S10000,20000,30000,40000,50000,60000,62000c  /// GET NUMBER| "INPUT (1-";X;"):"; S$:(S$)1(S$)X1020 S$:S(S$):  /// READ RECORD UP0:D$"READ CHARACTERS,R";C:NAME$:HD:AG:CH:X14:AD CHARACTERS,R0":NC:D$w :17);"EAMON":9);"CHARACTER MAINTENANCE":13);"BY JOHN NELSON":::"SELECT ACTION:" " 1. SELECT RECORD":" 2. UPDATE RECORD":" 3. DISPLAY RECORD":" 4. SELECT MODE":" 5. GO ON AN ADVENTURE" " 6. ADD A Rv#EAMON CHARACTER CHANGE.AND DISPLAY4HBY JOHN NELSONNTbdD$(4):kn:5x" INSERT MASTER DISKETTE"::" IN DRIVE 1"::" AND PRESS ANY KEY":A$: D$"OPEN CHARACTERS,L150,S6,D1":D$"RE          HARACTERS"**DK$;"OPEN CHARACTERS,L150"I*DK$;"WRITE CHARACTERS,R0"P*0a*DK$;"CLOSE"q*216,0:820O/83~  DK$(4):REC1xDK$;"NOMON I,O,C"C(18)/ :4:"THIS PROGRAM IS TO BE USED TO BUILD":"EAMON CHARACTERS OF )lDK$;"CLOSE CHARACTERS"l)v:"DO YOU WISH TO REVIEW CURRENT CHARACTERSON THIS DISK?":"'Y' OR 'N' ";AN$})AN$"Y"210)AN$"N"1950)1910)RECREC1:780)"END")24::"PRESS ANY KEY TO CONTINUE ";::A$::: *DK$;"DELETE CACTERS,R";REC(NA$+(X214:C(X):X4(SE$M(C(15):C(16):C(17)[(W01860(&B1W:WEP$(B):TY(B):COM(B):DI(B):SI(B):B(0F14W:"NONE":0:0:0:0:F(:1890(DN$"NONE"(NO0(XT14:N$:O:O:O:O:T(b"CLOSE"'AN$"N"1560#'AN$"Y"1690-'1670?'(18):"GOOD"I'1970'WEP$(B)WEP$:TY(B)TY:COM(B)COM:DI(B)DI:SI(B)SI'B' WRITE TO RECORD(REC)'DK$;"OPEN CHARACTERS,L150"'DK$;"WRITE CHARACTERS,R0"'REC (DK$;"WRITE CHAR CANINFLICT FROM ONE TO EIGHT POINTS OF":"DAMAGE."^&h"HOW MANY DICE FOR THIS WEAPON ";DI&r:"HOW MANY SIDE DIE FOR THIS WEAPON ";SI&|::WE$;" WILL INFLICT FROM":DI;" TO ";DISI;" POINTS OF DAMAGE"&"IS THIS CORRECT? ('Y' OR 'N') ";AN$1001610%T:"THE DAMAGE INFLICTED ON AN ENEMY IS":"DETERMINED BY ROLLING A GIVEN NUMBER OF":"DICE ONCE AND SUMMING THEM.":"FOR EXAMPLE, ROLLING 2 FIVE-SIDED DICE":"CAN INFLICT FROM 2 TO 10 POINTS OF":"DAMAGE.";3&^" ROLLING ONE EIGHT-SIDED DIE WEAPONS AND GUNS)":"3) CLUB (OR BLUNT WEAPONS)":"4) SPEAR (OR OTHER POLE WEAPONS)":"5) SWORD":"INPUT NUMBER";TY$6TY11580$@TY51580$J:"COMPLEXITY OF WEAPON(GUNS MORE COMPLEX":"THAN CLUBS)":"ENTER VALUE 0 TO 100 ";COM %OCOMNY ONE TIME. HOW MANY WEAPONS":"WOULD YOU LIKE TO BUILD AT THIS TIME?"O#W]#W01730k#W41500y#W01490#B1W#:"NAME OF WEAPON ";B;" ":WEP$#"|$,"WHAT TYPE OF WEAPON?":"1) AXE":"2) BOW (THIS INCLUDES ALL THROWN":" DAM. ODDS":uX14WuWN$(X);18(WN$(X)));WT%(X);6((WO%(X))));WO%(X);"%";u7((WD%(X))"D"(WS%(X))));WD%(X);"D";WS%(X);5((2AGWA%(X)WO%(X))));2AGWA%(X)WO%(X);"%"uX:u"(PRESS ANY KEY TO CONTINUE)";:A$:uA$"U"AR:";WA%(4);" SWORD:";WA%(5)1quA$"NONE"IvuAC1A$"LEATHER "_uAC3A$"CHAIN "uuAC5A$"PLATE "u(AC2)AC2A$A$"AND SHIELD"u:"ARMOUR: ";A$;" AE=";AE;"%"u:"WEAPON INFORMATION:" u"NAME TYPE COMP "HARDINESS:";HD;" AGILITY:";AG;" CHARISMA:";CH6NuXu" 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" SPE R20010$S >>> CANCEL CHANGESKSADD1ADD0:UP0:NCNC1:C0:140_SUP0:2000:140{0u /// DISPLAY CHARACTER5uC0ĺ"NO RECORD IN MEMORY.":6000:140:u:"NAME:";NAME$;" REC:";C::"SEX:";SEX$;" GOLD:";GOLD;" ";"BANK:";BANK0Du:":" 7. END OF WEAPON CHANGE":X7:1000YpRS21110,21120,21130,21140,21150,21160,21170xvR"NEW NAME:";WN$(W):21102R"NEW TYPE:";WT%(W):21102R"NEW ODDS:";WO%(W):21102R"NEW DICE:";WD%(W):21102R"NEW SIDES:";WS%(W):21102R2110000:ACS:20010ZlR:8:"SELECT WEAPON TO CHANGE:":X14:" ";X;". ";WN$(X)::X4:1000dmRWS:nR"SELECT FIELD TO CHANGE:":" 1. NAME",WN$(W):" 2. TYPE",WT%(W):" 3. COMP.",WO%(W):" 4. DICE",WD%(W):" 5. SIDES",WS%(W)(oR" 6. NEXT WEAPONT.":20920Q20010R"ARMOR CLASS:":" 1. SHIELD ONLY":" 2. LEATHER ARMOUR":" 3. LEATHER ARMOUR & SHIELD":" 4. CHAIN ARMOUR"R" 5. CHAIN ARMOUR & SHIELD":" 6. PLATE ARMOUR":" 7. PLATE ARMOUR & SHIELD"R"(CURRENTLY ";AC;")":X7:10NQ" 1. GOLD IN HAND",GOLD:" 2. GOLD IN BANK",BANK:X2:1000:S20910,20920Q"HOW MUCH GOLD:";GOLD:GOLD0GOLD50000GOLD(GOLD)ĺ:"INVALID GOLD.":20910Q20010 Q"HOW MUCH IN BANK:";BANK:BANK0BANK50000BANK(BANK)ĺ:"INVALID AMOUN%(3):200105P"NEW SPEAR EXPERTISE:";WA%(4):20010_P"NEW SWORD EXPERTISE:";WA%(5):20010P"OLD ARMOUR EXP:";AE:"NEW ARMOR EXPERTISE:";AE:AE0AE99ĺ"INVALID EXPERTISE.":AE0:20700P20010@QSEX$"M"SEX$"F":20010JQSEX$"M":20010" 1. AXE",WA%(1):" 2. BOW",WA%(2):" 3. MACE",WA%(3):" 4. SPEAR",WA%(4):" 5. SWORD",WA%(5):X5:1000yPS20610,20620,20630,20640,20650P"NEW AXE EXPERTISE:";WA%(1):20010P"NEW BOW EXPERTISE:";WA%(2):20010 P"NEW MACE EXPERTISE:";WA,SA%(3):" 4. POWER",SA%(4):X4:1000:S20510,20520,20530,20540hP"NEW BLAST RATING:";SA%(1):20010(P"NEW HEAL RATING:";SA%(2):200102P"NEW SPEED RATING:";SA%(3):20010N" 8. SEX CHANGE":" 9. GOLD":" 10. ARMOUR CLASS":" 11. WEAPON CHANGE"#HN" 12. DISPLAY RECORD":" 13. RETURN TO MAIN MENU":" 14.D NEXT RECORDT'CC1:CNCĺ"END OF FILE.":"PRESS ANY KEY TO CONTINUE";:A$:140m'2000:MO$"A"30000v'140 N /// UPDATE ROUTINE%NC0ĺ"NO CHARACTER IN MEMORY.":6000:140%*N:NAME$:"INPUT FIELD TO CHANGE:":" 1. NAME":" 2. HARDINCTERS,R";REC:N$:N$N2$1000K REC:DK$:::"CHARACTER NOT FOUND!"::l DK$;"READ CHARACTERS,R";REC NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AE SEX$ GOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):EAMON CHARACTER CLONE"7BY DONALD BROWN=J DK$(4)ld:5:"EAMON CHARACTER CLONE"n"ENTER NAME OF CHARACTER: ";xN2$:N2$""100DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC REC1NC:DK$;"READ CHARA )0:WO%(X)0:?+^NA$"DUMMY":AE0:UP1:ADD1:CNC1:NCNC1:V+0 /// QUIT ROUTINEd+:UPİ5000u+ND$"CLOSE":"INE+:UPİ5000+ND$"CLOSE":D00O*HD22:AG22:CH22:AC4:WA%(1)20:WA%(2)20:WA%(3)50:WA%(4)20:WA%(5)40Z*60500*HD80:AG80:CH80:WA%(1)50:WA%(2)50:WA%(3)70:WA%(4)40:WA%(5)60*60500+TX15:SA%(X)0::GOLD300:BANK0:X14:WN$(X)"NONE":WT%(X)0:WD%(X)0:WS%(X. HIGH CHARACTER":" 4. SUPER CHARACTER"N)t1000:S60100,60200,60300,60400W)~140)HD10:AG10:CH10:AC0:WA%(1)5:WA%(2)0:WA%(3)20:WA%(4)10:WA%(5)0)60500)(HD16:AG16:CH16:AC2:WA%(1)8:WA%(2)4:WA%(3)40:WA%(4)14:WA%(5)10*2605R #";C;", TO BE EXACT.)"::"PRESS 'C' TO CONTINUE TO ADVENTURE"::"OR ANY OTHER KEY TO RETURN TO MENU.";:A$:~(`ǭA$"C"ı(jǡ:140(` >>> ADD A RECORD))j:8:"SELECT GENERAL CHARACTER POWER:":" 1. WEAK CHARACTER":" 2. AVERAGE NORMAL":" 3 AN ADVENTURE. IF YOU LIVE THROUGH":"THE ADVENTURE, YOU MUST RETURN TO THIS":"DISKETTE."'LǺ:"IF YOU DO NOT RETURN TO THIS DISKETTE":"AND INSTEAD RETURNED TO A MASTER":"DISKETTE, YOU WOULD LOSE A CHARACTER":"ON THE MASTER DISKETTE."p(VǺ"(CHARACTE50020:&xúD$"OPEN EAMON.NAME":D$"READ EAMON.NAME":DNG$p&×:5:"YOU ARE ABOUT TO ADVENTURE IN":::DNG$:&úD$"OPEN FRESH MEAT":D$"WRITE FRESH MEAT":C:&ð5020:D$"RUN ";DNG$&8Dz >>> INSTRUCTIONSZ'BǗ:"YOU ARE ABOUT TO TRANSFER ";NA$:"TOEY":A$:L% D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$:140h%Pò >>> WRITE FRESH MEAT%UíC0ĺ"NO CHARACTER IN MEMORY.":6000:140%ZíUPİ5000%dð51000::6:" INSERT ADVENTURE TO TEST AND PRESS":" ANY KEY":A$:&nå KEY TO CONTINUE";:A$::430009$ؤ >>> REPLACE BY REC#d$⤄"RECORD #:";R:R(R)RC2R142210o$줫42120$ >>> RETURN$C0ĺ"NO CHARACTER IN MEMORY.":6000:140 %D$"CLOSE"::5:"INSERT ORIGINAL DISKETTE AND PRESS ANY"::" KERW#:"SELECT METHOD":" 1. REPLACE BY NAME":" 2. REPLACE BY RECORD #":X2:1000j#$S42100,42200z#t"NAME:";N$#~R1NC:D$"READ CHARACTERS,R";R:N2$:N2$N$Ă:"I DON'T FIND THAT NAME.":42010$C3C:CR:5000:CC3::"DONE.":"PRESS ANYCE EXISTING CHARACTER":" 3. RETURN WITHOUT CHANGE":X3:1000W"S41000,42000,43000s"( >>> ADD NEW CHARACTER"2C2C21:C3C:CR:5000:CC3:D$"WRITE CHARACTERS,R0":C2::"DONE.":"PRESS ANY KEY TO CONTINUE";:A$::43000# >>> REPLACE CHARACTU BY PRESSING 'R'"*!":";A$:A$"R"140w!:5:"INSERT RECEIVING DISKETTE":" AND PRESS ANY KEY":A$:!D$"CLOSE":D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":C2:D$>""SELECT ACTION:":" 1. ADD CHARACTER AS NEW":" 2. REPLAMO$"":140$ l >>> MOVE CHARACTER v:"THIS ROUTINE WILL MOVE AN ADVENTURER ":"FROM ONE DISKETTE/FILE TO ANOTHER.":"CHARACTER MUST BE IN MEMORY WHEN THIS ":"FUNCTION IS EXECUTED."!:"IF CHARACTER IS NOT IN MEMORY, RETURN":"TO THE PRIMARY MEN20010+uMO$"A"ĭUP1UP0:5000:10130>vMO$"A"10130K vS3140Vv20010l@ /// SELECT MODEJ:8:"SELECT ACTIONS WANTED:":" 1. AUTOMATIC":" 2. MANUAL":" 3. MOVE CHARACTER":X3:1000TS40100,40200,40300MO$"A":140 D CHARACTERS,R";REC:A$:A$""2000V REC:RECNC1:DK$;"WRITE CHARACTERS,R0":NC1x DK$;"WRITE CHARACTERS,R";REC NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X)::AE:SEX$ GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(ARACTERS,R0":NC:A1NC:DK$;"READ CHARACTERS,R";A:A$:A$N2$Ă:DK$:1500 .DK$::"ALREADY A CHARACTER NAMED ";A$:" ON THE DISKETTE."::"USE A NEW DISKETTE (Y/N)? "; 8A$:A$"Y"A$"N"1080 BA$:A$"Y"1040 L# REC1NC:DK$;"REA^ GOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$;"CLOSE" :"NOW INSERT DISKETTE TO PLACE CHARACTER IN AND PRESS THE ";::"'C'";::" KEY "; A$:A$"C"1050M $:DK$;"OPEN CHARACTERS,L150":DK$;"READ CHN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NCl REC1NC:DK$;"READ CHARACTERS,R";REC:N$:N$N2$1000 REC:DK$:::"CHARACTER NOT FOUND!":: DK$;"READ CHARACTERS,R";REC NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AE SEX$#EAMON CHARACTER MOVER"7BY DONALD BROWN=CP DK$(4)yd:5::9:"EAMON CHARACTER MOVER":n::"INSERT DISKETTE CHARACTER IS CURRENTLY ON INTO SLOT SIX, DRIVE ONE AND ENTER NAME: ";xN2$:N2$""1000 DK$;"OPE$:GOLD:BANK AC X14: WNAME$(X):WTYPE%(X)` WODDS%(X):WDICE%(X):WSIDES%(X)f  D$"WRITE CHARACTERS,R0" NC1 D$"CLOSE"d("NAME OF NEW CHARACTER:";NAME$F"HARDINESS:";HDP"AGILITY:";AGZ"CHARISMA:";CH d"WTYPE%(X)3* h"COMPLEXITY:";WODDS%(X)E r"NBR DICE:";WDICE%(X)b |"SIDES/DIE:";WSIDES%(X)i X D$"OPEN CHARACTERS,L150" D$"WRITE CHARACTERS,R";NC1 NAME$:HD:AG:CH:BLAST:HEAL:SPEED:POWER X15:WA%(X): AE SEX$"AXE"WTY$"BOW"WTY$"MACE"WTY$"SPEAR"WTY$"SWORD"WTY$"CLUB"ĺ"ILLEGAL TYPE":280{ ,WTY$"AXE"WTYPE%(X)1 6WTY$"BOW"WTYPE%(X)2 @WTY$"MACE"WTYPE%(X)3 JWTY$"SPEAR"WTYPE%(X)4 TWTY$"SWORD"WTYPE%(X)5 ^WTY$"CLUBAE "MALE OR FEMALE:";SEX$8 "GOLD IN HAND:";GOLDR "GOLD IN BANK:";BANKi "ARMOR CLASS:";ACt X14 "WEAPON NAME:";WNAME$(X) WNAME$(X)"NONE"WTYPE%(X)0:WODDS%(X)0:WDICE%(X)0:WSIDES%(X)0:390 "WEAPON TYPE:";WTY$_ "WTY"BLAST SPELL:";BLAST- n"HEAL SPELL:";HEALA x"SPEED:";SPEED[ "POWER SPELL:";POWERv "AXE ABILITY:";WA%(1) "BOW ABILITY:";WA%(2) "MACE ABILITY:";WA%(3) "SPEAR ABILITY:";WA%(4) "SWORD ABILITY:";WA%(5) "ARMOR EXPERTISE:";CHARACTER CREATOR2AUTHOR UNKNOWN8>J D$(4)hD$"OPEN CHARACTERS,L150"D$"READ CHARACTERS,R0"(NC2D$"CLOSE"<"NAME OF NEW CHARACTER:";NAME$F"HARDINESS:";HDP"AGILITY:";AGZ"CHARISMA:";CH d   HD:AG:CH:X14:SA%(X)::X15:WA%(X)::AE:SEX$ GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):W DK$;"CLOSE""00DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC REC1NC:DK$;"READ CHARAISKETTE."::"USE A NEW DISKETTE (Y/N)? ";H 8A$:A$"Y"A$"N"1080] BA$:A$"Y"1040c L REC1NC:DK$;"READ CHARACTERS,R";REC:A$:A$""2000 REC:RECNC1:DK$;"WRITE CHARACTERS,R0":NC1 DK$;"WRITE CHARACTERS,R";REC6 NAME$:W:DK$;"CLOSE"4 :"ENTER NEW CHARACTER NAME: ";= N2$K NAME$N2$ $:DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:A1NC:DK$;"READ CHARACTERS,R";A:A$:A$N2$Ă:DK$:1500* .DK$::"ALREADY A CHARACTER NAMED ";A$:" ON THE DERS,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) 2T1:C1NC:D$"READ CHARACTERS,R";C:NM$:NM$""Ă:100' <NM$(T)NM$:CHARACTER CONDENSE3BY JOHN NELSON9jTO REMOVE EMPTY FILES FROM CHARACTERS FILEp REV 02/84 D$(4)::5:" INSERT MASTER DISKETTE"::" AND PRESS ANY KEY"A$:% (D$"OPEN CHARACT ͍čōōōōōōōύ͍čōōōōύٍƍčōōōƍōōƍčōōōANY DEAD ";NA$:D$"CLOSE"0  === ANOTHER? ===X :"DO YOU WISH TO RAISE ANOTHER?";v A$:A$"Y"A$"N"1020 A$:A$"N"Ā 303S"::10);"ANY KEY TO CONTINUE";:A$:20 D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$0 (:8:"CHARACTER TO BE RESURRECTED:";NA$^ 2R1NC:D$"READ CHARACTERS,R";R:N$:ME$q <N$""Ă:500 FME$(NA$,2)Ă:500 PD$"WRITE CHARACTERS,R";R:NA$:D$"CLOSE"::"O.K. ";NA$;" YOU HAVE BEEN RESURRECTED.":1000 "I CAN'T FIND  EAMON CHARACTER RESSURECT&:BY JOHN NELSON@P REV 02/84Vd D$(4)::6:"INSERT EAMON MASTER DISKETTE AND PRESS"::10);"ANY KEY TO CONTINUE";:A$:20 D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:  A$"N"120 A$8 DK$;"WRITE CHARACTERS,R";N:N N:DK$;"CLOSE":DxA$:A$"Y"ĺA$:160y A$"N"120 A$ DK$;"WRITE CHARACTERS,R";N: N:DK$;"CLOSE": OEAMON CHARACTER REMOVER$9BY DONALD BROWN?dDK$(4):DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:N1NC:DK$;"READ CHARACTERS,R";N:N$:DK$:"#";N;": ";N$n" KEEP (HIT 'Y' OR 'N')?";xA$:A$"Y"ĺA$:160   W):WSIDES%(W):W" DK$;"CLOSE"RBY DONALD BROWN=CP DK$(4)yd:5::9:"EAMON CHARACTER MOVER":n::"INSERT DISKETTE CHARACTER IS CURRENTLY ON INTO SLOT SIX, DRIVE ONE AND ENTER NAME: ";xN2$:N2$""1000 DK$;"OPE),WO%(4,N),WD%(4,N),WS%(4,N),UP(N),DD$(N)5 I1NC; a D$;"READ CHARACTERS,R";I:NA$(I)u NA$(I)""320 10000 "DD$(I):DD$(I)""NA$(I)"(BAD DATA IN FILE)":400 ,DD(DD$(I)):DD$(I)""DD0NA$(I)"(DEAD)" 6DD0HD(I)DD:E"::" AND PRESS ANY KEY":A$:J /// INPUT DATA FROM DISK D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$ NNC10:FULLN) NA$(N),SEX$(N),GOLD(N),BANK(N),HD(N),AG(N),CH(N),SA%(4,N),WA%(5,N),AC(N),AE(N),WN$(4,N),WT%(4,N2!CHARACTER FILE MAINTENANCE'FBY THOMAS ZUCHOWSKI 12/83_ WINSTON-SALEM NCe~dI768777:N:I,N:n 104,168,104,166,223,154,72,152,72,96xD$(4):S$" ":7 SPACES:10) " INSERT MASTER DISKETT               60,270:2000270,335:20002335,412:2000E412,460:2000X$460,520:2000h.520,2000::" TO CONTINUE";MP$::<3(WSIDES%(I)9));WODDS%(I)2AGEAWA%(WTYPE%(I));"%"CIw24::"PRESS ANY KEY TO CONTINUE ";::A$::RECREC1:160:DK$;"PR#0"12:13:"END OF PROGRAM"22: /// LIST ROUTINE:10,1602000 1E;"%" " ") "WEAPON INFORMATION:"S "NAME COMPLEXITY DAM ODDS"\ " "g I14 WNAME$(I)"NONE"470 WNAME$(I);17(WNAME$(I)));WODDS%(I);"%";6(WODDS%(I)0)((WOODS%(I))9)((WODDS%(I))99));WDICE%(I);"D";WSIDES%(I);WA%(2);9);"CLUB ";WA%(3)G |4);"SPEAR ";WA%(4);10);"SWORD ";WA%(5)P " "| "ARMOUR: ";:(AC2)1411,412,413,414 "SKIN";:415 "LEATHER";:415 "CHAIN";:415 "PLATE";:415 (" AND SHIELD",110(AC2(AC2)));" AE=";A);" IN BANK ";BANK E" "S J"HARDINESS ";HD;" AGILITY ";AG;" CHARISMA ";CH\ O" "w T13);"SPELL ABILITY" ^"BLAST ";SA%(1);" HEAL ";SA%(2);" SPEED ";SA%(3);" POWER ";SA%(4) h" ":13);"WEAPON ABILITY" r"AXE ";WA%(1);9);"BOW ";X),WOODS%(X),WDICE%(X),WSIDES%(X):X5 DK$;"CLOSE"| EA5(AC2(AC2)):AC1EAEA10:AC3EAEA10:AC5EAEA40 EAEAAE:EA0EA0 NAME$""490 ":(12); ,"CHARACTER NAME: ";NAME$ 6" " @"SEX ";SEX$;3);"GOLD ";GOLD;3DK$(4):REC1% ONERR GOTO 160E DK$;"OPEN CHARACTERS,L150"f DK$;"READ CHARACTERS,R";REC NAME$:NAME$""490 HD,AG,CH X14:SA%(X):X X15:WA%(X):X AE SEX$ GOLD,BANK AC$ X14:WNAME$(X),WTYPE%( TO LIST PROGRAM WITHOUT<SCROLL, TYPE - GOTO 1000B]( EAMON IS A CREATIONt2 OF DONALD BROWNz<F CHARACTERS DISPLAYP BY MARK MAINSZn500x:11:11:"DISPLAY CHARACTERS":12:13:"BY MARK MAINS"    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):Wh Tw D$"CLOSE" :5:"THERE WERE ";OC;" RECORDS ON FILE.":"NEW FILE CONTAINS ";NC;" CHARACTERS." SANY KEY"A$:% (D$"OPEN CHARACTPRESS ANY KEY WHEN YOU ARE READY TO ":"COPY RECORDS OUT.";E A$:V OCNC:NCT1 D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":NC T1NC:D$"WRITE CHARACTERS,R";T:NM$(T):HD(T):AG(T):CH(T):S14:SA%(T,S):S:W15:WA%(T,W):Wa HD(T):AG(T):CH(T):S14:SA%(T,S):Sd 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$ n"FILE IS LOADED INTO TABLE.":"THERE ARE ";T;" RECORDS."; x:" :8:" SELECT WEAPON ABILITY:":S$;"1. AXE",WA%(1,0):S$;"2. BOW",WA%(2,0):S$;"3. CLUB",WA%(3,0) S$;"4. SPEAR",WA%(4,0):S$;"5. SWORD",WA%(5,0):S$;"----------":S$;"6. RETURN TO MENU":X6:600 :S3230,3240,3250,3260,3270,3280" UP1:"----":S$;"5. RETURN TO MENU":X5:600::S3020,3030,3040,3050,3060q UP1:"NEW BLAST RATING:";SA%(1,0):3000 UP1:"NEW HEAL RATING:";SA%(2,0):3000 UP1:"NEW SPEED RATING:";SA%(3,0):3000 UP1:"NEW POWER RATING:";SA%(4,0):3000 g` :"OLD CHARISMA:";CH(0):"NEW CHARISMA:";X:X3X300X(X)ĺ:"INVALID CHARISMA.":2800s UP1:CH(0)X: :8:" SELECT SPELL:":S$;"1. BLAST",SA%(1,0):S$;"2. HEAL",SA%(2,0):S$;"3. SPEED",SA%(3,0)D S$;"4. POWER",SA%(4,0):S$;"------DD$(0)"":UP1:NA$(0)X$:}` :"OLD HARDINESS:";HD(0):"NEW HARDINESS:";X:X3X300X(X)ĺ:"INVALID HARDINESS.":2400j UP1:HD(0)X:( :"OLD AGILITY:";AG(0):"NEW AGILITY:";X:X3X300X(X)ĺ:"INVALID AGILITY.":26002 UP1:AG(0)X:HIS CHARACTER WAS:"::15:"(?)";DD$(0)::2220I:"OLD NAME: "NA$(0)"NEW NAME: ";X$:(X$)0(X$,1)"A"(X$,1)"Z"(X$)20ĺ:"INVALID NAME.":2200I1NC:NA$(I)X$ĂNA$(I)X$CIĺ:"THAT NAME IS ALREADY BEING USED.":2200 MAIN MENU"_>S$;"14. ADD AS A NEW RECORD":S$;"15. CANCEL CHANGES"::" INPUT (1-15) ";SHS2200,2400,2600,2800,3000,3200,3400,3600,3800,4000,4200,4400,4600,4800,510R2060/DD$(0)""ĺ:"THIS CHARACTER IS DEAD. THE PREVIOUS NAME OF T" 3. AGILITY":S$;" 4. CHARISMA"i S$;" 5. SPELL ABILITIES":S$;" 6. WEAPON ABILITIES":S$;" 7. ARMOR"*S$;" 8. SEX":S$;" 9. GOLD":S$;"10. ARMOR EXPERTISE":S$;"11. WEAPON" 4S$;"--------------------":S$;"12. DISPLAY RECORD":S$;"13. RETURN TOAE(0)AE(C):AC(0)AC(C):I14:WN$(I,0)WN$(I,C):WT%(I,0)WT%(I,C):WO%(I,0)WO%(I,C):WD%(I,0)WD%(I,C):WS%(I,0)WS%(I,C):DD$(0)DD$(C) :(40(NA$(0)))2:NA$(0): " INPUT FIELD TO CHANGE:"::S$;" 1. NAME":S$;" 2. HARDINESS":S$;Cĺ:14);"END OF FILE.":C0:7101(CC1:5000K /// MODIFY RECORD `C0SUB1:1000NA$(0)NA$(C):SEX$(0)SEX$(C):GOLD(0)GOLD(C):BANK(0)BANK(C):HD(0)HD(C):AG(0)AG(C):CH(0)CH(C)I14:SA%(I,0)SA%(I,C)::I15:WA%(I,0)WA%(I,C):$(0)V`I1NC:NA$(I)NA$(0)Ă:(7):"NO SUCH CHARACTER IN THIS FILE.":720:1000ijCI:C1C:5000 /// BY RECORD #"RECORD NUMBER:";CCNCĺ(7):"ONLY ";NC;" RECORDS IN FILE.":720:1000C1C:5000 /// NEXT RECORD!CNKEY TO CONTINUE)";:A$::4 /// SELECT RECORD :6:" SELECT RECORD BY:"::S$;"1. NAME":S$;"2. RECORD NUMBER":S$;"3. NEXT RECORD":S$;"4. RETURN TO MAIN MENU":X4:600:S1100,1210,1300,510L /// BY NAMEV"CHARACTER NAME:";NAD QUIT":X6:6005:S1000,2000,6000,7000,8000,9000MX /// GET NUMBER lb:" INPUT (1-";X;"):";lA$:S(A$):S1SX620vA$: /// CONTINUE PROMPT :" (PRESS ANY KEY TO CONTINUE)";:A$::510:" (PRESS ANY RACTER: NONE";:C0Ė21:NA$(C);" ";H8::" SELECT ACTION:":S$;"1. SELECT A RECORD":S$;"2. MANIPULATE THIS RECORD":S$;"3. FILE MAINTENANCE"&S$;"4. TRANSFER THIS RECORD":S$;"5. GENERATE A NEW CHARACTER"0S$;"6. UPDATE RECORD AN0 9050!  /// MAIN MENU UP0::FULL0Ģ8:" THE DIMENSIONED ARRAYS ARE FULL; THE CHARACTER ARRAYS ARE BEING SAVED TO DISK. RERUN THE PROGRAM TO CONTINUE.":9000':17);"EAMON"::" CHARACTER FILE MAINTENANCE":6:S$;" CHAJ,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I):9 I:D$N 216,0:NC0510X :10 " THE CHARACTERS FILE IS EMPTY." :S$;" YOUR ONLY OPTION IS TO":S$;" GENERATE A NEW CHARACTER. ::S$;:" DO YOU WISH TO DO THIS?";A$:A$"Y"800330 @HD(I)! JAG(I):CH(I)K TJ14:SA%(J,I)::J15:WA%(J,I): ^AE(I):SEX$(I):SEX$(I)"M"SEX$(I)"F"SEX$(I)""380 hD$:D$;"READ CHARACTERS,R";I:NA$(I):DD$(I) rNA$(I)"(DEAD)":320 |GOLD(I):BANK(I):AC(I). J14:WN$())));2AG(C)WA%(WT%(I,C),C)WO%(I,C);"%">*:SUB2SUB0:G*720_*AU1CNCAU0:C0n*AU11300*SUB1SUB0:*510*p /// FILE MAINTENANCE *z:8:" SELECT ACTION:":=+S$;"1. LIST FILE":S$;"2. SHORT LIST":S$;"3. COND"WEAPON INFORMATION:"G)" NAME TYPE CMPLX DMG ODDS";R)I14)WN$(I,C);18(WN$(I,C)));WT%(I,C);6((WO%(I,C))));WO%(I,C);"%";)*7((WD%(I,C))"D"(WS%(I,C))));WD%(I,C);"D";WS%(I,C);5((2AG(C)WA%(WT%(I,C),C)WO%(I,C:30:WA%(5,C)((A$"NONE"@(2AC(C)1A$"SHIELD ONLY":5220`(<AC(C)1A$"LEATHER ARMOR"~(FAC(C)3A$"CHAIN ARMOR"(PAC(C)5A$"PLATE ARMOR"(Z(AC(C)2)AC(C)2A$A$" & SHIELD"(d:"ARMOR: ";A$(n" EXPERTISE: ";AE(C);"%")x:1:"1.AXE:";:30:WA%(1,C)V'" BLAST:";:12:SA%(1,C);:21:"2.BOW:";:30:WA%(2,C)' " HEAL:";:12:SA%(2,C);:21:"3.CLUB:";:30:WA%(3,C)'" SPEED:";:12:SA%(3,C);:21:"4.SPEAR:";:30:WA%(4,C)(" SPEED:";:12:SA%(4,C);:21:"5.SWORD:";:SEX$(C)"M"ĺ"MALE";2&SEX$(C)"F"ĺ"FEMALE";C&20:"GOLD:"{&"HARDINESS:";:12:HD(C);:21:"IN HAND: ";GOLD(C)&"AGILITY:";:12:AG(C);:21:"IN BANK: ";BANK(C)&"CHARM:";:12:CH(C)&20:"WEAPON ABILITY:"'"SPELL ABILITY:";:21NC:NA$(I)NA$(0)ĂZ%NA$(I)NA$(0)ĺ:" THAT NAME IS ALREADY BEING USED.":720:%NCNC1:CNC:ADD1:UP(C)1:NCFULLFULL0%4610% /// DISPLAY CHARACTER %:"RECORD #: ";:SUB1ĺC1;%SUB0ĺC;%15:"NAME: ";NA$(C)&WT%(I,0):WO%(I,C)WO%(I,0):WD%(I,C)WD%(I,0):WS%(I,C)WS%(I,0):R$ DD$(C)DD$(0)i$*UP1UP(C)1:UP0t$4:510$FULL0ĺ:"THE DIMENSIONED ARRAYS ARE FULL. YOU MAY NOT ADD A CHARACTER TO THIS FILE UNTIL THE PROGRAM IS RERUN.":720:%I000:CC1:!# /// CHANGE ARRAY#NA$(C)NA$(0):SEX$(C)SEX$(0):GOLD(C)GOLD(0):BANK(C)BANK(0):HD(C)HD(0):AG(C)AG(0):CH(C)CH(0)# I14:SA%(I,C)SA%(I,0)::I15:WA%(I,C)WA%(I,0):@$AE(C)AE(0):AC(C)AC(0):I14:WN$(I,C)WN$(I,0):WT%(I,C)EAR":S$;"5. SWORD")":WT%(W,0):4260N"UP1:"NEW TYPE:";WT%(W,0):4260s"UP1:"NEW ODDS:";WO%(W,0):4260"UP1:"NEW DICE:";WD%(W,0):4260"UP1:"NEW SIDES:";WS%(W,0):4260"WW1:W4260,4260,4260,4260,4380" #0C1C:C0:SUB1:5D%(W,0):S$;"5. SIDES",WS%(W,0)`!S$;"6. NEXT WEAPON":S$;"7. RETURN TO WEAPON MENU":X7:600!:S4290,4300,4340,4350,4360,4370,4200!UP1:"NEW NAME:";WN$(W,0):4260!UP1:"NEW TYPE:"":S$;"1. AXE":S$;"2. BOW":S$;"3. CLUB":S$;"4. SPG(0)WA%(I,0)WO%(I,0))));2AG(0)WA%(I,0)WO%(I,0);"%"= t "-----------------":"5. RETURN TO MENU":X5:600 WS::S5ı!" SELECT FIELD TO CHANGE:"::S$;"1. NAME",WN$(W,0):S$;"2. TYPE",WT%(W,0):S$;"3. COMP.",WO%(W,0):S$;"4. DICE",W1:AE(0)X:hh:8:"SELECT WEAPON TO CHANGE:"::" NAME TYPE CMPLX DMG ODDS";::I14rI;".";WN$(I,0);16(WN$(I,0)));WT%(I,0);6((WO%(I,0))));WO%(I,0);"%";7 |7((WD%(I,0))"D"(WS%(I,0))));WD%(I,0);"D";WS%(I,0);5((2A(X)ĺ:"INVALID AMOUNT.":38101GOLD(0)X:~"HOW MUCH IN BANK:";X:X0X50000X(X)ĺ::"INVALID AMOUNT.":3830BANK(0)X::"OLD ARMOR EXPERTISE:";AE(0):"NEW ARMOR EXPERTISE:";X:X0X99ĺ:"INVALID EXPERTISE.":X0:4000 UPX: ";SEX$(0)H"NEW SEX: ";X$:X$"M"X$"F"ĺ:"INVALID SEX":3600^$UP1:SEX$(0)X$:UP1::8:"SELECT ONE:"::S$;"1. GOLD IN HAND",GOLD(0):S$;"2. GOLD IN BANK",BANK(0):X2:600::S3810,3830!"HOW MUCH GOLD IN HAND:";X:X0X50000XSS:"::S$;"1. SHIELD ONLY":S$;"2. LEATHER ARMOR":S$;"3. LEATHER ARMOR & SHIELD":S$;"4. CHAIN ARMOR"R S$;"5. CHAIN ARMOR & SHIELD":S$;"6. PLATE ARMOR":S$;"7. PLATE ARMOR & SHIELD"\ :S$;"(CURRENTLY ";AC(0);")":X7:600:AC(0)S: :"OLD SENEW AXE EXPERTISE:";WA%(1,0):3200P UP1:"NEW BOW EXPERTISE:";WA%(2,0):3200 UP1:"NEW CLUB EXPERTISE:";WA%(3,0):3200 UP1:"NEW SPEAR EXPERTISE:";WA%(4,0):3200 UP1:"NEW SWORD EXPERTISE:";WA%(5,0):3200 gH UP1::" ARMOR CLA#J14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I)::D$F:#_:' ///ONERR ROUTINE h:'768:$'NC1(222)5NC0:410:.'D$;"CLOSE":8'D$;"OPEN CHARACTERS,L150":B'400I ":7 SPACES:10) " INSERT MASTER DISKETT END OF PROGRAM ***"::29# /// WRITE RECORD Q9#D$;"OPEN CHARACTERS,L150"o9#D$"WRITE CHARACTERS,R";I9#DD$(I)""NA$(I)""9#NA$(I):HD(I):AG(I):CH(I):J14:SA%(J,I)::J15:WA%(J,I):9#AE(I):SEX$(I):GOLD(I):BANK(I):AC(I)@::WO%(I,0)0:WS%(I,0)0:&8hAE0:AC0U8rADD1:NCNC1:CNC:UP(C)1:NCFULLFULL0m8|NA$(C)NA$(0):20008(# /// QUIT ROUTINE 82#D$;"CLOSE"8<#I1NC:UP(I)1İ91108F#8P#ADDĺD$"WRITE CHARACTERS,R0":NC:D$:9Z#D$;"CLOSE":20:8:"*** AD CHARACTERS,R";J:N$:S$;J;". ";N$::D$:7080O7@ // GENERATE NEW RECORD w7J:"NAME OF NEW CHARACTER: ";NA$(0)7THD(0)0:AG(0)0:CH(0)0:I15:WA%(I,0)0:8^I14:SA%(I,0)0::GOLD(0)0:BANK(0)0:I14:WN$(I,0)"NONE":WT%(I,0)0:WD%(I,0)0KETTE AND PRESS":16:"ANY KEY":A$:H6D$"OPEN CHARACTERS,L150":510r6J1C2:D$;"READ CHARACTERS,R";J:N$6NA$(C)N$IJĺD$:(7):"THE CHARACTER NAME ";NA$(C):"ALREADY EXISTS IN THIS FILE IN RECORD ";J::70806(:07x:J1C2:D$;"RE70805D$:7700:753015L/// REPLACE BY REC#5VD$::10:"RECORD #:";I:I(I)IC2I1ĺD$::"THE HIGHEST RECORD IN THIS FILE IS ";C2:70805`77005j91205t:18:"DONE."::7205/// RETURN%6D$"CLOSE"::5:" INSERT ORIGINAL DISRz4:" SELECT METHOD:":S$;"1. REPLACE BY NAME":S$;"2. REPLACE BY RECORD #":S$;"3. RETURN TO FIRST MENU":X3:6004S7400,7500,70804:10:"NAME:";N1$5I1C2:D$"READ CHARACTERS,R";I:N2$:N2$N1$Ă:D$::"I DON'T FIND THAT NAME.": NEW":S$;"2. REPLACE EXISTING CHARACTER":S$;"3. LIST CHARACTERS IN THIS FILE":S$;"4. RETURN TO MAIN MENU":X4:6003S7200,7300,7800,76003 /// ADD NEW CHARACTER3*IC21:770034D$"WRITE CHARACTERS,R0":I:IC:75304/// REPLACE CHARACTEE DISK IT IS TO BE TRANSFERED TO, AND PRESS 'C'."k2:"HIT ANY OTHER KEY TO RETURN TO THE MAIN MENU.":2A$::A$"C"5102D$"CLOSE":D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":C2:D$u3:" SELECT ACTION:":S$;"1. ADD CHARACTER ASNE WILL MOVE AN ADVENTURER FROM ONE DISKETTE/FILE TO ANOTHER. THE CHARACTER MUST BE LOADED WHEN THIS FUNCTION IS EXECUTED."1v:"THE CHARACTER NOW LOADED IS:"::(40(NA$(C)))2:NA$(C)22:"IF THE CHARACTER IS ALREADY LOADED, INSERT THI0:8:"SHORT LIST:"::S$;"REC # NAME";:S$""Ė20:"OLD NAME";0::I1NC:S$;" ";I;".";:8(S$):NA$(I);:DD$(I)""Ė21:"(?)";DD$(I);0:0S$" ":720:60000X /// MOVE CHARACTER 0bC0SUB1:10001l:"THIS ROUTI":NC3/ZD$;"WRITE CHARACTERS,R1"::D$:NC0:410M//// CHAR LIST/DELETE[/:I1NC|/:"RECORD #";I;": ";NA$(I)/" KEEP THIS RECORD?";:A$:A$:A$"N"NA$(I)"":UP(I)1//6000//// SHORT LIST/I1NC:DD$(I)""S$""0HARACTER ON THIS DISK!!!"l.(::" DO YOU WANT TO DELETE ALL THE":" CHARACTERS ON THIS DISK? ";A$.2A$"Y"ĺ::13:"ARE YOU SURE? ";A$.<A$"Y"6000.FD$;"DELETE CHARACTERS"/PNC1:D$;"OPEN CHARACTERS,L150":D$;"WRITE CHARACTERS,R0K,J)WO%(K,J1):WD%(K,J)WD%(K,J1):WS%(K,J)WS%(K,J1):H-UP(J)1:JZ-NCNC1:ADD1-I:::16)"DONE":I1500:I:6000-/// INIT FILE- :6:16::"WARNING":-I13:(7);:.::" THIS SUBROUTINE WILL DELETE EVERY C$(J1):SEX$(J)SEX$(J1):GOLD(J)GOLD(J1):BANK(J)BANK(J1):HD(J)HD(J1):AG(J)AG(J1):CH(J)CH(J1),`K14:SA%(K,J)SA%(K,J1):,jK15:WA%(K,J)WA%(K,J1):,tAC(J)AC(J1):AE(J)AE(J1)9-~K14:WN$(K,J)WN$(K,J1):WT%(K,J)WT%(K,J1):WO%(ENSE FILE":S$;"4. INIT FILE":S$;"5. LIST/DELETE CHARACTERS"g+S$;"6. RETURN TO MAIN MENU":X6:600+S6100,6800,6200,6400,6600,510+///LIST FILE+AU1:C0:1300+8/// CONDENSE FILE+BI1NC+LNA$(I)""6300f,VJINC1:NA$(J)NA     RETURN TO QUIT"; C$) C$"C"1500= x(1155)3000W ::(4);"CATALOG":q A$"APPLE ][ AND AAA"} X112 1:X1:A$; X:" ";:Z125:Z:X  :X121:X:25:A$ Z150:Z:X:W LAS VEGAS NV 89121 K, RECOPIED WITH"> R"ANY VOLUME YOU CHOOSE FROM OUR PUBLIC"i "DOMAIN LIBRARY, WITH MANY THANKS.":r 150 10:"AAA COMPUTER PRODUCTS" L13:"721 PIKE STREET" 7:"CHEYENNE * WY * USA * 82009": 255 2:"PRESS C FOR CATALOG OR M?":0 &"MAYBE YOU EVEN TOOK LOTS OF TIME TO"\ X"REWRITE A PROGRAM FROM END TO END?": "WE WOULD LIKE TO HARVEST YOUR ";Q$;"IMPROVED";Q$;"PROGRAMS FOR OTHERS TO ENJOY AND USE." 6:"-- PLEASE, SEND 3A A COPY --": "WE'LL RETURN YOUR DIS------------------  ( n::5 xQ$(34)N (1155)İ2000::W ,2: " AN INVITATION FOR APPLE PROGRAMMERS " : "PERHAPS YOU FOUND SOME ";Q$;"FAULTY";Q$;" PUBLIC" "DOMAIN PROGRAMS ON THIS DISK AND YOU" "FIXED THE3A MESSAGE+BY RON MALEIKA13A COMPUTER PRODUCTS 721 PIKE STREET CHEYENNE WY USA 82009 --------------------- MODIFIED FOR AAA BY PAUL RAYMER OF LAS VEGAS NV 89121 ""100 <10:L1(N$), FC((N$,L,1))A P:C32Ğ:CC64P Z(C);::d d:RECREC1:50t nD$;"CLOSE"DvEAMON CHARACTER NAMES"6AUTHOR UNKNOWN<H D$(4)gD$;"OPEN CHARACTERS,L150"qREC1{(110-::"** NAMES OF CHARACTERS CURRENTLY FILED.":" CONTROL CHARACTERS IN INVERSE":2D$;"READ CHARACTERS,R";REC:N$ 7N$  CLOSE"I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4     * d::D$(4)),D$;"CATALOG"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         URE":D$;"CLOSE":$ dDV$"4.0":906 DV$"5.0":908DISPLAY VERSION*BY JOHN NELSON0< D$(4)p:"INSERT ADVENTURE AND PRESS A KEY...";:A$:y20#D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME"(ADV$2100<ND$F200PDV$ Z"THIS IS A VERSION ";DV$;" ADVENT" xD$;"OPEN EAMON.ROOMS,L64"X R1NR:D$;"READ EAMON.ROOMS,R";R:D16:RD%(D): D$;"WRITE EAMON.ROOMS,R";R:D16:RD%(D): X14:"0": :D$;"CLOSE" )E ...";:A$: (20K 2D$"OPEN EAMON.NAME":D$;"READ EAMON.NAME":ADV$g <D$;"UNLOCK EAMON.NAME" FD$"WRITE EAMON.NAME":ADV$:"10":5 PD$;"CLOSE":D$;"UNLOCK EAMON.ROOMS" dD$;"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NR:D$;"CLOSE FIX TEN DIRECTION4 BY JOHN NELSON: CHANGES A DUNGEON FROM A SIX-DIRECTION TO A TEN-DIRECTION 2-14-84 D$(4) :6:"INSERT EAMON ADVENTURE AND PRESS ANY KEY":15);"TO CONTINU   COMPLETE... NO ERRORS FOUND."#,W"ERROR ";(222);" IN LINE #";(218)(219)256]A