' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   ԠԠҠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`ٸv<ఀݻࠁPsC`Ёݻ𜀀/ `  ݻݟہՋ@݋pvcs@A""""&"&@R<"" "&&*""&ݻЀF@? 瀃|`🰈22PB2Ё߻ݛ. ` ݻݻλt˜݁@߻ЁpFw>?" <>@L "" " *<č>? `8^ݻ``憘ٻ󆀈@\Dx ݻ߃ݻā߻ď݀˰|@냆ݻ`cg!́ `\ ݻݻܛػه@H򀀀ҀఆxX@0 ݻݛကы⏀߻Xɐ0ϰ`a`Abcqaܻpvc@<  "@L> """<"ฏ, `  ݻ߮ݻ၌ဖŻ􆀆@Hɘ㌀ࣀ`?@ݻ惀ݻĐ̘𰀀B@ݛpc;@s灀怆"<<"(@R"""<""""2 ""ؙl `  ݻ؁݃@Gƙ@?ݻݛ ٫ ܻៀ          ōٍԍԍЍԍٍčō͍̍̍ԍٍōҍԍ4)$ RX15:WA%(X)((1)3015): WA%(1)WA%(1)CA%(CL,6):WA%(2)WA%(2)CA%(CL,7):WA%(3)WA%(3)CA%(CL,8):WA%(4)WA%(4)CA%(CL,9):WA%(5)WA%(5)CA%(CL,10) HTHTRA%(RC,10) WGT(HT2.57) 7500:  !:"DO YOU KNOW ANY OF THESE LAōĠčӍōō̠ҍōϠ΍Í͍ōōҍōōōōōōōҠҍōݻܻpcc@!"""""@B " "" """:>""ݻNL),LP%(NL)d((X21NL:D$"READ KNIGHT.LANGUAGE,R";X2:L$(X2),LL%(X2),LC$(X2),LP%(X2)::D$"CLOSE"(0*D$"OPEN CHARACTERS":D$"READ CHARACTERS":RL:D$"CLOSE"(*D$"OPEN ROOMS":D$"READ ROOMS":RRL:D$"CLOSE"(*A24RA%(RC,5)T$TSEX$"F"MAXRA%(RC,0)RA%(RC,1)24RA%(RC,4)RA%(RC,5)RA%(RC,6)~$^MAXMAXCA%(CL,0)CA%(CL,1)CA%(CL,2)$(# >> ROOM ERROR$2#RQR9100$<#QRR:D$;"WRITE ROOMS,R0":RRL:QR:D$:575$#SRR:RQR1R:9500::RSR:575!%#SRR:ō΍Í͍ōō̍΍̍ԠƍҍҍōōҠҍ׍ɍHE FIRST LETTER OF THE LANGUAGE THAT YOU KNOW ====> ";T"$A$:A$"T"A$"A"ī7460y".A$:X1NL:A$(L$(X),1)ī7490"8:7460"BLL%(X)0(LC$(X),CL,1)"0"LP%(X)0ĺ:"APPARENTLY, YOU WEREN'T LISTENING.":9800:7400"GA$"C"LG$LG$A$#KōCA1)AH:WS%(CA1)3:WC%(CA2)SA:WD%(CA2)SH:WS%(CA2)4:WT%(CA1)3:WT%(CA2)4Xzeqzxi >> SELL MAGIC WEAPzi:"THATSA MAGICAL WEAPON. I ONLY GOTTA ONE.":"I'MA ASKIN' ";P%(1);" G.P. FOR IT."::"YOU WANT IT? (Y OR N):";{iA$:A$"Y"A$"N"ĴҍƠٍ̍Р̍        1NR:D$"READ KNIGHT.RACE.CLASS,R";X:RC$(X):X2014:RA%(X,X2)::''CL$(NO):X1NO:D$"READ KNIGHT.RACE.CLASS,R";XNR:CL$(X):X2014:CA%(X,X2):::D$"CLOSE" (<(D$"OPEN KNIGHT.LANGUAGE,L32":D$"READ KNIGHT.LANGUAGE,R0":NL:L$(NL),LL%(NL),LC$((4):XC10:MS2:XS10:MC30:MN50:X15:WT$(X):X&$'SN$(15),SN%(15),SA%(15),SE%(15)&.'X115:SN$(X)"NONE":SN%(X)0:SA%(X)0:SE%(X)0:&8'D$"OPEN KNIGHT.RACE.CLASS,L64":D$"READ KNIGHT.RACE.CLASS,R0":NR,NO:RC$(NR)E'B'RA%(NR,14),CA%(NO,14):XRQR1R:9500::RSR:9600:5805%% >> WRITE ROOMo%&%D$"WRITE ROOMS,R";R:0:"NONE":0:0:0:0:0:0:D$u%v%%% >> CLOSE ROOMS%%D$"WRITE ROOMS,R0":RRL:QR:D$"CLOSE"%%%H& >> DELAY%R&X12500:X:%' === INITIALIZE ===3&'D$΍ō͍čōٍҍčč΍ҍҍ̍S":D$"READ CHARACTERS":RL:D$"CLOSE"2&b*11400f&*D$"OPEN ROOMS":D$"READ ROOMS":RRL:D$"CLOSE"l&*&* === MISC ERRORS === &\+ === RACE/CLASS ===&f+FL$"KNIGHT.RACE.CLASS":11500&+ === LANGUAGE ===&+FL$"KNIGHT.LANGUAGE":11500'$,׍ȍ͍ōōōōōōōōōōōōƵ΍ҠƍȠԍҠčҍō΍ҍƍҍҍ̍̍ԍǠҍȍčŠԍȭӍԠōҍҍō΍č΍΍΍ҍԍōҍҍԍҍҍҍԍύҍōҍҍҍҍōҍҍōҍҍ΍ҍҍԍҍҍ̍΍ōԍōԍԍϭҍōԍōōҍҍٍōҍ٠ƍōō΍Πōčˍ                   ׍Í͍ōōōōōōōōōōōōō#LHD6HD6#VAG6AG6.#`CH3CH3?#jINMNINMNN#tKS2KS2]#~CA3CA3n#CA10CA10#KS10KS10#HDRA%(RC,0)HDRA%(RC,0)#AGRA%(RC,1)AGRA%(RC,1)##@ >> CALC MAXIMUMS $JSEX$"M"MAXRA%(RC,0)RA%(RC,1)NGUAGES?"@!X1NL:LL%(X)0(LC$(X),CL,1)"0"LP%(X)07440!(L$(X),1)"U"ĺ" ";(L$(X),1);")";(L$(X),2);17(L$(X))1);:LLLL1!:LL0ĺ:"NEVERMIND, I GUESS YOU'RE NOT THE KIND TO WASTE YOUR TIME LEARNING LANGUAGES.":7":"ENTER Tō΍Ԡƍō̍Р̍΍ԍ΍ōҍčҍƍÍō͠ɍÍ͍ōōō΍ԠƍōōōōōĠҍōԍԍЍȠӍōčŭōԠ΍(X,X2):::D$"CLOSE"!% (11200%<(D$"OPEN KNIGHT.LANGUAGE,L32":D$"READ KNIGHT.LANGUAGE,R0":NL:L$(NL),LL%(NL),LC$(NL),LP%(NL)%n(X21NL:D$"READ KNIGHT.LANGUAGE,R";X2:L$(X2),LL%(X2),LC$(X2),LP%(X2)::D$"CLOSE"%(11300&&0*D$"OPEN CHARACTER'D$"OPEN KNIGHT.RACE.CLASS,L64":D$"READ KNIGHT.RACE.CLASS,R0":NR,NO:RC$(NR)$B'RA%(NR,14),CA%(NO,14):X1NR:D$"READ KNIGHT.RACE.CLASS,R";X:RC$(X):X2014:RA%(X,X2)::%'CL$(NO):X1NO:D$"READ KNIGHT.RACE.CLASS,R";XNR:CL$(X):X2014:CA%9500::RSR:575<##SRR:RQR1R:9500::RSR:9600:580P#% >> WRITE ROOM#&%D$"WRITE ROOMS,R";R:0:"NONE":0:0:0:0:0:0:D$#v%#% >> CLOSE ROOMS#%D$"WRITE ROOMS,R0":RRL:QR:D$"CLOSE"#%#' === INITIALIZE ===#'11100O$$C:R1NC:D$;"READ CHARACTERS,R";R:NA$(R):NA$(R)""NA$(R)"*DEAD"NUNU1_"T:D$;"CLOSE""^D$"OPEN ROOMS":D$"READ ROOMS":RRL:D$"CLOSE"""(# >> ROOM ERROR"2#RQR9100"<#QRR:D$;"WRITE ROOMS,R0":RRL:QR:D$:575##SRR:RQR1R:30!KS2KS2 !CA3CA31!KS10KS10P!HDRA%(RC,0)HDRA%(RC,0)o!AGRA%(RC,1)AGRA%(RC,1)!CA10CA10!f!X >> DELAY!bX11500:X:!@ >> TABLE CHARACTERSM"JD$;"OPEN CHARACTERS,L";RL:D$;"READ CHARACTERS,R0":RL,N A$:A$(13)ı4 X1NL:A$(L$(X),1)ī5440@ ,:5380F @ J(LC$(X),CL,1)"1"LL%(X)0LP%(X)0ĺ:"APPARENTLY, YOU WEREN'T LISTENING!!":7000:5300 TA$"C"LG$LG$A$ r |HD6HD6 AG6AG6 CH3CH3!IN30INSE TITLES":)} === FIND TITLE ===5~LV0ıNTL0:WLLV:TCLT:T1xWLTCWLWLTC:TCTCIT:TT1:32530TNTWLWLTNT:TNT&TI$TI$(T,CL):WLTI$TI$" "(WL)0I$(T,CL):WLTI$TI$" "(WL)0ˍȍ͍ōōōōōōōōōōōōō ANY]" %6)+%* MACE,SPEAR,BOW,AXE,SWORD K10$)F$)NW0:W1CA%(X):WT%(X,W)2WT%(X,W)20NWNW1:WP%(X)Wn$):NW0WN$(X,0)"[DON'T HAVE ANY]"t$6)$* MACE,SPEAR,BOW,AXE,SWORD 310$)$)NW0:W1CA%(X):WT%(X,W)2WT%(X,W)20NWNW1:WP%(X)W%):NW0WN$(0)"[DON'T HAVEˠ̍ȍ͍ōōŠƠ̍ȍ̍ҍōōōōĠҍװōԍōÍ̍΍ƍƍ    ٍԮ̍ԍà΍čˍˍčٍ̍ԍЍ΍ٍ͍ō΍ҍčԍ̍̍ŠҍĠҍàˍĠōĠč̍ō٠ȍ׍ĠҍĠҍҠҍ̠ҍŠҍĠҍȍٍō̍čōٍ΍Ѝō΍ԍōōō͍̍ōٍԍōԍčԍōР̍ōҠӍŠōԍ̍ҍԍàƍ΍ȍ̍ҍƠٍԠƍҍàčàōàōàҍà׍Πōōҍ׍ōčōō׍΍      ҍˍˍōȍ΍΍ȍ΍ōȍ΍ōōȍȍ΍ȍȍ΍ȍ΍ȍȍōȍ     D/ MACE,SPEAR,BOW,AXE,SWORDC    :22150!|n >> FIND EMPTY SLOTF|nX1CA:WN$(X)"NONE"Ă:X99:L|o|"o"ANGELO SAYS, ";(34);"GOOD! BUT IT LOOKS LIKE":"YOU HAVE A FULL LOAD NOW. YOU'D BETTER":"SELL SOMETHING FIRST.";(34)|,o29000K}To:"ANGELO GIVES YOU A FUNNY LOOK AND ĠčōōA%(CL,6):WA%(2)WA%(2)CA%(CL,7):WA%(3)WA%(3)CA%(CL,8):WA%(4)WA%(4)CA%(CL,9):WA%(5)WA%(5)CA%(CL,10)u5500:8:958:"SELECT SECONDARY LANGUAGE ...":LL0:X1NL:LL%(X)0(LC$(X),CL,1)"0"LP%(X)05360/(L$(X),1)"U"ĺ" ";(L΍͍ōō΍ƠٍҍčōōōōĠҍĠ:520520CX13500:X:D$;"RUN MASTER MENU"N!"PRESS A KEY WHEN YOU ARE READY ...";]!A$::350 YOU BACK":"TO THE MASTER MENU":2100 (222)4ĺ:"DISKETTE HAS BEEN WRITE PROTECTED. TAKE THE TAB OFF AND RE-INSERT DISKETTE AGAIN"::2200 4:"YOU WILL NEED TO TRANSFER THE HIGHEST NUMBERED CHARACTERS TO ANOTHER DISKETTE AND TRY AGAIN..."#!> === CHARACTERS ===0'.,FL$"CHARACTERS":11500D', === ROOMS ===[',FL$"ROOMS":11500',(222)6ė:6:"NO ";FL$;" FILE ON THIS"::"DISKETTE. THIS PROGRAM IS ABORTING.":599'F-950'.216,0(.::7);"PRESS ANY KEY TO CONTINUE";7);:A$:ōTIME NOW...":X12000:X:110(!6900=!X >> QUIT <<!bD$;"CLOSE"::6:"INSERT DISKETTE TO BOOT ON AND PRESS ANY":" TO CONTINUE ..."!l:" PRESS 'ESC' TO RETURN TO MAIN MENU ";!vA$::A$(27)110!1370Ǡōȍ͍ōōōōōōōōōōōō2":D$"READ KNIGHT.USEFUL,R0":NU:U$(NU):X1NU:D$"READ KNIGHT.USEFUL,R";X:U$(X)::D$"CLOSE"/D$"OPEN KNIGHT.LANGUAGE,L32":D$"READ KNIGHT.LANGUAGE,R0":NL:L$(NL):X1NL:D$"READ KNIGHT.LANGUAGE,R";X:L$(X)::D$"CLOSE"/X15:WT$(X)::/ŠčōӍ͍̍ōōōōōōōōōōōōōō(NA$,4)"KILL"9002 === ERRORS ===b(222)10ĺD$;"UNLOCK THE ADVENTURER":350 (222)8ĺ:"I/O ERROR HAS OCCURRED..."::" SYSTEM RE-BOOT HAS BEEN INITIATED ...":X13000:X:1370& (222)9ĺ:"DISKETTE IS FULL. I AM SENDINGčÍ͍ԍҍč΍Р̍̍ҍōōōҠҍSAYS":(34);"BRING IT IN SOMETIME AND WE'LL TALK IT":"OVER.";(34):29000\}Hq3900:20050DLK IT":"OVER.";(34):29000}Hq3900:2005027020{iA$:A$"Y"Q1+{iA$"N"290006{i22110{`m:"ANGELO SAYS ";(34);"SINCE THAT'S A MAGIC WEAPONYOU CAN GIVE IT A NAME. WHAT WOULD YOU ":"LIKE TO CALL IT?"::" ==> ";A$:A$""A$"NONE"A$W$(W)|jmWW%(WP)TW%(W)20:WT%(WP)20:WN$(WP)A$:$(X),1);")";(L$(X),2);17(L$(X))1);:LLLL1:LL0ĺ:"NO SECONDARY LANGUAGES ARE ALLOWED FOR A CHARACTER OF THIS CLASS AND LEVEL."::"ENTER THE FIRST LETTER OF THE LANGUAGE THAT YOU KNOW ====> ";A$:(A$"T"A$"A")A$(13)ī5380ōΠ͍Í͍ōōōōōōōōōōōōĠҍōD$"READ KNIGHT.RACE.CLASS,R0":NR,NC:RA%(NR,14),CA%(NC,14).X1NR:D$"READ KNIGHT.RACE.CLASS,R";X:RC$(X):X2014:RA%(X,X2):.:X1NC:D$"READ KNIGHT.RACE.CLASS,R";NRX:CL$(X):X2014:CA%(X,X2):::D$"CLOSE"a/D$"OPEN KNIGHT.USEFUL,L3ȍōōŠΠӠԠՠĠӠŧĠҠŠԠ٠ǠΠǠӠΠήŠΠӠƠՠŠ͠٠ŧӠǠϠŠՠҠĠŠŠԠŠήŠΠӠԠŠԠΠԠӠ͠٠ŠӠǠϠŠǠĠӠŮŮŠΠӠӠҠĠӠԠՠ٬ӠĠӠԠԠŠԠՠŠǠŠΠӠԠנΠĠŠŠӠ٠ӠՠӠ٠ĠӠǠǮŠΠԠӠƠӠŠΠŠӠҠŮɠΧԠŠŠϠӠŠŠРȮŠΠӠԠՠ٠ĠӠǠԠŠƠŠŠŠӠϠΠӠήŠΠӠ٠ĠϠРΠȠԠӠ٠ĠӠĠ٠ȮԠӠӠҮŠΠӠǠԠĠԠŠŠŠҮ   ōōōōōōōōōōōōōčȍōōōōōōҍĠč37)255A$"BY JOHN NELSON":C$"COPYRIGHT (C) 1983"> Z 10:12:C$:14:12:A$g $255:60"Π͍ȍ͍ԍٍōҍč̍ҍ΍ōōҠԍ͍ōōōčōōōōōōҠҍō6@3K34;(ͷ /<Ï<:A(*A44*A~($G+( ~/_~(=G+~(6+<=(+~>.66?*AO DE͖4?Ȣ<<=>٩L6 ݍ_很Ծ Cu LqB ̍ Lf Lf Lf Lf Lf e f@ɝ ɾL` / < ,C-C=ȱ<i@<Ș=.C=/CעPC0"lCtC<ȽuC> DELAY <<##bX12500:X:u#(#D$"":D$"OPEN FRIENDS":D$"WRITE FRIENDS":5:4:1:2:3:5:6:D$"CLOSE":#' >> MANAGEMESS <<#'FRWO010080#$'X0FR#.'NA$(X)"[WALKOUT]"XSPİ1000#8'XSPİ10500#V'::5600#`'5000$j'3FR:NA$(X)N$Ă:57001"NINX:2400:5600:5000K" >> WEAPON SELECTED"D$"WRITE FRESH MEAT":NA$(X):HD%(X):AG%(X):2AG%(X)AW%(X)"AH%(X):WN$(X,WP):WT%(X,WP%(X)):WW%(X,WP%(X)):WC%(X,WP%(X)):WD%(X,WP%(X)):WS%(X,WP%(X)):LG$(X)".RMOUR: ";AN$(X);" (STOPS ";AH%(X);" HITS)"f!" CHANCE TO HIT:";2AG%(X)AW%(X)WC%(X,WP%(X));"%":!LCLC5:LC18İ5600:LC0::!!24::7);"PRESS ANY KEY TO CONTINUE";7):A$:::"D:"WHO DO YOU WANT TO INVENTORY?":" ==> ";N$:X0SUIT OF ARMOUR FROM HIM. IT WAS THE ONLYKIND HE HAD."k ,AN$(X)"LEATHER":AH%(X)2::AA%(X)20:5600:5000 |NA$(X);" LEVEL ";LVL%(X);" MISSIONS:";MI%(X):" WEAPON: ";WN$(X,WP%(X));" ";WC%(X,WP%(X));"% ";WD%(X,WP%(X));"/";WS%(X,WP%(X))*!" ATURER":D$"WRITE THE ADVENTURER":NA$(SP):FR%(SP):D$"CLOSE":D$"RUN TOWN SQUARE"AN$(X)"NONE"ĺ:"YOU SEARCH HIGH AND WIDE FOR SOMEONE WHOMIGHTSELL YOU SOME ARMOUR, BUT DON'T SEEANYONE.":5600:50005 ":"YOU EVENTUALLY FIND A PEDDLER, AND BUY AUT 'A' OR 'W': ";/nA$:A$"A"A$"W"5230DxA$:A$"A"5400Z1800:5600:5000r >> WANNA GO BACK?:"WOULD YOU LIKE TO RETURN TO TOWN?"::"INPUT 'Y' OR 'N' :";A$:A$"Y"A$"N"5320A$:A$"N"5000RD$"OPEN THE ADVENAWAY.":NA$(X)"[WALKOUT]":WOWO1:5600:5000sP:"WHO NEEDS THE EQUIPMENT?";:"";N$:X0FR:NA$(X)N$Ă:5200ZXSPĺ:"YOU SEARCH FOR A PEDDLER FOR HOURS AND":"FINALLY GIVE UP.":5300d:"DOES ";NA$(X);" NEED ARMOUR OR":"A WEAPON?"::"INPA$:A$"B"5200O FRWOĺ:"I DON'T SEE ANYONE LEFT TO DROP!":7000:5100:"WHO DO YOU WANT TO LEAVE BEHIND?":" ==> ";N$:X0FR:N$NA$(X)Ă:5130XSPĺ:"YOU CAN'T LEAVE YOURSELF BEHIND!":5600:5100-:NA$(X);" SHRUGS AND WALKS ROP SOMEONE FROM THE PARTY.":5:"UY EQUIPMENT FROM A PEDDLER."5:"NVENTORY WEAPONS CARRIED.":5:"ETURN TO TOWN - SPLIT UP PARTY."::"INPUT LETTER FOR YOUR CHOICE ==> ";A$:CH14:A$("BRID",CH,1)Ă:5110A$:CH5200,5300,5700,5130IN PARTY:"::LC5:X0FR:NA$(X)"[LEFT]"NA$(X)"[WALKOUT]"İ5500::"DOES THIS SEEM SATISFACTORY?";::"INPUT 'Y' OR 'N' ==> ";A$:A$"Y"A$"N"5050A$:A$"Y"ı?:"DO YOU WANT TO:"::4:"D":4:"B":4:"I":4:"R"::2:5:"T%(IN,W)20ĺ" ";WN$(IN,W);22);WT$(WW%(IN,W));29);WC%(IN,W);"%";34);WD%(IN,W);" D ";WS%(IN,W)i : >> DISPLAY STATUS::" LEADER:";::NA$(SP);30);::"LEVEL:";::LVL%(SP):"NUMBER OF MEMBERS IN PARTY:";FRWO1E::"MEMBERS :"YOU MUST HAVE DREAMED ABOUT THAT ONE, ":"BECAUSE YOU DON'T HAVE IT.":7000::1800$ WN$(X,1)WN$(SP,W):WT%(X,1)WT%(SP,W):WW%(X,1)WW%(SP,W):WC%(X,1)WC%(SP,W):WD%(X,1)WD%(SP,W):WS%(X,1)WS%(SP,W). WP%(X)1:1150a` W1CA%(IN):WT%(IN,W)2W> GIVEB :"WHICH WEAPON DO YOU WANT TO GIVE TO":NA$(X);" ?": "==> ";WN$:WN$"NONE"ĺ:"TRY AGAIN, FROGFACE.":7000:(37)2:2320:2320 WN$""INSP:2400::"WHAT WEAPON DO YOU WANT TO GIVE UP?"::2320W W1CA%(SP):WN$WN$(SP,W)Ă:LER ON THE ROAD AND BUY AWEAPON FROM HIM.":WT((1)51):PR5010WTbPRGOLD(SP)PRGOLD(SP):"HE CHARGES YOU ";PR;" GOLD PIECES.":GOLD(SP)GOLD(SP)PRWN$(X,1)"AXE":WT%(X,1)2:WW%(X,1)4:WC%(X,1)10:WD%(X,1)1:WS%(X,1)6:WP%(X)1: z#@    Ӡ ȠԠ֠ѮŠѮ͠  Ԯà" ԮŠ ԮӠ Ԯ̠ ԮŮӠ ŠҠԮӠ ٠ӠˠĠ٠ӠǠӠӠӠӠ"ԠԠҠ" Ԡ!Ԡ ŠŠҠ"ΠŠw ҠҠ"&A$:A$"L"A$"B"A$"G"1830I0A$:C13:("LBG",C,1)A$Ă:_:C2100,2200,2300m4 > LEAVE>NA$(X)"[WALKOUT]":WOWO1: > BUYGOLD(SP)50ĺ:"YOU DON'T HAVE ENOUGH GOLD TO BUY ANY":"WEAPONS.":1800E:"YOU MEET A PEDD`WP%(X)W~* >> NO WEAPON:"DO YOU WANT TO LEAVE ";NA$(X):"BEHIND, BUY ";("HIMHER",(SEX$(X)"F")31,3);" A WEAPON OR GIVE":"UP ONE OF YOUR OWN.":"SELECT ";::"L";::"EAVE ";::"B";::"UY OR ";::"G";::"IVE => ";$U ":"WANT ";("HIMHER",(SEX$(X)"F")31,3);" TO USE":CNT0:W1CA%(X)QWT%(X,W)2WT%(X,W)20CNTCNT1:WN$(X,W);(", ",(CNTNW)1,2);V:[:"INPUT NAME OF WEAPON:";WN$:W1CA%(X):WN$WN$(X,W)Ă::NA$(X);" DOESN'T UNDERSTAND.":1115 A$(X);" COMPLAINS THAT ";("SHE",(SEX$(X)"M")1,2(SEX$(X)"F")):" DOES NOT HAVE ANY WEAPONS.":1800uNW11100W1CA%(X):WT%(X,W)2WT%(X,W)20WP%(X)W$1150HL"----------------------------------------":NA$(X);" ASKS WHETHER YOADV$:D$[:5:12);"PREPARE YOURSELF"::18);"FOR"::((40(ADV$))2));::ADV$:nD$"RUN ";ADV$ >> FRIEND FIND WEAPONNW0:W1CA%(X):WT%(X,W)2WT%(X,W)20NWNW1WfNW0ĺ"----------------------------------------":N(SP):AN$(SP):AA%(SP):AH%(SP):SH$(SP):HA%(SP):HH%(SP)~rCS%(SP):WG%(SP):YR%(SP):EYE%(SP):IJ%(SP):SD%(SP):ST%(SP)|D$:FRWO0500X0FR:NA$(X)"[WALKOUT]"XSPİ6100:D$"CLOSE" D$"OPEN KQ.NAME":D$"READ KQ.NAME":(SP):IN%(SP):HT%(SP):LG$(SP)TSEX$(SP):GOLD(SP):BANK(SP):W15:WA%(SP,W)::KS%(SP):S1KS%(SP):SN$(SP,S):SN%(SP,S):SA%(SP,S):SE%(SP,S):^CA%(SP):W1CA%(SP):WN$(SP,W):WT%(SP,W):WW%(SP,W):WC%(SP,W):WD%(SP,W):WS%(SP,W)::hAE%j6:5:"INSERT ADVENTURE DISKETTE AND PRESS ANY"::" KEY TO CONTINUE ...";:16384,128:16368,0@:D$"OPEN FRESH MEAT":D$"WRITE FRESH MEAT":FR%(SP):FRWOJNA$(SP):RC%(SP):CL%(SP):LVL%(SP):MISS%(SP):PTS%(SP):HD%(SP):AG%(SP):CH%'Y' OR 'N' ==> ";. A$:A$"Y"A$"N"190 A$:A$"N"ĺ:NA$(SP);" QUITS AND WALKS OUT.":WOWO1:RANK(SP)0:NA$(SP)"[WALKOUT]":SP0:SR0::130 :NA$(SP);" SAYS THANK YOU."::::18);"NOTE";18):::"YOU ARE NOW ";NA$(SP);".":,10000X : SP0300 NA$(SP);" SAYS ";("SHE",(SEX$(SP)"M")1,2(SEX$(SP)"F"));" IS THE MOST":"QUALIFIED TO BE THE LEADER OF THE PARTY,AND INSISTS ON BEING COMMANDER." :"DO YOU WANT TO TURN OVER THE LEADERSHIP":"TO ";NA$(SP);"?"::"INPUT ,WD%(X,W),WS%(X,W):W~ dAE%(X),AN$(X),AA%(X),AH%(X),SH$(X),HA%(X),HH%(X):CS%(X),WG%(X),YR%(X),EYE%(X),IJ%(X),SD%(X),ST%(X) nX:D$ R0FR:(NA$(R),1)"["RANK(R)LVL%(R)10000MISS%(R)1000PTS%(R)  X0FR:RANK(X)SRSRRANK(X):SPЄRC%(X),CL%(X),LVL%(X),MISS%(X),PTS%(X)o FHD%(X),AG%(X),CH%(X),IN%(X),HT%(X):LG$(X),SEX$(X),GOLD(X),BANK(X) PW15:WA%(X,W):W:KS%(X):S1KS%(X):SN$(X,S),SN%(X,S),SA%(X,S),SE%(X,S):S ZCA%(X):W1CA%(X):WN$(X,W),WT%(X,W),WW%(X,W),WC%(X,W)N CHARACTERS":D$"READ CHARACTERS":RL:D$"CLOSE":D$"OPEN CHARACTERS,L";RL:D$"READ CHARACTERS,R0":RL,NC (:X0FR:FR%(X)NCFR%(X)1ĺ"NOT ON FILE..."::110 2D$"READ CHARACTERS,R";FR%(X):NA$:NA$""ĺ"CHARACTER VACANT...":110' <NA$(X)NA$: KNIGHT QUEST5 FRIENDS GOING;W COPYRIGHT (C) 1983q BY JOHN NELSONw 05/01/85 - BD D$(4)::X15:WT$(X):D$"OPEN FRIENDS":D$"READ FRIENDS":FR:X0FR:FR%(X):j D$"CLOSE":D$"OPE           A%(RC,7):KSKSRA%(RC,8):CACARA%(RC,9) HDHDCA%(CL,0):AGAGCA%(CL,1):CHCHCA%(CL,2):ININCA%(CL,3):KSKSCA%(CL,4):CACACA%(CL,5)*CSHD(R(RA%(RC,12))) 4GOLDGOLDCA%(CL,11):SPSPCA%(CL,12):STCA%(CL,13):WGTWGTCA%(CL,14):EYERA%(RC,107 :"AND MY FATHER WAS THE DUKE OF WINDSOR!":7700c:"SURE, AND THE QUEEN IS BALD!":7700:"TELL ME ANOTHER!":7700L:"WHADYA DREAM THE NEXT NIGHT?":7700X12000:X:. === INITIALIZE ===<.D$"OPEN KNIGHT.RACE.CLASS,L64":"HEAL":SA%(SP)MI525:SE%(SP)6:SN%(SP)1:SPSP1:(1).6MI12CL2BLASTBLAST1:SN$(SP)"BLAST":SN%(SP)3:SA%(SP)MI525:SE%(SP)8:X === DELAY ===b((1)51)7100,7200,7300,7400,7500:"YER FATHER WAS A LIAR, TOO!":770("S",1,FR1);" WITH YOU."Q24::7);"PRESS ANY KEY TO CONTINUE";7);::A$:cA$(8)5000ip >> GENERATE SPELLzCL2(1).77HEALHEAL1:SN$(SP)"HEAL":SN%(SP)1:SA%(SP)MI525:SE%(SP)8:SPSP1:5(1).6HEALHEAL1:SN$(SP)W)20WT%(W)0Ă:5230^PWT%(W)NUĺWN$(W);20);"UNKNOWN";30);WD%(W);36);WW%(W):F1:5220ZWN$(W);20);U$(WT%(W));30);WD%(W);36);WW%(W):F1dWnFĺ" --- NONE --- "x:"YOU CAN CARRY ";CA;" ITEMS.":FR0ĺ"YOU HAVE ";FR;" FRIEND";2051802WN$(W);20(WC%(W)0)((WC%(W))10)((WC%(W))100));WC%(W);"% ";WD%(W);" D ";WS%(W);35);AG2WA%(WW%(W))WC%(W)EA;"%":F1<W:Fĺ" --- NONE --- "FF0:::"ARTIFACTS";:19);" TYPE EFF. #USES "::W1CA:WT%(W)2WT%(ISTICS:"::"LEVEL:";LV;" MISSIONS:";MI;" EXPERIENCE:";PTc" VISION:NORMAL STATUS:NORMAL"::"GOLD ";::" IN HAND ";GOLD;", BANK ";BANK:EAAASAAE:EA0EA0 (F0:::"WEAPONS";19);"CMPLX DAM ODDS "::W1CA:WT%(W)2WT%(W)RMOUR":" ";:W15:1(WA%(W)0)((WA%(W))10)((WA%(WA))100));WA%(W);"% ";:e" ";AE;"%"::"ARMOUR: ";::" ";AN$;" [";AH;"/-";AA;"%]":SN$"NONE"ĺ" & ";SN$ 23::7)"PRESS ANY KEY TO CONTINUE";7);::A$:;::"STATS);:Y1.S:Yĺ" --- NONE --- ";U::SM0::"LANGUAGES KNOWN: ";:X1(LG$):A$(LG$,X,1):S1NL:A$(L$(S),1)ĺ(1319((36)(L$(S))39));L$(S);:::R:"WEAPON ABILITIES: ":::" MACE SPEAR BOW AXE SWORD A::"ATTRIBUTES:"::"HD=";HD;" AG=";AG;" CH=";CH;" IN=";IN;" SEX=";SEX$" CONS=";CS;" WGT=";(WGT10);" AGE=";(YR10):"SPELLS KNOWN ";::" ";KS;" POSSIBLE.":Y0:SM0:S1KSSN$(S)"NONE"ĺ(1319((36)(SN$(S))39));SN$(STFIG:TAL:DRI[D$;"CLOSE":D$"OPEN KQ.NAME":D$"READ KQ.NAME":ADV$:D$"CLOSE":6:10);"PREPARE YOURSELF FOR"::(40(ADV$))2);ADV$D$"RUN ";ADV$ >> DISPLAY <<::" NAME ";::" ";NAME$;" THE ";RC$(RC);" ";CL$(CL)K:CL:LVL:MI:PT:HD:AG:CH:IN:HT|LG$:SEX$:GOLD:BANK:X15:WA%(X)::KS:X1KS:SN$(X):SN%(X):SA%(X):SE%(X):CAR:X1CAR:WN$(X):WT%(X):WW%(X):WC%(X):WD%(X):WS%(X)::AE:AN$:AA:AH:SN$:SA:SHCS:WGT:YR:EY:IJ$:SD:50RA%(RC,10)):CSHD5:WGT(HT2.57):YR210:EY2:IJ$"00000":SD18:ST0TT5000c:6:"INSERT ADVENTURE DISKETTE AND PRESS ANY"::" KEY TO CONTINUE ... ";hA$::A$(27)120%rD$"OPEN FRESH MEAT":D$"WRITE FRESH MEAT":0:0:NAME$:RCWT$(WB):WT%(3)2:WW%(3)WB:WC%(3)10:WD%(3)1:WS%(3)6WB3:LV6WN$(3)"MAGIC "WN$(3):WT%(3)20:WD%(3)2,WN$(4)"ELIXER":WT%(4)6:WW%(4)8:WC%(4)100:WD%(4)86WN$(5)"BEEF JERKY":WT%(5)21:WW%(5)10:WC%(5)0:WD%(5)25@355JJHT(10(1)WB):A GOLD(MI3000(1)):BANKMI100:AE10MI:AE70AE70 AAAE5:AN$"CHAIN ARMOUR":AH(AA15):CA6:WN$(1)"LANTERN":WT%(1)5:WW%(1)325:WC%(1)100:WD%(1)3:AH1AH2 SN$"NONE":SA0:SH0 WN$(2)"SHOVEL":WT%(2)7:WW%(2)30l"WN$(3)6:SP1:KS2KS2 KS9KS9B X1KS:SN$(X)"NONE":6000: 8:958:"WHAT IS YOUR FAVORITE WEAPON TYPE:":X15:" ";X;". ";WT$(X): "INPUT NUMBER (1-5):"; A$:A$"1"A$"5"230 A$:WB(A$) W15:WA%(W)((1)4010)20(W8:958:"HOW MANY MISSIONS HAVE YOU SEEN,":NA$;:MIS$:(MIS$)12İ7000:180o LV((MI$)):PT((1)430) MI((MI$)) HDA(RA%(RC,0)3):AGA(RA%(RC,1)3):CHA(8):INA(8)A(8)A(8)A(8)A(8)((1)50) KS4RA%(RC,8)CA%(CL,4):CA:"INPUT NUMBER (1-";NC;"):";M "";CL$:(CL$)NC(CL$)1Ģ(37):20:150 CL(CL$):8::958:"SELECT RACE:":X1NR:" ";X;". ";RC$(X)::"INPUT NUMBER (1-";NR;"):"; "";RC$:(RC$)1(RC$)NRĢ(37):20:170 RC(RC$):LG$"C":A$O DIRTY";13)h 11);"COPYRIGHT (C) 1983";11):13);"BY JOHN NELSON";13)::8:" YOUR NAME ==> ";NA$ 8:958:"ARE YOU MALE OR FEMALE?"; SEX$:SEX$"M"SEX$"F"136 SEX$ 8:958:"SELECT OCCUPATION:":X1NC:" ";X;". ";CL$(X):! KNIGHT QUEST3 QUICK AND DIRTYO COPYRIGHT (C) 1983i BY JOHN NELSONou 2-3-84dD$(4)::B(X)((1)X1)nA(X)B(X)B(X)B(X):12000 x::14);"KNIGHT QUEST";14):12);"QUICK AND       )R(CA%(CL,14))):CSHDR(RA%(RC,12)):EYERA%(RC,14):IJ$"00000":SPA(8)CA%(CL,12)RA%(RC,11):STCA%(CL,13)GOLDGOLDCA%(CL,11)WGT(WGT)PHDHDCA%(CL,0):AGAGCA%(CL,1):CHCHCA%(CL,2)nX15:WA%(X)((1)3015):iWA%(1)WA%(1)C,HYPER"B/ NORMAL,CURSED,BLESSED(C/B: === READ TITLES ===~:D$"OPEN TITLES":D$"READ TITLES":TL:D$"CLOSE TITLES" :D$"OPEN TITLES,L";TL:D$"READ TITLES,R0":TL,NT,LT,IT:TI$(NT,NO):X1NT:D$"READ TITLES,R";X:T1NO:TI$(X,T):::D$"CLOD$"CLOSE".&/SN$(50),SN%(50),SS%(50),SE%(50)0/D$"OPEN KNIGHT.USEFUL,L32":D$"READ KNIGHT.USEFUL,R0":NU:U$(NU):X1NU:D$"READ KNIGHT.USEFUL,R";X:U$(X)::D$"CLOSE":/X05:VS$(X)::X02:ST$(X):?/ BLIND,ONE-EYED,NORMAL,SENSITIVE,ACUTENL:L$(NL):X1NL:D$"READ KNIGHT.LANGUAGE,R";X:L$(X)::D$"CLOSE".D$"OPEN KNIGHT.RACE.CLASS,L64":D$"READ KNIGHT.RACE.CLASS,R0":NR,NO/X1NR:D$"READ KNIGHT.RACE.CLASS,R";X:RC$(X): /X1NO:D$"READ KNIGHT.RACE.CLASS,R";XNR:CL$(X)::U":=b" 3. ENTER GAME"::" INPUT YOUR CHOICE [_]";:21YlA$:A$"1"A$"3"7020svA$:A$"1"REC1:40A$"2"ĺD$;"RUN QUEST"D$"RUN EMBARKMENT". >>> LOAD DATA <<<E.D$"OPEN KNIGHT.LANGUAGE,L32":D$;"READ KNIGHT.LANGUAGE,R0":ECREC1:100:EOF5000"7000X::14);"KNIGHT QUEST";14):11);"DISPLAY CHARACTERS";11):11);"COPYRIGHT (C) 1983";11):13);"BY JOHN NELSON";13):Z:14);NC;" CHARACTERS"]9:" 1. REVIEW CHARACTERS"::" 2. RETURN TO MASTER MENF1 W%Fĺ15);"-- NONE --"22:16368,0:" R ... REVIEW THIS CHARACTER ":" ESC ... EXIT DISPLAYS":" <- ... PREVIOUS CHARACTER ";:A$:pA$(27)7000zA$"R"5000A$(8)GEAR$"R":RECREC1:100:5000GEAR$"F":RFĺ15);"-- NONE --"~(F0:::"ARTIFACTS";:19);" TYPE EFF. #USES "::W1CA:WT%(W)2WT%(W)20WT%(W)0Ă:53002WT%(W)NUĺWN$(W);20);"UNKNOWN";30);WD%(W);36);WW%(W):F1:5290<WN$(W);20);(U$(WT%(W)),5);30);WD%(W);36);WW%(W):= ";GOLD;" / BANK=";BANKrF0:::"WEAPONS";19);"CMPLX DAM ODDS "::W1CA:WT%(W)2WT%(W)205090WN$(W);20(WC%(W)0)((WC%(W))10)((WC%(W))100));WC%(W);"% ";WD%(W);" D ";WS%(W);35);AG2WA%(WW%(W))WC%(W)EA;"%":F1W:/-";AA;"%)":SN$"NONE"ĺ" & ";SN$;n:23:16368,0::7);"PRESS ANY KEY TO CONTINUE";7);::A$:::"STATISTICS"::" LEVEL:";LV;" MISSIONS:";MI;" EXPERIENCE:";PT" VISION:";VS$(EYE);" STATUS:";ST$(ST):::"GOLD ";::" SACK );L$(S);:/::EAAASAAE:EA0EA0:"WEAPON ABILITIES:"::" MACE SPEAR BOW AXE SWORD ARMOUR":" ";:W15:1(WA%(W)0)((WA%(W))10)((WA%(WA))100));WA%(W);"% ";:" ";AE;"%"*::"ARMOUR: ";::" ";AN$;" (";AH;"LS KNOWN ";::28:KS;" POSSIBLE":Y0:S1KSm SN$(S)"NONE"ĺ(1319((36)(SN$(S))39));SN$(S);:Y1 S:Yĺ15);"-- NONE --"; ::SM0::"LANGUAGES: ";:X1(LG$):A$(LG$,X,1):S1NL:A$(L$(S),1)ĺ(1319((36)(L$(S))39)FT10:I(I1210)+ TI$"":LV0İ32000L TI$""ĺ" TITLE:";TI$ ::"ATTRIBUTES:"::"HD=";HD;" AG=";AG;" CH=";CH;" IN=";IN;" SEX=";SEX$;" HT=";FT;"'";I;(34) " CONST=";CS;" WGT=";(WG10);" AGE=";(YR10);" SP=";SD- ::"SPELX),WS%(X)::AE,AN$,AA,AH,SN$,SA,SHC CS,WG,YR,EYE,IJ$,SD,ST:D$I y GEAR$"F"RECREC1:RECNCRECNC:EOF1: GEAR$"R"RECREC1:REC1REC1:EOF1: 140 ::"NAME:";::" ";NAME$;" THE ";RC$(RC);" ";CL$(CL) FT(HT10):IHTD CHARACTERS,R";REC:N$:N$""N$"*DEAD"200 D$;"READ CHARACTERS,R";REC:NAME$,RC,CL:LV,MI,PT,HD,AG,CH,IN,HT,LG$:SEX$,GOLD,BANK:X15:WA%(X): TI$""# KS:X1KS:SN$(X),SN%(X),SS%(X),SE%(X)::CA:X1CA:WN$(X),WT%(X),WW%(X),WC%(X),WD%(OSE"A D$"OPEN CHARACTERS,L";RL:D$"READ CHARACTERS,R0":RL,NCe (REC1:GEAR$"F":100:EOF5000s ZD$:7000 d >> READ NEXT nEOF0:RECNCGEAR$"F"EOF1:RECNC:140 xREC1GEAR$"R"EOF1:REC1:150 RECNCREC1EOF1:- D$"REA  KNIGHT QUEST; DISPLAY CHARACTERSA` COPYRIGHT (C) 1983 y BY JOHN NELSON 2-2-84:INT(WGT)&(YR)/2-25-84:PAGE MSGES D$(4):12000:15000 D$"OPEN CHARACTERS":D$"READ CHARACTERS":RL:D$"CL      OW,AXE,SWORD! >> ADJUST CHAR?SEX$"M"CHCHRA%(RC,5)}SEX$"F"HDHDRA%(RC,3):AGAGRA%(RC,4):CHCHRA%(RC,6)ININRA%(RC,7)CA%(CL,3):KSKSRA%(RC,8)CA%(CL,4):CACARA%(RC,9)CA%(CL,5):HTHTRA%(RC,10)n WGTHT2.57(R(RA%(RC,13):AH0:SN$"NONE":SA0:SH0  7 == ADD A CHAR ==v& D$;"WRITE CHARACTERS,R0":NCNC1:RL:NC:RNC:NA$(NC)NA$0 D$;"OPEN ROOMS":D$;"READ ROOMS":RRL:D$;"OPEN ROOMS,L";RRL:D$;"WRITE ROOMS,R0":RRL:Rv D$;"CLOSE ROOMS":  MACE,SPEAR,B6:MS2:XS10:MC33:MN50-X15:WT$(X):GNA$(50):10000:8000X110:WN$(X)"NONE":WT%(X)0:WW%(X)0:WC%(X)0:WD%(X)0:WS%(X)0:SN$(15),SN%(15),SA%(15),SE%(15) X115:SN$(X)"NONE":SN%(X)0:SA%(X)0:SE%(X)0:AN$"NONE":AA0OR HAS BEEN ENCOUNTERED. ERROR CODE = ";(222):"ON LINE # ";(218)(219)256;".":c999:520::7);"PRESS ANY KEY TO CONTINUE";7);:A$::S(4(IN100))(IN100)20:S(S)SMSSMSSXSSXS >> INITIALIZECAN'T WRITE TO IT. I WILL OVERRIDE THE LOCK.":D$"UNLOCK ROOMS":D$"UNLOCK CHARACTERS":990(222)8Ģ6:"AN I/O ERROR HAS BEEN ENCOUNTERED. CHECKTHE DISK DRIVE DOOR. A BAD DISKETTE MAY ALSO CAUSE THIS.":990U:6:"CANNOT CONTINUE - UNEXPECTED ERRRENT DISKETTE. INSERT A CORRECT DISKAND PRESS ANY KEY.":990(222)4ė:6:"THIS DISKETTE IS WRITE PROTECTED ..."::"REMOVE WRITE PROTECT TAB AND PRESS ANY KEY TO CONTINUE ...";:990Z(222)10ė:6:"SOMEBODY DECIDED TO LOCK THE FILE. I CAEMASTER MENU TO ALLOW CREATION OF MORE CHARACTERS."HNCNC1:D$"OPEN CHARACTERS,L";RL:D$"WRITE CHARACTERS,R0":RL:NC:D$"CLOSE"R23:999p599 === WRITE ERROR=216,0:(222)6ė:6:"NO CHARACTERS FILE OR ROOMS FILE ON THE"::"CUR(222)9900/216,04:6::"THE DISKETTE IS FULL!";::" --- NO FURTHER"::"CHARACTER GENERATION IS POSSIBLE.":13:"COPY THE CHARACTERS FILE AND THE ROOMS"5>"FILE TO ANOTHER DISKETTE AND USE THE ":"INITIALIZE CHARACTERS FILE OPTION ON TH:"OCCUPATION: ";CL$(CL)U:"AND ARE YOU:":VT(37):X1NR:" ";X;". ";RC$(X):" INPUT NUMBER ==> ";RC$:(RC$)1(RC$)NRĺ:"I'M SORRY, BUT I DIDN'T CATCH THAT.":760RC(RC$):VT:958:"RACE: ";RC$(RC):  === WRITE ERROR ===*A$"N"Ģ8:958:&{:40):::CA61:270K >> GET CLASS / RACE:"OCCUPATION:":VT(37):X1NO:" ";X;". ";CL$(X):" INPUT NUMBER ==> ";CL$:(CL$)1(CL$)NOCĺ:"I'M SORRY, BUT I DIDN'T CATCH THAT.":720CL(CL$):VT:958$"Y"90W(4);"RUN QUEST"9X /// SUICIDE ROUTINE b:"YOUR CHARACTER IS SUCH A POOR EXCUSE"::"FOR AN ADVENTURER THAT WE WILL ALLOW"::"YOU TO COMMIT SUICIDE. ENTER 'Y' TO"::"COMMIT SUICIDE, ELSE 'N'";lA$:A$"Y"A$"N"620v::S,L";RRL:D$"READ ROOMS,R0":RRL,QR=RQRQRQR1:RQRĺ:" ROOMS FILE ERROR!"::" ATTEMPTING REPAIR...":7000:9000?9500:9600D:"DO YOU WISH TO CREATE ANOTHER CHARACTER?":" (Y OR N) :";NA$:A$"Y"A$"N"590SA$:AN: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):0AE:AN$:AA:AH:SN$:SA:SH:CS:WGT:YR:EYE:IJ$:SP:ST:D$;"CLOSE"#<D$"OPEN ROOM);: A$/A$(18)RERRER1:RER4270B:A$(14)90L800D$;"OPEN CHARACTERS,L";RL:R1NC:NA$(R)"*DEAD"NA$(R)""Ă:3100:530 NA$(R)NA$:NUNU1D$;"WRITE CHARACTERS,R";R:NAME$:RC:CL-LV:MI:PT:HD:AG:CH:IILITIES ARE:"::X15:" ";WT$(X);12);" ---";5((WA%(X))));WA%(X):^:NA$;" CAN CARRY ";CA;" THINGS":"COMFORTABLY (WITHIN THE TOWN LIMITS.)"::NA$;" IS CAPABLE OF LEARNING ":"UP TO ";KS;" SPELLS."::7);"PRESS ANY KEY TO CONTINUE";7RC,3)RA%(RC,4)RA%(RC,6)7 ,HDAGCHMAX3İ600:330{ 6WK130RA%(RC,7)CA%(CL,3):HDAGCHMAX2IN(WKMN)2MNİ600 @PRINT : PRINT : INVERSE : PRINT SPC( 7);"PRESS ANY KEY TO CONTINUE"; SPC( 7);: NORMAL : GET A$: PRINT JKT:"WEAPON ABDINESS-- ";HD:" AGILITY -- ";AG:" CHARISMA -- ";CH:" INTELL. -- ";IN:" HEIGHT --- "; 'FT(HT10):IHTFT10:FT;"'";(I1210);(34) )SEX$"M"MAXRA%(RC,0)RA%(RC,1)24RA%(RC,5) *SEX$"F"MAXRA%(RC,0)RA%(RC,1)24RA%(ISTAKEN. TRY AGAIN.":7000:(37)1:958:150? YR(AG$)10O RER0:5300a CA6:GOLD500 HDA(RA%(RC,0)3):AGA(RA%(RC,1)3):CHA(8):IN0:X17:ININA(8)::1000:KSS:HT((1)1050):5000 :"PRIME ATTRIBUTES ARE:":k "" HAREADY USEDBY ANOTHER ADVENTURER. PLEASE SELECT ANOTHER NAME...":7000:7000:90 x"INPUT 'M' FOR MALE; 'F' FOR FEMALE:";:LG$"C" A$:A$"M"A$"F"130 A$:SEX$A$:700. "AGE (IN YEARS):";AG$:(AG$)10(AG$)RA%(RC,2)ĺ:"YOU MUST BE M(X)R(X)A Z:34:NC;"/";NU;:1:"NAME:";NA$:34:1:NC;"/";NU _(NA$,1)"A"(NA$,1)"Z"(NA$)2ĺ:"CUT THE FUNNY STUFF!!":7000:90 d(NA$)20ĺ:"TRY AGAIN!!":7000:90 iR1NC:NA$NA$(R)Ă:120Q n:"I'M SORRY, BUT THAT NAME IS ALR  KNIGHT QUEST; CHARACTER GENERATORA] COPYRIGHT (C) 1983w BY JOHN NELSON} 2-9-84 - ROOM ERRORS:3-7-84 - CHK FOR "" AS WELL AS "*DEAD"D$(4)22000FR(X)(X(1)1) PA(X)R(X)R                R GOLD AND TAKES":"YOUR ";N$;".":GOLDGOLDPy*bWN$(WP)"NONE":WT%(WP)0:WW%(WP)0:WC%(WP)0:WD%(WP)0:WS%(WP)0:WPCA1AN$"NONE":AA0:AH0y4bWPCA2SN$"NONE":SA0:SH0y>b:29000ye(N$)7ıRzeWN$(CA1)AN$:WN$(CA2)SN$:WC%(CA1)AA:WD%(290004xa:PP(WC%(WP)3WD%(WP)WS%(WP)):P0P2xa"ANGELO SAYS, 'THEN I CAN ONLY GIVE YOU":P;" GOLD PIECES FOR IT, TAKE IT OR":"LEAVE IT!'"::"(HIT T OR L) ";xbA$:A$"L"ĺA$::29000x bA$"T"25090xbA$-y b:"ANGELO GIVES YOU YOU6000waX1CA2:WN$(X)N$Ă::"ANGELO GIVES YOU A FUNNY LOOK AND SAYS":(34);"BRING IT IN SOMETIME AND WE'LL TALK IT":"OVER.";(34):29000waWPX:XCA2:xaWT%(WP)2WT%(WP)20WT%(WP)3WT%(WP)4ĺ:"I'M SORRY. I ONLY DEAL IN WEAPONS.":OU":"YOUR SHIELD.":-v^ACA22SH::29000\v^:"ANGELO SHOWS YOU A LIST OF SHIELDS:":va:(34);"WHAT WEAPON WOULD YOU LIKE TO UNLOAD":" ON ME?";(34)va:"NAME OF WEAPON ==> ";N$vaN$"NONE"29000wa(N$,6)"ARMOUR"(N$,6)"SHIELD"İ2 'N' FOR NOTHING.";A$:A$"N"29000Yu](A$)NH(A$)1(A$)((A$))Ģ(37)2:24035u]W(A$):(SC$(W),CL,1)"1"İ2000:29000u]PP%(W):SL%(W)LVİ2000:29000v]GOLDGOLDP:SHSH%(W):SASA%(W):SN$S$(W)::"ANGELO TAKES YOUR GOLD AND GIVES Y]Q0:X1NH:P%(X)P(SP%(X)):(SC$(X),CL,1)"0"SL%(X)LV24030Qt]Q0İ24300vt]3((X)));X;". ";S$(X);:QQ1t]Y125(S$(X))((P%(X))):".";::" ";P%(X);" G.P."t]::Q1İ2300:29000#u]"INPUT NUMBER FOR THE SHIELD YOU WANT.":" ORHAVE":"THE MONEY.";(34)::29000s(Z:"ANGELO HELPS YOU INTO YOUR ARMOUR":"AND COLLECTS THE PRICE FROM YOU."::GOLDGOLDPs2ZAN$AN$(A):AAAA%(A):AHAH%(A):29000s[:"ANGELO HANDS YOU A LIST OF THE ARMOUR":"HE HANDLES. "::s] >> SHIELDAtTHING.";!r Z"";A$:A$"N"29000drZ(A$)NA(A$)1(A$)((A$))((A$))A$Ģ(37)2:23040rZA(A$):(AC$(A),CL,1)"1"İ2000:29000rZAL%(A)LVS$"ANGELO":2000:29000"s#ZPP%(A)TI:PGOLDĺ:"ANGELO SAYS ";:(34);"COME BACK WHEN YOU ))(AN$(X)):".";::" ";P%(X);" G.P."?qY:Q1İ2300:29000qY:AN$"NONE"TIP(AH30AA):TITI(TI0):"ALSO, I CAN GIVE YOU A TRADE-IN ON YOUR":"OLD ARMOUR OF ";TI;" GOLD PIECES.":rZ"INPUT THE NUMBER OF THE ARMOUR YOU WANT":" OR N FOR NOWUp&W:LP2:(34);"GREAT! HERE'S A LIST OF THE WEAPONS I ":"HAVE IN STOCK.";(34)[pvWopY >> BUY ARMOURpYQ0:X1NA:P%(X)P(AP%(X)):(AC$(X),CL,1)"0"AL%(X)LV23030pYQ0İ23300pY3((X)));X;". ";AN$(X);:QQ1'qYY125((P%(X)Q)CW%(W):WD%(WP)DW%(W):WS%(WP)SW%(W):WT%(WP)2:GOLDGOLDP:TW%(W)2028000oV:"ANGELO HANDS YOU YOUR WEAPON AND TAKES":"THE PRICE FROM YOU.":oVWT%(WP)1CL3CL1oV29000oVQ0İ22300oV3((X)));X;". ";W$(X):3400:QQ1oWpR) P(OOR) OR N(ONE):";AnJVA$:X14:A$("GFPN",X,1)Ă:22090MnTVQX:A$an^VQ4ĺ::29000onhV:PP%(Q)nrVPGOLDė:"ANGELO SAYS ";(34);"WELL, COME BACK WHEN YOU "::"GET THE MONEY!";(34):29000No|VWN$(WP)W$(W):WW%(WP)TW%(W):WC%(WP)10(227000cm,V:"ANGELO SAYS I HAVE THREE DIFFERENT":"QUALITIES FOR THAT WEAPON. THE PRICES":"ARE: "m6V8((P%(1))));P%(1);" FOR A GOOD ONE, ":8((P%(2))));P%(2);" FOR A FAIR ONE,":8((P%(3))));P%(3);" FOR A POOR ONE."n@V:"INPUT G(OOD) F(AI NOTHING."Rl V" ==> ";NW$:(NW$)NW((NW$)1NW$"N")Ģ(37):7:958:22025flVNW$"N"ī29000lVW(NW$):(CW$(W),CL,1)"1"İ2000:29000lVLW%(W)LVLİ2000:29000lVBPPW%(W):P%(1)P(BP1.5):P%(2)P(BP):P%(3)P(BP.75)m"VTW%(W)20īA$:X13:A$("WAS",X,1)Ă:21030Ck0RA$::X22000,23000,24000WkU >> BUY WEAPONnkU28400:X9928450kUWPX:Q0:X1NWkU(CW$(X),CL,1)"1"LW%(X)LVİ22200kV:Q1İ2300:29000 lV:"INPUT THE NUMBER OF THE WEAPON YOU WANT OR 'N' FOR$(13)ĺ:1003jCNX12:A$("BS",X,1)Ă:20030BjHNBSX:X2:\jRNA$::BS21000,25000ej\N100xjR >> BUYING <<jR:"ANGELO SAYS, ";(34);"GOOD. WOULD YOU LIKE BUY":"WEAPONS, ARMOUR OR SHIELDS?";(34):jR"INPUT 'W' OR 'A' OR 'S' :";$k&R(218)(219)256:#i N >> ARMOURYi%N:"AS YOU ENTER THE ARMOURY, ANGELO":"CARVETTI, THE OWNER, GREETS YOU ";(34);"WELL,"i*N"IF IT ISN'T MY OLD PAL ";NAME$;"!"i4N:"DO YOU WANT TO BUY OR SELL, THEN?";(34):"PRESS THE KEY, B OR S: ";j>NA$:A$::N$;" LEAVES WITH YOU.":14900-hD914560th4:3900::"PEDRO LOOKS AT YOU WEARILY AND SAYS ";(34);"OK.":14020h:"PRESS TO CONTINUE:";A$:100h> >>> DEAD <<<h>(222)5ĺD$"RUN KNIGHT QUEST MASTER"i>"ERROR ";(222);" ON LINE ";9A$:A$"Y"A$"N"146201g&9A$:A$"N"14900g09PRGOė:"WHEN PEDRO SEES YOU DO NOT HAVE THE GOLDTO PAY, HE SAYS ";(34);"I'M NOT CRAZY. I WON'T BOTHER THEM IF YOU DON'T HAVE THE GOLD.";(34):14900"h:9FRFR1:GOGOPR:FRXFFR%(FR)NF:NF$(FR)NENORITA",1,3(SEX$"F")5);", BUT THERE'S NOBODY HERE":"BY THAT NAME.":14900f9D$"READ CHARACTERS,R";NF:A$,X,X,LV$:X(LV$):D$;"CLOSE"f9:PR(X5271632((1)1)):N$;" WANTS ";PR;" GOLD":"PIECES. WILL YOU PAY IT?"::"INPUT 'Y' OR 'N' : ";g, EH? - GO AWAY":"BEFORE I CALL THE MARSHAL!":::9900e8:"AH, ";N$;" JUST HAPPENS":"TO BE IN! I'LL SEND FOR HIM.":NFX:14600e8:"I AM SORRY, BUT ";N$;" DOES NOT":"WANT TO BE DISTURBED.":::FRFR1:9900e8:D$"CLOSE"Nf8:"SORRY, ";("S", YOU ARE ":"RIGHT HERE..":14510^d8N$""ė:"I'M SORRY, BUT I DIDN'T CATCH THAT.":14510|d8D$"OPEN CHARACTERS,L";RLd8X1NC:D$"READ CHARACTERS,R";X:A$:D$:A$""A$"*DEAD"14570d8A$N$145708e8XRECĺ:(34);"SO, YOU TRY TO TRICK ME7RG1:GOLDGOLDRP:" HE THEN":"COLLECTS THE GOLD FROM YOU AND GOES BACKDOWN TO THE DESK. YOU ARE IN ROOM ";REC;".":6500c8 >> LOOK FOR SOMEONEc8#d8"WHO ARE YOU LOOKING FOR?";N$:N$NA$ĺ:"YOU ARE BEING SEELY, ";("SENORITA",1,3(SEX$"F")5);; b7A$:A$"R"A$"S"14110hb(7A$:A$"S"ė:"PEDRO SHOWS YOU WHERE THE STABLES ARE.":RG2:14900b27:"PEDRO SHOWS YOU TO YOUR ROOM.";:RPGOLDĺ" WHEN HE ":"SEES YOU CANNOT AFFORD IT, HE GRUMBLES":"AND SHOWS YOU TO THE STABLE.":RG2:14900zc> INNo_6:"AS YOU ENTER THE INN, PEDRO GONZALES THE":"INNKEEPER GREETS YOU. ";(34);"BUENOS DIAS,":_6("SENORITA",1,3(SEX$"F")5);". DO YOU WANT TO REGISTER, "_6:"DO YOU WANT TO GO UP TO YOUR ROOM OR ARE"f`6"YOU JUST LOOKING FOR ST / MINIMUM^d2*^2 >> READ RACE/CLASS^2D$"OPEN KNIGHT.RACE.CLASS,L64":D$"READ KNIGHT.RACE.CLASS,R0":NR,NO:RCNRRCNR^2CLNOCCLNOC^2D$"READ KNIGHT.RACE.CLASS,R";RC:RC$:XH,XG:D$"READ KNIGHT.RACE.CLASS,R";CLNR:CL$:D$"CLOSE"^"3D$"CLOSE"?]/D$"OPEN TITLES":D$"READ TITLES":TL:D$"CLOSE"]1D$"OPEN ROOMS,L";RRL:QR0ĺD$"READ ROOMS,R0":QR:D$:RN$(11)"NONE"]1 ^2 100,9,BLIND,ONE-EYED,NORMAL,SENSITIVE,ACUTE,HYPER,NORMAL,CURSED,BLESSED : >> TRAINING PRICE PER POIN05:VS$(X)::X02:ST$(X):\D/D$"OPEN KNIGHT.USEFUL,L32":D$"READ KNIGHT.USEFUL,R0":NU:U$(NU):X1NU:D$"READ KNIGHT.USEFUL,R";X:U$(X)::D$"CLOSE" ]v/D$"OPEN CHARACTERS":D$"READ CHARACTERS":RL:D$"CLOSE":D$"OPEN ROOMS":D$"READ ROOMS":RRL:X),SC$(X),SA%(X),SH%(X),SP%(X):?[&/RP,BRIBE,LUST,XF:FR%(XF)[0/D$"OPEN KNIGHT.LANGUAGE,L32":D$"READ KNIGHT.LANGUAGE,R0":NL:L$(NL),LL%(NL),LC$(NL),LP%(NL):X1NL:D$"READ KNIGHT.LANGUAGE,R";X:L$(X),LL%(X),LC$(X),LP%(X):\:/D$"CLOSE":MT,PP:X),ME%(NS),SI%(NS):X1NS:MS$(X),MN%(X),MP%(X),ML%(X),MT$(X),ME%(X):Z/NA:AN$(NA),AL%(NA),AC$(NA),AA%(NA),AH%(NA),AP%(NA):X1NA:AN$(X),AL%(X),AC$(X),AA%(X),AH%(X),AP%(X): [/NH:S$(NH),SL%(NH),SC$(NH),SA%(NH),SH%(NH),SP%(NH):X1NH:S$(X),SL%((NW):X1NW:W$(X),TW%(X),LW%(X),CW$(X),CW%(X),DW%(X),SW%(X),PW%(X):Y.NG:G$(NG),GT%(NG),GL%(NG),GC$(NG),GC%(NG),GD%(NG),GW%(NG),GP%(NG):X1NG:G$(X),GT%(X),GL%(X),GC$(X),GC%(X),GD%(X),GW%(X),GP%(X):FZ.NS:MS$(NS),MN%(NS),MP%(NS),ML%(NS),MT$(NSP%(50),RN$(11),RT%(11),RW%(11),RC%(11),RD%(11),RS%(11):SN$(15),SN%(15),SS%(15),SE%(15):D$"OPEN KNIGHT.STORES"X.WN$(12),WT%(12),WW%(12),WC%(12),WD%(12),WS%(12)FY.D$"READ KNIGHT.STORES":NW:W$(NW),TW%(NW),LW%(NW),CW$(NW),CW%(NW),DW%(NW),SW%(NW),PW%CA:WN$(X)"NONE"ĺ" ";WN$(X))W-:3W -6540OWP- >> CONDENSE ROOM ART.WZ-X1IR:RN$(X)"NONE"RN$(X)RN$(X1):RT%(X)RT%(X1):RW%(X)RW%(X1):RC%(X)RC%(X1):RD%(X)RD%(X1):RS%(X)RS%(X1):RN$(X1)"NONE"Wd-:W. >>> LOAD DATA <<<oX.1IR:" ";RN$(X):VB,65402V, >> GO OUTSIDEQV,RUĺD$"CLOSE ROOMS":100V,D$"WRITE ROOMS,R";RM:IR:X1IR:RN$(X):RT%(X):RW%(X):RC%(X):RD%(X):RS%(X):V,D$"CLOSE":100V, >> INVENTORY!W,:"YOU ARE CARRYING THE FOLLOWING...":X11:RN$(P)WN$(A):RT%(P)WT%(A):RW%(P)WW%(A):RC%(P)WC%(A):RD%(P)WD%(A):RS%(P)WS%(A):WN$(A)"NONE":WT%(A)0:WD%(A)0:WS%(A)0:WW%(A)0:WC%(A)0U+RU1:IRIR1::"OKAY.":6540U$, >> LOOKU.,IR1ĺ:"YOUR ROOM IS CLEAN!":6540V8,:"YOU SEE :":XOKAY."::RU1:11600:6540(T+ >> DROPT+:"WHAT DO YOU WANT TO DROP OFF?";A$:X1CA:WN$(X)A$Ă:"YOU AREN'T CARRYING IT.":6540T+AX:XCA:T+IR(RRL25)ĺ:"YOUR ROOM IS A MESS NOW!! YOU CAN'T":"DROP ANYTHING MORE HERE!":6540U+PIRȫ6540Sp+AX:XIR:}Sz+X1CA:WN$(X)"NONE"Ă::"WHAT'RE YA GONNA DO - LEVITATE IT?!":"YOUR HANDS ARE FULL NOW!":6540S+PX:XCA::WN$(P)RN$(A):WT%(P)RT%(A):WW%(P)RW%(A):WC%(P)RC%(A):WD%(P)RD%(A):WS%(P)RS%(A):RN$(A)"NONE"T+IRIR1::" "VANCE GIVES YOU YOUR GOLD AND TAKES THE":WN$(X);"."yRT)GOLDGOLD10:WN$(X)"NONE":WT%(X)0:WW%(X)0:WD%(X)0:WS%(X)0R0*3900:BS110020,10500R\+ >> PICK UPSf+:"WHAT DO YOU WANT TO PICK UP?";A$:X1IR:RN$(X)A$Ă:"I DON'T SEE THAT HERE.":"N"ĺ:BS0:"THEN STOP WASTIN' MY TIME!!":10800gQ1):"WHAT DO YOU WANT TO SELL?";T$:T$"NONE"10800Q6)X1CA:WN$(X)T$Ă::"WELL, BRING IT IN!!":10800Q;)WT%(X)3WT%(X)4WT%(X)2WT%(X)20ĺ:"VANCE SAYS HE CAN'T DEAL IN ARMS.":108006RJ): HERE'S MY STOCK LIST:";(34)$P(>P) >>> SELL AT GEN <<<P):"SINCE I'M SUCH A NICE GUY, I'LL BUY":"ANYTHING YOU HAVE FOR 10 GOLD PIECES.":P)"DO YOU WANT TO SELL ME ANYTHING?":"INPUT 'Y' OR 'N' ";P")A$:A$"Y"A$"N"105300Q,)A$:A$O BUY OR 'S' TO SELL:";@O'A$:A$"B"A$"S"A$(13)10220XO'A$::A$(13)100pO'A$"S"BS1:10500O(BS0:10020O<(Q0İ10400OF(3((X)));X;". ";G$(X):3400:QQ1O(P(:(34);"OKAY, I HAVEN'T GOT ALL DAY, WHAT DO":"YOU WANT?:WT%(X)GT%(G):WC%(X)GC%(G):WD%(X)GD%(G):WW%(X)GW%(G)|N':"VANCE TAKES YOUR GOLD AND HANDS YOU YOUR";WN$(X);".":10800N'"HE THEN LOOKS AT YOU AND SAYS, ";(34);"WELL,":"WOULD YOU LIKE TO BUY OR SELL SOMETHING":"TODAY?";(34):O'"INPUT 'B' T!":10800mM~'PGOLDĺ:"I TOLD YOU I DON'T TAKE CREDIT CARDS!":"COME BACK WHEN YOU HAVE THE GOLD!!":10800M'X11CA:WN$(X1)"NONE"Ă::"YOU HAVE A FULL LOAD, NOW. YOU BETTER":"SELL SOMETHING.":10500M'XX1:X1CA:8N'GOLDGOLDP:WN$(X)G$(G)$(G),CL,1)"1"İ2000:108008LV'GL%(G)LVİ2000:10800L['PP(GP%(G))::(34);"THAT'LL COST YOU ";P;" GOLD PIECES, AND":"I DON'T TAKE CREDIT CARDS.";(34)L`':"DO YOU WANT IT? (Y/N) ";Lj'A$:A$"Y"A$"N"10090 Mt'A$:A$"N"ĺ:"CHEAPSKATE!10800!K8'"INPUT THE NUMBER:";A$KB'(A$,1)"N"ĺ:(34);"WELL, THEN WHY ARE YOU WASTING MY TIME,":"I'VE GOT BETTER THINGS TO DO.";(34):10800KL'(A$)1(A$)NG(A$)((A$))ĺ:"I'VE GOT NO TIME FOR SMART ALECKY TYPES!":10800LQ'G(A$):(GC28:100#J' >>> GENERAL STORE <<<J':"AS YOU ENTER THE GENERAL STORE, VANCE":"WHIPPLE, THE OWNER COMES FROM THE BACK":"ROOM AND GIVES YOU THE ONCE-OVER."J'10200J$'Q0:LP0:X1NGJ.'(GC$(X),CL,1)"1"GL%(X)LVİ10300K3'::Q1İ2300:WA%(X)kId#:MWMW20:MWMWAAAE:MW(1)100ĺ:"YOU BEAT THE MEN TO A PULP!":GOLGOLROB:ROB0:::9900In#:"YOU WERE BEATEN ";("UP AND ROBBED",1,(GO0)112);".":ROBGOLD:GOLD0:::9900J&23::7);"PRESS ANY KEY TO CONTINUE";7);::16384,11)20050):9900H2#:"THE MEN SNEER AT YOU AND ACT LIKE THEY":"COULD BE REAL TROUBLE MAKERS."::"DO YOU WANT TO ATTACK THE MEN OR LEAVE?"::H<#"INPUT 'A' OR 'L':";HF#A$:A$"A"A$"L"9030HP#A$:A$"L"6000IZ#MW100:X15:WA%(5)MWMW):GOLDGOLDP:200:X130:" ** SPEAK **";:X:?G!255:8800qG!:"HERE'S A LIST OF THE LANGUAGES WE TEACH:"wG!G`"3900::8020G(# >> LOOK FOR MENH-#:GOBA100ĺ"YOU STARTLE THE MEN AND THEY RUN OFF,":"DROPPING A SACK OF GOLD.":GOGO((F\!"INPUT 'Y' OR 'N':";6Ff!A$:A$"Y"A$"N"8550KFp!A$:A$"N"8800Fu!PGOLDĺ:"GOOD. COME BACK WHEN YOU GET THE MONEY!":8800Fz!X1(LG$):(LG$,X,1)(L$(L),1)X(LG$):::"YOU ALREADY KNOW THAT LANGUAGE!!":88000G!:LG$LG$(L$(L),1!"INPUT NUMBER OR 'N' FOR NOTHING: ";A$:A$"N"8800XEM!(A$)1(A$)NLĢ(37):8520{ER!L(A$):LL%(L)LVİ2000:8800ET!(LC$(L),CL,1)"1"İ2000:8800EW!PP(LP%(L))::"THAT COURSE WILL COST YOU ";P;" GOLD":"PIECES. DO YOU STILL WANT IT?":CIDENT AND INJURED":" YOURSELF!":AGAG5:88009D 8800TD4! >>> FOREIGN LANG <<<D>!Q0:X1NL:LP%(X)0LL%(X)LV(LC$(X),CL,1)"0"8515D?!Q0İ8600D@!3((X)));X;". ";("* ",1((LC$(X),CL,1)"1"),2);L$(X):QQ1DC!:Q1İ2300:88005EH1):200:X1(HD2):"*** WEIGHT LIFTING ";:X:C T$"SK"T$"BO"AGAG((1)AG.251):200:X1AG:"*** PRACTICING ";::C 255:HDLV2XHĺ:"OOPS! YOU HAD AN ACCIDENT AND INJURED":"YOURSELF!":HDHD5/D AGLV2XGĺ:"OOPS! YOU HAD AN AC PIECES.":"DO YOU WANT TO GO THROUGH THE PROGRAM?":QB :"INPUT 'Y' OR 'N' ";oB A$:A$"Y"A$"N"8350B A$:A$"N"ī8800B PGOLDĺ:"WELL, COME BACK WHEN YOU'RE RICHER!":8800B GOGOP2C T$(T$,2):T$"ST"T$"BO"HDHD((1)HD.25$"S"8315+A| T$"B"T$"BOTH":T$:8320QA} T$;:T1$:T1$"T"T1$"K"8317xA~ T1$;:T$T$T1$:T$"ST"ĺ"RENGTH"A T$"SK"ĺ"ILL"A ABHD((T$,2)"ST")AG((T$,2)"SK")(AGHD)((T$,2)"BO"):PP(90AB)5B :"THAT WILL COST YOU ";P;" GOLDOLDP:WA%(W)WA%(W)((1)AG.23):X1T:"** PRACTICE ** ";:X::WA%(W)95WA%(W)60::"YOU WERE INJURED IN FIGHTER PRACTICE!"@ 255:8800@l >>> PHYSICAL FIT <<<@v :"DO YOU WANT TO GO FOR STRENGTH OR SKILL":"TRAINING? "; A{ T$:T$"B"TE WILL COST YOU ";P;" GOLD":"PIECES."::"DO YOU WANT IT? (Y/N):";a?A$:A$"Y"A$"N"8160v?A$:A$"N"8800?PGOLDĺ:"WELL, YOU SAVE UP FOR IT, AND COME BACK":"WHEN YOU CAN AFFORD IT.":8800?200:TWA%(W):T0T((1)53)@GOLDGWORD?";(34)::" ==> ";C>A$:X14:A$("MSBA",X,1)Ă:8118U>A$"S"ĺ"S";~>A$"S"ľA2$:A2$"W"A2$"P"8120>A$"S"X5:A2$"P"X2>("MACEPEARBOW AXE WORD",(X1)41,4):>WX>PP((WA%(W)100)PPMT)C?:"THAT COURS"A$"P"A$(13)ī8040/=rA$:A$(13)100T=|X13:A$("WPF",X,1)Ă:8050p=SX::S8100,8300,8500= >>> WEAPON TRAIN <<<=:(34);"GOOD. WE HAVE EXCELLENT INSTRUCTORS.":"DO YOU WANT TRAINING IN THE ">"MACE, SPEAR, BOW, AXE OR SES. WE CAN TEACH YOU FOREIGN ":"LANGUAGES, GIVE YOU WEAPONS TRAINING OR"<^"A COURSE IN GENERAL PHYSICAL FITNESS.";(34)::"INPUT 'F' FOR FOREIGN LANGUAGE,":" OR 'W' FOR WEAPONS TRAINING,":" OR 'P' FOR PHYSICAL FITNESS:";=hA$:A$"W"A$"FOU ARRESTED!";(34):::2;@ >>> TRAINING <<<;J:"AS YOU ENTER THE TRAINING CENTER, YOU'REGREETED BY OGGIE GRODDIE, THE ODD OGRE."::(34);"WELL, ";NA$;", HOW ARE YOU":"TODAY?";(34):I> INTERUPT?58*(222)2557030K84216,0:FR17490c8>FSFS1:FSFR74908HRECFR%(FS)::D$"OPEN CHARACTERS,L"RL:508B:6:"PRESS ANY KEY TO RE-BOOT DISKETTE ...";:A$::D$"PR#6"89L:"I HAPPEN TO KNOW THE MAN IN THAT R14):A12990::70307:"DO YOU WANT TO FORGET IT AND GO TO SLEEPOR GO BACK INTO TOWN LOOKING FOR THE MENWHO JUMPED YOU?":7:"INPUT 'S' TO SLEEP, 'G' TO GO AFTER THEM":" ==> ";7A$:A$"S"A$"G"71207A$:A$"S"7020 8ROBROB( CHARACTERS,L";RL:D$;"WRITE CHARACTERS,R";REC:200:D$;"CLOSE"J6n72006q:"YOU HAVE NO TROUBLE FALLING ASLEEP.":" ... GOOD NIGHT.":X12000:X::(11)7v((37)1):(14):"Z-Z-Z-Z-Z-Z-Z":X160:A12:Y(16336)::A120:::((37)):14); TO THE STABLES IN PITCH DARK,CARRYING YOUR BLANKET WITH YOU."::((1)100)JOĺ"YOU ARE JUMPED IN THE DARK!":GOLD(GOLD2):71005`RG170205b"YOU HAVE FOUND YOUR WAY DOWN THE DARK":"HALLWAY TO YOUR ROOM. YOU'RE IN ROOM ";REC;"."?6lD$;"OPENLEEP"*4"INPUT LETTER OF YOUR CHOICE:";V4A$:X16:A$("PDLGIS",X,1)Ă:6560d4A$::CX4C11100,11200,11300,11400,11500,66004RMRECĺ:"THE INNKEEPER THROWS YOU OUT!":100470204X >>> STAY AT INN <<<5]RG2ĺ:"YOU GO OUTD ROOMS,R";RM:IR:X1IR:RN$(X),RT%(X),RW%(X),RC%(X),RD%(X),RS%(X)::D$3:"DO YOU WANT TO:":" P)ICK UP SOMETHING IN THE ROOM":" D)ROP SOMETHING OFF IN THE ROOM":" L)OOK AROUND THE ROOM":" I)NVENTORY CARRIED ITEMS":" G)O BACK OUTSIDE"4" S)ARE SURE THAT YOU ARE REGISTERED. HE ASKS YOU FORYOUR ROOM NUMBER.":f2}"INPUT YOUR ROOM #";ROOM$2RM(ROOM$):RM1RM(RM)RMNCĺ:"WE DON'T HAVE A ROOM BY THAT NUMBER!":::99002RMRECİ7500:OKī9900J3D$"OPEN ROOMS,L";RRL:D$"REAA$"T"A$"J"A$"M"6020I1A$"J"ľB$:C$:A$B$C$"JCN"ĺ:1005Z1A$"M"9000o1A$:A$"T"ī100y110001d >> ROOM <<1sRG1RMREC:65381vRG27000G2x:"PEDRO, THE INNKEEPER, SAYS HE DOES NOT":"REMEMBER YOU AND ASKS IF YOU :"AND ADVENTURE. THERE ARE ";LV2;" MEN NEXT TO":"A TREE IN THE SHADOWS, WHISPERING ABOUT"0u"SOMETHING. DO YOU WANT TO GO WEST INTO":"ADVENTURE, GO OVER TO THE MEN, OR ENTER":"THE TOWN AGAIN?"::"INPUT A)DVENTURE; M)EN OR T)OWN ";1A$:A$"A"LV:TCLT:T16/WLTCWLWLTC:TCTCIT:TT1:5515P/TNTWLWLTNT:TNT/D$"READ TITLES,R";T:X1CL:TI$::D$;"CLOSE TITLES":WLTI$TI$" "(WL)/\0p:"YOU ARE ON A LONG DUSTY TRAIL. THERE IS":"A TRAIL LEADING WEST INTO WILDERNESS"EMS.":FR0ĺ"YOU HAVE ";FR;" FRIEND";("S",1,FR1);" WITH YOU.".24::7);"PRESS ANY KEY TO CONTINUE";7)::16368,0:16384,128:.A$(8)5000.100.| READ TITLE.LV0ı /D$"OPEN TITLES,L";TL:D$"READ TITLES,R0":TL,NT:LT,IT:WLEFF. #USES "::W1CA:WT%(W)2WT%(W)20WT%(W)0Ă:5300-2WT%(W)NUĺWN$(W);20);"UNKNOWN";30);WD%(W);36);WW%(W):F1:5290-<WN$(W);20);U$(WT%(W));30);WD%(W);36);WW%(W):F1-W-Fĺ14);"--- NONE ---"@.:"YOU CAN CARRY ";CA;" IT ODDS "::W1CA:WT%(W)2WT%(W)205090,WN$(W);20(WC%(W)0)((WC%(W))10)((WC%(W))100));WC%(W);"% ";WD%(W);" D ";WS%(W);35);AG2WA%(WW%(W))WC%(W)EA;"%":F1,W:Fĺ14);"--- NONE ---"<-(F0:::"ARTIFACTS";:19);" TYPE ::16384,128:Z+::"STATISTICS:"::"LEVEL:";LV;" MISSIONS:";MI;" EXPERIENCE:";PT+" VISION = ";VS$(EYE);" STATUS = ";ST$(ST):::"GOLD ";::" IN HAND ";GOLD;", BANK ";BANK:EAAASAAE:EA0EA0.,F0:::"WEAPONS";19);"CMPLX DAM ";:W15:1(WA%(W)0)((WA%(W))10)((WA%(WA))100));WA%(W);"% ";:[*" ";AE;"%"*::"ARMOUR: ";::" ";AN$;" [";AH;"/-";AA;"%]":SN$"NONE"ĺ" & ";SN$+23::11);"----- WAIT -----";11):23:1:11);"---- CONTINUED ----";10);:Y1&)S:Yĺ14);"--- NONE ---";M)::SM0::"LANGUAGES KNOWN: ";:)X1(LG$):A$(LG$,X,1):S1NL:A$(L$(S),1)ĺ(1319((36)(L$(S))39));L$(S);):::H*:"WEAPON ABILITIES: "::" MACE SPEAR BOW AXE SWORD ARMOUR":" =";HD;" AG=";AG;" CH=";CH;" IN=";IN;" SEX=";SEX$;" HT=";FT;"'";I;(34)(" CONST=";CS;" WGT=";(WG10);" AGE=";(YR10);" SP=";SD(::"SPELLS KNOWN ";::27);KS;" POSSIBLE.":Y0:S1KS)SN$(S)"NONE"ĺ(1319((36)(SN$(S))39));SN$(S)"ALRIGHTY THEN ... WOULD YOU LIKE TO":4015w'::" NAME ";::" ";NAME$;" THE ";RC$;" ";CL$:TI$""ĺ" (";TI$;")"'PT1000LU(PT1000):LVLVLU:PTPT1000LU'FT(HT10):IHTFT10:I(I1.2):LV0TI$""İ5500F(::"ATTRIBUTES:"::"HD(34)::"WITH THAT YOU ARE SHOWN BACK TO THE ":"BANK LOBBY.":4800W& >> ROB BANK?&:"WALDO GIVES YOU A DIRTY LOOK AND ASKS":"IF YOU KNOW THE PENALTY FOR ATTEMPTED":"ROBBERY."::"YOU ARE ESCORTED OUT OF THE BANK!"&&9900+'3900::(34); A":"WHILE, BUT I'LL LET IT GO THIS TIME.":NA$N$:4800C%XNC:%:"WHOOPS! SORRY, BUT THAT NAME IS TAKEN":"BY ANOTHER ADVENTURER! I CAN'T ALLOW":"DUPLICATE NAMES.":4250D&NA$N2$::"WELL, I GUESS THAT'S ALLRIGHT. I'LL":"CHANGE IT FOR YOU.";Y GIVES YOU A FUNNY GLANCE, AND":"SAYS 'TRY AGAIN!'":4250$:"I'LL HAVE TO CHECK THE RECORDS ...":D$"OPEN CHARACTERS,L";RL:X1NC:D$"READ CHARACTERS,R";X:N$:D$$N$N2$Ă:D$"CLOSE":42908%RECXĺ:"WELL, I SHOULD MAKE YOU THINK ABOUT IT?#A$:A$"N"ĺ:(34);"SORRY. I CAN'T HELP YOU.";(34):4800#:"OKAY, ";NA$;", WHAT WOULD"::"YOU LIKE TO BE CALLED?";N2$#(N2$)20ĺ:"ARE YOU CRAZY?! THAT WON'T EVEN FIT ONTO":"THE FORM!!":4250;$(N2$,1)"A"(N2$,1)"Z"ĺ:"THE NOTARTARY <<<"r:"YOU'RE INTRODUCED TO YE OLDE NOTARY. HE":"LOOKS AT YOU SUSPICIOUSLY, AND SAYS,":(34);"I CAN PROVIDE YOU WITH ONE SERVICE""|"AND THAT IS TO LEGALLY CHANGE YOUR NAME.DO YOU WANT TO CHANGE IT?";(34);" ";"A$:A$"Y"A$"N"4230Dĺ:"WALDO SMILES AND SAYS ";(34);"THAT'S NICE!":"BRING IT IN SOMETIME.";(34):4800g!MNY04800!GOLDGOLDMNY:BANKBANKMNY:"WALDO TAKES YOUR GOLD, HANDS IT TO":"A TELLER WHO RECORDS THE DEPOSIT AND":"HANDS YOU A RECEIPT.":4800"h >>> NO":"A TELLER HANDS YOU YOUR GOLD AND WRITES":"DOWN THE NEW BALANCE."::4800 :"WALDO SMILES AND SAYS 'GOOD FOR YOU!":"HOW MUCH DO YOU WANT TO DEPOSIT?'": "INPUT NUMBER TO DEPOSIT:";A$:(A$)0(A$)((A$))4100 W!MNY(A$):MNYGOLU WANT?":"(ENTER THE NUMBER OF GOLD PIECES TO":" WITHDRAW) ";A$:MNY(A$):MNY1MNY(MNY)ĺ:"WALDO SCOWLS AND SAYS,'DON'T BE":"RIDICULOUS!'"::4060MNYBANK4300M GOLDGOLDMNY:BANKBANKMNY::"WALDO MAKES OUT A WITHDRAWL SLIP ANDA$:A$(13)100'A$"D"ĺ:4090;A$"N"ĺ:4200BANK1ė:"WALDO TELLS YOU THAT YOU DO NOT HAVE AN":"ACCOUNT OPEN RIGHT NOW.":4800 :"RECORDS ARE CHECKED AND WALDO SAYS":"WE SHOW A BALANCE OF ";BANK;" GOLD":"PIECES. HOW MUCH DO YOMY ";("LADYBOY",(SEX$"M")41,4);",";:" HOW NICE":"TO SEE YOU AGAIN... WOULD YOU LIKE TO""MAKE A DEPOSIT, A WITHDRAWL OR SEE THE""NOTARY?";(34)::" D(EPOSIT), W(ITHDRAWL) OR N(OTARY) :";A$:A$"D"A$"W"A$"N"A$(13)4030:"ARE HERE?";,FA$:A$"Y"A$"N"3910CPA$:A$"N"ġ:100IZ:"AS YOU ENTER THE BANK, YOU ARE WATCHED":"CLOSELY BY THE LOCAL SECURITY. WALDO":"FARNBY, THE BANK MANAGER COMES OVER TO":"YOU AND GREETS YOU. "^:(34);"WELL ";NA$;", "INPUT 'Y' OR 'N' ";9 A$:A$"Y"A$"N"3850NA$:A$"Y"3500:"VERY WELL. GOODBYE.":"ABBRA WAVES HIS HAND AND YOU FIND YOU":"ARE BACK IN THE TOWN SQUARE.":::9900(3900::3005<:"WILL THERE BE ANYTHING ELSE WHILE YOU "!! YOUR MIND DOES NOT HAVE THE""CAPACITY TO CONTAIN ANY MORE SPELLS!! IF":"YOU WANT TO LEARN ANY MORE SPELLS, YOU":"WILL HAVE TO FORGET SOME OF THE ONES YOU""ALREADY KNOW!! I WILL PERFORM AN ERASE":"SPELL FOR YOU FREE, IF YOU WISH.":E":SN%(X1)0:SS%(X1)0:SE%(X1)0::"ALRIGHT. YOU NO LONGER KNOW THE SPELL ":A$:3880m >>> NO ROOM <<< #:"ABBRA TRIES TO TEACH YOU YOUR SPELL, BUT":"YOU CAN'T SEEM TO GRASP IT. HE FINALLY":"HOLDS A HAND TO YOUR HEAD AND SAYS: 'NO":"WONDEROULD YOU LIKE TO HAVE":"ERASED FROM YOUR FEEBLE LITTLE MIND?"::" ==> ";A$a A$"NONE"ī3880 X1KS:SN$(X)A$Ă::"ABBRA HOLDS HIS HAND UP TO YOUR FOREHEADAND THEN SAYS 'YOU DON'T KNOW ANY SUCH":"SPELL!":3880 X1X:XKS:V SN$(X1)"NON IN."| :"ABBRA HANDS YOU A SCROLL CONTAINING A":"LIST OF SOME SPELLS."::"NO. SPELL NAME";20);"LEVEL";30);"PRICE" :H LPLP1:LP21ĺ:"(PRESS ANY KEY TO CONTINUE)";:A$::LP0:R  >>> ERASE SPELL <<<L :"O.K. WHAT SPELL W0a QQ1:2((X)));X;". ";5);MS$(X);22(ML%(X)9));ML%(X);30(5((P%(X)))));P%(X):MXXg n  :"SO... YOU WANT TO LEARN SOME SPELLS EH?":"WELL, YOU'VE COME TO THE RIGHT PLACE!":"HERE'S A LIST OF SPELLS THAT YOU MAY BE":"INTERESTED;"YOU FOOL":"YOU ALREADY KNOW THAT SPELL!!";(34):3880 SN$(WP)MS$(W):SS%(WP)((1)IN2):SN%(WP)MN%(W):SE%(WP)ME%(W)::"ABBRA TEACHES YOU YOUR SPELL AND TAKES":"THE PRICE FROM YOU.":GOLDGOLDP SS%(WP)25SS%(WP)25& 3880 Q0İ3302000:3880q PP%(W):PGOLDĺ:"ABBRA WAVES HIS HAND AND YOU SEE YOUR ":"LIFE PASS BEFORE YOUR EYES!!":3880 X1KS:SN$(X)"NONE"Ă:3800 WPX:XKS: X1KS:SN$(X)MS$(W)Ă:3090 XKS:8 :"ABBRA LOOKS AT YOU AND SAYS ";(34))1000 Q0:MX0:LP2:X1NS:P%(X)P(MP%(X))_ ML%(X)LV(MT$(X),CL,1)"1"İ3200:3400z ::Q1ė:2300:3880 "WHICH SPELL DO YOU WANT (#) :";A$:((A$)1(A$)MX)A$"N"Ģ(37):3020 A$"N"ī3880  W(A$):LVML%(W)S$"ABBRA":ABLE OLD WIZARD KNOWN AS":"ABBRA KADABRA. ABBRA GREETS YOU AT THE":"DOOR." :"DO YOU WANT TO LEARN A SPELL, OR HAVE A":"SPELL ERASED FROM YOUR MIND?"::"INPUT 'S' OR 'E':"; F$:F$"E"F$"S"F$(13)3006 F$:F$"E"3500 F$(13"D$"RUN FRIENDS GOING"- >> EXCEPTq:(34);"I DON'T UNDERSTAND - THAT WASN'T ON THELIST.";(34)::(34);"I'M SORRY BUT THERE'S NOTHING AVAILABLE":"RIGHT NOW!";(34):M :"YOU ENTER YE OLDE MAGICKS SHOPPE, OWNED":"BY THAT VENER;"WRITE FRESH MEAT":REC:FR:200;D$"WRITE FRESH MEAT"WFT:TT:DR:D$;"CLOSE"jD$;"RUN ";AV$@D$"OPEN FRIENDS":D$"WRITE FRIENDS":FR:X0FR:FR%(X)::D$"CLOSE"JD$;"OPEN CHARACTERS,L";RL:D$;"WRITE CHARACTERS,R";REC:200:D$;"CLOSE"::" AND PRESS ANY KEY TO CONTINUE":16384,128E1010KD$;"OPEN KQ.NAME":D$;"READ KQ.NAME":AV$:D$;"CLOSE"216,0:5:13:"PREPARE YOURSELF":::17);"FOR"::((40(AV$))2));::AV$:!$D$;"OPEN FRESH MEAT":D$:WT%(X):WW%(X):WC%(X):WD%(X):WS%(X):LAE:AN$:AA:AH:SN$:SA:SHnCS:WG:YR:EYE:IJ$:SD:STx"D$:FR01600D$;"OPEN CHARACTERS,L";RL:D$;"WRITE CHARACTERS,R";REC::D$;"CLOSE"*:5:" INSERT DISKETTE WITH ADVENTUREA$("LIAMBXTG",X,1)Ă:130U A$::X6000,14000,20000,3000,4000,5000,8000,10000[ n NAME$:RC:CL LV:MI:PT:HD:AG:CH:IN:HT:LG$:SEX$:GOLD:BANK:X15:WA%(X):*KS:X1KS:SN$(X):SN%(X):SS%(X):SE%(X)::CA:X1CA:WN$(X)THE TOWN INN":" B - BANK & NOTARY PUBLIC"t n" A - ARMOURY FOR WEAPONS/ARMOUR":" M - MAGIC SHOPPE FOR SPELLS" s" G - GENERAL STORE":" T - TRAINING AT GYMNASIUM":" X - EXAMINATION " x:"PRESS THE KEY FOR YOUR CHOICE => "; A$:X18:E TOWN OF DIABLO":::"YOU ARE IN A ROUGH FRONTIER TOWN WHERE A":"MAN'S BEST FRIEND IS HIS SWORD. THE TOWN" f"CONSISTS OF THE FOLLOWING PLACES YOU MAY":"FIND OF INTEREST:"::X140:"%";::+ i" L - LEAVE TOWN TO GO ON AN ADVENTURE":" I - TO KS:X1KS:SN$(X),SN%(X),SS%(X),SE%(X)::CA AX1CA:WN$(X),WT%(X),WW%(X),WC%(X),WD%(X),WS%(X)::AE,AN$,AA,AH,SN$,SA,SH:CS,WG,YR,EYE,IJ$,SD,ST FD$;"CLOSE":13000 KLV0İ5500 PP(X)(X(CH24(1))(X2)) Z216,0m d:11);::"TH$:REC:D$;"CLOSE THE ADVENTURER":FR%(0)RECi #D$"OPEN CHARACTERS,L";RL:D$"READ CHARACTERS,R0":RL,NC % PRINT D$;"DELETE THE ADVENTURER" 2D$;"READ CHARACTERS,R";REC:NAME$,RC,CL:LV,MI,PT,HD,AG,CH,IN,HT,LG$:SEX$,GOLD,BANK:X15:WA%(X):. <]u  KNIGHT QUEST; TOWN SQUARE PROGRAMA\ COPYRIGHT (C) 1982u BY JOHN NELSON{ 11/22/84 (4);"MAXFILES3" D$(4):JO12:1200016000, D$;"OPEN THE ADVENTURER":D$"READ THE ADVENTURER":NA                                       KSMSKSMSKSXSKSXS2HT(R(10)50)KSPA(8):IJ$"00000"\WGTHT2.57b MACE,SPEAR,BOW,AXE,SWORDX >> ADJUST CHARSEX$"M"CHCHRA%(RC,5)SEX$"F"HDHDRA%(RC,3):CHCHRA%(RC,6):AGAGRA%(RC,4)(ININR:WW%(X)0:WC%(X)0:WD%(X)0:WS%(X)0:TAN$"NONE":AA0:AH0:SN$"NONE":SA0:SH0`LG$"C"fxd >> GEN CHARnX2(RA%(RC,0)3):HDA(X2):X2(RA%(RC,1)3):AGA(X2):CHA(8):X17:ININA(8):xKS(4(IN100))(IN100)20:KS(KS) VT:1:1170RCX:"AND HOW OLD ARE YOU? ";AGE$:(AG$)10(AG$)RA%(RC,2)ĺ:"YOU MUST BE MISTAKEN, TRY AGAIN.":9800:((37)2):958:1200YR(AG$)10p >>> SET DEFAULTSzIN0:CA6:GOLD500&X110:WN$(X)"NONE":WT%(X)0"AN",1,VOW1);" ";RC$(X);(", OR ",(XNR1)21,22(XNR1));V:(8);(8);".":"==> ";RC$:VT(37):(RC$,2)"A "(RC$,3)"AN "RC$(RC$,3):(RC$,1)" "RC$(RC$,2) X1NR:RC$RC$(X)Ă::"I'M SORRY, BUT I DIDN'T CATCH THAT.":9800:L$,3):(CL$,1)" "CL$(CL$,2)}`X1NO:CL$CL$(X)Ă::"I'M SORRY, BUT I DIDN'T CATCH THAT.":9800:VT:1:958:1110jCLXt:"AND ARE YOU ";:X1NR:VOW0:XX15:VOWVOW((RC$(X),1)("AEIOU",XX,1)):?~(13((36)(RC$(X))439));(OURSELF":X1NO:VOW0:XX15:VOWVOW((CL$(X),1)("AEIOU",XX,1)):B(13((36)(CL$(X))339));("AN",1,VOW1);" ";CL$(X);(", OR ",(XNO1)21,22(XNO1));L:(8);(8);".": V"==> ";CL$:VT(37):(CL$,2)"A "(CL$,3)"AN "CL$(C$"M"ĺ:(34);"I THOUGHT SO WHEN I SAW THE BEARD, BUT":"YOU NEVER CAN TELL, NOWADAYS...";(34):$SE$"F"ĺ:(34);"I THOUGHT SO WHEN I SAW THE LIPSTICK,":"BUT YOU NEVER CAN TELL, ANYMORE.";(34):.9800F8:"NOW, TELL ME... DO YOU CONSIDER Y === GET DATA ===:"THE MAN TAKES YOU UP A CREAKY STAIRCASE":"AND SAYS ";(34);"FIRST, I MUST KNOW WHETHER YE":"ARE MALE OR FEMALE.";(34):"INPUT 'M' FOR MALE; 'F' FOR FEMALE:";A$:A$"M"A$"F"1030A$b:SEX$A$:SEAKEN, TRY AGAIN.":9800:((37)2):958:780@YR(AG$)10:]  === ERROR ON WRITE ===q*(222)990004:6::"THE DISKETTE IS FULL!";::" --- CHARACTER"::"CANNOT BE CREATED.":RNCNCNC1:D$"WRITE CHARACTERS,R0":RL:NC:D$"CLOSE":(RC$,2)"A "(RC$,3)"AN "RC$(RC$,3):(RC$,1)" "RC$(RC$,2)X1NR:RC$RC$(X)Ă::"I'M SORRY, BUT I DIDN'T CATCH THAT.":9800:VT:1:958:760RCX:- "AND HOW OLD ARE YOU? ";AGE$:(AG$)10(AG$)RA%(RC,2)ĺ:"YOU MUST BE MIST:1:958:720CLXl:"AND ARE YOU ";:X1NR:VOW0:XX15:VOWVOW((RC$(X),1)("AEIOU",XX,1)):(13((36)(RC$(X))439));("AN",1,VOW1);" ";RC$(X);(", OR ",(XNR1)21,22(XNR1));:(8);(8);".":F"==> ";RC$:VT(37)",1,VOW1);" ";CL$(X);(", OR ",(XNO1)21,22(XNO1));S:(8);(8);".":"==> ";CL$:VT(37):(CL$,2)"A "(CL$,3)"AN "CL$(CL$,3):(CL$,1)" "CL$(CL$,2)X1NO:CL$CL$(X)Ă::"I'M SORRY, BUT I DIDN'T CATCH THAT.":9800:VT20vCA6:::A$"N"ıh:"I RESURRECT YOU AGAIN AND YOUR PRIME"::"ATTRIBUTES ARE ...":::190:"NOW, TELL ME... DO YOU CONSIDER YOURSELF":X1NO:VOW0:XX15:VOWVOW((CL$(X),1)("AEIOU",XX,1)):<(13((36)(CL$(X))339));("AN$:R:D$;"CLOSE"*ND$;"RUN TOWN SQUARE"EX /// SUICIDE ROUTINE b:"YOUR CHARACTER IS SUCH A POOR EXCUSE"::"FOR AN ADVENTURER THAT WE WILL ALLOW"::"YOU TO COMMIT SUICIDE. ENTER 'Y' TO"::"COMMIT SUICIDE, ELSE 'N'";lA$:A$"Y"A$"N"6:IJ$:SP:STF:D$;"CLOSE":D$"OPEN ROOMS,L";RRL:D$"READ ROOMS,R0"<:RRL,QR:RQRQRQR1:RQRĺ:" ROOMS FILE ERROR!"::" ATTEMPTING REPAIR...":9800:9000?9500:9600DD$;"OPEN THE ADVENTURER":D$;"WRITE THE ADVENTURER":NAMER:NAME$:RC:CL\LV:MI: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): 0AE:AN$:AA:AH:SN$:SA:SH:CS:WGT:YR:EYEAT LAST BARREL...YOU TRY TO FOCUS AND GET YOUR BEARINGS."C800D$;"OPEN CHARACTERS,L";RL:D$;"READ CHARACTERS,R0":RL,NC:R1NC:D$;"READ CHARACTERS,R";R:A$:A$"*DEAD"Ă:D$;"WRITE CHARACTERS,R0":RL:NC1:RNC1D$;"WRITE CHARACTERS,R"; ALSO SPEND A LOTOF TIME FALLING DOWN, AND TRYING TO GET" "BACK UP AGAIN. AFTER A WHILE, YOU GET TOYOUR FEET AND WANDER OUT TO THE STAIRS":"AND DOWN INTO THE TOWN SQUARE. YOUR HEADIS HURTING AND YOU WONDER IF YOU SHOULD"9"HAVE TRIED TO FINISH THNING ";KS;" SPELLS."Y h:FT(HT10):IHTFT10:"YOU ARE ";FT;"'";(I1210);(34);"." ::7);"PRESS ANY KEY TO CONTINUE";7);::A$:9 ::"YOU SPEND SEVERAL HOURS WITH THE MEN":"DRINKING A STRANGE BREW AND TALKING":"ABOUT HEROIC DEEDS. YOU CONTINUE";7);::A$:) JA$(18)190 T(37)1:958:"YOUR WEAPON ABILITIES ARE:"::X15:" ";WT$(X);12);" ---";3(WA%(X)0));WA%(X): ^:"YOU CAN CARRY ";CA;" THINGS COMFORTABLY":"(WITHIN THE TOWN LIMITS.)"::"YOU ARE CAPABLE OF LEAR((HD)));HD:" AGILITY .....";3((AG)));AG:" CHARISMA ....";3((CH)));CH:" INTELL. ....";4((IN)));IN ,HDAGCHMAX3İ600:340 6WK130RA%(RC,7)CA%(CL,3):HDAGCHMAX2IN(WKMN)2MNİ600 @:::7);"PRESS ANY KEY TONTURER":NAME$:D$;"CLOSE"$ 1000 :"THE MAN INTRODUCES YOU TO A VERY OLD":"OLD MAN OF ORIENTAL LINEAGE, WITH A ":"GRAY BEARD. HE CONCENTRATES AND SAYS," :"YOUR PRIME ATTRIBUTES ARE ...": 6000:6500:7000} " HARDINESS ...";3  KNIGHT QUEST9 CREATE CHARACTER?Z COPYRIGHT (C) 1983s BY JOHN NELSONy 12-10 / NEW FLDS(10000FR(X)(X(1)1)PA(X)R(X)R(X)R(X) ZD$;"OPEN THE ADVENTURER":D$;"READ THE ADVE         :# A,BB(I):B,10200TIME(I):C* Ip ,768,200:769,60:770:768,135:769,60:770:768,105:769,60:770 6768,82:769,100:770:768,94:769,45:770:768,82:769,180:770 JD$"RUN EMBARKMENT"N210 300& BB(I)0:TIME(I)LEGTH/ 240 770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202 782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0  I1Y  D$(4)#(MULT11.05946309<:8:" THAT WHICH DOES NOT KILL US":::" MAKES US STRONGER.":22:" -- FRIEDRICH NIETZSCHE"FPP(37),TIME(1000),BB(1000)PI035ZPP(I)(255MULTI)dnA768:B769:C770 x   NEVER WAKE UP AGAIN.")X15500:X:3990<990Y >> CHK FER FUNNY STUFFNA$"FUCK YOU"(NA$,8)"FUCK YOU"ė::"THE MAN SPITS IN YOUR FACE AND SAYS HE DOESN'T HAVE TA TAKE ANY SHIT."::180NA$"ATTACK"(NA$,6)"ATTACK"900 "YER THE TRAVELLIN' FLEA CIRCUS THAT HAS BEEN BANNED IN FOURTEEN KINGDOMS BY THE HEALTH OFFICIALS.","TAKE YER FLEA-BITTEN CARCASS OUTTA HERE.":"YOU SEE A FLASHING SWORD BLADE COME IN "::"YOUR DIRECTION AND THEN EVERYTHING GOES":"BLACK! YOUI'LL SEEYA LATER."} "I DON'T KNOW HOW I COULDA FERGOT A FACELIKE YERS!","GET OUTTA MY SIGHT BEFORE I CALL THE DOGOUT." "YER THE ONE WHO CLAIMS TA BE A FROG THATIS UNDER SOME HAG'S SPELL.","GIMME A BREAK AND GET YER DRAGON BREATH OUTTA HERE."CARCASS OUTTA MY SIGHT BEFORE IPUKE." "YER THE WEIRDO THAT CHEWS YER TOENAILS.","GET YER FACE OUTTA HERE SO I CAN BREATHEAGAIN." "YER THE ONE THAT SET THE ALL TIME RECORDFER BEIN' SICK WHEN YE FIRST CAME HERE.","GET