' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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-( ԠԠ@跻~!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 ~(` d ֠z# u`:(37)13Ģ15:4:1210!1210< SC(X15)1:SC11400G16:7^A$:A$(27)1400(A$(13)ST%((37)14)1:"_":7:13102A$(21)Ģ(37)2:(37)20Ģ16:7:1310<A$(21)1310FA$(8)Ģ(37):(37)15Ģ20P1310x14:,WW%(R,X),WC%(R,X),WD%(R,X),WS%(R,X):\& AE%(R),AN$(R),AA%(R),AH%(R),HN$(R),HA%(R),HH%(R)+ CS%(R,X),WG%(R,X),YR%(R,X),EYE%(R,X),IJ$(R,X),SD%(R,X),ST%(R,X)0 :D$"CLOSE"3: 8000:MRNLė:"THE SPECIFIED RECORD LENGTH WILL NOT BE SUFFICIENT TO COREAD CHARACTERS,R";R:NA$(R),RC%(R),CL%(R),LV%(R),MI%(R),PT%(R):HD%(R),AG%(R),CH%(R),IN%(R),HT%(R) LG$(R),SEX$(R),GOLD(R),BANK(R):X15:WA%(R,X)::KS%(R):X1KS%(R):SN$(R,X),SN%(R,X),SA%(R,X),SE%(R,X):& CA%(R):X1CA%(R):WN$(R,X),WT%(R,X)NR,10),WW%(NR,10),WC%(NR,10),WD%(NR,10),WS%(NR,10),AE%(NR),AN$(NR),AA%(NR),AH%(NR),HN$(NR),HA%(NR),HH%(NR),CS%(NR),WG%(NR),YR%(NR),EYE%(NR),IJ$(NR),SD%(NR),ST%(NR) R1NR:D$"READ CHARACTERS,R";R:NA$(R):NA$(R)""NA$(R)"*DEAD"3120c R1NR:D$" D$"READ CHARACTERS,R0":RL,NR:D$:NA$(NR),RC%(NR),CL%(NR),LV%(NR),MI%(NR),PT%(NR),HD%(NR),AG%(NR),CH%(NR),IN%(NR),HT%(NR),LG$(NR),SEX$(NR) GOLD(NR),BANK(NR),WA%(NR,5),KS%(NR),SN$(NR,10),SN%(NR,10),SA%(NR,10),SE%(NR,10) CA%(NR),WN$(NR,10),WT%(CORD LENGTH OF ";NL;" FROM"::"AN EXISTING FILE WITH A RECORD LENGTH"::" OF ";RL;". PRESS 'C' TO CONFIRM" :" PRESS ANY OTHER KEY TO ABORT WRITE.": A$::A$"C"100 D$"OPEN CHARACTERS,L";RL:FL$("NEW ",1,(IO)4)"CHARACTERS"1010  === GET I/O CODE ===/ IOIO:100I === WRITE FILES === NL512ė:8:"THE NEW LENGTH HAS NOT BEEN ESTABLISHED.":7000:100 :15);::"* CONFIRM *"::6:"CHARACTERS FILE WILL BE ";("RE-",1,IO3);"WRITTEN":q "WITH A NEW RE$:(A$)1000,2000,3000,40005  === NEW LENGTH ===| 8:958:4:"OLD LENGTH: ";::RL;::22:"NEW LENGTH: ";::NL: 12:8:"INPUT NEW LENGTH: ";NL$ NL$""100 ((NL$))NL$(NL$)512NL(NL$):100 :"INVALID LENGTH.":7000:T:T$(CL,X)T$(1,X):::1U WRITE TITLES FILEJUL16NC:LTLİ23000UD$"OPEN TITLES":D$"DELETE TITLES":D$"OPEN TITLES,L";TL:R1:X1NTVD$"WRITE TITLES,R";R:CL1NC:T$(CL,X)::RR1V:D$"WRITE TITLES,R0":TL:R1:LT:IT:CT VDB$:>B$(8)ĺB$;:160106>B$"0"B$"9"16050M>(A$B$)1116050`>A$A$B$:B$:p` >> QUITj:5:"INSERT DISKETTE TO BOOT ON AND PRESS ANY":" KEY TO CONTINUE ...":16384,128~D$"PR#6" GE ===a':C36,10:4((W)));W;". ";:36,19:L$(W);:36,35:LL%(W);:36,48((LP%(W))):LP%(W)l'bC15900r'C'8J === LOAD DATA ==='BJD$"OPEN KNIGHT.STORES"(LJD$"READ KNIGHT.STORES":NW:W$(NW),TW%(NW),WC$(NW),WL%(NW),WC%(NW),DW%(NW),SW%(NW),P7);"PRESS ANY KEY TO CONTINUE"7);::A$:::G> === INPUT SUB ===d>A$:A$"Q"A$"H"ĺA$:y>A$(21)A$"0">A$"0"A$"9"16010>A$"1"B$A$:A$"0":A$;B$:A$A$B$:>A$;>B$:B$(13)(A$)0B$A$:A$"0":(8);A$;B$:A$A$^oX21(LG$):(LG$,X2,1)(L$(X),1)Ă:6000:"YOU DON'T KNOW THAT LANGUAGE!":9900::28000kRoPLX2:Rp === DISPLAY LANG ===Rp6000:"LANGUAGES ";::"KNOWN";::"/POSSIBLE:"SpX1NL2:2((X)));X;". ";:Y1(LG$):(LG$,Y,1)(L$(X),1SES,(NOT USED),ROOM#,GUARD)  10,0,0,0S  FUEL,#USES,ART.TYPE,FILL AMT,GUARDd  100,5,50,0  CONTAINER,KEY#,NEW TYPE,TRAP#,GUARD  0,1,0,0  PORTAL,#USES,DIRECTION,ROOM INTO,GUARD  1,1,100,0 F FOOD,#MEALS,POISON,FILL%,GUAR1)Ģ(37)2:(37)101080- VA$(21)1090W `A$(8)Ģ(37):(37)8Ģ11:4:1090i jA$(8)1090s t1090y ~ 14:4 A$:A$(13)Ğ:" ":X(37):1290 A$(21)Ģ(37)2:(37)14Ģ14:4:1210 A$(21)1210A$(8)Ģ(37)7:"_ WEAPONS":17:7:"_ ARMOUR":18:7:"_ SHIELD":19:7:"_ SPELLS"| $20:7:"_ LANGUAGES":21:7:"_ GENERAL GOODS" .14:23:"[_] ALL CLASSES":15:23:"[_] SELECTED CLASS":15600 89:4 BA$:A$(13)Ğ:" ":RT(37)8:1150 LA$(2RITERIA"::9:3R BCNC:BEG1:X1NC:SC%(X)0::X17:ST%(X)0::NC9İ15000 "[_] SUPPLIES W/I CLASS":10:3:"[_] CLASS W/I TYPE":11:3:"[_] COMPRESSED LIST" 14:3:"[_] ALL TYPES":3:"[_] SELECT TYPE":15:3:"[_] SELECT TYPE"H 16:CE (1-3) [_]";(8);(8);3 A$:A$"1"A$"3"140R A$:(A$)1000,2000,30000m  === SET CONTROLS === :14);"KNIGHT QUEST":14);"STOCK REPORT":11);"COPYRIGHT (C) 1983":13);"BY JOHN NELSON" 8::2:"REPORT TYPE":13:12:"SELECTION C 19000:D$"CLOSE". d === MAIN MENU === n:14);"KNIGHT QUEST":14);"STOCK REPORT":11);"COPYRIGHT (C) 1983":13);"BY JOHN NELSON" x8:"SELECT FUNCTION:":" 1. SELECT REPORT":" 2. GENERATE REPORTS":" 3. EXIT" "INPUT YOUR CHOI$ KNIGHT QUEST3 STOCK REPORT9?\ COPYRIGHT (C) 1983 v BY JOHN NELSON| 11/13/83 D$(4)::1800 :6:"INSERT KNIGHT QUEST MASTER DISKETTE AND"::" PRESS ANY KEY TO CONTINUE ...";:A$:        " " I2$:'10030'10030AN,WEAPON TYPE,COMPLEXITY,DICE,SIDES2  4,10,1,6f  ARMOUR,(NOT USED),ADJUSTMENT,HITS STOP,GUARDu $ 0,15,2,0 B GENERAL1,#USES,CHANCES,EFFECT,GUARD L 3,100,3,0 t READABLE,LANGUAGE#,IST EFFECT,#EFFECTS,GUARD ~ 3,1,1,0  KEY,#U0":FMN X1FM:D$"WRITE KNIGHT.FORMAT,R";X:FRMT$(X):X214:FM$(X,X2):i &X214:DF%(X,X2)::x XD$"CLOSE" :6:"INSERT DISKETTE TO BOOT ON AND PRESS ANY":10);"KEY TO CONTINUE ...";:A$: S(43626):D$"PR#";S  13#  WEAPOe FM:FRMT$(FM),FM$(FM,4),DF%(FM,4):X1FM:FRMT$(X):X214:FM$(X,X2)::X214:DF%(X,X2):: ,:6:"INSERT DISKETTE TO RECEIVE FORMAT FILE"::" AND PRESS ANY TO CONTINUE ...";:A$: D$"OPEN KNIGHT.FORMAT,L128":D$"WRITE KNIGHT.FORMAT,RDY, AND WANT TO FIND THE ":"ANTIDOTE."3 5000:l 24::7);"PRESS ANY KEY TO CONTINUE";7):A$:::r AE USED BY THE DESIGNER OF A":"KNIGHT QUEST ADVENTURE, TO WARN HIM WHEN":"THEY HAD SET UP A POISONOUS FOOD PERHAPS" "BY ACCIDENT." $5000' ."IT MAY ALSO BE USED BY THOSE WHO WANT TO":"AVOID BEING POISONED, OR BY THOSE WHO ":"HAVE BEEN ALREAOISON FOOD.":"IF A POISONOUS FOOD IS FOUND, THE USER'S":"NOTIFIED AND YOU ARE GIVEN THE OPTION OF" "NUETRALIZING IT. IT ALSO TELLS THE USER ":"IF AN ANTIDOTE IS FOUND. THE ANTIDOTE IS":"ALSO ALLOWED TO BE NUETRALIZED. THIS WAS"t "INTENDED TO B) Qn28000&Qn === DELETE LANG ===QQn28800::"SELECT LANGUAGE TO DELETE."gQnXNL:2000:28500QnNL$"":X1(LG$):XPLNL$NL$(LG$,X,1)Qn:LG$NL$Qn28400Qn === LIST LANG ===Qn28800:::9900:28000QTo === FIND LANG ===_ROM"  >> TITLE CHANGE2 D$"RUN TITLE MAINT"J  >> CHANGE MUMBLESd D$"RUN MUMBLE MAINT"z p >> RELOAD STORE zD$"RUN KNIGHT STORE BEGIN" X >> LURC b:14);"KNIGHT QUEST":8);"CHANGE SYSTEM PARAMETERS"b l6:"SELECT PARAMETER  KNIGHT QUEST0 CREATE FORMATSJ COPYRIGHT (C) 1983b BY JOHN NELSONhnz D$(4)d:14);"KNIGHT QUEST":13);"CREATE FORMATS":11);"COPYRIGHT (C) 1983":13);"BY JOHN NELSON" 6:"LOAD TABLES OF FORMATS."WOULDN'T WORK.":8210 40I:"PRESS TO CONTINUE...";A$:40`PF >> READ EXISTINGZFD$"OPEN TITLES,L";TL:X1NT:D$"READ TITLES,R";X:CL1NC:T$(CL,X):::D$"CLOSE"FX8JD$"OPEN KNIGHT.RACE.CLASS,L64":D$"READ KNIGHT.RACE.CLASS,RTLE:";LP$:(LP$)1(LP$)99ĺ:"ILLEGAL VALUE":5090gLT(LP$):TI0:LLT:X1NT:TITIL:LLIT::"THAT WILL GIVE TITLES TO PLAYERS UP TO":" LEVEL ";TI:5090 >> CHG INCREASE RATE "NEW INCREASE RATE:";IT:IT0ĭ(IT)NTLTĺ:"THAT E CONTROLS":6:"SELECT ACTION..."T" 1. CHANGE LEVELS / TITLE":" 2. CHANGE INCREASE RATE":" 3. RETURN TO MAIN MENU":"SELECT NUMBER (1-3):";^A$:(A$)1(A$)38030hA$:(A$)8100,8200,40 >> CHG LT6"HOW MANY LEVELS PER TICE:";$A$:(A$)1(A$)NC60309A$:CL(A$):40IX >> QUITb22000::6:"INSERT DISKETTE TO BOOT ON AND PRESS ANY":" KEY TO CONTINUE ... ";:A$:lD$"PR#6"@ >> CHANGE CONTROLS "J:11);"TITLE MAINTENANCE":13);"TITLPRT);T$(CL,CNT)&nWLWLTC:TCTCIT,x?PRTĺD$"PR#0"I5090_p >> SELECT CLASSz:14);"KNIGHT QUEST":15);"CLASS TITLE":15);"SELECTION":8:"SELECT CLASS DESIRED:":X1NC:" ";X;". ";CL$(X):::"INPUT NUMBER FOR YOUR CHOINT:PRT15);3((X)));X;". ";T$(CL,X):= PRTĺD$"PR#0"GF5090dP >> LIST TITLE BRACKETSwUPRTĺD$"PR#1"Z::15PRT);"TITLE BRACKETS FOR ";CL$(CL):WL1:TCLT:CNT1NTdPRT15);4((WL)));WL;" -";4((TCWL1)));TCWL1;1315 TITLE BRACKETS"/:"SELECT NUMBER (1-2):";KA$:A$"1"A$"2"5030dA$:(A$)5100,520023::" PRESS ANY KEY TO CONTINUE "::16384,128:40 >> LIST TITLESPRTĺD$"PR#1"*::10PRT);"TITLES FOR ";CL$(CL):X1(Y/N):";&A$:A$"Y"A$"N"4030=A$::A$"N"4000gXTD%NT1:T$(CL,X)T$(CL,X1)::40} >> LIST TITLESCL06000::11);"KNIGHT QUEST TITLES";10)::6:"SELECT ACTION:"::" 1. PRINT ";CL$(CL);" TITLES"::" 2. PRINT:";+A$:A$"A"A$"B"A$(13)4006AA$:A$(13)ī40:"NUMBER OF TITLE TO DELETE:";TD$:TD%(TD$):TD%1TD%NT40A$"B"āX1NC:X2TD%NT1:T$(X,X2)T$(X,X21):::NTNT1:40:"DELETE ";T$(CL,TD%);"."::"IS THIS CORRECT? "N"3040! A$::A$"N"3000I 6:958:"NEW TITLE:";TI$:T(TC$)^ T$(CL,T)TI$:40t >> DELETE TITLECL060008:958:"SELECT OPTION:"::"A. DELETE TITLE ONLY FOR ";CL$(CL)::"B. DELETE TITLE FROM ALL CLASSES"::"ENTER A OR BDD FOR ";CL$(X);:":";TI$:T$(X,NT1)TI$::4NTNT1:40P >> CHANGE TITLE_ CL06000 6:958:"NUMBER OF TITLE TO CHANGE:";TC$:(TC$)1(TC$)NT40 :"CHANGING ";T$(CL,(TC$));".": "IS THIS CORRECT? (Y/N):";  A$:A$"Y"A$=== INIT FILE ===5500WD$(4):D$"OPEN MUMBLES,L128":D$"WRITE MUMBLES,R0":1D$"WRITE MUMBLES,R1":(34);"THE MAN STARTS MUMBLING ABOUT HAVINGHEARD THAT NAME BEFORE SOMEWHERE OR OTHER...";(34):D$"CLOSE"NS1100 | === CON::11);"*** PHRASE ";P;" ***"G :X1(PH$(P))40:(PH$(P),X,40)W :23:9900_:x === END OF JOB ===D$"OPEN MUMBLES,L128":D$"WRITE MUMBLES,R0":NS:D$"CLOSE":"====== PRESS ANY KEY TO CONTINUE ======";:A$:100 ER.":8;15900B;:11);"PRINT STOCK REPORT"::"REQUIRES A PRINTER. INVENTORY OF WEAPONSARMOURS, SHIELDS, SPELLS AND LANGUAGES AVAILABLE IN TOWN MAY BE PRINTED OUT. WRITTEN FOR EPSON PRINTERS."=15900::20> === PRESS KEY ===/&>24::   R&\?36,51:GT%(W);:36,56:GD%(W);:36,65:GW%(W);:36,725((GP%(W))):GP%(W)]&z?15900c&?&B === LANGUAGE HEAD ===&B36,12:"NO.";:36,19:"LANGUAGE";:36,33:"LEVEL";:36,43:"PRICE"&B36,12:X136:"=";::&&C'0C === LIST LANGUA21:"ARTIFACT";:36,33:"CHANCE";:36,43:"LVL";:36,51:"TYPE";:36,57:"EFF.";:36,63:"#USES";:36,72:"PRICE"%?36,12:X1175:"=";::%>?%H? === PRINT GENERAL ===&R?4((W)));W;". ";:36,19:G$(W);:36,35:GC%(W);:36,44:GL%(W);:36,51LL15hLL((CA%(R))):X1CA%(R):LL(WN$(R,X))((WT%(R,X)))((WW%(R,X)))((WC%(R,X)))((WD%(R,X)))((WS%(R,X)))r#ATH OF THE CHARACTERSFILE. SHOULD NEVER BE NECESSARY, BUT MAYBE NICE IF YOU GET CRAZY ADJUSTING YOUR CHARACTER.".;:8);"CHANGE ROOMS FILE LENGTH"::"ALLOWS A LARGER ROOM AT THE INN, AND CANTHEREFORE HOLD MORE ITEMS. IT DOES TAKE MORE DISK SPACE, HOWEVԍԍЍٍԮ̍ԍà΍čˍˍRT BEFORE ";T$(CL,TD%);"."::"IS THIS CORRECT? (Y/N):";VA$:A$"Y"A$"N"2015mA$::A$"N"20008:958:"TITLE TO INSERT FOR ";CL$(CL);:":";TI$XNTTD%1:T$(CL,X1)T$(CL,X)::T$(CL,TD%)TI$:40*8:958:X1NC:"TITLE TO AON:"::"A. INSERT TITLE ONLY FOR ";CL$(CL)::"B. ADD TITLE TO ALL CLASSES"::"ENTER A OR B:"; A$:A$"A"A$"B"A$(13)2006 A$:A$(13)ī40 A$"B"2070 :"NUMBER OF TITLE TO INSERT:";TD$:TD%(TD$):TD%1TD%NT408:"INSE14);"KNIGHT QUEST":13);"CREATE TITLES"::z :"CONFIRM: WRITE FILE WITH CURRENT TITLES":::" (Y OR N) : "; A$:A$"Y"A$"N"1030 A$:A$"N"40 22000:CL0:40  >> ADD NEW TITLE CL06000` 8:958:"SELECT OPTI":8);"6. SELECT TITLE CLASS":8);"7. SET TITLE CONTROLS":8);"8. QUIT":6);"INPUT YOUR CHOICE (1-8):"; FA$:A$""PRTPRT:40 K(A$)1(A$)870 PA$ Z(A$)1000,2000,3000,4000,5000,6000,8000,7000   >> CREATE TITLES- :CE":11);"COPYRIGHT (C) 1983":13);"BY JOHN NELSON":16);("PRINTING",1,PRT8):^ -216,0 28:6:"SELECT ACTION DESIRED:":8);"1. CREATE TITLE FILE":8);"2. ADD NEW TITLES":8);"3. CHANGE TITLE":8);"4. DELETE A TITLE"k <8);"5. LIST TITLESX):Y14:NF$(X,Y):NF$(X,Y)"GUARD"NF$(X,Y)"(NOT USED)"ab:Y14:NF%(X,Y):::D$"CLOSE"ybFL$"KNIGHT.SPELLS"bD$"OPEN ";FL$;",L32":D$"READ ";FL$;",R0":NS:SP$(NS),SPE%(NS):X1NS:D$"READ ";FL$;",R";X:SP$(X),SP%(X):bؐD$"CLOSE"cE CHARACTERS,R0":RL:NC:D$"CLOSE",a1002a>a37500a:FL$"KNIGHT.FORMAT":6000:"READING NEEDED CUSTOMIZER FILES ..."aD$"OPEN ";FL$;",L128":D$"READ ";FL$;",R0":NF:FMT$(NF),NF$(NF,4),NF%(NF,4);bX1NF:D$"READ ";FL$;",R";X:FMT$(:958:"RECORD NUMBER TO DELETE:";X$:(X$)1(X$)NCĺ:"INVALID RECORD NUMBER.":9900:100u`C(X$)CIM0:C0`REC(X$):RECNCNCNC1:36100`4000:D$"WRITE CHARACTERS,R";REC:"*DEAD":D$"CLOSE":100#aD$"OPEN CHARACTERS,L";RL:D$"WRIT? (Y/N) ";)_0A$:A$"Y"A$"N"35120?_:A$:A$"Y"62100E_D_:6:10);"ERROR ---------- ";(222)::10);"LINE# ---------- ";(218)(219)256:X1200:Y(16336):::10)"SOMETHING IS WRONG!!!":9900:8000_ === DELETE CHAR ===^`8),1)"T"Ģ21:958::"THAT LANGUAGE IS RESTRICTED."::X11000:X:28220|PFnX1(LG$):(L$(LP),1)(LG$,X,1)Ă:28250PPn6000:"YOU ALREADY KNOW THAT LANGUAGE.":9900:28000PZnNL$"":X1(LG$):XPLNL$NL$(LG$,X,1)Qdn:LG$NL$(L$(LP),1(LG$,X,1)A$Ă:LG$LG$A$:28000WOn:"YOU ALREADY KNOW THAT ONE!":::9900:28000rO(n === REPLACE LANG ===O2n28800:21:"SELECT LANGUAGE TO BE REPLACED.":XNL:2000:28500O> INIT*NNT:LT:IT:CT:T$(NC,NT50):CL1CT:X1NT:T$(CL,X)::>NNCCTİ21000QR INIT >CT TITLES W/ FGHTRRCLCT1NC:X1NARTIFACTS FILE ..."^D$"OPEN ";FL$;",L32":D$" READ ";FL$;",R0":NA:TA$(NA1),NA%(NA1),FR%(NA):X1NA:D$" READ ";FL$;",R";X:TA$(X),NA%(X),FR%(X)::D$"CLOSE"^^ _&:"THIS DISK CONTAINS NO CHARACTERS FILE."::"DO YOU WISH TO CREATE ONEčԮٍԍ̍΍čԍˍЍԍ΍ٍ͍ === CHECK DISK ===]ˆ35100D]̈:6:" VERIFYING DISK ... "Y]ֈFL$"CHARACTERS"]D$"OPEN ";FL$:D$"READ ";FL$:RL:D$"CLOSE"]FL$"ROOMS"]ꈺD$"OPEN ";FL$:D$"READ ";FL$:RRL:D$"CLOSE"]FL$"KNIGHT.USEFUL"^6000:"READING USEFUL ELECT NEW RACE:":X1NR:" ";X;".";RC$(X)::XNR:2000:RCXI\20000d\Є === CHANGE CLASS ===\ڄ:13);"CHANGE OF CLASS":6\䄺"CLASS IS CURRENTLY ";CL$(CL);".":"SELECT NEW CLASS:":X1NO:" ";X;".";CL$(X)::XNO:2000:CLX\*20000] TITLE ===[~LV0ı*[WLLV:TCLT:T1T[WLTCWLWLTC:TCTCIT:TT1:32530n[TNTWLWLTNT:TNT[&TI$TI$(T,CL):WLTI$TI$" "(WL)[0[耲 === CHANGE RACE ===[:13);"CHANGE OF RACE":6>\"RACE IS CURRENTLY ";RC$(RC);".":"S:30135RZuWT%(W)NARĺWN$(W);20);"UNKNOWN";30);WD%(W);36);WW%(W):F1:30130ZuWN$(W);20);(TA$(WT%(W)),5);30);WD%(W);36);WW%(W):F1ZuWZuFĺ15);"-- NONE --"Zu24:"...... PRESS ANY KEY TO CONTINUE .....";:A$:Zu [} === FIND%(WW%(W))WC%(W)AYuWN$(W);20(WC%(W)0)((WC%(W))10)((WC%(W))100));WC%(W);"% ";WD%(W);" D ";WS%(W);35);HIT;"%":F1YuW:Fĺ15);"-- NONE --"ZuF0:::"ARTIFACTS";:19);" TYPE EFF. #USES "::W1CA:WT%(W)2WT%(W)20WT%(W)0SIONS:";MI;" EXPERIENCE:";PT}Xu" VISION = ";VS$(EY);" STATUS = ";ST$(ST)::"GOLD ";::" SACK = ";GOLD;" / BANK=";BANKXuF0:::"WEAPONS";19);"CMPLX DAM ODDS "::W1CA:WT%(W)2WT%(W)2030110YuA(AASAAE)(AASAAE):HITAG2WA;WA%(W);"% ";:"W{u" ";AE;"%"Wu::"ARMOUR: ";::" ";AN$;" (";AH;"/-";AA;"%)":SN$"NONE"ĺ" & ";SN$;" (";SH;"/-";SA;"%";")";Wu:23:16368,0::7);"PRESS ANY KEY TO CONTINUE";7);::A$:Xu::"STATISTICS"::" LEVEL:";LV;" MIS"LANGUAGES: ";:kVguX1(LG$):A$(LG$,X,1):S1NL:A$(L$(S),1)ĺ(1319((36)(L$(S))39));L$(S);sVlu:{Vqu:Wvu:"WEAPON ABILITIES:"::" MACE SPEAR BOW AXE SWORD ARMOUR":" ";:W15:1(WA%(W)0)((WA%(W))10)((WA%(WA))100))T=";FT;"'";I;(34)VUPu" CONST=";CS;" WGT=";(WGT10);" SPEED=";SD;" AGE=";(YR10):USu:"SPELLS KNOWN ";::28:KS;" POSSIBLE":Y0:S1KSUXuSN$(S)"NONE"ĺ(1319((36)(SN$(S))39));SN$(S);:Y1U]uS:Yĺ15);"-- NONE --";Vbu::SM0::SELECTED.":9900:MT:u::"NAME:";::" ";NAME$;" THE ";RC$(RC);" ";CL$(CL)uT?uFT(HT10):IHTFT10:I(I1210)TDuTI$"":LV0İ32000TIuTI$""ĺ" TITLE: ";TI$;UNu:::"ATTRIBUTES:"::"HD=";HD;" AG=";AG;" CH=";CH;" IN=";IN;" SEX=";SEX$;" H)Ğ\Sp:L$(X);::(24((X1))):X1;". ";:Y1(LG$):(LG$,Y,1)(L$(X1(XNL)),1)ĞbSpsSpL$(X1)::ySpSHq === WRITE ===SRq:6:" WRITING CURRENT RECORD ...":5000:UP0:100S0u === DISPLAY ===T5uCIMİ6000:9:"NO CHARACTER ōōҍ΍ԍҍ̍čٍԍԍ̍΍͍̍"$T=X16:ST%(X)ĺ" ";ST$(X)*$^=:F$==== LIST CLASS SEL ===s$=V(37)1:H3:X1NC:SC%(X)ĖH:CL$(X)$=(37)21ĢV:H14H$>:$> === CHK END PAGE ===$&>LPLP1:LP54İ2600$N>$> === GENERAL HEAD ===q%>36,12:"NO.";:36,BEG1BEGBEG1:BCBC1:15600:16:27:L#< 9 ===":BC9:BEG1:"(>> DEFAULT ART TYPES NEEDEDjPò === TRANSFER === kZíCIMTINUE";7):A$:::oN'T WANTTO CHANGE THE LENGTH!!"5X12500:X:100IX === DELAY ===\bX15000:X:x@ === CHECK LENGTHS ===JR1NR:L0:LL(RN$(R))((RT%(R)))((RW%(R)))((RC%(R)))((RD%(R)))((RS%(R)))^LL8:LMRMRL#AE T"DO YOU WANT TO QUIT NOW (Y/N):";CYN$:YN$"Y"YN$"N"4020YYN$:YN$"N"100jD$"CLOSE": === SAME LENGTH ===:6:"THE INPUT LENGTH AND THE OUTPUT LENGTH ARE IDENTICAL. THE PROGRAM NEED NOT BE RUN IN THE FIRST PLACE IF YOU DOR):X1IR%(R):RN$(R,X):RT%(R,X):RW%(R,X):RC%(R,X):RD%(R,X):RS%(R,X){ ::D$"WRITE ";FL$;",R0":NL:NR:D$"CLOSE" IOĺD$"RENAME ROOMS,OLD ROOMS":D$"RENAME ";FL$;",ROOMS" === QUIT - NO UP ===":13);::"* CONFIRM *"::::": 8000:MRNLė:"THE SPECIFIED RECORD LENGTH WILL NOT BE SUFFICIENT TO CONTAIN ALL DATA VALUES FOR ALL RECORDS.":7000:20 === WRITE OUTPUT === IOĺD$"DELETE ROOMS" D$"OPEN ";FL$;",L";NL: R1NRJ D$"WRITE ";FL$;",R";R:IR%(NIRMXIR D$"READ ROOMS,R0":RRL,NR:D$:IR%(MX),RN$(MX,NR),RT%(MX,NR),RW%(MX,NR),RC%(MX,NR),RD%(MX,NR),RD%(MX,NR),RS%(MX,NR) R1NR:D$"READ ROOMS,R";R:IR%(R):I1IR%(R):RN$(R,I),RT%(R,I),RW%(R,I),RC%(R,I),RD%(R,I),RS%(R,I):0 :D$"CLOSEOM"::"AN EXISTING FILE WITH A RECORD LENGTH"::" OF ";RRL;". PRESS 'C' TO CONFIRM" :" PRESS ANY OTHER KEY TO ABORT WRITE.": A$::A$"C"100  D$"OPEN ROOMS,L";RR:IR(RR25):FL$("NEW ",1,(IO)4)"ROOMS":NIR(NL25):MXNIR:IRIOIO:100% === WRITE FILES ===m NL128ė:8:"THE NEW LENGTH HAS NOT BEEN ESTABLISHED.":7000:100~ NLRRL5000 :15);::"* CONFIRM *"::6:"ROOMS FILE WILL BE ";("RE-",1,IO3);"WRITTEN":Z "WITH A NEW RECORD LENGTH OF ";NL;" FR= NEW LENGTH ===X 8:958:4:"OLD LENGTH: ";::RRL;::22:"NEW LENGTH: ";::NL:} 12:8:"INPUT NEW LENGTH: ";NL$ NL$""100 ((NL$))NL$(NL$)128NL(NL$):100 :"INVALID LENGTH.":7000:1010  === GET I/O CODE === ":" 2. SPECIFY "; xIOĞ> "I/O";::" OR ";:IOĞ "NEW FILE"::" 3. WRITE OUT FILES & QUIT":" 4. NO UPDATE - QUIT" "INPUT YOUR CHOICE (1-4) [_]";(8);(8); A$:A$"1"A$"4"160 A$:(A$)1000,2000,3000,4000  ==CTERS":D$"READ CHARACTERS":RL:D$"CLOSE"^ 2D$"OPEN ROOMS":D$"READ ROOMS":RRL:D$"CLOSE" d:14);"KNIGHT QUEST":12);"CHANGE ROOM SIZE":11);"COPYRIGHT (C) 1983":13);"BY JOHN NELSON" n8:"SELECT OPTION:":" 1. INPUT NEW CHARACTER LENGTH  KNIGHT QUEST2 CHANGE ROOMS FILEJ RECORD LENGTHPk COPYRIGHT (C) 1983 BY JOHN NELSON D$(4):6:"INSERT MASTER DISKETTE AND PRESS ANY KEY":" TO CONTINUE ... ";:A$:* (D$"OPEN CHARA CUSTOMIZE THE COMMENTS THETOWN MARSHAL MAKES WHEN FIRST COMING  TO TOWN."::15900:9);"RELOAD STORE INVENTORY"::"ALLOWS YOU TO REBUILD THE STORE FILE, IFIT HAS BEEN HOPELESSLY MESSED UP OR HAS AN ERROR IN IT. DEFAULTS ARE USED FOR"X:"ALL INVEESSEDi4 25,*,0,0,0,0,AXE,4,10,1,6,LEATHER ARMOUR,0,10,2,0,OLD SHIELD,0,5,1,0,LANTERN,180,100,3,0,ELIXER,10,100,5,0,SHOVEL,50,0,0,0,*,0,0,0,0,KEY,10,0,0,0,OIL,200,5,50,0,TELEPORTER,5,100,50,0,SLEEP GAS,10,90,7,0Xj VITAMIN,5,75,5,0,SPEED,5,75,10,,R";X:T1NOC:TI$(X,T):::D$;"CLOSE TITLES"|hDART:AN$(DART1):AD%(DART1,4):X1DART:AN$(X):Y14:AD%(X,Y)::h X19:DW%(X):hLh MACE,SPEAR,BOW,AXE,SWORDhx BLIND,ONE EYE,NORMAL,SENSITIVE,ACUTE,HYPERiܴ NORMAL,CURSED,BLD KNIGHT.RACE.CLASS,R";XNR:CL$(X):X215:CA%(X,X2):::D$"CLOSE"vg&6000:" LOADING TITLES INTO TABLES ..."gXD$"OPEN TITLES":D$"READ TITLES":TL:D$"OPEN TITLES,L";TL:D$"READ TITLES,R0":TL,NT,LT,IT:TI$(NT,NOC)/hlX1NT:D$"READ TITLESD P 6,0,70,0< x DRINK,#SWALLOWS,AGIL DEC.,HEAL,GUARDK  10,5,1,0s  BANK,#USES,MAX WD,MAX DEP,GUARD  8,500,500,0  INSTRUCT,TARGET#,NEW # USES,NEW TYPE,GUARD  0,3,1,0  TRAP,EFFECT#,ODDS,DICE,SIDES  1,100,1,6ORMAT,R0":NF:NF$(NF,4),NF%(NF,4)nX1NF:D$"READ KNIGHT.FORMAT,R";X:A$:Y14:NF$(X,Y)::Y14:NF%(X,Y):::D$"CLOSE"n"n6:958:n X12500:X:n:"LET'S BE REALISTIC.":45600n貲 ANY KEYo:24:7);"PRESS ANY KEY TO CONIGHT.USEFUL,R";X:TA$(X),NA%(X),FR%(X)::D$"CLOSE"mܯD$"OPEN KNIGHT.SPELLS,L32":D$"READ KNIGHT.SPELLS,R0":ST:ST$(ST1),ST%(ST1):X1ST:D$"READ KNIGHT.SPELLS,R";X:ST$(X),ST%(X)::D$"CLOSE"mᯱ"n毺D$"OPEN KNIGHT.FORMAT,L128":D$"READ KNIGHT.F4090lX3X31::%l44090:40000l: HDGS;l?45800vlAX30::"CLASS ";TB(7));"NO. LANGUAGE LVL PRICE":lȯ LD ART TYP3mүD$"OPEN KNIGHT.USEFUL,L32":D$"READ KNIGHT.USEFUL,R0":TYP:TA$(TYPES1),NA%(TY1),FR%(TY1):X1TYPES:D$"READ KNVLAk45500:"NEW LEVEL:";A$:(A$)0(A$)32500İ45700:43260TkLL%(W)(A$):ck૲ LST LANGk꫰44097:W1NL:A$LC$(W):24150k﫺TB(9)((W)));W;". ";(L$(W),10);kTB(24)((LL%(W))));LL%(W);TB(31)((LP%(W))));LP%(W)lX320İ4"5"431050jRA$:(A$)43110,43200,43250,43120;j\43050Lja(5)::4000ujf45500:"NEW LANGUAGE NAME:";L$(W):jp45500:"PRICE:";PR$:(PR$)0(PR$)3250043120jzLP%(W)(PR$):j CHG LANG CLjʨ45500:23400:LC$(W)A$:k CHG LANG LANGUAGE.":45600:43010i WX_i*45500:(5):"CHANGE ";L$(W);"."::" 1. NAME OF LANGUAGE"i4" 2. LANGUAGE CLASS":" 3. LANGUAGE LEVEL":" 4. PRICE":" 5. RETURN"i>:"SELECT FIELD TO BE CHANGED (1-5):";iHA$:A$"1"A$"5"43080 jMA$(Y/N):";'h.A$:A$"Y"A$"N"42030lW1ĭWN$(W1)"NONE"WW1:27710qKHl:11);"CREATE AN ARTIFACT"::"SELECT AN ARTIFACT TYPE:":KRl27600:XNA:2000K\lNA%(X)ĺ(7):27700Kfl27800:27000Kl === SETUP ART ===KlWT%(W)XLlWC%(W)AD%(X,2):WW%(W)AD%(X,1):WD%32500(A$)32500İ45700:331603`GD%(W)(A$):D` CHG # USES`45500:"NEW ";NF$(FT,1);:":";A$:(A$)0(A$)32500İ45700:33175`GW%(W)(A$):`45500:"NEW ";NF$(FT,2);:":";A$:(A$)0(A$)100İ45700:33180`GC%(W)(A$):a,33180,33250,33260,33190#_L330506_V CHG ITEM NMEV_`45500:"NEW NAME:";G$(W):h_j CHG ART TYP_t45500:"NEW ARTIFACT TYPE:";A$:(A$)1(A$)TYİ45700:33140_yGT%(W)(A$):_~ CHG ITEM EFF `45500:"NEW ";NF$(FT,3);:":";A$:(A$)CT TYPE":" 3. ";NF$(FT,3):" 4. ";NF$(FT,1)~^$" 5. ";NF$(FT,2):" 6. CLASS":" 7. LEVEL":" 8. PRICE":" 9. RETURN"^.:"SELECT FIELD TO BE CHANGED (1-9):";^8A$:A$"1"A$"9"33080^=A$"9"ī3000_BA$:(A$)33110,33130,33150,3317045500:"ITEM NUMBER/NAME TO CHANGE:";WN$:WN$""3000T](WN$)0W(WN$):33050]X1NS:G$(X)WN$Ă::"YOU DON'T HAVE THAT ITEM IN STOCK.":45600:33010]WX.^FTFR%(GT%(W)):45500:"CHANGE ";G$(W);"."::" 1. NAME OF ITEM":" 2. ARTIFA025S\}X1NG:G$(X)WN$Ă::"YOU DON'T HAVE THAT ITEM IN STOCK.":45600:32005[\}WX\}:"DELETE ";G$(W);"."::"IS THIS CORRECT? (Y/N):";\}A$:A$"Y"A$"N"32030\#}A$:A$"N"3000\(}G$(W)"(DELETED)":QGQG1:3000\耲 CHG GOOD6]031180[yGP%(F)(PR$)+[yQGQG1:3000=[y LST ART TYP[yX1TYP2:2((X)));X;". ";TA$(X);22((X1)));X1;". ";TA$(X1):[:z[} DEL ITEM[}45500:"ITEM NUMBER/NAME TO DELETE:";WN$:WN$""3000\ }(WN$)0(WN$)NGW(WN$):32A CARRYABLE TYPE.":45600:31100:Zy:6:23400:GC$(F)A$uZy45500:"LEVEL:";A$:(A$)0(A$)32500İ45700:31140ZyGL%(F)(A$)ZyFTFR%(GT%(F)):GD%(F)NF%(FT,3):GW%(F)NF%(FT,1):GC%(F)NF%(FT,2)[y45500:"ITEM PRICE:";PR$:(PR$)0(PR$)32501:NGNG1:AGAG1:AGMAXĺ(7)eYTy45500:"ARTIFACT NAME:";G$(F):G$(F)""G$(F)"A"G$(F)"Z"3000Y|y:31200::"ARTIFACT TYPE:";A$:A$""31100Yy(A$)1(A$)TYİ45700:31100YyGT%(F)(A$):GT%(F)TYP31100 ZyNA%(GT%(F))ĺ:"THAT IS NOT ;". ";(MS$(X),12);TB(27)((ML%(X))));ML%(X)QX*bX3X31:X321İ45800:25190dX4b:45800:2000XfbX30::"CLASS ";TB(7));"NO. ";TB(11));" SPELL NAME ";TB(23));" LVL":Xy ADD GOODSX,yF0:X1NG:G$(X)"(DELETED)"FFXY6y:FFNG512:1:D$"CLOSE"}qD$"OPEN ROOMS,L256":D$"WRITE ROOMS,R0":256:1:D$"WRITE ROOMS,R1":0:"NONE":X16:0::D$"CLOSE"q100q$D$(4):D$"OPEN CHARACTERS,L512":D$"WRITE CHARACTERS,R0":11:D$"CLOSE"ԍԣנӍנōčЍԣӍōӍd:D$"CLOSE":"I'M DONE NOW."% n` D$"WRITE KQ.ART,R";A:(34);AN$;(34):X08:A%(X):f  === GIVE INSTRUCTIONS === ::12);"POISON ANALYZER";12):::"THIS PROGRAM READS ALL THE ARTIFACTS IN":d "AN ADVENTURE AND CHECKS FOR P KQ.DESC,R0":NR,NA,NE,NM:D$T D$"OPEN KQ.ART,L128":A1NA:D$"READ KQ.ART,R";Ao (AN$:A208:A%(A2): 2D$:A%(1)21100 <A%(6)0ĺAN$;" IS A ";P$((A%(6)0));".":"DO YOU WANT TO NEUTRALIZE IT?":"Y OR N";YN$ FYN$"Y"A%(6)0:200 t KNIGHT QUEST. POISON ANALYZERD BY JOHN NELSONJ D$(4):::6:"INSERT KNIGHT QUEST ADVENTURE AND PRESS"::" ANY KEY TO CONTINUE ... ";:A$:P$(0)"ANTIDOTE":P$(1)"POISON":1000 D$"OPEN KQ.DESC,L256":D$"READ     CONTINUED";15);:A$::24300:VWV^X21NC:("-"(CL$(X2),1),((A$,X2,1))1,1);:\W`^iW^ SP HDGW^LP1::"NO. SPELL NAME";19);"TYPE";24);"LVL";28);"EFF";34);"PRICE":Wa LST SP CL0X b25190:X1NS:A$MT$(X):24150:(TB(7)(X10)):XW)A$:V] LST SPELL*V]24300:W1NSoV]2((W)));W;". ";:(MS$(W),12);20(2((MN%(W)))));MN%(W);V]26((ML%(W))));ML%(W);31((ME%(W))));ME%(W);39((MP%(W))));MP%(W):LPLP1V]LP22İ24100V]:V]45800:2000W$^:15);"":X1NC:" ";X;". ";CL$(X):DU["INPUT NUMBER (1-";NC;:"):";A$UU[A$""23450yU[(A$)1(A$)NCĢ(37):23425U[Y(37):X(A$):A$(X)"1":(Y(NCX)1):" ";X;". ";::CL$(X)::Y:23425U[X1NC:A$A$A$(X):U[V[45500:23400:MT$( CHG SP PRJT [45500:"NEW SPELL PRICE:";PR$:(PR$)0(PR$)3250023305^T [MP%(W)(PR$):kT[ CHG CLT[45500:23400:MT$(W)A$:23000Th[ CHG CLTr[X1NC:A$(X)"0":U|["SELECT ALL CLASSES TO BE AVAILABLE TO:":"(PRESS RETURN TO END UPDATE)Tİ45700:23265"SZMN%(W)(A$):3SZ CHG SP EFF~SZ45500:"NEW SPELL EFFECT:";A$:(A$)32500(A$)32500İ45700:23285SZME%(W)(A$):SZ CHG SP LVLSZ45500:"NEW SPELL LEVEL:";A$:(A$)0(A$)32500İ45700:23295S[ML%(W)(A$): T[D TO BE CHANGED (1-7):";5RZA$:A$"1"A$"7"23240FRZA$"7"2000yRZA$:(A$)23250,23260,23290,23500,23280,23300RZ23125RZ CHG SP NMERZ45500:"NEW NAME:";MS$(W):RZ CHG SP TYPSZ45500:21500:"NEW SPELL TYPE:";A$:(A$)1(A$)SS:MS$(X)WN$Ă::"YOU DON'T HAVE THAT SPELL ON THE SCROLL.":45600:23105TQPZWXQUZ45500:"CHANGE ";MS$(W);"."::" 1. NAME OF SPELL":" 2. SPELL TYPE":" 3. LEVEL":" 4. CLASS":" 5. EFFECT"QZ" 6. PRICE":" 7. RETURN"RZ:"SELECT FIEL"DELETE ";MS$(W);"."::"IS THIS CORRECT? (Y/N):";QPVA$:A$"Y"A$"N"22030fPVA$:A$"N"2000PVMS$(W)"(DELETED)":QSQS1:2000PY CHG SPELLPAZ45500:"SPELL NUMBER/NAME TO CHANGE:";WN$:WN$""2000PFZ(WN$)0W(WN$):23125LQKZX1N;ST$(X);22);X1;". ";ST$(X1):::4OU DEL SPELLpOU45500:"SPELL NUMBER/NAME TO DELETE:";WN$:WN$""2000OU(WN$)0(WN$)NSW(WN$):22025OUX1NS:MS$(X)WN$Ă::"YOU DON'T HAVE THAT SPELL ON THE SCROLL.":45600:22005OVWX2P V:00:"SPELL LEVEL:";A$:(A$)0(A$)32500İ45700:21070INORML%(F)(A$)_NPRWF:45500:23500vNSRME%(F)ST%(MN%(F))NXR45500:"SPELL PRICE:";PR$:(PR$)32500(PR$)021080NbRMP%(F)(PR$)NgRQSQS1:2000NS DSP TYPS$OTX1ST2:" ";X;". "1NS:MS$(X)"(DELETED)"FFXOM&R:FFNS1:NSNS1:ASAS1:ASMAXĺ(7)M:R45500:"SPELL NAME:";A$:A$""(A$,1)"A"(A$,1)"Z"2000M?RMS$(F)A$MDR45500:21500:" SPELL TYPE:";A$:(A$)1(A$)STİ45700:21060MIRMN%(F)(A$)8NNR455:24150:(TB(7)(X10)):X;". ";(S$(X),12);TB(27)((CL%(X))));SL%(X)kL;X3X31:X321İ45800:15390~L;:45800:1300LJkWS%(W)((W$)):27030ZJk === LIST ART TYPE ===JkT1NA2:T1$TA$(T):T2$TA$(T1):NA%(T)T1$"N/A"JkNA%(T1)T1NARTT2$"N/A"Jk3(T10));T;". ";T1$;20(T110));T1;". ";T2$:: K4l === MAKE A100 FME$(NA$,2)Ă:500& P400> dN$"*DEAD"Ă:500X nME$(NA$,7)Ă:500 D$"WRITE CHARACTERS,R";R:NA$:D$::"O.K. ";NA$;" YOU HAVE BEEN RESURRECTED.":505 D$::"SORRY, ";NA$;" CANNOT BE RESURRECTED." :"WANT TO RESURRECT A):24150:(TB(7)(X10)):X;". ";(W$(X),12);TB(27)((WL%(X))));WL%(X)lJ;X3X31:X321İ45800:15190J$;:45800:1100JV;X30::"CLASS ";TB(7));"NO. ";TB(11));"WEAPON NAME ";TB(23));" LVL":J`; LST ARMR CLKKt;15290:X1NA:A$AC$(X)1:X321İ45800:14390I"8:/I,845800:1300{I68X30::"NO. NAME";19);"LVL";24);"ADJ.";30);"HIT";35);"PRICE":I: LST ARM CLI:IT$("WEAPONARMOURSHIELD",(P1)61,6):I:P15100,15200,15300I: LST WEAP CLKJ;15190:X1NW:A$WC$(X NAME";19);"LVL";24);"ADJ.";30);"HIT";35);"PRICE":HH7 LST SHLD[H814390:W1NHH82((W)));W;". ";2((W)));(S$(W),12);H821((SL%(W))));SL%(W);26((SA%(W))));SA%(W);32((SH%(W))));SH%(W);40((SP%(W))));SP%(W)I8X3X3Gx7 LST ARMR G714290:W1NAcG72((W)));W;". ";5);(AN$(W),12);21((AL%(W))));AL%(W);G726((AA%(W))));AA%(W);32((AH%(W))));AH%(W);39((AP%(W))));AP%(W)G7X3X31:X321İ45800:14290G7:G745800:12009H7X30::"NO. W;". ";(W$(W),12);20);TW%(W);25((WL%(W))));WL%(W);FZ729((CW%(W)10)));CW%(W)10;31);DW%(W);"/";SW%(W);40((PW%(W))));PW%(W)F_7X3X31:X321İ45800:14195Fd7:Fn745800:1100Fs7X30::" NO. NAME TYP LVL % D/S PRICE": $(W)A$:E04 CHG SHLD LVL[E5445500:"NEW LEVEL:";A$:(A$)0(A$)32500İ45700:13365nE:4SL%(W)(A$):|E6 LST ARME6IT$("WEAPONARMOURSHIELD",(P1)61,6):E6P14100,14200,14300E7 LST WEAPE(714195:W1NW:A$WC$(W)8FP73((W)));JUST:";SA%(W):D4 CHG HITSaD445500:"NEW HITS STOPPED:";A$:(A$)1(A$)10İ45700:13331tD4SH%(W)(A$):D4 CHG PRICED445500:"NEW SHIELD PRICE:";PR$:(PR$)32500(PR$)013342D!4SP%(W)(PR$):D&4 CHG SHLD CL E+445500:23400:SCA$"1"A$"7"13316LC4A$:(A$)13322,13326,13330,13350,13360,13340,1300WC413310jC 4 CHG SHLD NMEC 445500:"NEW NAME:";S$(W):C4 CHG SHLD ADJC445500:"NEW SHIELD ADJUST:";A$:(A$)100(A$)100İ45700:13227D445500:"NEW SHIELD AD02 B3WXyB345500:"CHANGE ";S$(W);"."::" 1. NAME OF SHIELD":" 2. SHIELD ADJUSTMENT":" 3. SHIELD HITS STOPPED"B4" 4. SHIELD CLASS":" 5. SHIELD LEVEL":" 6. SHIELD PRICE":" 7. RETURN"B4:"SELECT FIELD TO BE CHANGED (1-7):";C4A$:W)A$:A3 CHG ARMR LVLYA345500:"NEW LEVEL:";A$:(A$)0(A$)32500İ45700:13265lA3AL%(W)(A$):{A3 CHG SHLDA345500:"SHIELD NUMBER/NAME TO CHANGE:";WN$:WN$""1300A3(WN$)0(WN$)NHW(WN$):13310B3X1NH:S$(X)WN$Ă:133̍Ӎ΍͠ύččӍ΍̥čW)(W$):27030WI:k:"THAT VALUE WILL REQUIRE A PASSWORD.":"INPUT PASSWORD:";:PS$""~I?kA$:PS$PS$A$:(PS$)(S$)27465IDk27455IIk:S$PS$ġ:20000INkX(W$):Ilk == SIDES ==Ivk6000:NF$(TY,4);:":";W$:((W$))W$İ6500:27030#J{k(W$):27030Hj == ODDS ==hHj6000:NF$(TY,2);:":";A$:A$((A$))(A$)0(A$)100İ6500:27030HjWC%(W)(A$):27030Hk == NBR DICE ==Hk6000:NF$(TY,3);:":";W$:((W$))W$İ6500:27030Hk(W$)2(WT%(W)2WT%(W)20)İ27450IkWD%(:2000:NA%(X)ĺ(7):272100GTjWT%(W)X:27030IGrj == WEAPON TYPE ==iGwjWT%(W)2WT%(W)2027270G|j6000:"WEAPON TYPE:":T15:" ";T;". ";WT$(T)::X5:2000:WW%(W)X:27030Gj6000:NF$(TY,1);:":";W$:W$((W$))İ6500:27030 HjWW%(W)РA%(W)(A$):@3 CHG HITS_@345500:"NEW HITS STOPPED:";A$:(A$)1(A$)12İ45700:13232r@3AH%(W)(A$):@3 CHG PRICE@345500:"NEW ARMOUR PRICE:";PR$:(PR$)32500(PR$)013242@3AP%(W)(PR$):@3 CHG ARMR CLA345500:23400:AC$(ED (1-7):";(?3A$:A$"1"A$"7"13216`?3A$:(A$)13222,13226,13230,13250,13260,13240,1200k?313210~?3 CHG ARMR NME?345500:"NEW NAME:";AN$(W):?3 CHG ARMR ADJ?345500:"NEW ARMOUR ADJUST:";A$:(A$)100(A$)100İ45700:13227 @3AX1NA:AN$(X)WN$Ă:13202$>3WX>345500:"CHANGE ";AN$(W);"."::" 1. NAME OF ARMOUR":" 2. ARMOUR ADJUSTMENT":" 3. HITS STOPPED">3" 4. ARMOUR CLASS":" 5. ARMOUR LEVEL":" 6. ARMOUR PRICE":" 7. RETURN" ?3:"SELECT FIELD TO BE CHANG400:WC$(W)A$:"=h3 CHG WEAP LVLa=m345500:"NEW LEVEL:";A$:(A$)0(A$)32500İ45700:13165=r345500:"NEW LEVEL:";WL%(W):=3 CHG ARMR=345500:"ARMOUR NUMBER/NAME TO CHANGE:";WN$:WN$""1200=3(WN$)0(WN$)NARMW(WN$):13210>33A$:(A$)13122,13126,13130,13134,13138,13150,13160,131429@3131109B3 CHG WEAP NME9D345500:"NEW NAME:";W$(W):WN$:WN$""11009803(WN$)0(WN$)NWW(WN$):13110Z823X1NW:W$(X)WN$Ă:13102b843WX86345500:"CHANGE ";W$(W);"."::" 1. NAME OF WEAPON":" 2. WEAPON TYPE":" 3. COMPLEXITY":" 4. DICE":" 5. SIDES"(983" 6. WEAPON CLASS":" 7. WE̍ӍԮō̠ԍčҍ٣נōУčōţԠԍӍčٍӍԠĩͣč(8);(8); <16000' AA$"Q"600009 FA$"H"15000w P(A$)1000,2000,3000,4000,5000,6000,7000,8000,9000,10000  >> RESURRECT << D$"RUN RESURRECT"  >> MODIFY CHAR D$"RUN MODIFY CHARACTER" >> STORE MAINT D$"RUN STOCKROTAIN SYSTEM PARAMETERS":" 8. CREATE NEW FORMATS FILE" -" 9. CHANGE CHARACTER FILE LENGTH":" 10. CHANGE ROOMS FILE LENGTH":" 11. PRINT STOCK LISTINGS":" H. HELP":" Q. QUIT - REBOOT" 223:958:"INPUT YOUR CHOICE (1-11/H/Q) [__]";(8); 1983":13);"BY JOHN NELSON" 8:"SELECT ACTION DESIRED:":" 1. RESURRECT AN ADVENTURER":" 2. MODIFY AN ADVENTURER":" 3. MAINTAIN STORES FILE":" 4. CHANGE TITLES"8 (" 5. CHANGE TOWN MARSHAL":" 6. RELOAD STORE INVENTORY":" 7. MAIN KNIGHT QUEST5 CUSTOMIZATION SYSTEM;V COPYRIGHT (C) 1983o BY JOHN NELSONv  CUSTOMIZER'S MENU 11-13-83 D$(4): :14);"KNIGHT QUEST":10);"CUSTOMIZATION SYSTEM":11);"COPYRIGHT (C)     "    z#!P?x       àԠIˠԠ&  ԮӠ Ԯ̠ŠӠ ӠŠҠȠ ӠԮӠ  ŠԠ ԮԠ ΠҠ ԮŠ" Š͠ȠĠӠϠҠԮŮӠԠԠ"٠ҠkԠŠΠ ŠԠ"Ԡ͠iDS:":LP99:15900:13100:LPLP4:W1NH:(SC$(W),CL,1)"1"Ĺ36,10:13200Rz:iSC2ST%(4)2230H2$MG$"SPELLS:":LP99:15900:14100:LPLP4:W1NS:(MC$(W),CL,1)"1"İ14200:SC2ĭST%(6)2260=H2$MG$"LANGUAGES:":LP99:1$"WEAPONS:":LP99:15900:10100:LPLP4:W1NW:(WC$(W),CL,1)"1"Ĺ36,10:10200XWp\SC2ĭST%(2)2160aH2$MG$"ARMOURS:":LP99:15900:11100:LPLP4:W1NA:(AC$(W),CL,1)"1"Ĺ36,10:11200f:pSC2ĭST%(3)2180JuH2$MG$"SHIELLECTED CLASS)=== GENERATE REPORT ===:MG$" "QRT2100,3000,4000n4=== SUPPLY WI CLASS ===>D$"PR#1":(9);80;"N":H0$"SUPPLIES AVAILABLE BY CLASS"CCL1NC:CS2ĭSC%(CL)2280HH1$CL$(CL)MSC2ĭST%(1)2140RRH2$MG100 === READ HEADS ===fX13:RT$(X)::X12:CR$(X)::X16:ST$(X)::X12:CS$(X):l&0 SUPPLIES W/I CLASS,CLASS W/I TYPE,COMPRESSED LIST,ALL TYPES,SELECTED TYPE,WEAPONS,ARMOUR,SHIELDS,SPELLS,LANGUAGES,GOODS : ALL CLASSES,SENJ::6);"RESULTS OF REPORT SELECTION":6::"REPORT TYPE"::" ";RT$(RT)T::"SELECTION CRITERIA"::" ";CR$(SC):SC2İ15700^::"CLASSES SELECTED"::" ";CS$(CS):CS2İ15800h24::7);"PRESS ANY KEY TO CONTINUE";6);:rA$:|;:27:SC%((37)14BEG1)1:(37)22İ15500?A$(13)1510dA$(21)ĭ(37)22İ15500:1510A$(21)Ģ(37)2:(37)(14NC)Ģ16:1510 A$(21)1510A$(8)Ģ(37):(37)15İ15400:15101510"1510@ === DONE W/ SEL ===247A$:A$(13)ĺ" ":X(37):(37)14CS1:1600PA$(13)CS2:1500A$(21)Ģ(37)2:(37)14Ģ14:24:1410A$(21)1410A$(8)Ģ(37):(37)13Ģ15:24:1410141016:27A$:A$(27)1600,A$(13)Ğ:"_"LOSE"0fְ6000:"READING RACES AND CLASSES ..."fD$"OPEN KNIGHT.RACE.CLASS,L64":D$"READ KNIGHT.RACE.CLASS,R0":NR,NOC:RC$(NR),CL$(NO),RA%(NR,5),CA%(NO,5)fX1NR:D$"READ KNIGHT.RACE.CLASS,R";X:RC$(X):X215:RA%(X,X2):::X1NOCEgD$"REAE ===e35200Ye,:VS$(5),ST$(2):X15:WT$(X)::X05:VS$(X)::X02:ST$(X):er6000:"READING LANGUAGE FILE ..."fD$"OPEN KNIGHT.LANGUAGE,L32":D$"READ KNIGHT.LANGUAGE,R0":NL:L$(NL):X1NL:D$"READ KNIGHT.LANGUAGE,R";X:L$(X)::D$"C(218)(219)256d֒1d@ === DISPLAY ALL ===fdJUPė:6:" WRITING CURRENT RECORD ... ":5000ndrC1d1500:EOFC1:1500:100d30000:BW0:A$(27)100dA$"R"40080dA$(8)CC1:BW1:40070dCC1:40070eȯ === INITIALIZNTAIN ALL DATA VALUES FOR ALL RECORDS.":7000:20N === WRITE OUTPUT ===m IOĺD$"DELETE CHARACTERS" D$"OPEN ";FL$;",L";NL: R1NR:NA$(R)""NA$(R)"*DEAD"ĺD$"WRITE ";FL$;",R";R:"*DEAD":3290H D$"WRITE ";FL$;",R";R:NA$(R):RC%(R) ZA$:A$"N"TLL:TZ"NEW LENGTH:";L$:(L$)Lĺ:"THAT IS NOT ALLOWED.":23020gZL(L$):TLL:~m 64,12,5,0,4,FIGHTER,VETERAN,GALLANT,WARRIOR,SWORDSMAN,PROTECTOR,HERO,DEFENDER,GUARDIAN,RANGER,KNIGHT,PALADINLm PETTY THIEF,APPRENTICE,ROGUE,CU$"CLOSE":$Y >> LENGTH TOO SHORTY:"THE LENGTH OF THE TITLE RECORD IS TOO":"SHORT - RECALCULATED LENGTH OF ";L;" WILL":"BE USED.":Y"DO YOU WANT A DIFFERENT (HIGHER) LENGTH":" USED?":Y"INPUT (Y/N):";ZA$:A$"Y"A$"N"23040ȍȍȍȍȍō΍D$"PR#0":$1001t' === WEAPON HEAD ===~'36,12:"NO.";:36,21:"NAME";:36,34:"TYPE";:36,42:"LEVEL";:36,48:"COMPL";:36,56:"DICE";:36,64:"SIDES";:36,72:"PRICE"'36,12:X1175:"=";::'' === PRINT WEAPON ===E'4*11100:W1NA:A$AC$(W):19500:112002:],13100:W1NH:A$SC$(W):19500:13200e6:h14100:W1NS:A$MC$(W):19500:14200|:17100:W1NL:A$LC$(W):19500:17200:16100:W1NG:A$GC$(W):19500:16200:NG:(GC$(W),CL,1)"1"Ĺ36,10:16200- :3 H<D$"PR#0"::100f === COMPRESSED LIST ===D$"PR#1":(9);80;"N":(12);12);"SUPPLIES AVAILABLE"::40);"WEAPONS":40);"=======":10100:W1NW:A$WC$(W):19500:10200:b : l =v H1$"LANGUAGES":CL1NC:CS2ĭSC%(CL)3230 H2$MG$CL$(CL):LP99:15900:17100:W1NL:(LC$(W),CL,1)"1"Ĺ36,10:17200 :  H1$"GENERAL GOODS":CL1NC:CS2ĭSC%(CL)3280% H2$MG$CL$(CL):LP99:15900:16100:W1ELDS":CL1NC:CS2ĭSC%(CL)3140u0 H2$MG$CL$(CL):LP99:15900:13100:W1NH:(SC$(W),CL,1)"1"Ĺ36,10:13200}: :D N H1$"SPELLS":CL1NC:CS2ĭSC%(CL)3180X H2$MG$CL$(CL):LP99:15900:14100:W1NS:(MC$(W),CL,1)"1"İ14200050U H2$MG$CL$(CL):LP90:15900:10100:W1NW:(WC$(W),CL,1)"1"Ĺ36,10:10200] :c  H1$"ARMOURS":CL1NC:CS2ĭSC%(CL)3100 H2$MG$CL$(CL):LP90:15900:11100:W1NA:(AC$(W),CL,1)"1"Ĺ36,10:11200 : #& H1$"SHI(12);(80(H0$))2);H0$:LP2W< :H1$:LPLP2:(H1$)0āX1(H1$):"=";::LPLP1lF :H2$::LPLP3r  === CLASS BY TYPE === D$"PR#1":(9);80;"N":H0$"SUPPLIES AVAILABLE TO CLASS BY TYPE" H1$"WEAPONS":CL1NC:CS2ĭSC%(CL)35900:17100:LPLP4:W1NL:(LC$(W),CL,1)"1"Ĺ36,10:17200E:]SC2ĭST%(7)2280H2$MG$"GENERAL GOODS:":LP99:15900:16100:LPLP4:W1NG:(GC$(W),CL,1)"1"Ĺ36,10:16200::D$"PR#0"::100( === PAGE HEADING ===2 W%(NW):NW019040X(VJX1NW:W$(X),TW%(X),WL%(X),WC$(X),WC%(X),DW%(X),SW%(X),PW%(X):(`JNG:G$(NG),GT%(NG),GL%(NG),GC$(NG),GC%(NG),GD%(NG),GW%(NG),GP%(NG):NG019060(jJX1NG:G$(X),GT%(X),GL%(X),GC$(X),GC%(X),GD%(X),GW%(X),GP%(X):7)tJNS:MS$(:CL%(R):LV%(R):MI%(R):PT%(R):HD%(R):AG%(R):CH%(R):IN%(R):HT%(R) LG$(R):SEX$(R):GOLD(R):BANK(R):X15:WA%(R,X)::KS%(R):X1KS%(R):SN$(R,X):SN%(R,X):SA%(R,X):SE%(R,X):N CA%(R):X1CA%(R):WN$(R,X):WT%(R,X):WW%(R,X):WC%(R,X):":" 1. INPUT NEW CHARACTER LENGTH":" 2. SPECIFY ";C xIOĞc "I/O";::" OR ";:IOĞ "NEW FILE"::" 3. WRITE OUT FILES & QUIT":" 4. NO UPDATE - QUIT" "INPUT YOUR CHOICE (1-4) [_]";(8);(8); A$:A$"1"A$"4"160 A... ";:A$:I (D$"OPEN CHARACTERS":D$"READ CHARACTERS":RL:D$"CLOSE"} 2D$"OPEN ROOMS":D$"READ ROOMS":RRL:D$"CLOSE" d:14);"KNIGHT QUEST":8);"CHANGE CHARACTER LENGTH":11);"COPYRIGHT (C) 1983":13);"BY JOHN NELSON"9 n8:"SELECT OPTIONa KNIGHT QUEST1 CHANGE CHARACTERI RECORD LENGTHOj COPYRIGHT (C) 1983 BY JOHN NELSON 11/20 -- ADD FLDS TO CHAR D$(4) :6:"INSERT MASTER DISKETTE AND PRESS ANY KEY":" TO CONTINUE       ACTERS" ( === QUIT - NO UP ===o:13);::"* CONFIRM *"::::"DO YOU WANT TO QUIT NOW (Y/N):";YN$:YN$"Y"YN$"N"4020YN$:YN$"N"100D$"CLOSE":X === DELAY ===bX15000:X:@ === CHECK LENGTHS ===J:WD%(R,X):WS%(R,X)::AE%(R):AN$(R):AA%(R):AH%(R):HN$(R):HA%(R):HH%(R) CS%(R):WG%(R):YR%(R):EYE%(R):IJ$(R):SD%(R):ST%(R) :D$"WRITE ";FL$;",R0":NL:NR:D$"CLOSE" IOĺD$"RENAME CHARACERS,OLD CHARACTERS":D$"RENAME ";FL$;",CHAR))2));TX$: NYBODY ELSE? (Y/N)";4 YN$:YN$"Y"YN$"N"510V YN$:YN$"N"ĺD$"CLOSE":600^ 32 X20:"INSERT CUSTOMIZER DISKETTE AND PRESS ANY":" KEY TO CONTINUE ...":16384,128 b(4);"RUN KNIGHT QUEST"  CENTER TEXT ((40(TX$R1NR:L0:LL(NA$(R))((RC%(R)))((CL%(R)))((MI%(R)))((PT%(R)))((HD%(R)))((AG%(R)))((CH%(R)))((IN%(R)))TLL((HT%(R)))(LG$(R))(SEX$(R))((GOLD(R)))((BANK(R)))^LL15MhLL((CA%(R))):X1CA%(R):LL(WN$(R,Xȍ  ED:";SP T"STATUS:";ST) ^IJ$"00000"W D$;"WRITE CHARACTERS,R";R:NAME$:RC:CL LV:MI:PT:HD:AG:CH:IN:HT:LG$:SEX$:GOLD:BANK:X15:WA%(X): !KS10KS10$ &KS:X1KS:SN$(X):SN%(X):SA%(X):SE%(X)::CA:X1CA:WN$(X):WT%(LOCK,NECROMANCER,SPELLBINDER,WIZARD,MASTER WIZARDOROMANCER,SPELLBINDER,WIZARD,MASTER WIZARDETPURSE,ROBBER,BURGLAR,FILCHER,SHARPER,MAGSMAN,THIEF,GANG LEADER,MASTER THIEFm ACOLYTE,ADEPT,DISCIPLE,BROTHER,FATHER,PRIEST,CURATE,IMMACULATE,CANON,LAMA,PATRIARCH,HIGH PRIEST1m NOVICE,APPRENTICE,TRICKSTER,CONJURER,ILLUSIONIST,ENCHANTER,SORCERER,WAR"ALLOWS YOU TO CHANGE YOUR CHARACTER, DISPLAY CHARACTERS, COPY THEM TO OTHER DISKETTES AND DELETE BAD CHARACTERS ON FILE. ALSO ALLOWS DIRECT TRANSFER TO THEADVENTURE.":15900e:12);"MAINTAIN STORES"::"ALLOWS YOU TO ADD, CHANGE, DELETE AND NGTH": === HELP ===::::18);"HELP";18)::34,1::15);"RESURRECT"::"THIS ALLOWS YOU TO BRING AN ADVENTURER BACK TO LIFE WHEN KILLED ON ADVENTURES. IT IS NOT 100% SUCCESSFUL, BUT WILL USUALLY WORK."::12);"MODIFY CHARACTER"::== REQUEST DISK 2 ===FV:6:"INSERT DISK 2 AND PRESS ANY KEY ...";P`A$:Vjo@ >>> CREATE FORMATSJD$"RUN CREATE FORMATS"(# >>> CHANGE CHAR LENGTH2#D$"RUN CHANGE CHAR LENGTH"' === CHG ROOM LENG ==='D$"RUN CHANGE ROOM LE300,7400,20$ === LANGUAGE NAMES.7500JD$"RUN LANGUAGE MAINT"d  === ART.TYP/FORMATSn*75004D$"RUN ARTFORM MAINT" === RACE/CLASS7500D$"RUN RAC MAINT" === SPELL TYPES7500D$"RUN SPELL MAINT"L =CS "WEIGHT:";WT:WTWT105 ""AGE:";YR:YRYR10 ,"EYESIGHT:":" 1. BLIND":" 2. ONE EYE":" 3. NORMAL":" 4. SEE IN DARK":" 5. SEE INVISIBLE":" 6. CAN SEE EVERYTHING":"INPUT 1-6:"; 6A$:A$"1"A$"6"310 @A$:EYE(A$)1 J"SPEMI:PT:HD:AG:CH:IN:HT:LG$:SEX$:GOLD:BANK:X15:WA%(X): KS:X1KS:SN$(X):SN%(X):SA%(X):SE%(X)::CA:X1CA:WN$(X):WT%(X):WW%(X):WC%(X):WD%(X):WS%(X): AE:AN$:AA:AH:SN$:SA:SH D$::"NAME: ";NA$::"CONSTITUTION:";OPEN CHARACTERS":D$"READ CHARACTERS":RL:NC:D$"CLOSE"` "CHARACTER NUMBER TO START ON:";SC X20:SN$(X),SN%(X),SA%(X),SE%(X) D$;"OPEN CHARACTERS,L";RL:RSCNC:D$"READ CHARACTERS,R";R NAME$:NA$""NA$"*DEAD"600 RC:CLB LV:v KNIGHT QUEST5 ADD FIELDS TO CHARN COPYRIGHT (C) 1983e BY JOHN NELSONk 11-20 / ADD NEW FLDSD$(4)2:6:"INSERT DISKETTE CONTAINING CHARACTERS"::" AND PRESS ANY KEY TO CONTINUE ...";:A$:8 dD$"     NS),MN%(NS),MP%(NS),ML%(NS),MC$(NS),ME%(NS):NS019080p)~JX1NS:MS$(X),MN%(X),MP%(X),ML%(X),MC$(X),ME%(X):)JNA:AN$(NA),AL%(NA),AC$(NA),AA%(NA),AH%(NA),AP%(NA):NA019100)JX1NA:AN$(X),AL%(X),AC$(X),AA%(X),AH%(X),AP%(X):2*JNH:S$(NH),S"BY JOHN NELSON";13): (8:"SELECT YOUR IDENTITY:"::" 1. ANGELO - ARMOURY OWNER"::" 2. ABBRA KADABBRA - WIZARD"::" 3. VANCE WHIPPLE - GENERAL STORE"6 2:" 4. OGGIE GRODDIE - LANGUAGE TEACHER"::" 5. PEDRO GONZALES - INNKEEPER"::"SKETTE IN"::" SLOT 6, DRIVE 1 AND PRESS ANY KEY"::" TO CONTINUE":A$:| MAX10:45000:7000:D$"CLOSE" ::14);"KNIGHT QUEST";14):12);"STORE INVENTORY";12):15);"MAINTENANCE";15) #10);"COPYRIGHT (C) 1983";12):12);g * KNIGHT QUEST2 * STORE INVENTORYI * MAINTENANCEQ *l * COPYRIGHT (C) 1982 * BY JOHN NELSON * * 11/05/83-BD TB(C)C((NC5)(NC5)) D$(4)::45030Y :6:"INSERT KNIGHT QUEST MASTER DITERS,R0":RL:NC1:CNC1:9100DlCSC:D$;"WRITE CHARACTERS,R";RZNl"İ5020^l6ĺD$;"CLOSE"gl@ī100vlJĺD$"CLOSE"l^ī7900l` === ADVENTURE ===lj:"YOU ARE ABOUT TO TAKE ";NAME$;" ON":"AN ADVENTURE ..."mA$:UPė:6:" WRITING CURRENT RTYPES:"::" 1. LANGUAGE NAMES"::" 2. ARTIFACT TYPES / FORMATS"::" 3. RACE / CLASS CHANGES" v:" 4. SPELL TYPE CHANGES"::" 5. RETURN TO MAIN MENU"::"INPUT NUMBER (1-5) [_]";(8);(8); A$:A$"1"A$"5"7040 A$:(A$)7100,7200,7                                      İ9000:100akd×::"INSERT TARGET DISKETTE AND PRESS ANY"::"KEY TO CONTINUE";:16368,0:A$:ikú:xkð4000:SCCkFLAG0:REC1NC:D$;"READ CHARACTERS,R";REC:N$:N$""FLAG1:RZRECkĭN$NAME$50250lĂREC:FLAGRZNC1:D$;"WRITE CHARACFIRM INIT ===[:12);::"* CONFIRM *":::"THIS FUNCTION WILL DESTROY THE CURRENT":"PHRASE FILE... PRESS 'C' TO CONTINUE"::" ... ANY OTHER KEY TO ABORT.";A$::A$"C"ġ:100X === DELAY ===bX12000:X:& === GET  NOONE5800 5200dD$"OPEN KNIGHT.STORES":D$"WRITE KNIGHT.STORES":QW:NW05030pX1NWW$(X)"(DELETED)"ĺW$(X):TW%(X):WL%(X):WC$(X):CW%(X):DW%(X):SW%(X):PW%(X)QG:NG05050X1NGCG$(X)"(DELETELECT ACTION:"f:" 1. ADD A LANGUAGE"::" 2. DELETE A LANGUAGE"::" 3. CHANGE A LANGUAGE":" 4. LIST LANGUAGES"::" 5. RETURN":"INPUT YOUR CHOICE (1-5):";A$:A$"1"A$"5"4050A$:(A$)40000,42000,43000,44000,30$"WRITE ROOMS,R0":NC:X1NC:D$"WRITE ROOMS,R";X:0:"NONE":Y16:0::ZoD$"CLOSE"uo0 === INITIAL CHAR ===o:::"*** WARNING ***";::" --- THIS FUNCTION WILL":::"DESTROY";::" ";::"ALL";:5pD" CHARACTERS ON THE FILE."::" PRESS ":C:0np5020]n0:0:0:D$"CLOSE":D$"OPEN KQ.NAME":D$"READ KQ.NAME":AD$:D$"CLOSE"n:6:"YOU ARE ABOUT TO PARTICIPATE IN":::AD$:nD$"RUN ";AD$KoD$(4):D$"OPEN CHARACTERS,L512":D$"READ CHARACTERS,R0":NC:D$"OPEN ROOMS,L256":DPLY DATA"::" 5. LIST SUPPLY AVAILABILITY"::" 6. RETURN"b :"INPUT YOUR CHOICE (1-6):";~ A$:A$"1"A$"6"3040 A$:(A$)31000,32000,33000,34000,35000,30 OGGIE:9::"TRAINING CENTER LANGUAGES"::15:"OGGIE GRODDIE":6:"SECORD ...":5000mD$"CLOSE"7mH === GO FOR IT ===mR:6:"INSERT ADVENTURE DISKETTE AND PRESS "::" THE 'C' KEY TO CONTINUE."::"PRESS ANY OTHER KEY TO ABORT.":m\16368,0:A$::A$"C"ī100nf:D$;"OPEN FRESH MEAT":D$;"WRITE FRESH MEATOOT ON AND PRESS ANY"::10);"KEY TO CONTINUE ...";:A$:HzND$"PR#6"AIL,CHARM,SCARY,CONT.,DOOR,EFFECT,WEAPON,FOOD2 20,1500,200,5d2G"1"A$"6"2040@A$:(A$)21000,22000,23000,24000,25000,30L VANCE :9::"GENERAL STORE INVENTORY"::14:"VANCE WHIPPLE":6:"SELECT ACTION:"::" 1. ADD AN ITEM"::" 2. DELETE AN ITEM"::" 3. CHANGE AN ITEM"? :" 4. LIST SUP"::13:"ABBRA KADABBRA":6:"SELECT ACTION:"}:" 1. ADD A SPELL"::" 2. DELETE A SPELL"::" 3. CHANGE A SPELL":" 4. LIST SPELL DATA"::" 5. LIST SPELL AVAILABILITY"::" 6. RETURN":"INPUT YOUR CHOICE (1-6):";A$:A$A SHIELD"_(:" 4. LIST SHIELD DATA"::" 5. LIST SHIELD AVAILABILITY"::" 6. RETURN"2:"INPUT YOUR CHOICE (1-6):";<A$:A$"1"A$"6"1340FA$:(A$)11000,12000,13000,14000,15000,1000 ABBRA.:10::"MAGIC SPELL INVENTORYRETURN"*:"INPUT YOUR CHOICE (1-6):";FA$:A$"1"A$"6"1240xA$:(A$)11000,12000,13000,14000,15000,1000 SHLD :P3:12:"SHIELDS INVENTORY":6:"SELECT ACTION:"::" 1. ADD A SHIELD"::" 2. DELETE A SHIELD"::" 3. CHANGE 0,12000,13000,14000,15000,1000) ARMR:P2:12:"ARMOUR INVENTORY":6:"SELECT ACTION:"::" 1. ADD AN ARMOUR"::" 2. DELETE AN ARMOUR"::" 3. CHANGE AN ARMOUR":" 4. LIST ARMOUR DATA"::" 5. LIST ARMOUR AVAILABILITY"::" 6. ACTION:"::" 1. ADD A WEAPON"::" 2. DELETE A WEAPON"::" 3. CHANGE A WEAPON" `:" 4. LIST WEAPON DATA"::" 5. LIST WEAPON AVAILABILITY"::" 6. RETURN" j:"INPUT YOUR CHOICE (1-6):"; tA$:A$"1"A$"6"1140~A$:(A$)1100ENTORY TYPE:"::" 1. WEAPONS"::" 2. ARMOUR"::" 3. SHIELDS"::" 4. RETURN TO MAIN MENU" :"SELECT YOUR CHOICE (1-4):"; A$:A$"1"A$"4"1040 A$:(A$)1100,1200,1300,30 L WEAP.W V:P1:12:"WEAPONS INVENTORY":6:"SELECT 6. WRITE FILE AND QUIT"::" 7. QUIT - NO UPDATE"Y <:"INPUT YOUR CHOICE (1-7):";s FA$:A$"1"A$"7"70 PA$:(A$)1000,2000,3000,4000,6000,5000,8000  ANGELO :12::"ARMOURY INVENTORY"::13:"ANGELO CARVETTI":6d "SELECT INVKEY ===3&PRTLPLP(PH$)40:LP50LP0:(12)>&PRTı|&::" PRESS ANY KEY TO CONTINUE ";::A$::' === EDIT I2$>I$ ==='I$""$'I2$;:958:(I2$)āA1(I2$):(8);:.'A$:A$(13)Č958::8'A$(34)A$"'"HL$"(DELETED)"ĺD$"WRITE KNIGHT.LANGUAGE,R";L:L$(X):LL%(X):LC$(X):LP%(X):LL1d :D$"CLOSE":AA$"STOCKROOM MAINTENANCE COMPLETE":5150::AA$"INSERT DISKETTE TO BOOT ON":5150::AA$"AND PRESS ANY KEY ...":5150:A$::D$"PR#6"::(40$(X):AA%(X):AH%(X):AP%(X)"5QH:NH05110AX1NHS$"(DELETED)"ĺS$(X):SL%(X):SC$(X):SA%(X):SH%(X):SP%(X):RP:BR:LU:XF:D$"OPEN KNIGHT.LANGUAGE,L32":D$"WRITE KNIGHT.LANGUAGE,R0"QL:NL05130L1:X1NLSED)"ĺG$(X):GT%(X):GL%(X):GC$(X):GC%(X):GD%(X):GW%(X):GP%(X)I\QS:NS05070hX1NSMS$(X)"(DELETED)"ĺMS$(X):MN%(X):MP%(X):ML%(X):MT$(X):ME%(X)QA:NA05090X1NAAN$"(DELETED)"ĺAN$(X):AL%(X):AC1,10,2,50,LARGE,1,1111,15,3,7081 8,TROLLISH,0,1111,300,ORCISH,0,1111,600,DWARFISH,0,1111,900,ELVISH,0,1111,850,GERBISH,0,1111,1200,FALCONESE,0,1111,2900,LATIN,0,1111,3500,WELCH,0,1111,450d2 N === STORE LOADED ===:*N:6:"INSERT DISKETTE TO B3,DEATHWISH,10,24000,23,0001,3,INVISIBILITY,12,32500,23,0111,7,DISINTEGRATE,3,28800,23,1001,30p0 5,LEATHER,0,1111,10,2,100,CHAIN,0,1111,20,3,150,BANDED,0,1000,25,4,300,SCALE,2,1000,30,5,500,PLATE,3,1000,50,7,6250 3,SMALL,0,1111,5,1,20,MEDIUM,0,1110011,10,TERROR,5,16000,11,0011,100,SLEEP,10,19000,13,1111,1,PULVERIZE,7,20000,15,1101,4,STUN,10,22000,15,1111,2,TELEPORT,9,22500,17,0011,0^*0 ESCAPE,9,20000,17,1111,-1,FLAMESTRIKE,3,18000,19,0011,20,DARKSEE,15,18000,19,1111,15,SEE ALL,14,13000,21,1111,L,1,500,1,1111,8,POWER,6,600,1,1111,5,LIGHT,8,800,1,1111,3,CHARM,2,900,3,1111,30,SCARE,5,1100,3,1101,50,FURY,4,2000,5,1111,2,HARDHIT,7,6000,5,1100,2,HOME,9,12000,7,1111,100 0 RESURRECT,11,12500,9,0011,9,FORCE FIELD,13,13000,9,0011,10,BLAST,3,16000,11,3,1111,10,3,10,3500,MAGIC BOW,3,2,1111,10,3,8,2250/ 6,LANTERN,5,0,1111,100,3,190,80,ELIXER,6,0,1111,80,4,4,100,SHOVEL,7,0,1111,90,2,55,75,LAMP OIL,10,0,1111,100,100,200,20,TORCH,5,0,1111,100,3,60,20,BEEF JERKY,21,0,1111,0,55,8,10 0 230 HEA1,MACE,1,0,1111,0,1,4,40,SPEAR,2,0,1111,0,1,5,50,BOW,3,0,1111,0,1,5,50,AXE,4,0,1111,0,1,6,60,SWORD,5,0,1111,0,1,8,90 N/ SABRE,5,1,1101,0,1,10,130,MORNINGSTAR,1,0,1111,5,2,8,68,HAMMER,1,0,1111,5,2,5,25,BATTLE AXE,4,0,1100,5,1,8,882X/ MAGIC SWORD,5,KNIGHT.STORES":W$:WL%:WC$:WC%:WD%:WP%: /25:200:1000:4:D$"CLOSE":NL:D$"OPEN KNIGHT.LANGUAGE,L32":D$"WRITE KNIGHT.LANGUAGE,R0":NL:X1NL:L$,LL%,LC$,LP% !/D$"WRITE KNIGHT.LANGUAGE,R";X:L$:LL%:LC$:LP%: C/D$"CLOSE":20000t D/ 1IGHT.STORES":W$:WT%:WP%:WL%:WC$:WC%:p /NA:D$"WRITE KNIGHT.STORES":NA:X1NA:W$,WL%,WC$,WC%,WD%,WP% /D$"WRITE KNIGHT.STORES":W$:WL%:WC$:WC%:WD%:WP%: /NH:D$"WRITE KNIGHT.STORES":NH:X1NH:W$,WL%,WC$,WC%,WD%,WP%- /D$"WRITE W%:DW%:SW%:PW%:D$:d .NG:D$"WRITE KNIGHT.STORES":NG:X1NG:W$,WT%,WL%,WC$,WC%,WD%,WS%,WP% .D$"WRITE KNIGHT.STORES":W$:WT%:WL%:WC$:WC%:WD%:WS%:WP%: .NS:D$"WRITE KNIGHT.STORES":NS:X1NS:W$,WT%,WP%,WL%,WC$,WC%+ /D$"WRITE KNNY KEY TO CONTINUE";:A$:h dD$"OPEN KNIGHT.STORES":D$"DELETE KNIGHT.STORES":D$"OPEN KNIGHT.STORES" . >>> LOAD DATA <<< .NW:D$"WRITE KNIGHT.STORES":NW:X1NW:W$,TW%,WL%,WC$,CW%,DW%,SW%,PW% .D$"WRITE KNIGHT.STORES":W$:TW%:WL%:WC$:CI  INITIAL LOAD OF3 STORE INVENTORYM FILES FOR KNIGHTa QUESTg COPYRIGHT (C) 1983 BY JOHN NELSON 11-13-83 D$(4) 2:6:" INSERT KNIGHT QUEST MASTER AND"::" PRESS A     $(X)"0"::8(X1NA:X21CAD:AC$(X)AC$(X)"0"::d(X1NS:X21CAD:MT$(X)MT$(X)"0"::j(p((@ QUIT-NO UP(J::13:" - CONFIRM - "::6:" NO FILE WILL BE WRITTEN TO DISKETTE "::" PRESS 'Q' TO QUIT - ANY OTHER TO"")T:13CL$(X)::D$"CLOSE"+'NC(CW$(1))İ75001'>'L INC CL\'VCADNC(WC$(1)):CAD0ı'`X1NW:X21CAD:WC$(X)WC$(X)"0"::'jX1NL:X21CAD:LC$(X)LC$(X)"0"::'tX1NG:X21CAD:GC$(X)GC$(X)"0":: (~X1NH:X21CAD:SC$(X)SCP%(X)::D$"CLOSE":&QWNW:QGNG:QSNS:QHNH:QLNL:QANA&D$"OPEN KNIGHT.RACE.CLASS,L64":D$"READ KNIGHT.RACE.CLASS,R0":NR,NC:RC$(NR),CL$(NC):X1NR:D$"READ KNIGHT.RACE.CLASS,R";X:RC$(X):'A$(NC):X1NC:D$"READ KNIGHT.RACE.CLASS,R";XNR:$(X),SL%(X),SC$(X),SA%(X),SH%(X),SP%(X)::RP,BR,LU,XF:D$"CLOSE"%D$"OPEN KNIGHT.LANGUAGE,L32":D$"READ KNIGHT.LANGUAGE,R0":NL:L$(NLMAX),LL%(NLMAX),LC$(NLMAX),LP%(NLMAX):NL07080&X1NL:D$"READ KNIGHT.LANGUAGE,R";X:L$(X),LL%(X),LC$(X),L]$NA:AN$(NAMAX),AL%(NAMAX),AC$(NAMAX),AA%(NAMAX),AH%(NAMAX),AP%(NAMAX):NA07060$X1NA:AN$(X),AL%(X),AC$(X),AA%(X),AH%(X),AP%(X):$NH:S$(NHMAX),SL%(NHMAX),SC$(NHMAX),SA%(NHMAX),SH%(NHMAX),SP%(NHMAX):NH07070A%X1NH:SAX),GW%(NGMAX),GP%(NGMAX):NG07040l#{X1NG:G$(X),GT%(X),GL%(X),GC$(X),GC%(X),GD%(X),GW%(X),GP%(X):#NS:MS$(NSMAX),MN%(NSMAX),MP%(NSMAX),ML%(NSMAX),MT$(NSMAX),ME%(NSMAX):NS07050$X1NS:MS$(X),MN%(X),MP%(X),ML%(X),MT$(X),ME%(X):NW:W$(NWMAX),TW%(NWMAX),WC$(NWMAX),WL%(NWMAX),CW%(NWMAX),DW%(NWMAX),SW%(NWMAX),PW%(NWMAX):NW07030"qX1NW:W$(X),TW%(X),WL%(X),WC$(X),CW%(X),DW%(X),SW%(X),PW%(X):&#vNG:G$(NGMAX),GT%(NGMAX),GL%(NGMAX),GC$(NGMAX),GC%(NGMAX),GD%(NGM32500(A$)((A$))İ45700:63107!LUST(A$):6000G! MAX FRNDS! 45500::"HOW MANY HIRELINGS ARE ALLOWED:";XF$:(XF$)0(XF$)10İ45700:6410!XF(XF$):6000!X LOAD DATA!bD$"OPEN KNIGHT.STORES,S6,D1"m"lD$"READ KNIGHT.STORES"::"I KNOW YOU'RE DISPICABLE, BUT THAT'S":"RIDICULOUS!!":45600:6210[ VBRIBE(A$):6000g  GREED 45500:"OK. HOW MUCH GOLD DOES AN ADVENTURER "::"HAVE TO HAVE BEFORE YOU THINK YOU'D LIKE":"A PIECE OF IT";"!A$:(A$)BRIBE(A$)10(A$)SERIOUS.":45600:6110)RP(A$):600098 CHG BRIBEB45500:"OK. HOW MUCH DO YOU THINK IT WOULD TAKE"::"FOR YOU TO ALLOW SOMEONE TO ENTER A ROOM":"THAT YOU KNEW DID NOT BELONG TO THEM?"E L:"BRIBE:";A$:(A$)0(A$)32500(A$)((A$))ĺM # FRIENDS (NOW ";XF;")"::" 5. RETURN TO MAIN MENU":Z:"INPUT YOUR CHOICE 1-5:";vA$:A$"1"A$"5"6040A$:(A$)6100,6200,6300,6400,30 CHG RM PR45500:"NEW ROOM PRICE:";A$:(A$)0(A$)((A$))(A$)32500ĺ:"LET'S BE ";:A$::A$"C"ġ:30 'p INNXz::16:"INNKEEPER"::14:"PEDRO GONZALES"6:"SELECT ITEM TO CHANGE:"::" 1. ROOM PRICE (NOW ";RP;" G.P.)"::" 2. BRIBE AMOUNT (NOW ";BRIBE;")"::" 3. GREED POINT (NOW ";LUST;")"9:" 4. MAXIMU;:A$::5000| WRT PROT.s:"THERE IS A WRITE PROTECT TAB ON THIS":" DISKETTE. REMOVE IT PLEASE.":5420::13:" - CONFIRM - "::6:"INSERT DISKETTE TO RECEIVE STORE FILE "::" PRESS 'C' WHEN READY - ANY OTHER TO":14);"ABORT ..."A$"N"5320 A$:A$"N"Ā`D$"UNLOCK KNIGHT.STORES":D$"UNLOCK KNIGHT.LANGUAGE":5000k FULL""DISK IS FULL. INSERT ANOTHER DISKETTE ":"TO SAVE FILE TO. THEN PURGE FILES AND":"COPY 'KNIGHT.STORES'" ,:"PRESS ANY KEY WHEN READY ..."RROR CODE = ";(222)::"----- LINE NUMBER = ";(218)(219)256::"CALL YOUR KNIGHT QUEST REPRESENTATIVE...":D$"RUN KNIGHT QUEST MASTER" LOCKD:"THE FILE IS LOCKED. DO YOU WISH TO":" SAVE FILE ANYWAY (Y OR N):";A$:A$"Y(AA$))2);AA$;:@(A$::"INSERT ";(A$)1ĺ"CUSTOMIZER ";x2"DISKETTE IN DRIVE 1"::"AND PRESS ANY KEY . . ."<(A$)1ĺD$"P(222)105300Z(222)95400d(222)45500p:"ERROR ENCOUNTERED WHILE SAVING FILES....":"----- E100.+ ADD ARMR=.+F0:X1NA:AN$(X)"(DELETED)"FFXl.+:FFNA1:NANA1:AAAA1:AAMAXĺ(7).+45500:"ARMOUR NAME:";AN$(F):AN$(F)""AN$(F)"A"AN$(F)"Z"1200.+45500:"LEVEL:";A$:(A$)0(A$)32500İ45700:11220/+AL%(F)(A$)-}+SP100(WC0)WC:SPSPWDWS20(WDWS12)100(WDWS12):SPSP(WT3):45500:"SUGGESTED PRICE:";SP:"WHAT PRICE:";PR$:PR$""PR$(SP)-+(PR$)32500(PR$)111133-+W$(F)W$:TW%(F)WT:CW%(F)WC:DW%(F)WD:SW%(F)WS:PW%(F)(PR$).+QWQW1:1C(A$)E,u+45500:"WEAPON DICE:";A$:(A$)1(A$)6:45700:11125R,v+WD(A$),w+45500:"WEAPON SIDES:";A$:(A$)1(A$)12İ45700:11127,x+WS(A$),z+WDWS48ĺ:"YOUR DICE AND SIDE COMBINATION IS TOO HIGH - PLEASE RE-ENTER.":45600:11126X0+n+:FFNW1:NWNW1:AWAW1:AWMAXĺ(7)I+o+AWMAXĺ(7):11000e+p+45500:23400:WC$(F)A$+q+45500:"LEVEL:";A$:(A$)0(A$)32500İ45700:11121+r+WL%(F)(A$)+s+45500:"AVERAGE COMPLEXITY:";A$:(A$)200(A$)100İ45700:11123,t+W*c+45500:"SELECT WEAPON TYPE:":" 1. MACE":" 2. SPEAR":" 3. BOW":" 4. AXE":" 5. SWORD":"(ADD 20 FOR MAGIC WEAPON)"*f+"SELECT WEAPON TYPE (1-5):";A$:WT(A$):WT1(WT5WT21)WT25WT(WT)ī11110+k+F0:X1NW:W$(X)"(DELETED)"FF);"RETURN ...";:A$::A$"Q"ī303)D$"CLOSE":B)* ADD ARMSo)+IT$("WEAPONARMOURSHIELD",(P1)61,6):) +P11100,11200,11300)\+ ADD WEAP)^+:14);"ADD A WEAPON"*a+45500:"NAME OF WEAPON:";W$:W$""(W$)0(W$,1)"A"(W$,1)"Z"1100ԍԍЍԍٍčō͍̍̍ԍٍōҍԍ'C' TO CONTINUE;"::" ANY OTHER KEY TO ABORT ...";MpNA$:A$"C"ĺ:100pXA$::10:" ... OKAY, BUB ... YOU ASKED FOR IT."p == INIT FILE ==qD$(4):RL512:D$"OPEN CHARACTERS,L512":D$"WRITE CHARACTERS,R1":"":D$"WRITE CHARACTERS,R0":ōٍ)61,6)!3.P12100,12200,1230003D/ DEL WEAPm3I/45500:"WEAPON NUMBER/NAME TO DELETE:";WN$:WN$""11003N/(WN$)0(WN$)NWW(WN$):121253S/X1NW:W$(X)WN$Ă::"YOU DON'T HAVE THAT WEAPON IN STOCK.":45600:121053X/WX)4]/:"DELETE )100(A$)100İ45700:11370/2o,SH%(F)(A$)2t,SP120SH%(F)SA%(F):45500:"SUGGESTED PRICE IS ";SP:"PRICE:";PR$:PR$""PR$(SP)2v,(PR$)32500(PR$)1113802y,SP%(F)(PR$)2~,QHQH1:13002. DEL ARM3.IT$("WEAPONARMOURSHIELD",(P1"A"S$(F)"Z"1300U1V,45500:"SHIELD LEVEL:";A$:(A$)0(A$)32500İ45700:11350f1X,SL%(F)(A$)1[,45500:23400:SC$(F)A$1`,45500:"ADJUSTMENT FACTOR:";A$:(A$)100(A$)100İ45700:113601e,SA%(F)(A$)2j,45500:"HITS STOPPED:";A$:(A$SP:"PRICE:";PR$:PR$""PR$(SP)C0+(PR$)1(PR$)3250011250U0+AP%(F)(PR$)g0,QAQA1:1200v0$, ADD SHLD0),F0:X1NH:S$(X)"(DELETED)"FFX0+,:FFNH1:NHNH1:AHAH1:AHMAXĺ(7)1.,45500:"SHIELD NAME:";S$(F):S$(F)""S$(F)/+45500:23400:AC$(F)A$h/+45500:"ADJUSTMENT FACTOR:";A$:(A$)32500(A$)32500İ45700:11230y/+AA%(F)(A$)/+45500:"HITS STOPPED:";A$:(A$)1(A$)10İ45700:11240/+AH%(F)(A$)"0+SP60AH%(F)AA%(F):45500:"SUGGESTED PRICE IS ";))((WT%(R,X)))((WW%(R,X)))((WC%(R,X)))((WD%(R,X)))((WS%(R,X)))SrY_#AIELD HEAD ===y 6336,12:"NO.";:36,19:"SHIELD NAME";:36,39:"ADJUST.";:36,49:"LVL";:36,55:"HITS";:36,62:"PRICE" @336,12:X1165:"=";:: 3 3 === PRINT SHIELD === 34((W)));W;". ";:36,19:S$(W);:36,41:SA%(W);2!336,50:SL%6,49:"LVL";:36,55:"HITS";:36,62:"PRICE"Jp+36,12:X1165:"=";::P+k+ === ARMOUR PRINT ===+4((W)));W;". ";:36,19:AN$(W);:36,41:AA%(W);:36,50:AL%(W);:36,57:AH%(W);:36,625((AP%(W))):AP%(W)+15900, ,3 === SH((W)));W;". ";:36,19:W$(W);:36,38:TW%(W);:36,44:WL%(W);:36,50'WC%(W)10;:36,58:DW%(W);:36,67:SW%(W);:36,72(5((PW%(W)))):PW%(W)'159002(\+ === ARMOUR HEAD ===,f+36,12:"NO.";:36,19:"ARMOUR NAME";:36,39:"ADJUST.";:3020#t'A$(9)I2$" "I2$:10020K~'A$(21)(I2$)A$(I2$,1):10060g'A$(21)A$" ":10060'A$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:10030'A$(8)(I$)I2$I$I2$:A$;:10000'A$(8)10000'A$(27)ĺI2$:I$I$B'(A$(31)A$(9)(A$(21)(I2$)))(I$)(I2$)250ĺ(7);:10030xL'A$(31)ĺA$;:I$I$A$:I2$(I2$,2):10030V'A$(5)ĺI2$;:I$I$I2$:I2$"":10030`'A$(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":10030j'A$(4)I2$(I2$,2):10ҍԠĩԍӠЍč̱ӍӍԍč΍ΠōٍōӍ      S THIS CORRECT? (Y/N):";77*0A$:A$"Y"A$"N"12330L7/0A$:A$"N"1300p740S$(W)"(DELETED)":QHQH1:1300~72 CHG ARM72IT$("WEAPONARMOURSHIELD",(P1)61,6):72P13100,13200,133007,3 CHG WEAP8.345500:"WEAPON NUMBER/NAME TO CHANGE:"; DEL SHLDG6045500:"SHIELD NUMBER/NAME TO DELETE:";WN$:WN$""1300p60(WN$)0(WN$)NHW(WN$):1232560(WN$)NH1200060X1NH:S$(X)WN$Ă::"YOU DON'T HAVE THAT SHIELD IN STOCK.":45600:123056 0WX7%0:"DELETE ";S$(W);"."::"IN$)NAR12000`5/X1NA:AN$(X)WN$Ă::"YOU DON'T HAVE THAT ARMOUR IN STOCK.":45600:12205h5/WX5/:"DELETE ";AN$(W);"."::"IS THIS CORRECT? (Y/N):";5/A$:A$"Y"A$"N"122305/A$:A$"N"12005/AN$(W)"(DELETED)":QAQA1:1200 6 0";W$(W);"."::"IS THIS CORRECT? (Y/N):";H4b/A$:A$"Y"A$"N"12130]4g/A$:A$"N"11004l/W$(W)"(DELETED)":QWQW1:11004/ DEL ARMR4/45500:"ARMOUR NUMBER/NAME TO DELETE:";WN$:WN$""12004/(WN$)0(WN$)NARW(WN$):12225 5/(WL%(NH),SC$(NH),SA%(NH),SH%(NH),SP%(NH):NH019120*JX1NH:S$(X),SL%(X),SC$(X),SA%(X),SH%(X),SP%(X)::RP,BR,LU,XF:D$"CLOSE"+JD$"OPEN KNIGHT.LANGUAGE,L32":D$"READ KNIGHT.LANGUAGE,R0":NL:L$(NLMAX),LL%(NLMAX),LC$(NLMAX),LP%(NLMAX):NL07080958:"TOO LONG!! - MUST BE ONLY 3 LINES!":7000:2050K PH$(P)I$:PH$I$[ 1200:4500v === LIST PHRASES === PRTĺD$"PR#1" ::12);"LISTING MUMBLES";13)::34,1:P1NS:3500::34,0 D$"PR#0":100 === PRINT PHRASE === 4):D$"CLOSE":,  === REPLACE PHRASE ===~ 8:958:"WHICH PHRASE #:";P$:(P$)NS(P$)1ĺ"NOT A VALID #":7000:2010 (P$)((P$))ĺ"NOT A VALID #":7000:2010 P(P$) 9:958:"INPUT PHRASE:"6I2$PH$(P):10000:(I$)124Ģ8:58:"INPUT PHRASE TO ADD:":I2$""} PNS:10000:(I$)124Ģ8:958:"TOO LONG - MUST BE ONLY 3 LINES!!":7000:I2$"":1020 PH$(P)I$:PH$I$:1200 B4500  ==== WRITE MUMBLE ==== D$"OPEN MUMBLES,L128":D$"WRITE MUMBLES,R";P:(34);PH$;(3"1")A$""140! A$""200I A$:(A$)1000,2000,3000,5000,4000b === TOGGLE PRT === PRTPRT:1:40:PRTĺ" ":250 :"P": 22:25:140 , === ERROR - NO FILE == 6NF1:100  === ADD NEW PHRASE ===! NSNS1:10:9CE":11);"COPYRIGHT (C) 1983":13);"BY JOHN NELSON" n10:"SELECT ACTION:"::" 1. ADD NEW PHRASE"::" 2. REPLACE OLD PHRASE" x:" 3. LIST PHRASES"::" 4. INITIALIZE FILE"::" 5. QUIT" :"INPUT YOUR CHOICE (1-5):"; A$:(A$"5"A$0 D$"UNLOCK MUMBLES"M D$"OPEN MUMBLES,L128":D$"READ MUMBLES,R0":NS (PH$(NS25):X1NS:D$;"READ MUMBLES,R";X:PH$(X): 2D$"CLOSE":216,0 d === MAIN MENU ===5 i:14);"KNIGHT QUEST";13);::("P",1,PRT);::11);"MUMBLE MAINTENAN  KNIGHT QUEST/ MUMBLES FILEF MAINTENANCE` COPYRIGHT (C) 1982x BY JOHN NELSON~  10-16 ::8:"INSERT MASTER DISKETTE AND PRESS ANY KEY"::12);"TO CONTINUE ...";:A$: D$(4):30  ));")":FiWW%(W);")":0Fi == WEAP NAME ==Fi6000:"NEW NAME:";A$:XW:A$"NONE"WN$(W)A$:WT%(W)0:WW%(W)0:WC%(W)0:WD%(W)0:WS%(W)0:27000FiA$""27030FiWN$(W)A$:27030F@j == ARTIFACT TYPE ==GJj6000:"ARTIFACT TYPE:":27600:XNA" 4. ";NF$(TY,2);24);"(";WC%(W);")"{Ei" 5. ";NF$(TY,3);24);"(";WD%(W);")":" 6. ";NF$(TY,4);24);"(";WS%(W);")"Ei" 7. NEXT ARTIFACT/END CHANGES":X7:2000EiX27100,27200,27250,27300,27400,27500,27000FiWT%(W)2WT%(W)20ĺWT$(WW%(W127900 DiWN$(W)"NONE"27700tDiTYFR%(WT%(W)):6000:"CHANGING ";WN$(W)::"INPUT FIELD NUMBER TO BE CHANGED:"Di" 1. NAME OF ARTIFACT";24);"(";WN$(W);")":" 2. ARTIFACT TYPE";24);"(";TA$(WT%(W));")"'Ei" 3. ";NF$(TY,1);24);"(";:27080:IFACTS ===CCi:14);"KNIGHT QUEST":8);"ARTIFACT MODIFICATION":Ci6000:"CURRENT ARTIFACTS ARE:":W1CA:" ";W;". ";WN$(W)Ci:" ";CA1;". NUMBER TO CARRY":" ";CA2;". END OF ARTIFACT CHANGES":XCA2:2000:WXCiWCA220000DiWCAORMAL":" 3. STRONG":" 4. VERY STRONG":" 5. EXCEPTIONAL":X5:2000fBgH((X3)(AS1)):AH10:{Bh === GET N$ ===BhVT(37)1Bh"NAME:";N$:(N$)1(N$)Xĺ:"INVALID NAME ... TRY AGAIN.":VT:1:Z1500:Z:958:26820B i Cxi === ART ",1,((A))((X))(((A))((X)))1):26400Ag12:958:XH:"HITS STOPPED:";A$:H(A$):8:1521AS:H;((H))((X))(((H))((X)))):26400Ag === NEW ARMOUR/SHIELD ===GBg12:1:958:X14:26800:"STRENGTH:":" 1. RATHER WEAK":" 2. N" 4. END OF THIS CHANGE"D@4gX4:2000:X26510,26520,26530,26425J@9g@g12:958:X$N$:X14:26800:6:521AS:N$;(X$)(N$)((N$)(X$))):N$"NONE"A0:H0:@g264000Ag12:958:XA:"NEW ODDS ADJUST: -";A$:A(A$):7:1421AS:A;("% AA:AHH:26000"?Xf == SHIELD ==P?bfN$SN$:ASA:HSH:N$"NONE"İ26600:26230[?lf26400w?vfSN$N$:SAA:SHH:26000? g == CHANGE A/S ===?*g12:1:958:"FIELD TO BE CHANGED:":" 1. NAME ":" 2. ODDS ADJUST"@/g" 3. HITS STOPPED ":RETURN":X3:2000:5:820(X2):X3İ26080P>eASX1:WX:W26100,26200,20000>e:("ARMOURSHIELD",(X1)61,6)::5:20(X1)8:("SHIELDARMOUR",(X1)61,6):>e == ARMOUR ==>eN$AN$:AAA:HAH:N$"NONE"İ26600:26130>f26400?fAN$N$:Ae:10);"ARMOUR/SHIELD CHANGE":5:8:"ARMOUR:";:28:"SHIELD:":4);AN$;:26:SN$=e4);"ADJUST: -";AA;"%";:26:"ADJUST: -";SA;"%":4);"H.STOP: ";AH;:26:"H.STOP: ";SH,>e12:"SELECT SHIELD OR ARMOUR:":" 1. ARMOUR":" 2. SHIELD":" 3. N< d:11);"LISTING SPELL DATA":6:" NAME OF SPELL NO. ABIL. EFFECT"<dX1KS:2((X)));X;". ";SN$(X);21(2((SN%(X)))));SN%(X);27(2((SA%(X)))));SA%(X);"%";35(3((SE%(X)))));SE%(X)<d:::9900:25000