' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` B H@Aﳈ  @A ਦ@A LL$ 鷎귭෍ᷩ췩緈JJJJx i L8ᷭ緍췩 i 8 `巬 췌`x (`(8`I`B` ``>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#01)*#;?;/4>:(+02&<#)#0*Eb ;1h  !"`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ƥ LꢭɛL`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\޼e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ 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̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &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ȿõ` F`  \ 濭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`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUTYP!pppp p p p p`" t""#x"p0p@p@@@p@!y q q t@  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-(U ΠҠ@跻~!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 ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8DH ؿ 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뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵ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 ~(` F d֠ĭz#((A$))ĺ:"INVALID AMOUNT.":1500:2160=+zBANK(A$):1710+8:958:8);"CURRENT ARMOUR CLASS":8);::AC$(AC)::8);"SELECT NEW ARMOUR CLASS:"+X17:10);X;". "AC$(X):+X7:1100:ACS:1710+ >>> CANCEL CHANGES ,ADDADD0:UP0: IN HAND",GOLD:8);" 2. GOLD IN BANK",BANK:X2:1100:S2140,2160*\8:958:"HOW MUCH GOLD:";A$:(A$)0(A$)XG(A$)((A$))ĺ:"INVALID GOLD.":1500:2140*fGOLD(A$):1710(+p8:958:8);:"HOW MUCH IN BANK:";A$:(A$)0(A$)XG(A$):"NEW ARMOR EXPERTISE:";A$:(A$)90(A$)XAEĺ"INVALID EXPERTISE.":1500:2090e)4AE(A$):1710)>SEX$"M"SEX$"F":8:958:"SEX CHANGED TO FEMALE":1500:1710)HSEX$"M":8:958:"SEX CHANGED TO MALE.":1500:1710B*R8:958:8);" 1. GOLD((A$))WA%(3)(A$)(1710t(8:958:8);:"NEW SPEAR EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(4)(A$)~( 1710(8:958:8);:"NEW SWORD EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(5)(A$)( 1710R)*8:958:"OLD ARMOUR EXP:";AE70,1690Z'8:958:8);:"NEW AXE EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(1)(A$)d'1710'8:958:8);:"NEW BOW EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(2)(A$)'1710(8:958:8);:"NEW MACE EXPERTISE:";A$:(A$)XW(A$)(SA$)&1710i&8:958:"NEW POWER RATING:";SA$:(SA$)XM(SA$)0(SA$)((SA$))SA%(4)(SA$)s&1710&8:958:8);"SELECT WEAPON ABILITY:"&X15:10);X;". ";WT$(X),WA%(X)::10);"6. RETURN":X6:1100'S1990,2010,2030,2050,20TING:";SA$:(SA$)XM(SA$)0(SA$)((SA$))SA%(1)(SA$)H%b1710%l8:958:"NEW HEAL RATING:";SA$:(SA$)XM(SA$)0(SA$)((SA$))SA%(2)(SA$)%v1710&8:958:"NEW SPEED RATING:";SA$:(SA$)XM(SA$)0(SA$)((SA$))SA%(3)WA%(WTYPE%(I));"%"IM24::"PRESS ANY KEY TO CONTINUE ";::A$::aRECREC1:1110s:DK$;"PR#0""12:13:"END OF PROGRAM",22: "NAME COMPLEXITY DAM ODDS"1 " "< I14W WNAME$(I)"NONE"1530 WNAME$(I);17(WNAME$(I)));WODDS%(I);"%";6(WODDS%(I)0)((WOODS%(I))9)((WODDS%(I))99));WDICE%(I);"D";WSIDES%(I);3(WSIDES%(I)9));WODDS%(I)2AGEA10);"SWORD ";WA%(5) d" "M n"ARMOUR: ";:(AC2)11400,1410,1420,1430` x"SKIN";:1440v "LEATHER";:1440 "CHAIN";:1440 "PLATE";:1440 (" AND SHIELD",110(AC2(AC2)));" AE=";AE;"%" " " "WEAPON INFORMATION:"( AGILITY ";AG;" CHARISMA ";CH) (" "D 213);"SPELL ABILITY" <"BLAST ";SA%(1);" HEAL ";SA%(2);" SPEED ";SA%(3);" POWER ";SA%(4) F" ":13);"WEAPON ABILITY" P"AXE ";WA%(1);9);"BOW ";WA%(2);9);"CLUB ";WA%(3) Z4);"SPEAR ";WA%(4);"H EA5(AC2(AC2)):AC1EAEA10:AC3EAEA10:AC5EAEA40` EAEAAE:EA0EA0s NAME$""1550 :(12); "CHARACTER NAME: ";NAME$ " " "SEX ";SEX$;3);"GOLD ";GOLD;3);" IN BANK ";BANK " " "HARDINESS ";HD;" CHARACTERS,L150"1 `DK$;"READ CHARACTERS,R";RECK jNAME$:NAME$""1550Y tHD,AG,CHo ~X14:SA%(X):X X15:WA%(X):X AE SEX$ GOLD,BANK AC X14:WNAME$(X),WTYPE%(X),WOODS%(X),WDICE%(X),WSIDES%(X):X DK$;"CLOSE EAMON IS A CREATION3 OF DONALD BROWN9S DISPLAY CHARACTERSo BY ANDY C. ANDREWSu$1560.:811:11:"DISPLAY CHARACTERS":12:11:"BY ANDY C. ANDREWS"BDK$(4):REC1L ONERR GOTO 160 VDK$;"OPEN      :"INVALID CHARISMA.":1500:18404$:CH(A$):1710$D8:958:8);"SELECT SPELL:":8);" 1. BLAST",SA%(1):8);" 2. HEAL",SA%(2)$N8);" 3. SPEED",SA%(3):8);" 4. POWER",SA%(4):X4:1100:S1880,1900,1920,1940>%X8:958:8);:"NEW BLAST RA#HD(A$):1710#8:958:"OLD AGILITY:";AG:8);:"NEW AGILITY:";A$:(A$)3(A$)X2(A$)((A$))ĺ:"INVALID AGILITY.":1500:1820#&AG(A$):1710!$08:958:"OLD CHARISMA:";CH:8);:"NEW CHARISMA:";A$:(A$)3(A$)X3(A$)((A$))ĺS12UP1W"S1790,1800,1820,1840,1860,1960,2090,2110,2130,2180,2240,2610,1030,2210{"8:958:"NEW NAME:";NA$:1710"8:958:"OLD HARDINESS:";HD:8);:"NEW HARDINESS:";A$:(A$)3(A$)X3(A$)((A$))ĺ:"INVALID HARDINESS.":1500:1800ANGE":8);" 9. GOLD":8);" 10. ARMOUR CLASS":8);" 11. WEAPON CHANGE"!8);" 12. DISPLAY RECORD":8);" 13. RETURN TO MAIN MENU":8);" 14. CANCEL CHANGES"!8);"INPUT (1-14)";:":";A$:(A$)14(A$)1(A$)((A$))Ģ(37):1760 "S(A$):A$)8))2));"CHANGING ";NA$ 8:8);"INPUT FIELD TO CHANGE:":8);" 1. NAME":8);" 2. HARDINESS":8);" 3. AGILITY":8);" 4. CHARISMA" 8);" 5. SPELL ABILITIES":8);" 6. WEAPON ABILITIES":8);" 7. ARMOUR EXPERTISE"I!8);" 8. SEX CHREAD NEXT RECORDA|CC1:CNCĺ"END OF FILE.":CNC:1470:1030Y1140:MO$"A"2610c1030| /// UPDATE ROUTINEC0ĺ"NO CHARACTER IN MEMORY.":1470:1030 :" EAMON CHARACTER CHANGE PROGRAM":14);"BY JOHN NELSON":5:((40((N16384)255ĂX 16368,0:, 16368,0G K(16384):K128180U 16368,0e K1771000u K1782000 K1793000 K1804000 K1815000 K182ĺDK$;"RUN THE WONDERFUL WORLD OF EAMON": 180ER DISPLAY"+ F5)"(2) CHARACTER CREATOR"K P5)"(3) CHARACTER DELETOR"o Z5)"(4) CHARACTER RESSURECTOR" d5)"(5) CHARACTER CONDENSOR" n::5)"(6) CONTINUE WITH PROGRAM" xY1170 // THIS REMOVES PICTURE // Y1 X1500:( :DK$(4):Y0TDK$;"BLOAD EAMON.PIC,A$2000":16304,0:16297,0:16302,0Z(BD$"........................................"2BD$;:9:"EAMON UTILITY MASTER":10:"BY ANDY C. ANDREWS":BD$:34,5:16:BD$:35,15 <::5)"(1) CHARACTWNAME$(I);17(WNAME$(I)));WODDS%(I);"%";6(WODDS%(I)0)((WOODS%(I))9)((WODDS%(I))99));WDICE%(I);"D";WSIDES%(I);3(WSIDES%(I)9));WODDS%(I)2AGEAWA%(WTYPE%(I));"%"I 23::"PRESS ANY KEY TO CONTINUE "::16368,0K(1SKIN";:680 "LEATHER";:6803"CHAIN";:680F"PLATE";:680(" AND SHIELD",110(AC2(AC2)));" AE=";AE;"%"" ""WEAPON INFORMATION:""NAME COMPLEXITY DAM ODDS"" "I14WNAME$(I)"NONE"770| ";SA%(1);" HEAL ";SA%(2);" SPEED ";SA%(3);" POWER ";SA%(4)^N" ":13);"WEAPON ABILITY"X"AXE ";WA%(1);9);"BOW ";WA%(2);9);"CLUB ";WA%(3)b4);"SPEAR ";WA%(4);10);"SWORD ";WA%(5)l" "v"ARMOUR: ";:(AC2)1640,650,660,670 "EAAE:EA0EA0# NAME$""8301 :(12);O "CHARACTER NAME: ";NAME$X " " "SEX ";SEX$;3);"GOLD ";GOLD;3);" IN BANK ";BANK " " &"HARDINESS ";HD;" AGILITY ";AG;" CHARISMA ";CH 0" " :13);"SPELL ABILITY">D"BLASTHD,AG,CH X14:SA%(X):X6 X15:WA%(X):X> AEH SEX$W GOLD,BANK_ AC X14:WNAME$(X),WTYPE%(X),WOODS%(X),WDICE%(X),WSIDES%(X):X DK$;"CLOSE" EA5(AC2(AC2)):AC1EAEA10:AC3EAEA10:AC5EAEA40 EA  DISPLAY CHARACTERS7 " BY ANDY C. ANDREWS = ,G 6840O @: J11:11:"DISPLAY CHARACTERS":12:11:"BY ANDY C. ANDREWS" TDK$(4):REC1 ^DK$;"OPEN CHARACTERS,L150" hDK$;"READ CHARACTERS,R";REC rNAME$:NAME$""830 |R.";:D$;"CLOSE":A$::C0:1030C6D$"CLOSE":1140:MO$"A"2610M@1030J11:958:8);:"RECORD NUMBER:";C$:(C$)1(C$)((C$))1610TC(C$):CNCĺ"THERE AREN'T THAT MANY!":X1500:X:1610^1140:MO$"A"2610h1030r /// CORD NUMBER":8);" 3. NEXT RECORD":X3:1100DS1550,1610,1650X /// FIND NAME11:958:8);:"CHARACTER NAME:";NAME$"D$"OPEN CHARACTERS,L150" ,C1NC:D$"READ CHARACTERS,R";C:FINM$:FINM$NAME$Ă:8);"I CAN'T FIND THAT CHARACTE:WSIDES%(X):D$2UP0:ADD0:D$"CLOSE":H >>> STOP SCREEN|:7);"PRESS ANY KEY TO CONTINUE";7);::A$:X1700:X: /// SELECT RECORDUPİ1400.11:958:8);"SELECT RECORD BY:":8);" 1. NAME":8);" 2. REACTERS,R";C:X$:NA$$n1170:1030;x /// WRITE RECORDsD$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R";CNAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X):AE:SEX$:GOLD:BANK:ACX14:WNAME$(X):WTYP%(X):WODDS%(X):WDICE%(X)%(X)0:WD%(X)0:WS%(X)0:WO%(X)0:N2NA$"BADREC":AE0:SEX$"M":1400:1030^< READ DEADF:"DO YOU WANT TO TREAT THIS AS A DEAD":" CHARACTER?";PA$:A$"Y"A$"N"1360ZA$:A$"N"C0:1030dD$"OPEN CHARACTERS,L150":D$"READ CHARECTED READING RECORD ";C:D"DO YOU WANT THIS RECORD REPLACED?";b A$:A$"Y"A$"N"1290wA$:A$"N"1340HD16: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:SA%(X)::X15:WA%(X):9AE:SEX$:GOLD:BANK:ACX14:WNAME$(X):WTYPE%(X):WODDS%(X):WDICE%(X):WSIDES%(X)::D$;"CLOSE" >> ERROR ON READD$:216,0:"ERROR ";(222);" AT LINE ";(218)(219)256;"."D$::"AN ERROR WAS DETHD:AG:CH:X14:SA%(X)::X15:WA%(X):JAE:SEX$:GOLD:BANK:ACX14:WNAME$(X):WTYPE%(X):WODDS%(X):WDICE%(X):WSIDES%(X)::D$216,0:D$"CLOSE":D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R";C:NAME$HD:AG:CH:X14 NUMBER$V8);"INPUT (1-";X;"):";B`S$:(S$)1(S$)X1120TjS$:S(S$):jt /// READ RECORDu~1250UP0:D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R";C:NAME$: IF NA$ = "" THEN C = 0: PRINT D$;"CLOSE": POKE 216,0: RETURN ,ECORD":8);" 2. UPDATE RECORD":8);" 3. DISPLAY RECORD":8);" 4. SELECT MODE":8);" 5. GO ON AN ADVENTURE"88);" 6. ADD A RECORD":8);" 7. MAKE A CLONE":8);" 8. QUIT":X8:1100BS1510,1690,2610,2840,3170,3320,3150,3540L /// GET":11);"BY ANDY C. ANDREWS":X139:"=";:l:"RECORD ";C;" IS IN MEMORY.... OF ";NC:" NAME = ";NA$:(" ADDING",(ADD1)61,6);" ";(" UPDATED",(UP1)71,7):X139:"=";::$11:8);"SELECT ACTION:"r.8);" 1. SELECT RE 1011,0: POKE 1012,0: POKE 1013,0" INSERT DISKETTE CONTAINING CHARACTERS "::3);"AND PRESS ANY KEY TO CONTINUE ...";:A$:D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$;"CLOSE"216,0,:17);"EAMON":12);"CHARACTER EDITORWT$(X)::X07:AC$(X):gD$(4)::X1999:X2999:X3999:XW100:XM500:XD50:XS90:XAE100:XG10000 X1=MAX HD X2=MAX AG X3=MAX CH XW=MAX WEAP ABIL XM=MAX SPELL ABIL XD=MAX DICE XS=MAX SIDES XAE=MAX AE XG=MAX GOLD ":6: : POKE 1010,0: POKōōōō΍͍ҧӠčōō ZZ1:Z1ī1804 X1500:(16384)255ĂXD 16368,0:_ K(16384):K128190m 16368,0| K177250 K178870 K179ĺDK$;"RUN THE WONDERFUL WORLD OF EAMON": 190 EAMON IS A CREATION  OF DONALD BROWN 1500:(16384)255ĂX) n16368,0:= xDK$;"RUN MENU"10:"BY ANDY C. ANDREWS":BD$:34,5:16:BD$:35,15 x::5)"(1) CHARACTER DISPLAY" :5)"(2) CHARACTER EDITOR" :5)"(3) CONTINUE WITH PROGRAM" // THIS REMOVES PICTURE //HER & SHIELD,CHAIN MAIL,CHAIN & SHIELD,PLATE,PLATE & SHIELD? (Y OR N):";+EA$:A$"Y"A$"N"3600?EA$:A$"N"ī30E$D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":1:D$"WRITE CHARACTERS,R1":"":"OBODY":X153:0::E.D$"CLOSE":970;F8 AXE,BOW,MACE,SPEAR,SWORD,NONE,SHIELD ONLY,LEATHER,LEATCLOSE":1400KD X14:WN$(X)"NONE":WT%(X)0:WD%(X)0:WS%(X)0:WO%(X)0:QD WD nD /// QUIT ROUTINE|D UPİ1400D D$"CLOSE":30D ERROR ROUTINED 216,0:D$ E:"THERE IS NO CHARACTER FILE ON THIS DISK.":"DO YOU WANT TO CREATE ONE0:WA%(5)40Cz 3480]C HD24:AG24:CH24:WA%(1)70:WA%(2)70:WA%(3)70:WA%(4)60:WA%(5)60gC 3480C X15:SA%(X)0::GOLD300:BANK0:NWİ3510C AE(S1)20:CNC1:NCNC1:SEX$"M" D D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":C:D$;"0,3440,3460B> 1030_BH HD10:AG10:CH10:AC0:WA%(1)5:WA%(2)0:WA%(3)20:WA%(4)10:WA%(5)0iBR 3480B\ HD16:AG16:CH16:AC2:WA%(1)8:WA%(2)4:WA%(3)40:WA%(4)14:WA%(5)10Bf 3480 Cp HD22:AG22:CH22:AC4:WA%(1)20:WA%(2)20:WA%(3)50:WA%(4)2 >>> ADD A RECORD!A UPİ1400nA :11);"CREATE A CHARACTER":8:958:8);"SELECT GENERAL POWER LEVEL:"A " 1. WEAK CHARACTER":" 2. AVERAGE NORMAL":" 3. HIGH CHARACTER":" 4. SUPER CHARACTER"A X4:1100A* :"NAME:";NA$ B4 S3400,342D$"WRITE FRESH MEAT":C:2@ 1420:D$"RUN ";DNG$I@ >>> INSTRUCTIONS@ :"YOU ARE ABOUT TO TRANSFER ";NA$:"TO AN ADVENTURE."@ :"PRESS 'C' TO CONTINUE TO ADVENTURE"::"OR ANY OTHER KEY TO RETURN TO MENU.";:A$:@ A$"C"ı@ :1010A ?v UPİ1400? D$"CLOSE"q? 3270::6:" INSERT ADVENTURE TO TEST AND PRESS":" ANY KEY":A$:|? 3210? D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":DNG$? :5:"YOU ARE ABOUT TO ADVENTURE IN":::DNG$:@ D$"OPEN FRESH MEAT":Ġҍ͍ōōōōĠҍ͍ųҍƍ͍ōōōō   $"READ CHARACTERS,R0":NC:D$:1030U>N C0ĺ:"NO CHARACTER IN MEMORY.":1500:1030>X NCNC1:CNC:D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":NC:D$"CLOSE":1400:1030>b >>> WRITE FRESH MEAT?l C0ĺ"NO CHARACTER IN MEMORY.":1500:1030958:"RECORD #:";A$:(A$)((A$))(A$)C2(A$)13090D= 3070U=& >>> RETURN=0 C0ĺ"NO CHARACTER IN MEMORY.":1470:1030=: D$"CLOSE"::5:"INSERT ORIGINAL DISKETTE AND PRESS ANY"::" KEY":A$:#>D D$"OPEN CHARACTERS,L150":D":X2:1100< S3050,30805< 8:958:"NAME:";N$< R1NC:D$"READ CHARACTERS,R";R:N2$:D$:N2$N$Ă:"I DON'T FIND THAT NAME.":3030< C3C:CR:1400:CC3::"DONE.":"PRESS ANY KEY TO CONTINUE";:A$::3110< >>> REPLACE BY REC#:= 8:0; S3000,3020,31104; >>> ADD NEW CHARACTER; C2C21:C3C:CC2:1400:CC3:D$"WRITE CHARACTERS,R0":C2:D$:"DONE.":1470:3110; >>> REPLACE CHARACTER < 8:958:"SELECT METHOD":8);" 1. REPLACE BY NAME":8);" 2. REPLACE BY RECORD #Y KEY":A$:J: D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":C2:D$s: :12);"MOVING CHARACTER":8:958:; 8);"SELECT ACTION:":8);" 1. ADD CHARACTER AS NEW":8);" 2. REPLACE EXISTING CHARACTER":8);" 3. RETURN WITHOUT CHANGE":X3:110T BE IN MEMORY WHEN THIS ":"FUNCTION IS EXECUTED."9^ :"IF CHARACTER IS NOT IN MEMORY, RETURN":"TO THE PRIMARY MENU BY PRESSING 'R'"9h ":";A$:A$"R"10309r UPİ14009| D$"CLOSE" : :5:"INSERT RECEIVING DISKETTE":" AND PRESS AN;" 1. AUTOMATIC":8);" 2. MANUAL":8);" 3. MOVE CHARACTER":X3:1100_8, S2870,2880,2890q86 MO$"A":10308@ MO$"":10308J >>> MOVE CHARACTER39T :"THIS ROUTINE WILL MOVE AN ADVENTURER ":"FROM ONE DISKETTE/FILE TO ANOTHER.":"CHARACTER MUS(X))WO%(X))));2AGWA%(WT%(X))WO%(X)EA;"%"N7 X::HW0ĺ8);"(NONE)"::Z7 1470:k7 A$"U"17107 MO$"A"ĭUP1UP0:1400:16507 MO$"A"16507 S310307 17107 /// SELECT MODEI8" 13:958:8);"SELECT ACTIONS WANTED:":8)ME TYPE COMP DAM. ODDS":B6 EA10ACAE:EA0EA0R6 HW0:X146 WN$(X)"NONE"ĺWN$(X);18(WN$(X)));WT%(X);6((WO%(X))));WO%(X);"%";:HW1-7 WN$(X)"NONE"ĺ7((WD%(X))"D"(WS%(X))));WD%(X);"D";WS%(X);5((2AGWA%(WT%:";SA%(3);" POWER:";SA%(4)u5n :" WEAPON ABILITY":"AXE:"WA%(1);" BOW:";WA%(2);" MACE:";WA%(3)5x " SPEAR:";WA%(4);" SWORD:";WA%(5)5 A$AC$(AC)5 :"ARMOUR: ";A$;" AE=";AE;"%"5 :"WEAPON INFORMATION:"'6 "NA< C0ĺ"NO RECORD IN MEMORY.":1470:1030{4F :"NAME:";NAME$;" REC:";C::"SEX:";SEX$;" GOLD:";GOLD;" ";"BANK:";BANK4P :"HARDINESS:";HD;" AGILITY:";AG;" CHARISMA:";CH4Z 5d " SPELL ABILITY":"BLAST:";SA%(1);" HEAL:";SA%(2);" SPEED"WEAPON DICE:";A$:(A$)XD(A$)((A$))(A$)0ĺ"INVALID DICE.":1500:2570a3 WD%(W)(A$)3 12:958:8);:"NEW SIDES:";A$:(A$)XS(A$)((A$))(A$)0ĺ8);"INVALID SIDES.":1500:24703( WS%(W)(A$):224032 /// DISPLAY CHARACTER*4)::8);"INPUT # OF NEW TYPE:";<2 A$:A$"1"A$"5"2530z2 A$:WT%(W)(A$):9:868:8);"WEAPON TYPE:";WT$(WT%(W))2 10:958:8);:"WEAPON ODDS:";A$:(A$)100(A$)((A$))ĺ"INVALID ODDS.":1500:25502 WO%(W)(A$)P3 11:958:8);:2470+1 8);"INVALID SIDES.":1500:2470?1 >> ADD WEAPON1 8:958:8);:"WEAPON NAME:";A$:(A$)2(A$)20(A$,1)"A"(A$,1)"Z"ĺ"INVALID WEAPON NAME.":1500:25001 WN$(W)A$ 2 9:958:8);"SELECT TYPE:":X15:8);" ";X;". ";WT$(XS.":24000~ >> WEAP DICEt0 8:958:8);:"NEW DICE:";A$:(A$)XD(A$)((A$))(A$)0WD%(W)(A$):22400 8);"INVALID DICE":1500:24400 >> WEAP SIDES1 8:958:8);:"NEW SIDES:";A$:(A$)XS(A$)((A$))(A$)0WS%(W)(A$):58:8);"SELECT TYPE:":X15:8);" ";X;". ";WT$(X)::8);"INPUT # OF NEW TYPE:";p/L A$:A$"1"A$"5"2380/V A$:WT%(W)(A$):2240/` >> WEAP ODDS/j 8:958:8);:"NEW ODDS:";A$:(A$)100(A$)((A$))WO%(W)(A$):2240 0t "INVALID ODD END OF WEAPON CHANGE":X7:1100J. S2330,2360,2400,2430,2460,2490,1690]. >> WEAP NAME.$ 8:958:8);:"NEW NAME:";A$:(A$)2(A$)20(A$,1)"A"(A$,1)"Z"ĺ"INVALID WEAPON NAME.":1500:2340.. WN$(W)A$:2240.8 >> WEAP TYPET/B 8:9 1. NAME";38(WN$(W)));WN$(W)-8);" 2. TYPE";38(WT$(WT%(W))));WT$(WT%(W)):8);" 3. COMP.";38((WO%(W))));WO%(W)-8);" 4. DICE";38((WD%(W))));WD%(W):8);" 5. SIDES";38((WS%(W))));WS%(W) . 8);" 6. NEXT WEAPON":8);" 7.C0:1030,UP0:1140:10306, >>> WEAPON CHANGE,8:958:8);"SELECT WEAPON TO CHANGE:":X14:8);" ";X;". ";WN$(X)::8);" 5. RETURN":X5:1100,S51690,WS::WN$(W)"NONE"2490 -8:958:8);"SELECT FIELD TO CHANGE:":8);"((A$))ĺ:"INVALID AMOUNT.":1500:2160=+zBANK(A$):1710+8:958:8);"CURRENT ARMOUR CLASS":8);::AC$(AC)::8);"SELECT NEW ARMOUR CLASS:"+X17:10);X;". "AC$(X):+X7:1100:ACS:1710+ >>> CANCEL CHANGES ,ADDADD0:UP0: IN HAND",GOLD:8);" 2. GOLD IN BANK",BANK:X2:1100:S2140,2160*\8:958:"HOW MUCH GOLD:";A$:(A$)0(A$)XG(A$)((A$))ĺ:"INVALID GOLD.":1500:2140*fGOLD(A$):1710(+p8:958:8);:"HOW MUCH IN BANK:";A$:(A$)0(A$)XG(A$):"NEW ARMOR EXPERTISE:";A$:(A$)90(A$)XAEĺ"INVALID EXPERTISE.":1500:2090e)4AE(A$):1710)>SEX$"M"SEX$"F":8:958:"SEX CHANGED TO FEMALE":1500:1710)HSEX$"M":8:958:"SEX CHANGED TO MALE.":1500:1710B*R8:958:8);" 1. GOLD((A$))WA%(3)(A$)(1710t(8:958:8);:"NEW SPEAR EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(4)(A$)~( 1710(8:958:8);:"NEW SWORD EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(5)(A$)( 1710R)*8:958:"OLD ARMOUR EXP:";AE70,1690Z'8:958:8);:"NEW AXE EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(1)(A$)d'1710'8:958:8);:"NEW BOW EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(2)(A$)'1710(8:958:8);:"NEW MACE EXPERTISE:";A$:(A$)XW(A$)(SA$)&1710i&8:958:"NEW POWER RATING:";SA$:(SA$)XM(SA$)0(SA$)((SA$))SA%(4)(SA$)s&1710&8:958:8);"SELECT WEAPON ABILITY:"&X15:10);X;". ";WT$(X),WA%(X)::10);"6. RETURN":X6:1100'S1990,2010,2030,2050,20TING:";SA$:(SA$)XM(SA$)0(SA$)((SA$))SA%(1)(SA$)H%b1710%l8:958:"NEW HEAL RATING:";SA$:(SA$)XM(SA$)0(SA$)((SA$))SA%(2)(SA$)%v1710&8:958:"NEW SPEED RATING:";SA$:(SA$)XM(SA$)0(SA$)((SA$))SA%(3):"INVALID CHARISMA.":1500:18404$:CH(A$):1710$D8:958:8);"SELECT SPELL:":8);" 1. BLAST",SA%(1):8);" 2. HEAL",SA%(2)$N8);" 3. SPEED",SA%(3):8);" 4. POWER",SA%(4):X4:1100:S1880,1900,1920,1940>%X8:958:8);:"NEW BLAST RA#HD(A$):1710#8:958:"OLD AGILITY:";AG:8);:"NEW AGILITY:";A$:(A$)3(A$)X2(A$)((A$))ĺ:"INVALID AGILITY.":1500:1820#&AG(A$):1710!$08:958:"OLD CHARISMA:";CH:8);:"NEW CHARISMA:";A$:(A$)3(A$)X3(A$)((A$))ĺS12UP1W"S1790,1800,1820,1840,1860,1960,2090,2110,2130,2180,2240,2610,1030,2210{"8:958:"NEW NAME:";NA$:1710"8:958:"OLD HARDINESS:";HD:8);:"NEW HARDINESS:";A$:(A$)3(A$)X3(A$)((A$))ĺ:"INVALID HARDINESS.":1500:1800ANGE":8);" 9. GOLD":8);" 10. ARMOUR CLASS":8);" 11. WEAPON CHANGE"!8);" 12. DISPLAY RECORD":8);" 13. RETURN TO MAIN MENU":8);" 14. CANCEL CHANGES"!8);"INPUT (1-14)";:":";A$:(A$)14(A$)1(A$)((A$))Ģ(37):1760 "S(A$):A$)8))2));"CHANGING ";NA$ 8:8);"INPUT FIELD TO CHANGE:":8);" 1. NAME":8);" 2. HARDINESS":8);" 3. AGILITY":8);" 4. CHARISMA" 8);" 5. SPELL ABILITIES":8);" 6. WEAPON ABILITIES":8);" 7. ARMOUR EXPERTISE"I!8);" 8. SEX CHREAD NEXT RECORDA|CC1:CNCĺ"END OF FILE.":CNC:1470:1030Y1140:MO$"A"2610c1030| /// UPDATE ROUTINEC0ĺ"NO CHARACTER IN MEMORY.":1470:1030 :" EAMON CHARACTER CHANGE PROGRAM":14);"BY JOHN NELSON":5:((40((N Πůנ̍Πůנ̠ǠƠԍŠŧӠōΠůנ̠ȠԠÍΠůנ̠ȠĠÍŠōŠٍԭέΠĠů׍Πůנ̍ŠРƠٍŠ͠ƠٍΠԠ̍Ԡ̍ŠŠƠǠōΠԠ̍Ԡ̍ŠȠĠƠǠōΠԠ̍ΠȯȠōŠŠōˠȯȠ̍ŠԠŠҍŠҍŠԠŠҍԠ̍ŠȠĠƠǠō   ŠӠō ԍōˠԍΠԍΠԍԍȍÍ  ΠŠ͠ӠŠάǠĠԠҠ٠ŮŠӠΠԠӬĠӠǠ ΠŠҠԠϠͮŠӠՠĠӮԠҬŠӮͮ͠ՠŠΠà٠ǠŠӬϠӧϠŠŠ̠ȠŠРƠӠĮŠӠլӠӠĬĠӬŠϠŬΠǡΠŠ͠ӠŠƮԠӠР͠ŠԠӠǬĠӠӠǠנӮՠŠΠȠĠĠӠǠΠӠҮŠӠǠӠŠԠƠˠĠӠǠ٠٠ĠĮՠŠ̠̠ΠǠŠӮՠŠҠӠŠͧӠԭϭԠҮŠӠŠΠΠӠ ĠΠŠˠΠӠŮΠӠԠĠŠӠŮԭĠҠӠΠŠͬǠՠȠϠӠĠǠϠŠՠȠĮΠҠӠŠլĠǠĠĠǠĮΠӠĠӠҠȠӬɡɧ͠ȡŠӠŬ٬ǠĠ٠ΠŠ͠ȠաŠӠĠĠԠϠӠӠƠŠΧԠΠȠΠ٠өΠŠͮŠӠŠΠԠȠРŠȠšŠӠŠΠԠȠРŠȠšŠӠŠˠԠȠРŠȠš       Ӡՠ٠ŠħӠŬŠԠΠŠӠ͠ŠĮŠՠŠǠŠĠΠĠάՠŠŠΠŠ̠ŠĠǠҠӠƠοӠӠŮӠՠ٠ŠħӠŠũԠΠŠӠĠŠħӠŮӠŠŠӠĠӬŠΠӠĠӠϮӠŠŠӠĠԠՠΧԠŠԬԠΠŠӠŠŠƠӠĮӠՠȠŠԬԠ٠ӠŠĠϠӠŠƠŠŬǠՠԮҠŠӠ͠ŠРĠϠԠծՠŠŠĠ٠ƠŠŠήՠŠŠĠ٠ƠŠîՠŠŠĠ٠ƠŠƬӠ̠ԠӠ̠ΠĠŮՠŠŠĠ٠ƠŠŮǠˠƠĬԠԠӠ̬ҠȠ٠΢ӠĠΠŠҮĠ̠͠ԠŠĮԠŠЮŠԧӠŠӠΠŠҬӠŠΠΠçӠҮŠĠàӠΠӠ ΠŠҮ z        ȧӠΠ٠ӠΠŠҭՠΠ̠ŠŠҠǬɬɧ͠ȡŠ٠ŠƠŠӠŢĠΠŠĮŠԧӠ٠ӠΠŠҮŢŠӠĠΠԠŮӠŮŠӠĠΠԠŮŠӠĠˠԠŮՠŠŠŠΧӠ®ԧӠŠƠĬĠȠΠӮŠçӠĠӠŮԧӠΠĬԠĠƠԠԠŠЮŠӠΠ٠ŠŮŠӠŠԠΠŠҠƠŠͮŠӠŠŠƠӠšŠӠ̠ĠŠȠŠǠΠŠŮΠΠŠŠӠŠŬŧŠӠΠĠˠŮԠӠΠŠӠĠӠ٠̠ĮŠŠ̠ŠӠŮŠӠȠ٠ӠŠŮŠӠΠĠĠǠŮŠŠĠӠšŠӠҠ٠ӠĠŮŠӠŠŠȠŠΠšŠӠĠӠŠŮŠӠŠƠӠšՠŠΠ̠ٮӠŠҠŻŠ٠ԠӠˠϠŠ̠ΠŠԮϠŠԠӠŠŠˠƠŠӠΠĠԮՠŠΠΠԯԠ̮ՠԠϠŠԬĠ̠̠ĠǠ͠ŮΠŠĠՠԠƠԮՠŠΠΠԯԠ̮͠ԠΠŠΠΠȠӮՠŠԠŠ͠ƠԠƠԠΠŠΠРԠŠРƠӬĠ٠͠ԠΠŠΠŠ̠ϠŠԮՠŠԠŠРƠԠƠӮȠӠΠŠ̮ԠӠ٠ˠΠŮ̠ӠԮՠŠΠˠԯԠ̮ՠΠŠԠȠӮՠŠΠԭήǠȠӠĠϠŠȠ̮ˠӠĠȠĠԮϠŠԠӠŠŠŠĬԠԠӠΠΠ͠ӠӮՠŠΠԠӠŠ٠ٮԠƠŠӠŠΠĬȠŠӠǠΠŠĮҬΠ͠ӠӬϠӠΠŠĮŠԠӠϠŠԮՠŠΠŠŮӠƠԠӠҠŠӮŠŠϠӠŬŠĠȠĠԠĠŠҠĠȠĮŠ٠ԠӠϠŠԮՠŠΠΠԯԠŮՠΠ٠٠ҠӠàǠĬĠΠ̠ŠŠԮՠŠΠԠԯԠŮՠҠԠ٠Ǡ͠ŠԮՠŠΠ̠ǠȠĠȮŠӠƠŠ̠ŠΠĠȮՠŠԠϠŠȮՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠԠŠȠĠƠŠǠ̮ϠҠԠˠŠϠӠΠŠԠĠԮŠ̠Ӡ͠ŬĠΠ̠ӠȮՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠΠ̬ˠ̠ȠҠΠŠԠŮէŠΠŠŠƠŠǠ̮ӠŠĠΠȠӠƠՠԠĠԩŠ̠ӠĠȮՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠΠ̬ˠ̠ȠҠΠŠԠŠƠŠͮՠŠԠŠȠĠƠǠ̮̠ӠȮϠŠԠĠԠŠӠԠŠĠԠǠǠοΠŠ͠ՠΠŠԠŠ̠ӠȬՠԠŠԠ٠ӮӠŮՠŠΠ̬ˠ̠ȠҠΠŠԠŠƠŠͮՠŠΠ̠ŠҠϠԠƠŠŠҮԠӠ٠ĠŬĠŠ٠ԠӠΠ٠͠ŠŠҮՠŠΠŠҬŠƠӠԠƠԮǠӠŠӬǠԠ٠ϠŮĠȠĠȬĠŠŠŠӠϠȠŠԠĠԮŠӠϠȠŠԠĠԮՠŠΠ̠ŠҠϠԠƠŠŠҮԠӠ٠ĠŬĠŠ٠ԠӠΠ٠͠ŠŠҮՠŠΠˠȯȠ̮ϠŠȠՠŠŠԠԠǠΠ͠ŠŮϠŠȠՠŠǠȠԬԠՠԠŠԠ٠ӮՠŠԠŠŠƠŮϠŠȬҠŠ̠ŬӠΠǠӠٮϠŠȠӠŠĠˠϠή                               ĠˠԍĠΠԍĠΠԍĠԍĠĠȍĠÍĠԍĠĠōӍōōčĠӍǍōӍˍōӍԍ٠ō(0,1):MD%(0,2):CH:A14:SA%(A):SCZA15:WA%(A)::AE:SEX$:GOLD:BANK:ACCZA14:WN$(A):WT%(A):WO%(A):WD%(A):WS%(A):CZDK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE"C[DK$;"RUN MAIN HALL"M(4):DK$;"DELETE FRESH MEAT":::5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT ANY KEY) ";:16368,0:A$:BZDIEĺDK$;"OPEN THE ADVENTURER":DK$;"DELETE THE ADVENTURER":23300$CZDK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTERS,R";REC:MN$(0):MD%AD%(A,1)CH10"AZTPTPAD%(A,1)AZA:TP;" GOLD PIECES."::MD%(9,5)1ĺ"ADDITIONALLY, YOU RECEIVE ";10CH;" GOLD":"PIECES AS A REWARD FOR THE SAFE RETURN":"OF CYNTHIA.":TPTP10CHAZGOLDGOLDTPAZ::"(HIT ANY KEY TO CONTINUE) ";:A$:mBZP%(W),5):WD%(W)AD%(WP%(W),7):WS%(W)AD%(WP%(W),8)@ZW::5:"AS YOU DELIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCAL BUYER FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND":"PAYS YOU ";@ZTP0:A1NA1:AD%(A,4)123210AZAD%(A,2)0AD%(A,1)W51W5W21231102?PZWP%(W5)AD%(WP%(W5),4)1n?ZZWN$(W5)WN$(W21):WP%(W5)WP%(W21):W2W21:W2523090?dZW511:W5:W42W21:W51W41:WN$(W4)WN$(W5)WN$(W4)WN$(W4)"#":23140?nZW5,W42@xZW14:WP%(W)WT%(W)AD%(WP%(W),6):WO%(W)AD%(WE, THE KNIGHT":"MARSHALL REAPPEARS AND TELLS YOU, 'YOU":"HAVE TOO MANY WEAPONS--4 IS THE LEGAL":"LIMIT.'"::"YOUR WEAPONS ARE--">2Z:5:"AS YOU TRY TO LEAVT,PICK,DROP,ATTACK,LOOK,EXAMINE,UP,U,DOWN,D,NORTH,N,EAST,E,WEST,W,SOUTH,S,POWER,HEAL,BLAST,SPEED,SMILE,WAVE,SAY,DRINK,READ,READY,ESCAPE,RETREAT,FLEE,INVENTORY,I,ENTER,TROLLSFIRE,OPENNDK$;"READ EAMON.DESC,R206":A$:DK$::A$::TR0:AD%(10,8)6:MD%(0,9)10MD%(0,12)61HN300@2PDK$;"READ EAMON.DESC,R204":A$:DK$::A$::MD%(0,9)10ĺDK$;"0"0LJS$"WATER"S$"SEA"19040~0VJ:"SORRY, BUT I'M AFRAID TO GO INTO THE":" WATER WITHOUT MY LIFE PRESERVER!"::3000`JS$"CAVE"ROOM1V$"S":50000jJ:"I'M NOT SURE WHAT YOU MEAN BY THAT.":"TRY GIVING A DIRECTION TO MOVE."::1001 N//ANNOT ";V$::300 /BM0:175001/BNBTL0:5100j/\DDK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D)::DK$/fDR2DR%(6(1)1):R2117510/pD/PF:"YOU ARE CARRYING THE FOLLOWING--":A1NA:AD%(A,4)1ĺ" ";AN$(A)/ZF:300/8JNBTL20200BJ195MD%(0,9)A:MD%(0,11)AD%(A,7):MD%(0,12)AD%(A,8)[.>S$"TROLLSFIRE"ĺ:"READIED."::300x.>TR0:MD%(0,12)10:20000.hB///FLEE COMMAND.rBNBTLĺ:"WHAT ARE YOU FLEEING FROM?"::100/|BMD%(7,5)ROOMĺ:"YOU ARE HELD FAST BY THE MIMIC AND":" CMES THEN DIE.":!-:DIE1:230108->///READY A WEAPONB->1950->A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100->AD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::1000.>MD%(0,10)(EAAE)(EAAE)AD%(A,5)WA%(AD%(A,6))2MD%(0,2)::"AS YOU READ THE BOOK, YOU FEEL A WEIRD":"SENSATION OVERTAKING YOU. YOU SUDDENLY":"REALIZE THAT YOU ARE TURNING INTO A":"SMALL FISH.":,:ROOM26ĺ"YOU FALL INTO THE SEA AND ARE PROMPTLY":"EATEN BY A BIG FISH.":-:ROOM26ĺ"YOU FLOP THREE TIL"S$"BOTTLE"ĭAD%(3,4)ROOMAD%(13,4)ROOMAD%(3,4)1AD%(13,4)1ĺ"THE BOTTLE SAYS, 'HEALING POTION'"::300+:S$"TROLLSFIRE"20000+:S$"BOOK"ĺ:"THERE ARE NO MARKINGS TO READ!"::300+:AD%(9,4)1AD%(9,4)ROOMĺ"WHAT BOOK?"::300,AD%(13,4)1*27300t*8S$"WATER"(S$,3)"SEA"ĺ:"A JOB SIMILAR TO GETTING BLOOD FROM A":" TURNIP."::300*8:"THE WATER TASTED SALTY, BUT IT DOESN'T":"SEEM TO BE POISONOUS."::300*:///READ COMMAND*:1950*:NBTL2020q+:S$"LABE0,14100,14110-)7"YOU FEEL GREAT!"::14120N) 7"YOU FEEL BETTER."::14120)7"THOUGH YOU FEEL BETTER, YOU ARE STILL":" VERY, VERY SICK!"::14120)7"THOUGH YOU FEEL BETTER, YOU ARE STILL":" AT DEATH'S DOOR, KNOCKING LOUDLY.": *(7AD%(3,4)0:6)"POTION"(S$,6)"BOTTLE"14500K(6AD%(3,4)1AD%(3,4)ROOM14500(6:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":(6MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)0 )6H2MD%(0,13)(11(1)5):H2(H210)1:H214080,1409"NOTHING HAPPENS."::300.'2///SAY COMMAND8'21950S'2S$"TROLLSFIRE"20000h'2S$"POWER"6000|'2S$"HEAL"7000'2S$"BLAST"8000'3S$"SPEED"10000'3:"OKAY, '";S$;"'"::300'6///DRINK COMMAND'61950'6NBTL2020$(6(S$,,2)[&.'SPD(25(1)1)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300&*:NBTLĺ"AS YOU SMILE, THE ENEMY ATTACKS YOU."::300&+"NOTHING HAPPENS."::300&.:NBTLĺ"AS YOU WAVE AT YOUR ENEMY, HE ATTACKS":" YOU."::300'.1950Q%TM1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::300i%^S1:7500:SUC300%h:"DIRECT HIT!"::S5:D1:DFM:3650::300%'///SPEED SPELL%'S3:7500:SUC300&$'SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0$bS2:7500:SUC14050"$l300i$LSUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95))$VSUCĺ:"NOTHING HAPPENED.":$`RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2$jS2%(S)S2%(S)2$t$@///BLAST SPELL%JEPORTED SOMEWHERE IN THE":" DUNGEON"::R2(26(1)1):NBTL0:5100#RR86ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT ECHOES THROUGH THE TUNNELS."::300#RR95ĺ:"ALL OF YOUR HITS ARE HEALED."::MD%(0,13)0:300#10020$X///HEAL SPELL"M:RAISENBTL0:R2ROOM:5100d"A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)0y"A:RAISEĺ:300"RR(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU ARE IN ":" COLLAPSES AND YOU DIE.":DIE1:23010E#RR31ĺ:"YOU ARE TELBTL(TD%(0)0)!2100+!p///POWER SPELLC!zS4:7500:SUC300!RAISE0:M1NM:M213M:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD%(M,5)ROOM:MD%(M,13)0:MD%(M,9)0AD%(MD%(M,9),4)0:MD%(M,9)MD%(0,9)MD%(0,9)0!NM:MD%(M,5)R3ĭMD%(M,14)200(1)MD%(M,4)MD%(M,5)ROOM:5150Z MD%(M,5)ROOM5160 FRMD%(M,3):FRFR100FRFR((CH10)2) MD%(M,14)(FR100(1)):MD%(M,14)NBTL1 AMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)!(M:ND EAMON.ROOMS,R";ROOM:D21D:R2::DK$5R25100ROOM1D1ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":"SUNSET.":23010:"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100R3ROOM:ROOMR2:TD%(0)0:TD%(1)MD%(0,1):FD%(0)0:FD%(1)MD%(0,13)A M1A$:DK$::A$::LK1$A:LK300eDK$;"READ EAMON.DESC,R";ROOM:A$:DK$::A$::ROOM15300"YOU FOUND A HIDDEN TUNNEL GOING OFF TO":"THE EAST!"::300///MOVE COMMANDNBTL2020D16:(V$,1)("NSEWUD",D,1)Ă(DK$;"REAS THE MIMIC DIES, IT ROLLS OVER AND":"YOU FIND A RING UNDERNEATH IT.":AD%(6,4)ROOM\:q///LOOK COMMANDNBTL2020S$"LABEL"S$"BOTTLE"15000LK0A1NA1:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺDK$;"READ EAMON.DESC,R";A100:%(DF,13)D2:MD%(DF,5)0:A2NA1NMDF:AD%(A2,4)ROOM:MD%(DF,9)0AD%(MD%(DF,9),4)ROOMr~FD%(0)TD%(0)NBTL0DF0DIE1:23010MN$(DF)"PIRATE"ĺDK$;"READ EAMON.DESC,R203":A$:DK$::A$::AD%(10,8)6:V%(ROOM)0:TMN$(DF)"MIMIC"ĺ:"AL IN GOOD SHAPE.":3[:MN$(DF);" IS HURTING.":S`:MN$(DF);" IS IN PAIN.":~e:MN$(DF);" IS VERY BADLY INJURED.":j:MN$(DF);" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":WtMN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD:D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::tGMD%(DF,13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)3700LAMD%(DF,14):FD%(A)FD%(A)D2Q(MD%(DF,13)5MD%(DF,1)1)3670,3675,3680,3685,3690V:MN$(DF);" TAKES DAMAGE BUT":" IS STIL%(OF,10)MD%(OF,10)2INCQDMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":3650"A CRITICAL HIT!":R2(100(1)1):R251A0:3650R286S1.5S:3650$R296D2D:3650)R2100D3D:3650.3700;BD20:D31D:D2D2(S(1)1):z#   ŠҠ ȠԠ Ӡ̮Ԡ Πà ҠŠҠҠ ҠԠ ή͠Ӡ ήӠՠ@ Ҡ٠Ҡ7ҠȠ Π̠.!!ŠӠŠ=ήӠήàM ήӠ ήŠΠҠ@ҠŠ̠ĠƠΠήà"נӠӠ٠DES%(X)::D$%T216,0:D$"CLOSE":c^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$;"CLN CHARACTERS,L150":D$"READ CHARACTERS,R";C:NAME$: IF NA$ = "" THEN C = 0: PRINT D$;"CLOSE": POKE 216,0: RETURN 6HD:AG:CH:X14:SA%(X)::X15:WA%(X): @AE:SEX$:GOLD:BANK:AC JX14:WNAME$(X):WTYPE%(X):WODDS%(X):WDICE%(X):WSI ADD A RECORD":8);" 7. MAKE A CLONE":8);" 8. QUIT":X8:240n S650,830,1750,1980,2310,2460,2290,2680 /// GET NUMBER 8);"INPUT (1-";X;"):"; S$:(S$)1(S$)X260 S$:S(S$):  /// READ RECORD "390t ,UP0:D$"OPE",(ADD1)61,6);" ";(" UPDATED",(UP1)71,7):X139:"=";::g 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"A 8);" 6.:H D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$;"CLOSE"S 216,0 :17);"EAMON":12);"CHARACTER EDITOR":11);"BY ANDY C. ANDREWS":X139:"=";: :"RECORD ";C;" IS IN MEMORY.... OF ";NC:" NAME = ";NA$:I (" ADDINGAG X3=MAX CH XW=MAX WEAP ABIL XM=MAX SPELL ABIL XD=MAX DICE XS=MAX SIDES XAE=MAX AE XG=MAX GOLD :6: : POKE 1010,0: POKE 1011,0: POKE 1012,0: POKE 1013,0 " INSERT DISKETTE CONTAINING CHARACTERS "::3);"AND PRESS ANY KEY TO CONTINUE ...";:A$U4 EAMON. CHARACTER EDITOR4:(U2 BY ANDY C. ANDREWS[<aFgPrZ2710dX15:WT$(X)::X07:AC$(X):nD$(4)::X1999:X2999:X3999:XW100:XM500:XD50:XS90:XAE100:XG10000a x X1=MAX HD X2=MAX                 NUMBER$V8);"INPUT (1-";X;"):";B`S$:(S$)1(S$)X1120TjS$:S(S$):jt /// READ RECORDu~1250UP0:D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R";C:NAME$: IF NA$ = "" THEN C = 0: PRINT D$;"CLOSE": POKE 216,0: RETURN ,ECORD":8);" 2. UPDATE RECORD":8);" 3. DISPLAY RECORD":8);" 4. SELECT MODE":8);" 5. GO ON AN ADVENTURE"88);" 6. ADD A RECORD":8);" 7. MAKE A CLONE":8);" 8. QUIT":X8:1100BS1510,1690,2610,2840,3170,3320,3150,3540L /// GET":11);"BY ANDY C. ANDREWS":X139:"=";:l:"RECORD ";C;" IS IN MEMORY.... OF ";NC:" NAME = ";NA$:(" ADDING",(ADD1)61,6);" ";(" UPDATED",(UP1)71,7):X139:"=";::$11:8);"SELECT ACTION:"r.8);" 1. SELECT RE 1011,0: POKE 1012,0: POKE 1013,0" INSERT DISKETTE CONTAINING CHARACTERS "::3);"AND PRESS ANY KEY TO CONTINUE ...";:A$:D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$;"CLOSE"216,0,:17);"EAMON":12);"CHARACTER EDITORWT$(X)::X07:AC$(X):gD$(4)::X1999:X2999:X3999:XW100:XM500:XD50:XS90:XAE100:XG10000 X1=MAX HD X2=MAX AG X3=MAX CH XW=MAX WEAP ABIL XM=MAX SPELL ABIL XD=MAX DICE XS=MAX SIDES XAE=MAX AE XG=MAX GOLD ":6: : POKE 1010,0: POK6384):K128790 16368,0-*K15584034F>RECREC1:350XH:DK$;"PR#0"vR12:13:"END OF PROGRAM"\22:90f EAMONp CHARACTER EDITORz BY ANDY C. ANDREWS3570X15:>  EAMON IS A CREATION ? OF DONALD BROWN G d( SCREEN DISPLAY 2 BY ANDY C. ANDREWS < F:DK$(4)PDK$;"BLOAD EAMON.PIC,A$2000":16304,0:16297,0:16302,0Z//THIS REMOVES PICTURE// dX                       ";WT$(X),WA%(X)::10);"6. RETURN":X6:240P`S1130,1150,1170,1190,1210,830j8:958:8);:"NEW AXE EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(1)(A$)t850~8:958:8);:"NEW BOW EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(2)(A$)958:"NEW SPEED RATING:";SA$:(SA$)XM(SA$)0(SA$)((SA$))SA%(3)(SA$)[.85088:958:"NEW POWER RATING:";SA$:(SA$)XM(SA$)0(SA$)((SA$))SA%(4)(SA$)B850L8:958:8);"SELECT WEAPON ABILITY:",VX15:10);X;". POWER",SA%(4):X4:240:S1020,1040,1060,10808:958:8);:"NEW BLAST RATING:";SA$:(SA$)XM(SA$)0(SA$)((SA$))SA%(1)(SA$)8508:958:"NEW HEAL RATING:";SA$:(SA$)XM(SA$)0(SA$)((SA$))SA%(2)(SA$)850R$8:8:"OLD CHARISMA:";CH:8);:"NEW CHARISMA:";A$:(A$)3(A$)X3(A$)((A$))ĺ:"INVALID CHARISMA.":640:980CH(A$):8508:958:8);"SELECT SPELL:":8);" 1. BLAST",SA%(1):8);" 2. HEAL",SA%(2)-8);" 3. SPEED",SA%(3):8);" 4. EW HARDINESS:";A$:(A$)3(A$)X3(A$)((A$))ĺ:"INVALID HARDINESS.":640:940gHD(A$):8508:958:"OLD AGILITY:";AG:8);:"NEW AGILITY:";A$:(A$)3(A$)X2(A$)((A$))ĺ:"INVALID AGILITY.":640:960AG(A$):850r8:95ES"R8);"INPUT (1-14)";:":";A$:(A$)14(A$)1(A$)((A$))Ģ(37):900iS(A$):S12UP1S930,940,960,980,1000,1100,1230,1250,1270,1320,1380,1750,170,13508:958:"NEW NAME:";NA$:850U8:958:"OLD HARDINESS:";HD:8);:"NSPELL ABILITIES":8);" 6. WEAPON ABILITIES":8);" 7. ARMOUR EXPERTISE"p8);" 8. SEX CHANGE":8);" 9. GOLD":8);" 10. ARMOUR CLASS":8);" 11. WEAPON CHANGE"z8);" 12. DISPLAY RECORD":8);" 13. RETURN TO MAIN MENU":8);" 14. CANCEL CHANG.":610:170{R:" EAMON CHARACTER CHANGE PROGRAM":14);"BY JOHN NELSON":5:((40((NA$)8))2));"CHANGING ";NA$\8:8);"INPUT FIELD TO CHANGE:":8);" 1. NAME":8);" 2. HARDINESS":8);" 3. AGILITY":8);" 4. CHARISMA"Jf8);" 5. C(C$):CNCĺ"THERE AREN'T THAT MANY!":X1500:X:750R280:MO$"A"1750[ 170v /// READ NEXT RECORD CC1:CNCĺ"END OF FILE.":CNC:610:170*280:MO$"A"17504170> /// UPDATE ROUTINE HC0ĺ"NO CHARACTER IN MEMORYCHARACTERS,L150"C1NC:D$"READ CHARACTERS,R";C:FINM$:FINM$NAME$Ă:8);"I CAN'T FIND THAT CHARACTER.";:D$;"CLOSE":A$::C0:170D$"CLOSE":280:MO$"A"175017011:958:8);:"RECORD NUMBER:";C$:(C$)1(C$)((C$))750;0:X: /// SELECT RECORD+UPİ54011:958:8);"SELECT RECORD BY:":8);" 1. NAME":8);" 2. RECORD NUMBER":8);" 3. NEXT RECORD":X3:240S690,750,790 /// FIND NAME11:958:8);:"CHARACTER NAME:";NAME$D$"OPEN 14:SA%(X)::X15:WA%(X):<:AE:SEX$:GOLD:BANK:ACDX14:WNAME$(X):WTYP%(X):WODDS%(X):WDICE%(X):WSIDES%(X):ND$XUP0:ADD0:D$"CLOSE":b >>> STOP SCREENl:7);"PRESS ANY KEY TO CONTINUE";7);::A$:vX170":" CHARACTER?";/A$:A$"Y"A$"N"500HA$:A$"N"C0:170D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R";C:X$:NA$310:170 /// WRITE RECORD&D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R";C0NAME$:HD:AG:CH:XCH16:AC2:WA%(1)8:WA%(2)4:WA%(3)40:WA%(4)14:WA%(5)10X15: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":540:170 READ DEAD:"DO YOU WANT TO TREAT THIS AS A DEADOSE" >> ERROR ON READ]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"430A$:A$"N"480:HD16:AG16:HD:AG:CH:X14:SA%(X)::X15:WA%(X):JAE:SEX$:GOLD:BANK:ACX14:WNAME$(X):WTYPE%(X):WODDS%(X):WDICE%(X):WSIDES%(X)::D$216,0:D$"CLOSE":D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R";C:NAME$HD:AG:CH:X14",::"WEAPON INFORMATION:"N,D"NAME TYPE COMP DAM. ODDS":i,NEA10ACAE:EA0EA0y,XHW0:X14,bWN$(X)"NONE"ĺWN$(X);18(WN$(X)));WT%(X);6((WO%(X))));WO%(X);"%";:HW1T-lWN$(X)"NONE"ĺ7((WD%(X))"D"(WS%(X)))LAST:";SA%(1);" HEAL:";SA%(2);" SPEED:";SA%(3);" POWER:";SA%(4)+:" WEAPON ABILITY":"AXE:"WA%(1);" BOW:";WA%(2);" MACE:";WA%(3)+" SPEAR:";WA%(4);" SWORD:";WA%(5)+&A$AC$(AC),0:"ARMOUR: ";A$;" AE=";AE;"%(A$):1380&* /// DISPLAY CHARACTERQ*C0ĺ"NO RECORD IN MEMORY.":610:170*:"NAME:";NAME$;" REC:";C::"SEX:";SEX$;" GOLD:";GOLD;" ";"BANK:";BANK*:"HARDINESS:";HD;" AGILITY:";AG;" CHARISMA:";CH*B+" SPELL ABILITY":"B1690)WO%(W)(A$)z)11:958:8);:"WEAPON DICE:";A$:(A$)XD(A$)((A$))(A$)0ĺ"INVALID DICE.":640:1710)WD%(W)(A$))12:958:8);:"NEW SIDES:";A$:(A$)XS(A$)((A$))(A$)0ĺ8);"INVALID SIDES.":640:1610 *WS%(W)"SELECT TYPE:":X15:8);" ";X;". ";WT$(X)::8);"INPUT # OF NEW TYPE:";h(A$:A$"1"A$"5"1670(A$:WT%(W)(A$):9:868:8);"WEAPON TYPE:";WT$(WT%(W)))10:958:8);:"WEAPON ODDS:";A$:(A$)100(A$)((A$))ĺ"INVALID ODDS.":640:(A$)XS(A$)((A$))(A$)0WS%(W)(A$):1610X'T8);"INVALID SIDES.":640:1610l'^ >> ADD WEAPON'h8:958:8);:"WEAPON NAME:";A$:(A$)2(A$)20(A$,1)"A"(A$,1)"Z"ĺ"INVALID WEAPON NAME.":640:1640'rWN$(W)A$L(|9:958:8);)((A$))WO%(W)(A$):13808&"INVALID ODDS.":1540K&" >> WEAP DICE&,8:958:8);:"NEW DICE:";A$:(A$)XD(A$)((A$))(A$)0WD%(W)(A$):1380&68);"INVALID DICE":640:1580&@ >> WEAP SIDES3'J8:958:8);:"NEW SIDES:";A$:WN$(W)A$:1380$% >> WEAP TYPE%8:958:8);"SELECT TYPE:":X15:8);" ";X;". ";WT$(X)::8);"INPUT # OF NEW TYPE:";%A$:A$"1"A$"5"1520%A$:WT%(W)(A$):1380% >> WEAP ODDS&8:958:8);:"NEW ODDS:";A$:(A$)100(A$))));WS%(W)Q$8);" 6. NEXT WEAPON":8);" 7. END OF WEAPON CHANGE":X7:240z$S1470,1500,1540,1570,1600,1630,830$ >> WEAP NAME$8:958:8);:"NEW NAME:";A$:(A$)2(A$)20(A$,1)"A"(A$,1)"Z"ĺ"INVALID WEAPON NAME.":640:1480%R#8:958:8);"SELECT FIELD TO CHANGE:":8);" 1. NAME";38(WN$(W)));WN$(W)#8);" 2. TYPE";38(WT$(WT%(W))));WT$(WT%(W)):8);" 3. COMP.";38((WO%(W))));WO%(W) $8);" 4. DICE";38((WD%(W))));WD%(W):8);" 5. SIDES";38((WS%(WACS:850""F >>> CANCEL CHANGES?"PADDADD0:UP0:C0:170R"ZUP0:280:170j"d >>> WEAPON CHANGE"n8:958:8);"SELECT WEAPON TO CHANGE:":X14:8);" ";X;". ";WN$(X)::8);" 5. RETURN":X5:240"xS5830"WS::WN$(W)"NONE"163058:8);:"HOW MUCH IN BANK:";A$:(A$)0(A$)XG(A$)((A$))ĺ:"INVALID AMOUNT.":640:1300v!BANK(A$):850!(8:958:8);"CURRENT ARMOUR CLASS":8);::AC$(AC)::8);"SELECT NEW ARMOUR CLASS:"!2X17:10);X;". "AC$(X): "<X7:240::"SEX CHANGED TO MALE.":640:850 8:958:8);" 1. GOLD IN HAND",GOLD:8);" 2. GOLD IN BANK",BANK:X2:240:S1280,1300 8:958:"HOW MUCH GOLD:";A$:(A$)0(A$)XG(A$)((A$))ĺ:"INVALID GOLD.":640:1280 GOLD(A$):850b!8:9$)((A$))WA%(5)(A$)!8508:958:"OLD ARMOUR EXP:";AE:"NEW ARMOR EXPERTISE:";A$:(A$)90(A$)XAEĺ"INVALID EXPERTISE.":640:1230AE(A$):850SEX$"M"SEX$"F":8:958:"SEX CHANGED TO FEMALE":640:850" SEX$"M":8:958850\8:958:8);:"NEW MACE EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(3)(A$)e8508:958:8);:"NEW SPEAR EXPERTISE:";A$:(A$)XW(A$)((A$))WA%(4)(A$)8508:958:8);:"NEW SWORD EXPERTISE:";A$:(A$)XW(AC0:1030,UP0:1140:10306, >>> WEAPON CHANGE,8:958:8);"SELECT WEAPON TO CHANGE:":X14:8);" ";X;". ";WN$(X)::8);" 5. RETURN":X5:1100,S51690,WS::WN$(W)"NONE"2490 -8:958:8);"SELECT FIELD TO CHANGE:":8);"C:D$;"CLOSE":540Q:Z X14:WN$(X)"NONE":WT%(X)0:WD%(X)0:WS%(X)0:WO%(X)0:W:d ]:n t:x /// QUIT ROUTINE: UPİ540: D$"CLOSE":D$"RUN MENU": ERROR ROUTINE: 216,0:D$; :"THERE IS NO CHARACTER FILE ON THIS DISK.":"DO YOU WANA%(4)20:WA%(5)409 2620d9( HD24:AG24:CH24:WA%(1)70:WA%(2)70:WA%(3)70:WA%(4)60:WA%(5)60n92 26209< X15:SA%(X)0::GOLD300:BANK0:NWİ26509F AE(S1)20:CNC1:NCNC1:SEX$"M":P D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":2540,2560,2580,26008 170f8 HD10:AG10:CH10:AC0:WA%(1)5:WA%(2)0:WA%(3)20:WA%(4)10:WA%(5)0p8 26208 HD16:AG16:CH16:AC2:WA%(1)8:WA%(2)4:WA%(3)40:WA%(4)14:WA%(5)108 26209 HD22:AG22:CH22:AC4:WA%(1)20:WA%(2)20:WA%(3)50:W:1507 >>> ADD A RECORD*7 UPİ540w7 :11);"CREATE A CHARACTER":8:958:8);"SELECT GENERAL POWER LEVEL:"7 " 1. WEAK CHARACTER":" 2. AVERAGE NORMAL":" 3. HIGH CHARACTER":" 4. SUPER CHARACTER"7 X4:2407 :"NAME:";NA$8 SFRESH MEAT":D$"WRITE FRESH MEAT":C:=6` 560:D$"RUN ";DNG$T6j >>> INSTRUCTIONS6t :"YOU ARE ABOUT TO TRANSFER ";NA$:"TO AN ADVENTURE."6~ :"PRESS 'C' TO CONTINUE TO ADVENTURE"::"OR ANY OTHER KEY TO RETURN TO MENU.";:A$:6 A$"C"ı7 Y.":640:1705 UPİ540)5$ D$"CLOSE"}5. 2410::6:" INSERT ADVENTURE TO TEST AND PRESS":" ANY KEY":A$:58 23505B D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":DNG$5L :5:"YOU ARE ABOUT TO ADVENTURE IN":::DNG$:%6V D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$:170f4C0ĺ:"NO CHARACTER IN MEMORY.":640:1704NCNC1:CNC:D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":NC:D$"CLOSE":540:1704 >>> WRITE FRESH MEAT 5 C0ĺ"NO CHARACTER IN MEMORLACE BY REC#P38:958:"RECORD #:";A$:(A$)((A$))(A$)C2(A$)12230Z32210k3 >>> RETURN3C0ĺ"NO CHARACTER IN MEMORY.":610:1703D$"CLOSE"::5:"INSERT ORIGINAL DISKETTE AND PRESS ANY"::" KEY":A$:64D$"OPEN 2. REPLACE BY RECORD #":X2:24032S2190,2220L28:958:"NAME:";N$2R1NC:D$"READ CHARACTERS,R";R:N2$:D$:N2$N$Ă:"I DON'T FIND THAT NAME.":21702C3C:CR:540:CC3::"DONE.":"PRESS ANY KEY TO CONTINUE";:A$::2250 3 >>> REPRN WITHOUT CHANGE":X3:24011RS2140,2160,2250N1\ >>> ADD NEW CHARACTER1fC2C21:C3C:CC2:540:CC3:D$"WRITE CHARACTERS,R0":C2:D$:"DONE.":610:22501p >>> REPLACE CHARACTER"2z8:958:"SELECT METHOD":8);" 1. REPLACE BY NAME":8);":" AND PRESS ANY KEY":A$:e04D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":C2:D$0>:12);"MOVING CHARACTER":8:958:1H8);"SELECT ACTION:":8);" 1. ADD CHARACTER AS NEW":8);" 2. REPLACE EXISTING CHARACTER":8);" 3. RETU TO ANOTHER.":"CHARACTER MUST BE IN MEMORY WHEN THIS ":"FUNCTION IS EXECUTED."/:"IF CHARACTER IS NOT IN MEMORY, RETURN":"TO THE PRIMARY MENU BY PRESSING 'R'"/ ":";A$:A$"R"170/UPİ540/ D$"CLOSE"'0*:5:"INSERT RECEIVING DISKETTE"8);"SELECT ACTIONS WANTED:":8);" 1. AUTOMATIC":8);" 2. MANUAL":8);" 3. MOVE CHARACTER":X3:240~.S2010,2020,2030.MO$"A":170.MO$"":170. >>> MOVE CHARACTERP/:"THIS ROUTINE WILL MOVE AN ADVENTURER ":"FROM ONE DISKETTE/FILE);WD%(X);"D";WS%(X);5((2AGWA%(WT%(X))WO%(X))));2AGWA%(WT%(X))WO%(X)EA;"%"u-vX::HW0ĺ8);"(NONE)"::-610:-A$"U"850-MO$"A"ĭUP1UP0:540:790-MO$"A"790-S3170-850- /// SELECT MODEh.13:958:ECTED READING RECORD ";C:D"DO YOU WANT THIS RECORD REPLACED?";b A$:A$"Y"A$"N"1290wA$:A$"N"1340HD16: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:SA%(X)::X15:WA%(X):9AE:SEX$:GOLD:BANK:ACX14:WNAME$(X):WTYPE%(X):WODDS%(X):WDICE%(X):WSIDES%(X)::D$;"CLOSE" >> ERROR ON READD$:216,0:"ERROR ";(222);" AT LINE ";(218)(219)256;"."D$::"AN ERROR WAS DETT BE IN MEMORY WHEN THIS ":"FUNCTION IS EXECUTED."9^ :"IF CHARACTER IS NOT IN MEMORY, RETURN":"TO THE PRIMARY MENU BY PRESSING 'R'"9h ":";A$:A$"R"10309r UPİ14009| D$"CLOSE" : :5:"INSERT RECEIVING DISKETTE":" AND PRESS AN;" 1. AUTOMATIC":8);" 2. MANUAL":8);" 3. MOVE CHARACTER":X3:1100_8, S2870,2880,2890q86 MO$"A":10308@ MO$"":10308J >>> MOVE CHARACTER39T :"THIS ROUTINE WILL MOVE AN ADVENTURER ":"FROM ONE DISKETTE/FILE TO ANOTHER.":"CHARACTER MUS(X))WO%(X))));2AGWA%(WT%(X))WO%(X)EA;"%"N7 X::HW0ĺ8);"(NONE)"::Z7 1470:k7 A$"U"17107 MO$"A"ĭUP1UP0:1400:16507 MO$"A"16507 S310307 17107 /// SELECT MODEI8" 13:958:8);"SELECT ACTIONS WANTED:":8)ME TYPE COMP DAM. ODDS":B6 EA10ACAE:EA0EA0R6 HW0:X146 WN$(X)"NONE"ĺWN$(X);18(WN$(X)));WT%(X);6((WO%(X))));WO%(X);"%";:HW1-7 WN$(X)"NONE"ĺ7((WD%(X))"D"(WS%(X))));WD%(X);"D";WS%(X);5((2AGWA%(WT%:";SA%(3);" POWER:";SA%(4)u5n :" WEAPON ABILITY":"AXE:"WA%(1);" BOW:";WA%(2);" MACE:";WA%(3)5x " SPEAR:";WA%(4);" SWORD:";WA%(5)5 A$AC$(AC)5 :"ARMOUR: ";A$;" AE=";AE;"%"5 :"WEAPON INFORMATION:"'6 "NA< C0ĺ"NO RECORD IN MEMORY.":1470:1030{4F :"NAME:";NAME$;" REC:";C::"SEX:";SEX$;" GOLD:";GOLD;" ";"BANK:";BANK4P :"HARDINESS:";HD;" AGILITY:";AG;" CHARISMA:";CH4Z 5d " SPELL ABILITY":"BLAST:";SA%(1);" HEAL:";SA%(2);" SPEED"WEAPON DICE:";A$:(A$)XD(A$)((A$))(A$)0ĺ"INVALID DICE.":1500:2570a3 WD%(W)(A$)3 12:958:8);:"NEW SIDES:";A$:(A$)XS(A$)((A$))(A$)0ĺ8);"INVALID SIDES.":1500:24703( WS%(W)(A$):224032 /// DISPLAY CHARACTER*4)::8);"INPUT # OF NEW TYPE:";<2 A$:A$"1"A$"5"2530z2 A$:WT%(W)(A$):9:868:8);"WEAPON TYPE:";WT$(WT%(W))2 10:958:8);:"WEAPON ODDS:";A$:(A$)100(A$)((A$))ĺ"INVALID ODDS.":1500:25502 WO%(W)(A$)P3 11:958:8);:2470+1 8);"INVALID SIDES.":1500:2470?1 >> ADD WEAPON1 8:958:8);:"WEAPON NAME:";A$:(A$)2(A$)20(A$,1)"A"(A$,1)"Z"ĺ"INVALID WEAPON NAME.":1500:25001 WN$(W)A$ 2 9:958:8);"SELECT TYPE:":X15:8);" ";X;". ";WT$(XS.":24000~ >> WEAP DICEt0 8:958:8);:"NEW DICE:";A$:(A$)XD(A$)((A$))(A$)0WD%(W)(A$):22400 8);"INVALID DICE":1500:24400 >> WEAP SIDES1 8:958:8);:"NEW SIDES:";A$:(A$)XS(A$)((A$))(A$)0WS%(W)(A$):58:8);"SELECT TYPE:":X15:8);" ";X;". ";WT$(X)::8);"INPUT # OF NEW TYPE:";p/L A$:A$"1"A$"5"2380/V A$:WT%(W)(A$):2240/` >> WEAP ODDS/j 8:958:8);:"NEW ODDS:";A$:(A$)100(A$)((A$))WO%(W)(A$):2240 0t "INVALID ODD END OF WEAPON CHANGE":X7:1100J. S2330,2360,2400,2430,2460,2490,1690]. >> WEAP NAME.$ 8:958:8);:"NEW NAME:";A$:(A$)2(A$)20(A$,1)"A"(A$,1)"Z"ĺ"INVALID WEAPON NAME.":1500:2340.. WN$(W)A$:2240.8 >> WEAP TYPET/B 8:9 1. NAME";38(WN$(W)));WN$(W)-8);" 2. TYPE";38(WT$(WT%(W))));WT$(WT%(W)):8);" 3. COMP.";38((WO%(W))));WO%(W)-8);" 4. DICE";38((WD%(W))));WD%(W):8);" 5. SIDES";38((WS%(W))));WS%(W) . 8);" 6. NEXT WEAPON":8);" 7.ATE,PLATE & SHIELD,SHIELD ONLY,LEATHER,LEATHER & SHIELD,CHAIN MAIL,CHAIN & SHIELD,PLATE,PLATE & SHIELD< AXE,BOW,MACE,SPEAR,SWORD,NONE,SHIELD ONLY,LEATHER,LEATHER & SHIELD,CHAIN MAIL,CHAIN & SHIELD,PLATE,PLATE & SHIELD,LEATHER & SHIELD,CHAIN MAIL,CHAIN & SHIELD,PLT TO CREATE ONE? (Y OR N):";:; A$:A$"Y"A$"N"2740X; A$:A$"N"ĺD$"RUN MENU"; D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":1:D$"WRITE CHARACTERS,R1":"":"OBODY":X153:0::; D$"CLOSE":110T< AXE,BOW,MACE,SPEAR,SWORD,NONE? (Y OR N):";+EA$:A$"Y"A$"N"3600?EA$:A$"N"ī30E$D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":1:D$"WRITE CHARACTERS,R1":"":"OBODY":X153:0::E.D$"CLOSE":970;F8 AXE,BOW,MACE,SPEAR,SWORD,NONE,SHIELD ONLY,LEATHER,LEATCLOSE":1400KD X14:WN$(X)"NONE":WT%(X)0:WD%(X)0:WS%(X)0:WO%(X)0:QD WD nD /// QUIT ROUTINE|D UPİ1400D D$"CLOSE":30D ERROR ROUTINED 216,0:D$ E:"THERE IS NO CHARACTER FILE ON THIS DISK.":"DO YOU WANT TO CREATE ONE0:WA%(5)40Cz 3480]C HD24:AG24:CH24:WA%(1)70:WA%(2)70:WA%(3)70:WA%(4)60:WA%(5)60gC 3480C X15:SA%(X)0::GOLD300:BANK0:NWİ3510C AE(S1)20:CNC1:NCNC1:SEX$"M" D D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":C:D$;"0,3440,3460B> 1030_BH HD10:AG10:CH10:AC0:WA%(1)5:WA%(2)0:WA%(3)20:WA%(4)10:WA%(5)0iBR 3480B\ HD16:AG16:CH16:AC2:WA%(1)8:WA%(2)4:WA%(3)40:WA%(4)14:WA%(5)10Bf 3480 Cp HD22:AG22:CH22:AC4:WA%(1)20:WA%(2)20:WA%(3)50:WA%(4)2 >>> ADD A RECORD!A UPİ1400nA :11);"CREATE A CHARACTER":8:958:8);"SELECT GENERAL POWER LEVEL:"A " 1. WEAK CHARACTER":" 2. AVERAGE NORMAL":" 3. HIGH CHARACTER":" 4. SUPER CHARACTER"A X4:1100A* :"NAME:";NA$ B4 S3400,342D$"WRITE FRESH MEAT":C:2@ 1420:D$"RUN ";DNG$I@ >>> INSTRUCTIONS@ :"YOU ARE ABOUT TO TRANSFER ";NA$:"TO AN ADVENTURE."@ :"PRESS 'C' TO CONTINUE TO ADVENTURE"::"OR ANY OTHER KEY TO RETURN TO MENU.";:A$:@ A$"C"ı@ :1010A ?v UPİ1400? D$"CLOSE"q? 3270::6:" INSERT ADVENTURE TO TEST AND PRESS":" ANY KEY":A$:|? 3210? D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":DNG$? :5:"YOU ARE ABOUT TO ADVENTURE IN":::DNG$:@ D$"OPEN FRESH MEAT":$"READ CHARACTERS,R0":NC:D$:1030U>N C0ĺ:"NO CHARACTER IN MEMORY.":1500:1030>X NCNC1:CNC:D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":NC:D$"CLOSE":1400:1030>b >>> WRITE FRESH MEAT?l C0ĺ"NO CHARACTER IN MEMORY.":1500:1030958:"RECORD #:";A$:(A$)((A$))(A$)C2(A$)13090D= 3070U=& >>> RETURN=0 C0ĺ"NO CHARACTER IN MEMORY.":1470:1030=: D$"CLOSE"::5:"INSERT ORIGINAL DISKETTE AND PRESS ANY"::" KEY":A$:#>D D$"OPEN CHARACTERS,L150":D":X2:1100< S3050,30805< 8:958:"NAME:";N$< R1NC:D$"READ CHARACTERS,R";R:N2$:D$:N2$N$Ă:"I DON'T FIND THAT NAME.":3030< C3C:CR:1400:CC3::"DONE.":"PRESS ANY KEY TO CONTINUE";:A$::3110< >>> REPLACE BY REC#:= 8:0; S3000,3020,31104; >>> ADD NEW CHARACTER; C2C21:C3C:CC2:1400:CC3:D$"WRITE CHARACTERS,R0":C2:D$:"DONE.":1470:3110; >>> REPLACE CHARACTER < 8:958:"SELECT METHOD":8);" 1. REPLACE BY NAME":8);" 2. REPLACE BY RECORD #Y KEY":A$:J: D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":C2:D$s: :12);"MOVING CHARACTER":8:958:; 8);"SELECT ACTION:":8);" 1. ADD CHARACTER AS NEW":8);" 2. REPLACE EXISTING CHARACTER":8);" 3. RETURN WITHOUT CHANGE":X3:110K179ĺDK$;"RUN THE WONDERFUL WORLD OF EAMON"9 150T EAMON IS A CREATIONk OF DONALD BROWNq DISPLAY CHARACTERS BY ANDY C. ANDREWS  800 : "11:11:"DISPLAY CHARACTERS":12:11:"BY ANDY C. ANDREWS""BY ANDY C. ANDREWS":BD$:34,5:16:BD$:35,15S n::5)"(1) CHARACTER DISPLAY"t x:5)"(2) CHARACTER EDITOR" :5)"(3) CONTINUE WITH PROGRAM" 16368,0 K(16384):K128150 16368,0 K177210 K178ĺDK$;"RUN EDITOR"0   EAMON IS A CREATION ? OF DONALD BROWN G e( MENU 2 BY ANDY C. ANDREWS < F:DK$(4)PZBD$"........................................"/ dBD$;:9:"EAMON UTILITY MASTER":10:                HER & SHIELD,CHAIN MAIL,CHAIN & SHIELD,PLATE,PLATE & SHIELD9));WODDS%(I)2AGEAWA%(WTYPE%(I));"%"0Ie23::"PRESS ANY KEY TO CONTINUE "::16368,0K(16384):K12875016368,0K155800 RECREC1:310 *22:80"PRESS ANY KEY TO CONTINUE "::16368,0K(1"WEAPON INFORMATION:"@"NAME COMPLEXITY DAM ODDS"I" "TI14nWNAME$(I)"NONE"730WNAME$(I);17(WNAME$(I)));WODDS%(I);"%";6(WODDS%(I)0)((WOODS%(I))9)((WODDS%(I))99));WDICE%(I);"D";WSIDES%(I);)3(WSIDES%(I)WA%(3)4:4);"SPEAR ";WA%(4);10);"SWORD ";WA%(5)=D" "iN"ARMOUR: ";:(AC2)1600,610,620,630{X"SKIN";:640b"LEATHER";:640l"CHAIN";:640v"PLATE";:640(" AND SHIELD",110(AC2(AC2)));" AE=";AE;"%"" " " "@ "HARDINESS ";HD;" AGILITY ";AG;" CHARISMA ";CHI " "d 13);"SPELL ABILITY" "BLAST ";SA%(1);" HEAL ";SA%(2);" SPEED ";SA%(3);" POWER ";SA%(4) &" ":13);"WEAPON ABILITY"0"AXE ";WA%(1);9);"BOW ";WA%(2);9);"CLUB ";(X),WSIDES%(X):X" DK$;"CLOSE"i EA5(AC2(AC2)):AC1EAEA10:AC3EAEA10:AC5EAEA40 EAEAAE:EA0EA0 NAME$""790 :(12); "CHARACTER NAME: ";NAME$ " " "SEX ";SEX$;3);"GOLD ";GOLD;3);" IN BANK ";BANK ,DK$(4):REC12 6DK$;"OPEN CHARACTERS,L150"S @DK$;"READ CHARACTERS,R";RECl JNAME$:NAME$""790z THD,AG,CH ^X14:SA%(X):X hX15:WA%(X):X rAE |SEX$ GOLD,BANK AC X14:WNAME$(X),WTYPE%(X),WOODS%(X),WDICE%R.";:D$;"CLOSE":A$::C0:1030C6D$"CLOSE":1140:MO$"A"2610M@1030J11:958:8);:"RECORD NUMBER:";C$:(C$)1(C$)((C$))1610TC(C$):CNCĺ"THERE AREN'T THAT MANY!":X1500:X:1610^1140:MO$"A"2610h1030r /// CORD NUMBER":8);" 3. NEXT RECORD":X3:1100DS1550,1610,1650X /// FIND NAME11:958:8);:"CHARACTER NAME:";NAME$"D$"OPEN CHARACTERS,L150" ,C1NC:D$"READ CHARACTERS,R";C:FINM$:FINM$NAME$Ă:8);"I CAN'T FIND THAT CHARACTE:WSIDES%(X):D$2UP0:ADD0:D$"CLOSE":H >>> STOP SCREEN|:7);"PRESS ANY KEY TO CONTINUE";7);::A$:X1700:X: /// SELECT RECORDUPİ1400.11:958:8);"SELECT RECORD BY:":8);" 1. NAME":8);" 2. REACTERS,R";C:X$:NA$$n1170:1030;x /// WRITE RECORDsD$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R";CNAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X):AE:SEX$:GOLD:BANK:ACX14:WNAME$(X):WTYP%(X):WODDS%(X):WDICE%(X)%(X)0:WD%(X)0:WS%(X)0:WO%(X)0:N2NA$"BADREC":AE0:SEX$"M":1400:1030^< READ DEADF:"DO YOU WANT TO TREAT THIS AS A DEAD":" CHARACTER?";PA$:A$"Y"A$"N"1360ZA$:A$"N"C0:1030dD$"OPEN CHARACTERS,L150":D$"READ CHART  THE WONDERFUL WORLD OF4 EAMON:X A COMPUTERIZED FANTASYs ROLE-PLAYING SYSTEMy RULES AND CORE PROGRAMS BY DONALD BROWN 407 PEERY PARKWAY GOLDEN, CO 80401   DRAGON PICTUR     NO PROGRAM IN MEMORYNO LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0ɧi `hhLȪ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶giihijg` Lӆ Ԇ8stijRLghLABCՆ>ֆ?sȥ Ȫ͆0 ҅ >&eѥȥ񥰶L & &ghȱ y y;L ۥghij L L  ͆0 ҅ >&eee膝JJJJ)ŝƝLpƞߥ ML#gL )WHLC L , Ɇ ɀL  , ҅LзLgş堰G L & & & .ee'Lyi<>zi=i??><>=?>BPݱ>BL@ /@i ipm@8e@@AiA8ϥ_^8LKLKA$ (A$)3Ā( (A$)131150T :4)"RENUMBER IS INSTALLED AND READY" 8:"IF YOU USE 'FP', 'HIMEM', OR 'MAXFILES'" :" YOU WILL HAVE TO RE-RUN RENUMBER" (4)"MAXFILES 3" ' DO NOT CHANGE 10010 '(121)(122)256316A:S$: B1:S$;:40:S$:E L::"RENUMBER (DEFAULT VALUES)"w V:"& [FIRST 10] [,INC 10] [,S 0] [,E 63999]" `:"MERGE" j:"&H PUT PROGRAM ON HOLD" t"&M MERGE TO PROGRAM ON HOLD" ~23: "PRESS 'RETURN' TO CONTINUE..."; -=============>RENUMBER<===============<:::255VS$"&":1080:2:10903:"&";:12:"APPLESOFT RENUMBER";:40:"&":4:1090$5:"&";:4:"COPYRIGHT APPLE COMPUTER,INC. 1978";:40:"&".6:1090:7:1080::1100 8A139:S$;:     ۃ㟬Ⴣ Ïئ          U":"THROUGH WITH A SPEED YOU HAVE NEVER":"SEEN BEFORE! (AND NEVER WILL AGAIN.)":OU":"THROUGH WITH A SPEED YOU HAVE NEVER":"SEEN BEFORE! (AND NEVER WILL AGAIN.)":S OFF!!":"HE THEN EATS IT!!!!":"THEN HE SAYS 'ARE YE READY T' TALK NOW?":CNT13ĺ"THE MAN CUTS OFF ANOTHER FINGER!!!":"HE EATS THIS ONE TOO!!":S"THE MAN STARTS SLOWLY, 'WELL YE BE ":"OUTTA FINGERS!'":"THE MAN THEN SPINS AROUND AND RUNS YOND BEGINS TO":"SHARPEN IT, SAYING 'YE'D BEST BE GIVIN'":"ME YER NAME LADDIE, IF YE KNOW WOTS":"GOOD FER YE!!!"wCNT2ĺ"I'VE 'BOUT HAD ME FILL O' YER SICK":"SENSA 'UMOR!!":"NOW GIMME YER NAME!!":LCNT3ĺ"THE MAN CUTS ONE OF YOUR FINGERHERE YE"::"BE! WELL, GO AND HAVE FUN IN THE HALL!'":\T350:DK$;"RUN MAIN HALL,S6,D1"^DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":NAME$:R:DK$;"CLOSE": ///NO NAME ROUTINECNTCNT1:CNT1450q" HE PULLS OUT A SWORD A"Y"2906A$::" HE HITS HIS FOREHEAD AND SAYS, 'AH,"::"YE MUST BE NEW HERE! WELL, WAIT JUST"::"A MINUTE AND I'LL BRING SOMEONE OUT TO"::"TAKE CARE OF YE.'":@350:DK$;"RUN NEW CHARACTERS,S6,D1"8JDK$::" HE LOOKS UP AND SAYS, 'AH, 1NC:DK$;"READ CHARACTERS,R";R:A$:A$NAME$330R:DK$:" HE EVENTUALLY LOOKS AT YOU AND SAYS,"::"'YER NAME'S NA IN HERE. HAVE YE GIVEN"::"IT TO ME ARIGHT?'"::"HOW DO YOU ANSWER (HIT 'Y' OR 'N') ";"A$:A$"N"ĺA$::400:230,A$"A"(NAME$,1)"Z"İ400:230(NAME$)20ĺ" HE SCOWLS AT YOU AND SAYS, 'YER"::"NAME'S TOO LONG FER ME BOOK. I CANNA"::"USE MORE THAN TWENTY LETTERS."::230" HE STARTS LOOKING THROUGH HIS BOOK,"::"MUTTERING ABOUT ";C1$::C2$:2RLOW DIRECTIONS!'":A$:::" YOU ARE GREETED THERE BY A BURLY"::"IRISHMAN WHO LOOKS AT YOU WITH A SCOWL"::"AND ASKS YOU, 'WHAT'S YOUR NAME?'"::"YOU GIVE HIM YOUR NAME (TYPE IT IN NOW) ";NAME$:NAME$""(NAME$)2(NAME$,1) (HIT 'D' FOR DESK OR 'M' FOR MEN) ";8 16368,0:L A$:A$"D"220] A$"M"190A$:::" AS YOU GO OVER TO THE MEN, YOU FEEL"::"A SWORD BEING THRUST THROUGH YOUR BACK"::"AND YOU HEAR SOMEONE SAY, 'YOU REALLY"::"MUST LEARN TO FOLING AND LAUGHTER.":::" ON THE NORTH SIDE OF THE CHAMBER IS" :"A CUBBYHOLE WITH A DESK. OVER THE DESK"::"IS A SIGN WHICH SAYS 'REGISTER HERE"::"OR ELSE!'":( :"DO YOU GO OVER TO THE DESK OR JOIN THE"::" MEN DRINKING THE BEER?"::" (CM$,24):DK$"CLOSE SNAPPY"^ DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:DK$@ 5:" YOU ARE IN THE OUTER CHAMBER OF THE"::"HALL OF THE GUILD OF FREE ADVENTURERS."::"MANY MEN AND WOMEN ARE GUZZLING BEER"::"AND THERE IS LOUD SING HALL (IF OLD* %///CHARACTER) OR TO NEWG &///CHARACTERS (IF NEW).M 'd d(4);"MAXFILES 8"j iy n:DK$(4) xX((78)(79)) }DK$"OPEN SNAPPY,L64":DK$"READ SNAPPY,R0":NS:R((1)NS1):DK$"READ SNAPPY,R";R:CM$:C1$(CM$,23):C2$E SHOWN  DURING PROGRAM BY=  R.L. PHILLIPS & FRIENDSW  OF ANN ARBOR, MICH.s  THE BEAUTY IS GREATLY  ENJOYED.  ///BOOTUP PROGRAM FOR !///EAMON UNIVERSE. "///GETS NAME OF PLAYER #///AND EITHER SENDS TO $///MAIN*""*""""$$"0·޿ " $"">$ $ "$$"*<" $""<"ᗠ"*"&<" ""< Ƈ&<< "< }]U]Yп那ȇಠ"<"0ǟ࿈$$فȖ$  描ῠȁ6""$" " "  }kI]]਼揿"0ऎ񟈌$؛  $̱>"" > О쁠"  Aw]c]ο"  >>Ɓ ǟ ȇФ£        ā̃>"""<<<""<<"<"<<""<""<<<<"<"<A]]c]Á́Ʊ"<"Ã">>Ł<"< < " Ȣ "< "<賐Ї"""" """"""""""""*"""""""""""" ""*"""}]]]]6""""0ύ࿂""" 8""8"8̣ 8 "" 8"""號Ё>""2<><""""""<"""*">"*$>>"2"""**><"""*>"*>"}A]]M迌сر*>"*>">>$$>0<"<$">$<$"$ȁ$>*">$">""Ġ"*"*  "  """""" <"""""*$" "<ρÁ㣞*"">"**" <   """""*"<a]U]UȁؿكșXTERITY FOR A TIME"g"POWER--DOES SOMETHING WEIRD. THE EXACT":" EFFECT IS UNPREDICTABLE.":9:"OTHER TYPES OF MAGIC MAY WORK IN VARIOUSADVENTURES, AND ITEMS MAY HAVE SPECIAL":"PROPERTIES. HOWEVER, THESE WILL NOT":"WORK IN OTHER ADVENTUR:"(HIT ANY KEY TO CONTINUE) ";:A$::|"YOU MAY ALSO HIRE A WIZARD TO TEACH YOU":"SOME MAGIC SPELLS. THERE ARE FOUR":"SPELLS YOU MAY LEARN."::"BLAST--HURT YOUR ENEMIES FROM A DISTANCEHEAL --REMOVE DAMAGE FROM YOUR BODY.":"SPEED--DOUBLE YOUR DE HIGH.":h"AFTER YOU BEGIN TO ACCUMULATE WEALTH,":"YOU MAY WANT TO PUT SOME OF YOUR MONEY":"INTO THE BANK, WHERE IT CANNOT BE":"STOLEN. HOWEVER, IT IS A GOOD IDEA TO":"CARRY SOME GOLD WITH YOU FOR USE IN")r"BARGAINING AND RANSOM SITUATIONS.":NESS RATING BY YOUR":"CHARISMA LESS TEN, DIFFERENCE TIMES TWO":"(";(CH10)2;"%)": ^"YOU START OFF WITH 200 GOLD PIECES,":"WHICH YOU WILL WANT TO SPEND ON SUPPLIESFOR YOUR FIRST ADVENTURE. YOU WILL GET":"A LOWER PRICE FOR ITEMS IF YOUR CHARISMAISBE":"MERELY TOLD THINGS SUCH AS"::" 'WOW! THAT ONE HURT!'":"OR 'YOU DON'T FEEL VERY WELL'":J"(HIT ANY KEY TO CONTINUE) ";:A$::UT"YOUR CHARISMA (";CH;") AFFECTS HOW CITIZENS":"OF EAMON REACT TO YOU. YOU AFFECT A":"MONSTER'S FRIENDLIOND=10 DOS)":6"ADDITIONALLY, YOUR HARDINESS TELLS HOW":"MANY POINTS OF DAMAGE YOU CAN SURVIVE.":"THEREFORE, YOU CAN BE HIT WITH ";HD:"1-POINT BLOWS BEFORE YOU DIE.":c@"HOWEVER, YOU WILL NOT BE TOLD HOW MANY":"BLOWS YOU HAVE TAKEN. YOU WILL EXPERTISEIS, HOWEVER, THE NET EFFECT OF ARMOUR":"WILL NEVER INCREASE YOUR CHANCE TO HIT.":""(HIT ANY KEY TO CONTINUE) ";:A$::,:"YOU CAN CARRY WEIGHTS UP TO TEN TIMES":"YOUR HARDINESS, OR ";HD10;" GRONDS.":"(A MEASURE OF WEIGHT, ONE GRATE";18);5;35);"-60%":" SHIELD";18);1;35);"- 5%":::"YOU WILL DEVELOP AN ARMOUR EXPERTISE,":"WHICH WILL GO UP WHEN YOU HIT A BLOW":"WEARING ARMOUR AND YOUR EXPERTISE IS":"LESS THAN THE ARMOUR YOU ARE WEARING."]"NO MATTER HOW HIGH YOUR ARMOURABSORB HITS PLACED UPON YOU(ALMOST":"ALWAYS!) BUT THEY LOWER YOUR CHANCE TO""HIT. THE PROTECTIONS ARE--"::"ARMOR";15);"HITS PROTECT ODDS ADJUST"::" NONE";18);"0";35);"- 0%":" LEATHER";18);1;35);"-10%":" CHAIN";18);2;35);"-20%"" PLY 2%, IF A RANDOM NUMBER FROM 1-100":"IS LESS THAN YOUR CHANCE TO MISS!":u"(HIT ANY KEY TO CONTINUE)";:A$::M"THERE ARE FOUR ARMOR TYPES, AND YOU MAY":"ALSO CARRY A SHIELD IF YOU DO NOT USE":"A TWO-HANDED WEAPON. THESE PROTECTIONS":"WILL T ABILITIES WITH EACH) ARE--":" CLUB/MACE 20%":" SPEAR 10%":" AXE 5%":" SWORD 0%":" BOW -10%":K"EVERY TIME YOU SCORE A HIT IN BATTLE,":"YOUR ABILITY IN THE WEAPON CLASS MAY GO":"UP BATION ABOUT THE WORLD OF EAMON ": :"YOU WILL HAVE TO BUY A WEAPON. YOUR":"CHANCE TO HIT WITH IT WILL BE THE":"WEAPON COMPLEXITY, PLUS YOUR ABILITY":"IN THAT CLASS, PLUS TWICE YOUR AGILITY.": "THE FIVE CLASSES OF WEAPONS (AND YOUR":"CURRENA(8)N x" HARDINESS--";HD:" AGILITY --";AG:" CHARISMA --";CH;"'":W }600 "(HIT 'R' TO READ INSTRUCTIONS, 'T' TO GIVE THEM BACK)"; A$:A$"T"500 A$"R"140# ::"YOU READ THE INSTRUCTIONS AND THEY SAY--"::" INFORM Z:"THE IRISHMAN WALKS AWAY AND IN WALKS A":"TALL MAN OF POSSIBLY ELVISH DESCENT."::"HE STUDIES YOU FOR A MOMENT AND SAYS,":"'HERE IS A BOOKLET OF INSTRUCTION FOR" d"YOU TO READ, AND YOUR PRIME ATTRIBUTES":"ARE--": nHDA(8):AGA(8):CHN THE ADVENTURER,S6,D1":DK$;"READ THE ADVENTURER":NAME$:DK$;"CLOSE" 2:"THE IRISHMAN SAYS, 'FIRST I MUST KNOW":"WHETHER YE BE MALE OR FEMALE. WHICH ARE":"YE (HIT 'M' FOR MALE, 'F' FOR FEMALE)?"; <SEX$:SEX$"M"80 FSEX$"F"60 PSEX$: THE WONDERFUL WORLD OF4 EAMON:V CHARACTER GENERATORp AND INSTRUCTIONSv BY DONALD BROWN DK$(4)XX((78)(79)256)R(X)(X(1)1)A(X)R(X)R(X)R(X)F (DK$;"OPE                !!! ! ! ! ! !!!!!!ŠΠҠӮŠԠΠŠҠԠȠŠ٠ǮĠԠĠĠҠĠϠ̠Π֮ŠĠŠϠӠҠĠŠϠٍŠĠŠϠӠҠĠԠƮǠΠĠ٠ҠĠΠӠԍ٠ǠӠŠΧΠƠȠŠҠȮ٠ӠΧΠ٠ĠҠŠΠϠϮǠӠΧҠ̠ŠӠΧРĠ̠٠Ġ̠ԠӠҠҠήǠϠŠӠΠˠӠŮǠΠ٠ӠŠԠҠǠŠӠ׭ԭ̠ӠƠŠנӠ̠Ϡ͠ήƠŠӠŠŠŧӠǠϠԠӠԠŮŠĠŠϠӠҠĠΠΠήĠҠΧǠӠĠŠΠԠΠǮŠΠӠŠΠҠŠԠŠ̮ŠĠŠϠӠҠĠŠϠٮǠҠӠϠϠΠǠŠӠƠӮǠέӠӠĠŠϠĠ͠٠ŠčŠӠŠӠϠȠҠŠĠӮōҍ͍ȭōōҍ͍ҍҍ͍ҍōō6384):K128790 16368,0-*K15584034F>RECREC1:350XH:DK$;"PR#0"vR12:13:"END OF PROGRAM"\22:90f EAMONp CHARACTER EDITORz BY ANDY C. ANDREWS3570X15:'N' ";#lA$:A$"Y"A$"N"6205v::A$"N"ı"WE RESSURRECT YOU AGAIN AND YOUR PRIME"::"ATTRIBUTES ARE --":::110ARRECT YOU AGAIN AND YOUR PRIME"::"ATTRIBUTES ARE --":::110":"0"560D:DK$;"CLOSE"bDDK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":NAME$:R:DK$;"CLOSE"{NDK$;"RUN MAIN HALL"SX /// SUICIDE ROUTINE b:"IF YOU WISH, WE WILL ALLOW YOU TO COM-":"MIT SUICIDE. ENTER 'Y' TO SUICIDE,":"ELSE TYPE R1NC:DK$;"READ CHARACTERS,R";R:A$:A$""Ă:DK$;"WRITE CHARACTERS,R0":NC1:RNC1~DK$;"WRITE CHARACTERS,R";R:NAME$HD:AG:CH:X14:"0":&"5":"-10":"20":"10":"0":"0":SEX$:"200":"0":"0"0W14:"NONE":"0":"0":"0,0":INSTRUCTIONS AND SAYS, 'IT IS NOW TIME":"FOR YOU TO START YOUR LIFE.' HE MAKES":"AN ODD SIGN WITH HIS HAND AND SAYS,":"'LIVE LONG AND PROSPER.'":"YOU NOW WANDER INTO THE MAIN HALL."WDK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:ES THAN WHERE THEYWERE FOUND. THUS, IT IS BEST (AND YOU""HAVE NO CHOICE BUT TO) SELL ALL ITEMS":"FOUND IN ADVENTURES, EXCEPT FOR WEAPONS":"AND ARMOUR.":"(HIT ANY KEY TO CONTINUE) ";:A$::"THE MAN BEHIND THE DESK TAKES BACK THE":"E IT OR":"LEAVE IT!'"::"(HIT T OR L) ";HA$:A$"L"ĺA$::2210ZA$"T"2260A$::"MARCOS SAYS, 'OKAY, WHAT'VE YOU GOT?"::"(ENTER THE WEAPON NAME)";W$:W14:WN$(W)W$Ă::"MARCOS FROWNS AT YOU AND SAYS, 'YOU":"CAN'T SELL A WEAPONx:"MARCOS ASKS YOU, 'IS THIS WEAPON YOU":"WANT TO SELL ME A STANDARD WEAPON LIKE":"I SELL? (HIT 'Y' OR 'N') ";A$:A$"Y"2350A$"N"2230,A$::P(50RTIO.5):"MARCOS SAYS, 'THEN I CAN ONLY GIVE YOU":P;" GOLD PIECES FOR IT, TAKGOLDP(50)2210_z"HE NOW ASKS YOU, 'NOW HOW ABOUT SOME":"ARMOUR?'"::"(HIT Y OR N) ";{A$:A$"N"ĺA$::2210A$"Y"2180A$:2490"MARCOS SMILES AND SAYS, 'COME BACK":"AGAIN SOON!' AS HE SHOOS YOU OUT OF HIS":"SHOP."::100HOOS YOU OUT THE":"DOOR."::100GHW14:WN$(W)N$N$N$"#":2120gRW:W14:WN$(W)"NONE"Ă\WN$(W)N$:WT%(W)TP:WO%(W)10(2Q):WD%(W)DICE:WS%(W)SIDES:GOLDGOLDPf"MARCOS HANDS YOU YOUR WEAPON AND TAKES":"THE PRICE FROM YOU.":p"GFP",Q,1)Ă:2090;4A$:PBPBP(Q1)BP2(Q3):PP(P)!>PGOLDĺ:"MARCOS SHAKES A FINGER AT YOU AND SAYS,":"'YOU SHOULDN'T PLAY TRICKS ON AN OLD":"FRIEND! COME BACK WHEN YOU GOTTA MORE":"GOLD OR YOU WANT SOMETHING YOU CAN":"AFFORD.' HE THEN SPPEN TO":"HAVE THREE ";N$;"S IN, OF VARYING":"QUALITY. I'VE GOT A VERY GOOD ONE FOR":P(2BP);" GP, A FAIR ONE FOR ";P(BP);" GP," "AND A KINDA SHABBY ONE FOR ";P(BP2):"WHICH DO YOU WANT?'"::"(HIT THE KEY, G F OR P) ";*A$:Q13:A$(OU GOTTA SELL ME A":"WEAPON. YOU KNOW THE LAW--NO MORE THAN":"FOUR WEAPONS PER PERSON!'"::2220 "MARCOS SMILES AT YOU AND SAYS, 'GOOD.":"I GOTTA THE BEST. YOU WANTA AXE, BOW,":"MACE, SPEAR, OR SWORD?"::2650:"MARCOS SAYS, 'WELL, I JUST HA"SOME BETTER ARMOUR?"::"(HIT THE KEY, B S OR A) ";fC2CH(11(1)5):C2C2(C20):RTIO10C2A$:TR13:A$("BSA",TR,1)Ă:2030A$::TR2050,2220,2490bWN$(4)"NONE"ĺ"MARCOS SMILES AT YOU AND SAYS, 'THATSA":"GOOD, BUT FIRST Y"RUN ";ADNAME$:"AS YOU ENTER THE WEAPON SHOP, MARCOS":"CAVIELLI (THE OWNER) COMES FROM OUT OF":"THE BACK ROOM AND SAYS, 'WELL, AS I"7"LIVE AND BREATH, IF IT ISN'T MY OLD PAL":NAME$;"! SO, YOU WANT TO":"BUY A WEAPON, SELL A WEAPON, OR GET": ";:16368,0%A$:A$"C"1020+sDK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":ADNAME$:DK$;"CLOSE":5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$:::$DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT":REC:200:DK$;"CLOSE":DK$;IDES%(W):W ^ DK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTERS,R";REC::DK$;"CLOSE":5:"INSERT DISKETTE WITH ADVENTURE (OR KEEP"::"THIS DISKETTE FOR BEGINNERS CAVE) IN"::"DISK DRIVE IN SLOT SIX, DRIVE ONE THEN"::"HIT 'C'"::::" T THE KEY FOR YOUR CHOICE, 1-6)";D A$:CMD(A$):CMD1CMD6130r CMD::CMD1000,2000,3000,4000,5000,6000 NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X)::AE:SEX$ GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSON SHOP FOR WEAPONS AND/OR ARMOUR." n" 3. HIRE A WIZARD TO TEACH YOU SOME SPELLS.":" 4. FIND THE BANKER TO DEPOSIT OR":" WITHDRAW SOME GOLD.":" 5. EXAMINE YOUR ABILITIES.":" 6. TEMPORARILY LEAVE THE UNIVERSE."! x:"(HI$_ FGOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$;"CLOSE"w PP(X)(XRTIO.5)) d:"AS YOU WANDER ABOUT THE HALL, YOU":"REALIZE YOU CAN DO ONE OF SIX THINGS--":" 1. GO ON AN ADVENTURE.":" 2. VISIT THE WEAP  DK$(4) 7000y DK$;"OPEN THE ADVENTURER,S6,D1":DK$;"READ THE ADVENTURER":NAME$:REC:DK$;"CLOSE" (100 2DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R";REC:NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AE <SEXr, THE WONDERFUL WORLD OF2 EAMON8T MAIN HALL (BUY SPELLSp AND EQUIPMENT AND GO ON ADVENTURES) BY DONALD BROWN ADDITION COMPUTER LEARNING CENTER 1983 ULD BE TURNED INTO FROGS."::100'& SA%(SP)ĺ"HOKAS SAYS, 'I OUGHT TO TAKE YOUR":"GOLD ANYWAY, BUT HAVEN'T YOU FORGOTTEN":"SOMETHING? I ALREADY TAUGHT YOU THAT":"SPELL!'"::"SHAKING HIS HEAD SADLY, HE RETURNS TO":"BAR."::100(0 GOLDGOLDP:SA%(80,3090%& "BLAST":PP(3000):3100B& "HEAL":PP(1000):3100`& "SPEED":PP(5000):3100w& "POWER":PP(100)!' :PGOLDĺ"WHEN HOKAS SEES THAT YOU DON'T HAVE":"ENOUGH TO PAY HIM, HE STALKS TO THE":"BAR, MUTTERING ABOUT YOUNGSTERS WHO":"SHO5((KK)));KK<% " POWER ";:KKP(100):5((KK)));KKm% " SPEED ";:KKP(5000):5((KK)));KK:% "WELL, WHICH WILL IT BE?'"::"(HIT THE KEY FOR YOUR SPELL, B,H,S OR P) ";% A$:SP14:A$("BHSP",SP,1)Ă:3040& SP3060,3070,30"LOOKS AT YOU AND SAYS, 'SO YOU WANT OLD":"TOKEY TO TEACH YOU SOME MAGIC, HEH HEH?"$ "WELL, IT'LL COST YOU. TODAY MY FEES ARE:":C2CH(11(1)5):C2C2(C20):RTIO10C2$ " BLAST ";:KKP(3000):5((KK)));KK% " HEAL ";:KKP(1000):TP3:SIDE4:2750# A$;:V# A$:A$"P"ĺ"PEAR":BP25:TP4:SIDE5:N$"SPEAR":2750h# A$"W"2720# "WORD":BP50:N$"SWORD":TP5:SIDE8# DICE1:# U$ :"AFTER A FEW MINUTES DILIGENT SEARCHING,":"YOU FIND HOKAS TOKAS, THE OLD MAGE. HE":"F ACA22SH::100"P F"Z "(HIT THE KEY(S), A B M SP OR SW) ";:p"d A$:W14:A$("ABMS",W,1)Ă:2660"n W2680,2690,2700,2710"x "AXE":BP25:N$"AXE":TP1:SIDE6:2750" "BOW":BP40:N$"BOW":TP2:SIDE6:2750# "MACE":BP20:N$"MACE":590!2 A$::GOLDP(50)ĺ"WHEN HE SEES THAT YOU DO NOT HAVE":"ENOUGH GOLD TO BUY THE SHIELD, MARCOS":"FROWNS AND SAYS, 'I'M SORRY, BUT I":"DON'T GIVE CREDIT!'"::2630!< GOLDGOLDP(50):SH1:"MARCOS TAKES YOUR GOLD AND GIVES YOU":"A SHIELD.": AND HELPS YOU INTO YOUR NEW":"ARMOUR."::GOLDGOLDP:A2A1J SH2630  "MARCOS SMILES AND SAYS, 'NOW HOW ABOUT":"A SHIELD? I CAN LET YOU HAVE ONE FOR":"ONLY ";P(50);" GOLD PIECES!'"::"(HIT Y OR N)";  A$:A$"N"ĺA$::2630!( A$"Y"22530 A$::A12570 PP(100(A2)250(A3)500(A4))TI:PGOLDĺ"MARCOS FROWNS WHEN HE SEES THAT YOU DO":"NOT HAVE ENOUGHT TO PAY FOR YOUR":"ARMOUR AND SAYS, 'I DON'T GIVE CREDIT!'"::2570= "MARCOS TAKES YOUR OLD ARMOUR AND YOUR":"GOLD50);" FOR":"THE CHAIN, AND ";P(500);" FOR THE PLATE.": TIĺ"ALSO, I CAN GIVE YOU A TRADE-IN ON YOUR":"OLD ARMOUR OF ";TI;" GOLD PIECES.": "WELL, WHAT WILL IT BE?'"::"(HIT N FOR NOTHING OR L C OR P) "; A$:A14:A$("NLCP",A,1)Ă: TAKES YOU TO THE ARMOUR SECTION":"OF HIS SHOP AND SHOWS YOU SUITS OF":"LEATHER ARMOUR, CHAIN ARMOUR, AND PLATE.":TIB12TIB129 :"HE SAYS, 'I CAN PUT YOU IN ANY OF THESE":"VERY CHEAPLY. I NEED ";P(100);" GOLD":"PIECES FOR THE LEATHER, ";P(2$::2300Dt :W14:("ABMS",W,1)(W$,1)ĴW2440,2450,2460,2470K~ W[ BP25:2370k BP40:2370{ BP20:2370 (W$,2,1)"P"BP25:2370 BP50:2370 A2(AC2):SHACA22:B125(A21)60(A22)100(A23):TI(B1RTIO.5):"MARCOSO.5):PBP4P(BP4.5)L "MARCOS EXAMINES YOUR WEAPONS AND SAYS,":"'WELL, YOU'VE BANGED IT UP A BIT, BUT":"I CAN GIVE YOU ";P;" GOLD PIECES":"FOR IT, TAKE IT OR LEAVE IT.'"::"(HIT T OR L) ";V A$:A$"L"ĺA$::2210` A$"T"2390 j A$ A$::2160U. :"MARCOS ASKS, 'WELL, WHAT WEAPON YOU":"WANTA RETURN?"::2650:8 W2W:W14:(WN$(W),(N$))N$Ă:"MARCOS LAUGHS AND SAYS, 'YOU NEVER":"BOUGHT ONE FROM ME, REMEMBER?'"::2210B BPBPBP(WO%(T)5)BP2(WO%(T)5):P(BPRTI:GOLDGOLDP:W2W4:WN$(W2)WN$(W21):WT%(W2)WT%(W21):WO%(W2)WO%(W21):WD%(W2)WD%(W21):WS%(W2)WS%(W21)::WN$(4)"NONE" :"MARCOS ASKS YOU, 'HOW ABOUT BUYING A":"WEAPON?'"::"(HIT Y OR N) "; A$:A$"Y"ĺA$::2050 A$"N"2320  YOU DON'T OWN!'"::2210L(W$,5)"SWORD"(W$,5)"SPEAR"(W$,4)"MACE"(W$,3)"BOW"(W$,3)"AXE":Lĺ"MARCOS FROWNS AT YOU AND SAYS, 'THIS IS":"A WEAPON LIKE I SELL, REMEMBER!'":2420"MARCOS GIVES YOU YOUR MONEY AND TAKES":"YOUR WEAPON.":; EAMON ADVENTURE #1:-> THE BEGINNERS CAVE <-@Y BY DONALD BROWN_ ADDITION COMPUTER LEARNING CENTER 1983(:10:"PLEASE WAIT A SHORT WHILE"::" (WAKING UP THE MONSTERS)" 2DK$(4):!""" " " " " """""""""               :DK$;"CLOSE".4DK$;"DELETE THE ADVENTURER"44k4X(222)5ĺ(4);"RUN THE WONDERFUL WORLD OF EAMON"q4lN GO ON ADVENTURES) BY DONALD BROWN ADDITION COMPUTER LEARNING CENTER 1983 IT ANY KEY TO CONTINUE) ";:A$::100,33p"AS YOU LEAVE THE HALL, THE IRISHMAN":"COMES UP TO YOU, SLAPS YOU ON THE BACK":"AND SAYS, 'Y'ALL COME BACK REAL SOON,":"YA HEAH?'" 4zDK$;"OPEN CHARACTERS,L150,S6,D1":DK$;"WRITE CHARACTERS,R";REC:200OLD;", BANK=";BANK"W2:"WEAPONS";19);"CMPLX DAM":W14:W1WN$(W)"NONE"50902WN$(W)"NONE"ĺ:" NO WEAPONS":50902WN$(W);20(WO%(W)0)((WO%(W))10)((WO%(W))100));WO%(W);"% ";WD%(W);" D ";WS%(W)&3W:23:16368,0:"(H":" AXE BOW CLUB SPEAR SWORD":" ";:W15:1(WA%(W)0)((WA%(W))10)((WA%(WA))100));WA%(W);"% ";::1:A2(AC2):"ARMOUR: ";("SKIN LEATHERCHAIN PLATE ",A271,7);:ACA22ĺ" AND SHIELD";230);"AE=";AE;"%"::"GOLD IN HAND=";GSEX$"F"),7);NAME$::"YOUR ATTRIBUTES ARE:":" HD=";HD;" AG=";AG;" CH=";CH:0"YOU KNOW THE FOLLOWING SPELLS--":SM0:S14:SA%(S)ĺ("BLASTHEAL SPEEDPOWER",(S1)51,5);" ";:SM10S:SMĺ" NO SPELLS";r1::"YOUR WEAPON ABILITIES ARE--BOUT FOOLS":"WHO PLAY TRICKS ON A KINDLY BANKER."::100/GOLDGOLDMNY:BANKBANKMNY:"SHYLOCK TAKES YOUR MONEY, PUTS IT IN":"HIS BAG, LISTENS TO IT JINGLE, THEN":"THANKS YOU AND WALKS AWAY."::100/"P0:"YOU ARE THE ";("MIGHTY FAIR ",17( SCOWLS AT YOU AND SAYS,":"'COME, COME, YOU'RE NOT MAKING SENSE!":"TRY AGAIN.'"::41009/MNYGOLDĺ:"THE BANKER WAS VERY PLEASED WHEN YOU":"TOLD HIM THE SUM, BUT WHEN HE DISCOVEREDTHAT YOU DIDN'T HAVE THAT MUCH ON YOU,":"HE WALKED AWAY, SHOUTING A"HAND AND WALKS AWAY."::100-"SHYLOCK GETS A WIDE GRIN ON HIS FACE":"AND SAYS, 'GOOD FOR YOU! HOW MUCH DO":"YOU WANT TO DEPOSIT?'"Y.:"(ENTER THE AMOUNT YOU WANT TO DEPOSIT)":" ";A$:MNY(A$):MNY0MNY(MNY)(MNY)A$ĺ:"THE BANKER GOT!":"YOU KNOW I DON'T MAKE LOANS TO YOUR":"KIND!' WITH THAT HE LOSES HIMSELF IN":"THE CROWD."::100-GOLDGOLDMNY:BANKBANKMNY::"THE BANKER HANDS YOU YOUR GOLD AND":"SAYS, 'THAT LEAVES YOU WITH ";BANK:"PIECES IN MY CARE.' HE SHAKES YOUR":S TO":" WITHDRAW) ";A$:MNY(A$):MNY0MNY(MNY)(MNY)A$ĺ:"THE BANKER SCOWLS AND SAYS,'COME, COME,":"YOU'RE NOT MAKING SENSE! TRY AGAIN.'"::4060k,MNYBANKĺ:"THE BANKER THROWS YOU A TERRIBLE GLANCE":"AND SAYS, 'THAT'S MORE THAN YOU'VE::"(HIT 'D' FOR DEPOSIT, 'W' FOR WITHDRAWL) ";N*A$:A$"D"ĺA$::4090`*A$"W"4030*A$::"SHYLOCK SAYS, 'WELL, YOU HAVE ";BANK:"GOLD PIECES STORED WITH ME. HOW MANY":"DO YOU WANT TO TAKE BACK?'":+"(ENTER THE NUMBER OF GOLD PIECE BANKER, DUE TO HIS":"LARGE BELLY."::"YOU ATTRACT HIS ATTENTION, AND HE COMES":"OVER TO YOU AND SAYS, 'WELL,")NAME$;", MY DEAR ";("GIRLBOY",(SEX$"M")41,4);",":"WHAT A PLEASURE TO SEE YOU! DO YOU WANT"2*"TO MAKE A DEPOSIT OR A WITHDRAWL?'"SP)(50(1)26):"HOKAS TEACHES YOU YOUR SPELL, TAKES":"HIS FEE, AND RETURNS TO HIS STOOL ON":"THE BAR. AS YOU WALK AWAY YOU HEAR"(: "HIM ORDER A DOUBLE DRAGON BLOMB."::100(D q):"YOU HAVE NO TROUBLE SPOTTING SHYLOCK":"MCFENNEY, THE LOCAL550H " WEAPON BROKEN!":AD%(MD%(OF,9),4)0:MD%(OF,9)1:(1).9ĺ:k " BROKEN WEAPON HURTS USER!"| FR1003560 DMD%(OF,11):SMD%(OF,12):DFOF:A1:3650 DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:3650INC((100(1)1)MD%(OF,10)):MDRL(100(1)1):HIT0:RL5RLMD%(OF,10)HIT1> HIT3600V RL97ĺ"A MISS.": "A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED.":: FR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,9)1:: FR953300D MD%(DF,3)MD%(DF,3)2:NBTLMD%(DF,14)0:TD%(0)TD%(0)MD%(DF,1):TD%(1)TD%(1)MD%(DF,1):FD%(0)FD%(0)MD%(DF,13):FD%(1)FD%(1)MD%(DF,13):300N R2ROOM:MD%(DF,14)0:5100 HIT0:MD%(OF,9)1ı MN$(OF);" ATTACKS ";MN$(DF):" --";0 D%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::100O OF0:DFM:3500:HIT3130} INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2 EAAE300 (100(1)1)MD%(0,10)3130& A2:EAAE1A10 AEAEA:MD%(0,10)MD%(0,10)A: (MD%(DF,14))DF01NA:AD%(A,4)12080LWTWTAD%(A,3):AD%(A,4)ROOM:AN$(A);" DROPPED."X A:300o ///ATTACK COMMANDy 1950 S$"RAT"3050 M13:MD%(M,5)ROOMS$MN$(M) M M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"ATTACK WHO?"::1000 M///DROP COMMAND1950bNBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100uS$"ALL"2060A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::100WTWTAD%(A,3)::"DROPPED.":AD%(A,4)ROOM::300 ATAD%(A,3)::AD%(A,2)2MD%(0,9)13004V16000U`A1NA:AD%(A,4)ROOM1150jWTAD%(A,3)10MD%(0,1)ĺAN$(A);" IS TOO HEAVY":1150tAN$(A);" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)~::300S$""ĺ:C$(C);" WHAT";:S$:19500'A1416:AD%(A,4)ROOMS$AN$(A)-$Q.S$"GOLD"S$"COINS"S$AN$(5)8A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::100BWTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR YOU."::100)L:"GOT IT.":AD%(A,4)1:WTW14)DFM2:3500:M2200:M2:430,M2:4002TNBTL(FD%(0)TD%(0)):NBTLĂMZc100w///GET COMMAND1950S$"TORCH"ĺ:"ALL TORCHES ARE BOLTED TO THE WALL AND":"CANNOT BE REMOVED."::300S$"ALL"1120S$"RAT"1071):FD%(MD%(M,14))FD%(MD%(M,14))MD%(M,13):430B^MD%(M,14)390lhOFM:TD%(1)MD%(0,1)DF0:3500:430rM21NM:MD%(M2,5)ROOMMD%(M2,14)(1).25DFM2:3500:M2200:M2:430|M2:DF0:3500:430OFMM21NM:MD%(M2,5)ROOMMD%(M2,DS RETURN TO HERE 6NBTL440@@M1NM:MD%(M,5)ROOM430JMRFD%(MD%(M,14))TD%(MD%(M,14))FD%(MD%(M,14))TD%(MD%(M,14))5(41(1)20)/TMD%(M,4)MRĺ:MN$(M);" FLEES OUT AN EXIT."::17500:MD%(M,5)R2:TD%(MD%(M,14))TD%(MD%(M,14))MD%(M,:::160' C$(C)S$S$V$:V$C$(C) C1000,1000,2000,3000,4000,4000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,6000,7000,8000,10000,11000,12000,13000,14000,15000,16000,17000,17000,17000,18000,18000,19000,20000,21000,///COMMAN165$ A$""A$CZ$:(37):17:A$L CZ$A$:A2(A$):(A$,A,1)" "Ăj V$(A$,A1):S$(A$,A1) (S$,1)" "S$(S$,2):185 C1NC:C$(C)V$C$(C)S$Ă::"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC:C$(C);20(C$(C)));:1:AD%(A,4)ROOM(ANA)V%(ROOM)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$:A$ AD%(A,4)ROOM(ANA)V%(ROOM)ĺ"YOU SEE ";AN$(A) A:AD%(NA,4)ROOMĺ"YOUR ";AN$(A);" IS HERE." V%(ROOM)1 :" YOUR COMMAND?";A$ (A$,1)" "A$(A$,2):M)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$:h M1NM:MD%(M,5)ROOMMD%(M,15)ĺMN$(M);" IS HERE." MD%(M,5)ROOMMD%(M,15)ĺDK$;"READ EAMON.DESC,R";M300:A$:DK$:A$:MD%(M,15)1:M10ĺDK$;"READ EAMON.DESC,R202":A$:DK$::A$:N M:A1NA22000% d///GIVE ROOM DESC IF NEVERD i///HERE, THEN GET COMMANDJ n sSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2) xV%(ROOM)ĺDK$;"READ EAMON.ROOM NAMES,R";ROOM:A$:DK$:"YOU ARE STANDING IN":" ";A$:/ }V%(ROO