' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]$$8HIL,նh, ,`, ,`, , ,:/8` 鷎귭෍ᷩ췩緈JJJJx Lȿ 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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭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-(3 àԠ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` F d ֠Ġz# u`󮍍箠箠䍠箠箠򮍍򠭠䮠󮍍箠堣箠宠󺍍䠲󍠠󠲰󍠠󠳰󍍮Ѯԍ宠宠󠲰蠳󠳰蠴䠰󠯠󠯠󠯠󍍠󠠠󍠠󠱰栲䮠󠱠蠱󠱰蠲䠭䮍ѮÍ宍젭宠宍󮍍젭宠쬠嬠宠󠭠堶Ѯō宠庍堭󮍍ѮԠ󮍍Ѯà䮍Π򮍍宠庍ѮŠ򍠠宍ѮӠ󮍍ѮΠ뮍묠벰ɮᮠ宠ᠱ󠾠䠭栱쮠宍󠭠䮠栲򮍍堭宠쮠栱ᮍ󠭠䮍堭󮍍宠宍󠭠堥嬠样宍󠭠ﱠ蠷样򠳠砷䮩嬠򠱲󠷰ᠷᠷ䮠򍠠䮍䮍􍠠䩍򍠠箍Ѯ΍ẍ򠭠󠭠󮍍󮍍󠯠Ԡ󮍍䬠젠堭󮍍󠭠嬠򠭴讍젨󍠠占􍠠卮ѮӠ嬠󮍍頠堯􍠠򍠠򠣠䍠򠽠ፍ庍󍠠򍠠䠭썠荠􍠠獍庍򍠠占堮堨占荠荠􍠠􍠠占ѮӍ렭堥䠯堭嬠󮍮堥宍嬠占젭占䍠占獠䍠占󍠠䍍宩場쮩󠭠䮠庍ᠷ䮍堠宠宠報󠠭堽䬠䮠嬠栳謠謠㮩堰󠭠宠Ġ栶󮍍򠭠箠堲場䠷󠱴󠨴򠭠󠨱宠򠣱򠴶報󠾠堾謠讠򠴵򠭱                   䬠宍箍宠宠嬠뮠뮍묠⮍⮠򬍍򠵲⬠󮍍栤  Ѡb@Ll  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4`J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&0& lR(A1$A2$)1(A1$A2$)X21070/ vRA2$> RA$A1$A2$L RX(A$):(8);(8);B &RA1$:A1$ML$A1$":"A2$A1$:A1$"0":A1$;A2$:21120j 0R(A1$"0"A1$"9")A1$(21)21030 :RA1$(21)A1$"0" DRA1$; NRA2$:A2$(8)A1$"":A2$;:21030 XRA2$(13)A2$A1$:A1$"0":(8);A1$;A2$:21120 bRA2$"0"A2$"9"2107M N === GET NUMBER 1-9 ===-*NX921000R4N"INPUT YOUR CHOICE (1-";X;") ";h>N"[_]";(8);(8);HNX$:(X$)1(X$)X20040RN(X$):X(X$):R === GET NUMBER > 9 ===RML$((X),1):"INPUT YOUR CHOICE (1-";X;") "; R"[__]";(8);(  z #???     ԠŠ àɯɫ2 Ӡ9Ѡ٠ ˠàԠGԮԠԮӠԮŠԮ̠ԮŮӠԮӠFOXT1280FT%(IT)X$ 1240; === ADD RACE ===Y8:958:"NEW RACE:";RC$i#RC$""300(X1XR:RC$(X)RC$Ă:13502:"THAT RACE ALREADY EXISTS.":9200:1340<LOCK300A9000:1300F == NO DUP ==PX1XR:RC$(X)"THAT TYPE IS ALREADY DEFINED.":9200:1240;LOCK300K9000:1200^ == NO DUP ==X1XU:U$(X)""Ă:XUXU1:XXUITX:NUNU1:U$(IT)U$8:958:"CAN ADVENTURER HAVE ONE? ";:9100:U%(IT)(A$"Y") SLLURC:LU6:9300:LURCSL:E ADDED.":9200:1100(~ == NO DUP ==GX1XL:L$(X)""Ă:1180hITX:L$(IT)L$:NLNL1:1140NLNL1:XLXL1:L$(XL)L$:1140 === ADD USEFUL ===8:958:"NEW ARTIFACT TYPE:";U$U$""300X1XU:U$(X)U$Ă:1250,: === ADD ===8LURC1100,1200,1300,1400,1500,1600SL === ADD LANGUAGE ===tV8:958:"NEW LANGUAGE:";L$[L$""300`X1XL:(L$(X),1)(L$,1)Ă:1150j:"REPLACE ";L$(X);"?"::9100:A$"Y"L$(X)L$tLOCK300y:"LANGUAG5) [_]";:23>TA$:(A$"1"A$"5")A$(12)A$(16)340\^A$(12)LOCKLOCK:300xhA$(16)PRTPRT:300rA$:ACT(A$):ACT5BW1:200|5:((41(TY$(LURC))(ACT$(ACT)))2):ACT$(ACT);" ";TYP$(LURC)ACT1000,2000,3000,4000,1,LOCK):40:2:("P",1,PRT)@8:1:"SELECT ACTION DESIRED:"::" 1. ADD ";AN$;TY$(LU)::" 2. CHANGE ";AN$;TY$(LU)::" 3. DELETE ";AN$;TY$(LU) J:" 4. LIST ";TY$(LU);("E",1,((TY$(LU),1)"S"));"S"::" 5. RETURN"::"SELECT NUMBER (1- MENU"::"SELECT (1-3) [_]";:16=A$:A$"1"A$"3"230QA$:A$"3"100^ST(A$){, === FUNCTION MENU ===1:14);"KNIGHT QUEST":10);"L.U.R.C. MAINTENANCE":11);"COPYRIGHT (C) 1983":13);"BY JOHN NELSON"66:958:40:1:("L",1)VOW14:AN$("AN",1,VOW1)" ":A$"W"5000EA$"Q"6000` === GET SUB-TYPE ===|LURC3LURC4BW100LURC3LURC4300"8:958:"SELECT SUB-TYPE:"::" 1. ";TY$(LURC);" NAME"::" 2. ADJUSTMENT"::" 3. RETURN TO MAIND QUIT":" Q. QUIT - NO UPDATE"K:"SELECT NUMBER (1-6) W/Q [_]";:26A$:(A$"1"A$"6")A$"Q"A$"W"A$(12)A$(16)150A$(12)LOCKLOCK:100A$(16)PRTPRT:100 A$:LURC(A$):VOW0:X15:(TY$(LU),1)("AEIOU",Xi n:14);"KNIGHT QUEST":10);"L.U.R.C. MAINTENANCE":11);"COPYRIGHT (C) 1983":13);"BY JOHN NELSON" s40:1:("L",1,LOCK):40:2:("P",1,PRT) x8:958:"SELECT TYPE OF DATA:":!BW0:X216:" ";X2;". ";TY$(X2)::" W. WRITE FILES ANCLASS,R";XNR:CL$(X):X2010:CA%(X,X2)::I K >> DONE READING FILES] PD$"CLOSE":95 ZD$"OPEN KNIGHT.SPELLS,L32":D$"READ KNIGHT.SPELLS,R0":NS:X1NS:D$"READ KNIGHT.SPELLS,R";X:SN$(X),SE%(X)::D$"CLOSE" _216,0 d === MAIN MENU ==="CLOSE":65 <D$"OPEN KNIGHT.RACE.CLASS,L64":D$"READ KNIGHT.RACE.CLASS,R0":NR,NC:X1NR:D$"READ KNIGHT.RACE.CLASS,R";X:RC$(X):X2010:RA%(X,X2):::XCNC:XRNR AD$"CLOSE":75- FD$"OPEN KNIGHT.RACE.CLASS,L64":X1NC:D$"READ KNIGHT.RACE.EAD KNIGHT.LANGUAGE,R0":NL:XLNL:X1NL:D$"READ KNIGHT.LANGUAGE,R";X:L$(X),LL%(X),LC$(X),LP%(X):y -D$"CLOSE":55 2D$"OPEN KNIGHT.USEFUL,L16":D$"READ KNIGHT.USEFUL,R0":NU:XUNU:D$"READ KNIGHT.USEFUL,R";X:X1NU:U$(X),U%(X),FT%(X): 7D$4),DF%(30,4){ XFFM:X1FM:D$"READ KNIGHT.FORMAT,R";X:FRMT$(X):X214:FM$(X,X2)::X214:DF%(X,X2):::D$"CLOSE" :8:"INSERT MASTER DISKETTE AND PRESS ANY KEY":14);"TO CONTINUE ...";:A$: 45e (D$"OPEN KNIGHT.LANGUAGE,L32":D$"RE KNIGHT QUEST4 L.U.R.C. MAINTENANCE; V COPYRIGHT (C) 1983o BY JOHN NELSONu{ 10-15: 2-4-87 LINE 13330 11000:12000 D$"OPEN KNIGHT.FORMAT,L128":D$"READ KNIGHT.FORMAT,R0":FM:FRMT$(30),FM$(30,                           E RACE ===A& RC$(IT)"":NRNR1:XXRXRXR1:LOCKİ9000:3000J& 300e&H === DELETE CLASS ===&R CL$(IT)"":NCNC1:XXCXCXC1:CADCAD1:LOCKİ9000:3000&\ 300& === DELETE SPELL ===' SN$(IT)"":NSNS1:XXSXSXS1:LOCKİ9000:3009300:FOXT300% ITX<% LURC3100,3200,3300,3400,3500V% === DELETE LANG ===%& L$(IT)"":NLNL1:XXLXLXL1:LOCKİ9000:3000%0 300% === DELETE USEFUL ===% U$(IT)"":NUNU1:XXUXUXU1:LOCKİ9000:3000% 300 & === DELET958:"SELECT FIELD TO CHANGE:":" 1. ";TY$(LURC);" NAME":" 2. ";F2$:" 3. ";F3$:"INPUT NUMBER (1-3) [_]";(8);(8);$h A$:A$"1"A$"3"2920$r A$:X(A$):$ === DELETE ===$ LURC6Ģ6:958:"FORMATS MAY NOT BE DELETED.":9200:300% :2000#} 3008# 8:958:"INPUT FIELD NUMBER 5-8:";T# A$:A$"5"A$"8"2692# A$:X2(A$)4:8:958:"OLD DEFAULT IS ";DF%(IT,X2):"NEW DEFAULT:";A$:A$""300# DF%(IT,X2)(A$):LOCKİ9000:2000# 300#T === GET CHG FLD ===x$^ 8:FORMAT NAME:";A$:A$""300>"_ FRMT$(IT)A$:LOCKİ9000:2000G"b 300p"d 8:958:"INPUT FIELD NUMBER 5-8:";"n A$:A$"5"A$"8"2670"s A$:X2(A$)4:8:958:"OLD LABEL IS ";FM$(IT,X2):"NEW LABEL:";A$:A$""ī2000#x FM$(IT,X2)A$:LOCKİ9000(SE$)100ĺ:"THAT EXCEEDS MAXIMUM OF +/-100.":9200:2530O! SE%(IT)(SE$)e! LOCKİ9000:2000n! 300!( === CHANGE FORMAT ===!2 F2$"FIELD LABELS":F3$"DEFAULT VALUES":2900!F X2650,2660,2690"Z 8:958:"OLD NAME IS ";FRMT$(IT):"NEW SPELL NAME IS ";SN$(IT);"."A "NEW SPELL NAME:";A$:A$""2530 (A$,1)"A"(A$)"Z"ĺ:"NOT A VALID SPELL NAME.":9200:2500 SN$(IT)A$ 8:958:"OLD SPELL EFFECT IS ";SE%(IT);"." "NEW SPELL EFFECT:";SE$:SE$""25801d:D$"CLOSE"D1a1 === WRITE RACE.CLASS =1D$"OPEN KNIGHT.RACE.CLASS,L64":D$"WRITE KNIGHT.RACE.CLASS,R0":NR:NC2R0:X1XR:RC$(X)""RR1:D$"WRITE KNIGHT.RACE.CLASS,R";R:RC$(X):X201 KNIGHT.LANGUAGE,R0":NLw0L0:X1XL:L$(X)""LL1:D$"WRITE KNIGHT.LANGUAGE,R";L:L$(X):LL%(X):LC$(X):LP%(X)0F:D$"CLOSE":0P === WRITE USEFUL ===-1ZD$"OPEN KNIGHT.USEFUL,L16":D$"WRITE KNIGHT.USEFUL,R0":NU:U0:X1XU:U$(X)""UUY")/WLİ5100/WUİ5200-/WSİ5400;/WCİ5300I/WTİ5500W/WFİ5600/:6:"INSERT DISKETTE TO BOOT ON AND PRESS ANY":12);"KEY TO CONTINUE ... ";:A$::D$"PR#6"/ === WRITE LANGS ===0D$"OPEN KNIGHT.LANGUAGE,L32":D$"WRITE:9100:WL(A$"Y"):"ARTIFACT TYPES ";:9100:WU(A$"Y")c."RACES / CLASSES ";:9100:WC(A$"Y")z.WCCADWT1:5070."*** OPTIONAL ***":"TITLES FILE ";:9100:WT(A$"Y")."SPELLS FILE ";:9100:WS(A$"Y")/"FORMAT FILE ";:9100:WF(A$":"* CONFIRM *":::"DO YOU WANT TO WRITE THESE FILES ONTO"::"DISKETTE - PRESS 'C' TO CONTINUE ...":-" ANY OTHER KEY TO ABORT.";-A$::A$"C"1008.:14);"KNIGHT QUEST":14);"WRITE FILES":8:"SELECT FILES TO WRITE:":"LANGUAGES ";D$"PR#1":9600O,f10PRT(40(16(CL$(RC))))2);"ADJUSTMENTS FOR ";CL$(RC),pX010:10PRT3((X1)));X1;". ";CJ$(X);:Y135(CJ$(X))((CA%(RC,X))):".";::CA%(RC,X),:LP0:D$;"PR#0":9600:300, === END - WRITE ===i-:14);:ĺD$"PR#1":9600P+10PRT(40(16(RC$(RC))))2);"ADJUSTMENTS FOR ";RC$(RC)+ X010:10PRT3((X1)));X1;". ";RJ$(X);:Y135(RJ$(X))((RA%(RC,X))):".";::RA%(RC,X)+ :LP0:D$;"PR#0":9600:300+\ === LIST CLASS ADJ ===,aPRT2030PRTİ9600:LP05*:LP0:D$"PR#0":9600:300O* === LIST SPELLS ===*X1XS:10PRT3((X)));X;". ";SN$(X);35((SE%(X))));SE%(X)*LPLP1:LP20PRT30İ9600:LP0*:LP0:D$"PR#0":9600:300* === LIST RACE ADJ ===+PRT:ST246009)X1XR:10PRT3((X)));X;". ";RC$(X)^)LPLP1:LP2030PRTİ9600:LP0):LP0:D$;"PR#0":9600:300)0 === LIST CLASS ===)::ST24700)DPRTĺD$"PR#1":9600)NX1XC:10PRT3((X)));X;". ";CL$(X)*bLPLP1:LP0:LP0&(T:LP0:D$"PR#0":9600:300@(h === LIST USEFUL ===(rX1XU:10PRT3((X)));X;". ";U$(X);20);("NY",U%(X)1,1);37((FT%(X))));FT%(X)(|LPLP1:LP2030PRTİ9600:LP0(:LP0:D$"PR#0":9600:300( === LIST RACE === )0 ' 300' === LIST ===(':LP0X'(LURC3LUR4)ST2İ9300:RCX:FOXT300q'PRTĺD$"PR#1":9600'LURC4100,4200,4300,4400,4500,46000' === LIST LANG ==='X1XL:10PRT);3((X)));X;". ";L$(X)(LPLP1:LP20PRT30İ960EE,15,ATTALL,5,RAGE,2,PURIFY,3:<\+ === FIND LANGUAGE ===+ LANGUAGE,ARTIFACT,RACE,CLASS,SPELL,FORMAT,ADD,CHANGE,DELETE,LIST,WRITE,QUIT;H+ MAX HD,MAX AG,MALE HD ADJ,FEMALE HD ADJ,AGIL ADJ,MALE CH ADJ,FEMALE CH ADJ,INTEL ADJ,#SPELLS ADJ,CAR.ART ADJ,HEIG(12)9%:10);TYP$(LURC)"9%;9* === INITIALIZE ===9+D$(4):L$(26),U$(40),RC$(16),CL$(10),RA%(16,10),CA%(10,10),LL%(26),LC$(26),LP%(26),U%(40),FT%(40)9 +SN$(25),SE%(25):X16:TYP$(X)::X16:ACT$(X)::+X010:RJ$(X)::X010:CJ$(11100,11200,11300,11400,11500,1160088$ === GOT # ===n8$X(A$):LURC11150,11250,11350,11450,11550,11650t8%8% === PRESS ANY KEY ===8&%24:"====== PRESS ANY KEY TO CONTINUE ======";:A$:::8% === HEADING ===8%PRT95009%LP0ĺ((ACT$(ACT),1)"E")1);".":9200:97# === GET Y/N ===H7#"(Y/N) ";f7#A$:A$"Y"A$"N"9120p7#A$:7# === DELAY ===7#X11200:X:7T$XT0:8:958:"INPUT ";TYP$(LURC);:" NAME OR NUMBER:";A$:(A$)093507^$A$""XT1:$8|$LURCԍԣנӍנōčЍԣӍōӍˍӍ̠î̍čˍӍؠčؠЍč̍Ӎ΍͠ύččӍ΍̥č̍ӍԮō̠ԍčҍ٣נōУčōţԠԍӍčٍӍԠĩͣčҍԠĩԍӠЍč̱ӍӍԍč΍ΠōٍōӍ     ōҍ΍čōō͍̍ōō΍ԍōōōŠ̍ȍٍԍ͍ōٍԍōԍŠčԍҍЍà׍΍ҍ̍Р̍ȍƠٍ̍ҍōҍ׍ōčōҍҍŠōàč    ȍȍȍȍȍȍō΍  ""!!! A$Ă::"RACE NOT FOUND.":9200:.>8,FO1:G>V, === CHK RACE # ===>`,X1XXRĺ"THAT IS NOT A LEGAL RACE NO.":FO0:9200:>j,FO1:>, === FIND CLASS ===>,FO0:X1XC:(CL$(X),(A$))A$Ă::"CLASS NOT FOUND.":9200:>,FO1:?, ==USEFUL ===W=+FO0:X1XU:(U$(X),(A$))A$Ă::"ARTIFACT TYPE NOT FOUND.":9200:b=+FO1:|=+ === CHK USEFUL # ===+X1XXUĺ"THAT IS NOT A LEGAL ARTIFACT NO.":FO0:9200:=,FO1:=$, === FIND RACE ===#>.,FO0:X1XR:(RC$(X),(A$))KIN,3,0110,1650Cl/ NERDISH,1,1111,620,ORCISH,3,1111,375,PEONESE,0,1111,290,QUARKISH,5,1001,750,RIGELLIAN,6,0011,1550,SKULLEN,5,1101,1900Dv/ TROLLISH,0,1111,200,UNKNOWN,999,0000,0,VILLANESE,999,0000,0,WEIRDISH,999,0000,0,XYBER,999,0000,0,YITTICK,999, ARCADIAN,2,1111,350,BARBARISH,1,1100,900,COMMON,0,1111,0,DWARFISH,1,1111,450,ELFISH,0,1111,350,FALCONESE,6,0011,4200,GERBISH,1,1110,450,HUNGRIAN,1,1111,300CX/ IDIOTESE,0,1100,650,JUNGLESE,3,1111,500,KREEBISH,4,0110,1850,LATISH,4,0011,1250,MUNCHLOAD DATA <<<AA.NL:XLNL:X1NL:L$(X),LL%(X),LC$(X),LP%(X):aA.NR:XRNR:X1NR:RC$(X):A/NC:XCNC:X1NC:CL$(X):A/NU:XUNU:X1NU:U$(X),U%(X):A/X1NR:X2010:RA%(X,X2):::X1NC:X2010:CA%(X,X2)::AC/AD/ 26BN/ SPELL NO.":FO0:9200:#@2-FO1:=@P- === FIND FORMAT ===@Z-FO0:X1XF:(FRMT$(X),(A$))A$Ă::"FORMAT NOT FOUND.":9200:@d-FO1:@- === CHK FORMAT # ===@-X1XXFĺ"THAT IS NOT A LEGAL FORMAT NO.":FO0:9200:@-FO1: A. >>> = CHK CLASS # ===M?,X1XXCĺ"THAT IS NOT A LEGAL CLASS NO.":9200:FO0:X?,FO1:q?, === FIND SPELL ===?,FO0:X1XS:(SN$(X),(A$))A$Ă::"SPELL NOT FOUND.":9200:?-FO1:?- === CHK SPELL # ===@(-X1XXSĺ"THAT IS NOT A LEGALMvRA2$MRA$A1$A2$%MRX(A$):@M === LIST FORMATS ===MX1XF:LPLP1:10PRT3((X)));X;". ";::FRMT$(X)::X214:10PRT6);FM$(X,X2);32);DF%(X,X2)MijLPLP1Mس:LP1630PRTİ9600:LP0M:LP0:D$"PR#0":9600:300A1$:A1$"0":A1$;A2$:21120CL0R(A1$"0"A1$"9")A1$(21)21030ZL:RA1$(21)A1$"0"dLDRA1$;LNRA2$:A2$(8)A1$"":A2$;:21030LXRA2$(13)A2$A1$:A1$"0":(8);A1$;A2$:21120LbRA2$"0"A2$"9"21070LlR(A1$A2$)1(A1$A2$)X2107021000+K4N"INPUT YOUR CHOICE (1-";X;") ";AK>N"[_]";(8);(8);`KHNX$:(X$)1(X$)X20040uKRN(X$):X(X$):KR === GET NUMBER > 9 ===KRML$((X),1):"INPUT YOUR CHOICE (1-";X;") ";KR"[__]";(8);(8);(8);L&RA1$:A1$ML$A1$":"A2$CG);".":"INPUT NEW ";CJ$(CG);:":";CA%(IT,CG):GJ4 === ADJ MENU ===J48:958:"SELECT FIELD TO CHANGE:":X010:3((X1)));X1;". ";ADJ$(X)::" 12. RETURN"J4XT0:X12:20000:X12XT1:J4CGX1J5J N=== GET NUMBER 1-9 ===K*NX9 ";RJ$(CG);:":";RA$`I4(RA$)100(RA$)100RA$((RA$))ĺ:"INVALID VALUE.":9200:13330I&4RA%(IT,CG)(RA$):13500:XTıI0413330IX4 === CHG CLASS ADJ ===Ib4X010:ADJ$(X)CJ$(X)::13500:XTı0Jl48:958:"OLD ";CJ$(CJ);" IS ";CA%(IT,"INPUT ";CJ$(X2);:":";A$:(A$)100(A$)100A$((A$))ĺ"INVALID VALUE.":9200:13230pH3CA%(IT,X2)(A$)vH3|H3H3 === CHG RACE ADJ ===H3X010:ADJ$(X)RJ$(X)::13500:XTıI48:958:"OLD ";RJ$(CG);" IS ";RA%(IT,CG);".":"INPUT NEWNR1:RC$(IT)RC$G@3X2010GJ3X28:958:"INPUT ";RJ$(X2);:":";A$:(A$)100(A$)100((A$))A$ĺ"INVALID VALUE.":9200:13130GT3RA%(IT,X2)(A$)Gr3G|3G3 === ADD CLASS/ADJ ===G3NCNC1:CL$(IT)CL$G3X2010[H3X28:958:-5,10,10: FIGHTER ADJUSTOF(2 1,4,-6,-10,-3,1,0,-10,5,5,5: THIEF ADJUSTF22 -5,-3,5,19,2,-2,15,-30,-30,-40,-45: CLERIC ADJUSTF<2 -4,-3,2,20,4,-2,10,-9,5,-20,-25: MAGE ADJUSTFd2F2 === SUBROUTINES ===F,3 === ADD RACE ===G63NR,0,EFFECT,0,WEAPON,1,FOOD,1,DRINK,1,BANK,1,INSTRUCT,0,RESURRECT,1,TRAP,0zE2 24,24,0,-4,0,-1,2,0,0,0,0: HUMAN ADJUSTE 2 22,22,0,-3,0,-6,-7,0,0,0,-20: DWARF ADJUSTE2 19,26,-5,-6,4,3,5,10,1,0,-10: ELF ADJUST