' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֝uW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'Ӝu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wU H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  Lh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 H` *HVDP (ED Z $0x8x D- ܸDD#HIHHHHhHH݌hHhHh݌H6 h Լ ռ ռ ռ`HJ>݌h Hh݌`  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#0FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ穎鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `::`ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LL[dmx-#(# @:͠٠ˠ@跻~!Wo*9~~~~ɬƬ~UVERIF!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 @ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABR^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHn 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)nooõĵL LLЦ  #-µµ( zegehtpjigh q Ql` z8L`MaEK@>ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ@ NL   L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõL&E`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWLԧ d@` Lꢩ  c ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L ЌĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ :u`浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠:z# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `z$MAIN PROGRAM LOOP - VERSION 34,A$:A(A$)I6:(((1)15)1)`@A47A58NNA21wJA64A91NNA64TA48A90ī300^A57A65ī300Z NN1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1120,11301140,1150,1160,1170,1180,1190,1200,1210,1220,1230,1240,1250,1260,1270,1280,1290,1300,1310,1320,1330,1340,1350,1360p 768:PLAY A NOTEy X210 >$MAIN PROGRAM LOOP - VERSION 21NN1269,A$O6:(((1)15)1)NN1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1120,1130,1140,1150,1160,1170,1180,1190,1200,1210,1220,1230,1240,1250,1260768:PLAY A NOTENN X1200:XU 3):"NOW ";:0,CC:768:"I'VE ";:768:"LEARNED";:0,GG:768:"MY";:768 "A, ";:0,AA:768:"B, ";:768:"C'S ":0,GG:768 :X1300:X 3);"NEXT ";:0,FF:768:"TIME ";:768:"WON'T ";:0,EE:768:"YOU ";:768* &"SING ";:0,DD:768:"WITH ";:768:"ME.";:0,CC:7684 0A$:= X210 768O 0A$:X X210  $MAIN PROGRAM LOOP - VERSION 1-FC3BNN(((1)FC1)RNNPRī220\PRNNd,A$z6:(((1)15)1)NN1010,1030,1050768:PLAY A NOTEX1500:XX210:z#??? "ήҠή̠ԠϠҠ͠Ҡ͠ҠӠ ͠ԠҠ ʮҠ!îҠԠàҠGͮ٠   ͠٠ˠЮЮ ЮàήΠŠ8(ST6UVk,ȱk-`),-`G ::63000]Y140:"=";::qX;:5:A$(X):(" "X" ";:6:(A$(X),15):2X" ";:5:(NA$(X),8,15):<1:20:22:20:34,1:2:FP33,21:32,19:1:1:: U33,40:32,0:23:1::U Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$:w dA$"Y"MAXN1:N105::2000 n23:958:34,1:35,21::35,24: 60:X0 N1105 ((NA$(N),8,1))652000 ((NA$(N),8,1))61N105:2000 ((NA$(N),8,1))942000! XX1: A$(X)(NA$(N),8,30)T T(X)((NA$(N),2,1))h X21İ30:2000 X21X61X101İ80 X41İ40:2000 $X41X81İ90 .X61İ30:2000 8X81İ40:2000 BX101İ30:2000 L40  MAXX 85:34,22 23:958T "SELECT A FILE BY NUMBER -->";A$:A(A$):AMAX2010_ A1Ĭ} :::T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN " 23:T$A$(A) 23:D$T$A$(A)  NAME$(105),A$(105),T(105) "X138:B$B$"=":3 ,X10511:NAME$(X)B$:I 6NAME$(0)(B$,19)U @D$(4)} E12:12:"READING CATALOG ":12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0": h(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!": |:1000     $"Z"3060xA$"G"3340,A$"V"3670=A$"W"3960NA$"T"4260_A$"P"4330pA$"S"4460|:1190 LABORATORY:::" ICARUS' LAB "34,1:B:"A SKINNY BALD-HEADED MAN IN A BLOOD- Ed*"n* M & M CHAR. EDITOR)x*A* BY TIMOTHY SCOTTH*P:^IT$(255)vI1255:IT$(I):I~T1D$(4):B24576(36864)169220D$"BLOAD M.BINARY,A$9000"47092,1:47082,1 10:5:"INSERT CHARACTER DISK IN A DRIVE"4 5:" AND PRESS THE KEY"` 5:" TYPE A '2' FOR DRIVE 2 ACCESS";A$u A$"2"Ĺ47082,2 36864  MAIN MENU ":::" MIGHT AND MAGIC CHARACTER EDITOR " ,34,1 6: @15:" L)OAD NEW CHARACTERS"! J16:" W)RITE CHARACTERS TO DISK"? T17:" V)IEW CHARACTERS"R ^18:" Q)UIT"n h13:"YOUR CHOICE? ";A$~ rA$"L"420 |A$"W"450 A$"V"490 A$"Q"ĉ:: 310 :"LOAD NEW CHARACTERS? ";A$ A$"Y"310 230! :"THIS ";::"WRITES";::" TO DISK!"E :"GO AHEAD? ";A$:A$"Y"310t :"WRITING":36888,2:36864:36888,1:310  CHARACTER MENU :I118:I") "; 4660:G0ĺ"EMPTY";:540 X014:4660:G0X14:530 (G); X :X0:I &( 0"ENTER CHOICE (0 RETURNS): ";A$C :A(A$):A1A18ī310l D:IA:4660:G0Ė1:2:"EMPTY":620 N1:2:X014:4660:G0X14:610 X(G); bX l2:17:":"; vX16:4660:G1640,650,660 " O":670 " M":670 " F":670 2:21:X18:4660/ G1ĺ"GOOD":720E G2ĺ"NEUT":720[ G3ĺ"EVIL":720g "NONE"} 2:26:X19:4660 G1ĺ"HUMAN":790 G2ĺ"ELF":790 G3ĺ"DWARF":790 G4ĺ"GNOME":790 G5ĺ"H-ORC":790 "NONE"2:33:X20:4660( G1ĺ"KNIGHT":870A*G2ĺ"PALADIN":870Y4G3ĺ"ARCHER":870q>G4ĺ"CLERIC":870HG5ĺ"SORCERER":870RG6ĺ"ROBBER":870\"NONE"f4:1:"INT=";:X22:4660:Gp4:9:"LEVEL=";:X36:4660:Gz4:18:"AGE=";:X37:4660:G4:27:"EXP=";:X42:4660:AG16777216:X41:4660:AAG65536:X40:4660:AAG256:X39:4660:AAG:A5:1:"MGT=";:X24:4660:G6:1:"PER=";:X26:4660:G6:9:"SP=";:X44:4660:AG256:X43:4660:AAG:A46:17:"/";:X46:4660:AG256:X45:4660:AAG:AW6:23:"(";:X48:4660:G;")"6:27:"GEMS=";:X50:4660:AG256:X49:4660:AAG:A7:1:"END=";:X28:4660:G8:1:"SPD=";:X30:4660:G8:9:"HP=";:X52:4660:AG256:X51:4660:AAG:AF8:17:"/";:X56:4660:AG256:X55:4660:AAG:A8:27:"GOLD=";:X59:4660:AG65536:X58:4660:AAG256:X57:4660:AAG:A9:1:"ACY=";:X32:4660:G10:1:"LUC=";:X34:4660:G10:9:"AC=";:X61:4660:G!10:27:"FOOD=";:X62:4660:GU$12:1:"COND=";:X63:4660:X0ĺ" GOOD":1080f." NON-GOOD"813:1:"-------------------"BJ16:J13:J")";:X63J:4660:G0ĺ:1110LIT$(G)VJ13:21:(J64);")";:X69J:4660:G0ĺ:1130`IT$(G)$jJWt:"PRESS E TO EDIT OR TO GO BACK";A$h~A$"E"1180uX0:490 EDITING MENU:::" TOWN OF CHANGES ":34,1::"YOU ARE STANDING IN THE TOWN SQUARE."11:" S)IGN OF WELCOME",12:" I)CARUS' LAB"U13:" B)ATTLEFIELDS OF HORNBLOUGH"u14:" T)EMPLE OF AK'BORU"15:" F)OUNTAIN OF YOUTH"16:" L)ARAGATHRA'S RESTAURANT"17:" H)ALL OF COMMENDATIONS"18:" Z)AERDIDAIN'S LIBRARY""19:" G)UILD OF STRENGTH"@ 20:" V)AULT OF RICHES"^21:" W)ASPIN GEARSHOP"|22:" P)ORTAL TO TOWNS"(6:"GO WHERE? ";A$2A$""1160<A$"I"1480FA$"B"2410PA$"F"2780ZA$"L"2860dA$"H"2940 nA                         &T "NEW FOOD: ";A$:A$""ī1180;&^ A(A$):A0A402890O&h CA:4650:1180Z&r HALL&| :::" HALL OF COMMENDATIONS ":34,1:N' :"BEFORE YOU AND A HUGE DAIS SURROUNDED BYMANY GUARDS SITS LORD YTILAER, KING OF ALL THE LAND. H6A$""ī1180"@A$"S"16703JA$"A"1750DTA$"O"1860U^A$"R"1970fhA$"C"2120wrA$"N"2290|1580::"CURRENT SEX: ";:X16:4660G1ĺ"M":1710G2ĺ"F":1710"O""NEW SEX: ";A$:A$""1520A$"M"C1:4650:1520/A$"F"C2:4650:1520CC3:4650:1520m::"CURRENT ALIGNMENT:";:X18:4660G1ĺ"GOOD":1800G2ĺ"NEUT":1800G3ĺ"EVIL":1800"NONE"6:"1) GOOD"7:"2) NEUT"8:"3) EVIL"&4:"NEW ALIGNMENT: ";A$:A$""ī152080A(A$):A1A31830L:CA:4650:1520xD::"ORIGINAL ALIGNMENT: ";:X17:4660NG1ĺ"GOOD":1910XG2ĺ"NEUT":1910bG3ĺ"EVIL":1910l"NONE"v6:"1) GOOD"7:"2) NEUT"8:"3) EVIL"14:"NEW ORIGINAL ALIGNMENT: ";A$:A$""1520KA(A$):A1A31940_CA:4650:1520::"CURRENT RACE: ";:X19:4660G1ĺ"HUMAN":2040G2ĺ"ELF":2040G3ĺ"DWARF":2040G4ĺ"GNOME":2040G5ĺ"H-ORC":2040"NONE"6:"1) HUMAN"+7:"2) ELF"> 8:"3) DWARF"Q9:"4) GNOME"e 10:"5) H-ORC"*4:"NEW RACE: ";A$:A$""ī15204A(A$):A1A52090>CA:4650:1520H::"CURRENT CLASS: ";:X20:4660RG1ĺ"KNIGHT":2200\G2ĺ"PALADIN":2200+fG3ĺ"ARCHER":2200DpG4ĺ"CLERIC":2200_zG5ĺ"SORCERER":2200xG6ĺ"ROBBER":2200"NONE"6:"1) KNIGHT"7:"2) PALADIN"8:"3) ARCHER"9:"4) CLERIC"10:"5) SORCERER"11:"6) ROBBER"'4:"NEW CLASS: ";A$:A$""ī1520AA(A$):A1A62260UCA:4650:1520s::"CURRENT NAME:";:X04660:G0ĺ"EMPTY":2330 X014:4660:G0X14:2330 (G);:X :"NEW NAME (15 CHARS): ";A$:A$""1520$ (A$)152290. X014:C0:4650:X,8 X0(A$)1KB C((A$,X1,1))128:4650RL X\V 1520o` BATTLEFIELDSj :::" BATTLEFIELDS OF HORNBLOUGH ":34,1:E t :"A YOUNG AND NIMBLE LOOKING PERSON WALKS OVER TO GREET YOU: 'HULLO! THEY CALL ME QUICK SILVER. DO YOU REQUIRE TRAINING?'"m ~ :"ANSWER (Y/N): ";A$:A$"N"1180 :4:" I)NTELLECT" 5:" M)IGHT" 6:" P)ERSONALITY" 7:" E)NDURANCE" 8:" S)PEED" 9:" A)CCURACY"! 10:" L)UCK"! 2:"ALTER: ";A$*! A$""1180;! A$"I"2610L! A$"M"2620]! A$"P"2630n! A$"E"2640! A$"S"2650! A$"A"2660! A$"L"2670!( 2510!2 C$"INTELLECT":X22:2680:X21:2730!< C$"MIGHT":X24:2680:X23:2730$"F C$"PERSONALITY":X26:2680:X25:2730M"P C$"ENDURANCE":X28:2680:X27:2730r"Z C$"SPEED":X30:2680:X29:2730"d C$"ACCURACY":X32:2680:X31:2730"n C$"LUCK":X34:2680:X33:2730"x :3:"CURRENT "C$": ";:4660:G # 4:"NEW "C$": ";:"";A$:A$""2720'# A(A$):A1A9926905# CA:4650;# _# 6:"ORIGINAL "C$": ";:4660:G# 7:"NEW "C$": ";:"";A$:A$""2440# A(A$):A1A992740# CA:4650:2440# FOUNTAIN$ :::" FOUNTAIN OF YOUTH ":34,1:J$ :"YOU ARE STANDING BEFORE THE FOUNTAIN OF YOUTH, TAKE A DRINK?"s$ :"ANSWER (Y/N): ";A$:A$"N"ī1180$ ::"CURRENT AGE: ";:X37:4660:G$ :"NEW AGE: ";A$:A$""1180$ A(A$):A1A1002810$ CA:4650:1180$" RESTAURANT<%, :::" LARAGATHRA'S RESTAURANT ":34,1:%6 :"A VERY BEAUTIFUL WOMEN CLOTHED IN GOLDENSILK SMILES AT YOU AND SAYS: 'DO YOU WISH SERVICE?'"%@ :"ANSWER (Y/N): ";A$:A$"N"ī1180%J ::"CURRENT FOOD: ";:X62:4660:G STAINED LAB COAT STRUTS UP AND SAYS 'CAN I BE OF ASSISTANCE?'"j:"ANSWER (Y/N): ";A$:A$"N"1180~:4:" N)AME"5:" S)EX"6:" A)LIGNMENT"7:" O)RIGINAL ALIGNMENT"8:" R)ACE""9:" C)LASS",2:"ALTER: ";A$ 6JDE$64660:J") ";IT$(J)+6J16\6"F)WD B)ACK J)UMP10 R)VRS10 G)ET ";A$l6A$""11806A$"F"D246OO16A$"B"D1OO16A$"J"D241OO96A$"J"D241O2456"A$"R"D9OO96,A$"R"D9O076A$"AL LEVEL: ";:X35:4660:GI( 7:"NEW ORIGINAL LEVEL: ";A$:A$""ī1180_( A(A$):A13010s( CA:4650:1180( LIBRARY( :::" ZAERDIDAIN'S LIBRARY ":34,1:3) :"A WIZENED OLD GNOME HOBBLES TOWARDS YOU:'WELL, ADVENTURER! DO YOU WISH TO LOOK AT MY TOMES OF KNOWLEDGE?'"\) :"ANSWER (Y/N): ";A$:A$"N"ī1180}) :4:" E)XPERIENCE POINTS") 5:" S)PELL LEVEL")& 2:"ALTER: ";A$:A$""1180)0 A$"E"3150): A$"S"3290)D 3090\*N ::"CURRENT EXPERIENCE: ";:X42:4660:AG16777216:X41:4660:AAG65536:X40:4660:AAG256:X39:4660:AAG:A*X "NEW EXPERIENCE: ";A$:A$""3090*b X3942:(B(I1)127X),0:X*l A(A$):A0A42949672953150*v A167772163220* C(A16777216):X42:4650+ AA(C16777216)$+ A655363250@+ C(A65536):X41:4650R+ AA(C65536)b+ A2563280|+ C(A256):X40:4650+ AA(C256)+ CA:X39:4650:3090+ ::"CURRENT SPELL LEVEL: ";:X48:4660:G+ "NEW SPELL LEVEL: ";A$:A$""3090, A(A$):A0A73290+, CA:4650:30907, GUILDu, :::" GUILD OF STRENGTH ":34,1:%- :"A WARRIOR OF IMMENSE PROPORTIONS STRIDESUP TO YOU AND SAYS: 'WELCOME. MY NAME IS INGOLD INGLORION, AND, IF YOU WISH, WE CAN 'TONE' UP YOUR BODY!'"N- :"ANSWER (Y/N): ";A$:A$"N"ī1180h-* :4:" H)IT POINTS"-4 5:" S)PELL POINTS"-> 2:"ALTER: ";A$:A$""ī1180-H A$"H"ī3430-R A$"S"ī3510-\ 3370-f :4:"1) CURRENT HIT POINTS"".p 5:"2) CURRENT MAX (POISON LOWERS THIS)"C.z 6:"3) ORIGINAL HIT POINTS"d. 2:"ALTER: ";A$:A$""3370~. A(A$):A1A33430. A1C$"CURRENT HIT POINTS: ":X52:3570:3430. A2C$"CURRENT MAX: ":X56:3570:3430/ A3C$"ORIGINAL HIT POINTS: ":X54:3570:34308/ :4:"1) CURRENT SPELL POINTS"[/ 5:"2) ORIGINAL SPELL POINTS"|/ 2:"ALTER: ";A$:A$""3370/ A(A$):A1A23510/ A1C$"CURRENT SPELL POINTS: ":X44:3570:35100 A2C$"ORIGINAL SPELL POINTS: ":X46:3570:351030 ::C$;:4660:AG256:XX1:4660:AAG:AR0 "NEW "C$;:"";A$:A$""ı\0XX1z0A(A$):A0A6553535700A25636400$C(A256):46500.AA(C256)08XX1:CA:46500B0L VAULT1V:::" VAULT OF RICHES ":34,1:v1`:"YOU'RE AT THE TOWN TREASURY. IT IS UN- GUARDED!! ALL IS YOURS FOR THE TAKING!! ENTER IN?"1j:"ANSWER (Y/N): ";A$:A$"N"11801t:4:" J)EMS"1~5:" G)OLD"12:"TAKE WHICH: ";A$:A$""11801A$"J"3760 2A$"G"384023700X2::"CURRENT GEMS: ";:X50:4660:AG256:X49:4660:AAG:Ay2"NEW GEMS: ";A$:A$""37002A(A$):A0A6553537602C0:X49:4650:C0:X50:46502A25638302C(A256):X50:46502AA(C256) 3CA:X49:4650:3700e3::"CURRENT GOLD: ";:X59:4660:AG65536:X58:4660:AAG256:X57:4660:AAG:A3 "NEW GOLD: ";A$:A$""37003A(A$):A0A167772153840357,0:58,0:59,03(A65536391032C(A65536):X59:46503<AA(C65536) 4FA2563940'4PC(A256):X58:465074ZAA(C256)P4dCA:X57:4650:3700_4n GEARSHOP4x:::" WASPIN GEARSHOP ":34,1:^5:"A MUSCULAR AND GOOD LOOKING CREATURE APPROACHES YOU. AS YOU SEE HIS FACE, IT REMINDS YOU OF A HIGH ELF. BUT AS YOU LOOK AGAIN -- HE SEEMS TO BE OF A ROYAL DWARF STOCK. HE SPEAKS:"5"'HELLO THERE! I AM THE DWELF. DO YOU WISH TO LOOK AT OUR GOODS?'"5:"ANSWER (Y/N): ";A$:A$"N"1180534,1::4680::34,95DO1:ED96E SPEAKS: 'WELCOME MY FRIEND. DO YOU DESIRE ANY PROMOTIONS?'"v' :"ANSWER (Y/N): ";A$:A$"N"1180' :3:"CURRENT LEVEL: ";:X36:4660:G' 4:"NEW LEVEL: ";A$:A$""3010' A(A$):A1A2552970' CA:4650( 6:"ORIGINAMBERGE +3,SORCERER STAFF,STAFF OF MAGICxF~ DEMON'S GLAIVE,DEVIL'S GLAIVE,THE FLAMBERGE,HOLY FLAMBERGE,EVIL FLAMBERGEF PADDED ARMOR,LEATHER ARMOR,SCALE ARMOR,RING MAIL,CHAIN MAILF SPLINT MAIL,PLATE MAIL,PADDED +1,LEATHER +1,SCALE +1>G RING 8 TEMPLEJ8:::" TEMPLE OF AK'BORU ":34,1:8:"A VERY PLAIN WOMAN DRESSED IN A GRAY ROBE IS STANDING HERE. APPLYING BANDAGESTO A PATIENT'S EYES, SHE TURNS TO YOU AND SAYS:"9"'I AM CURA, CLERIC OF THE TEMPLE. DO YOUREQUIRE TREATMENT?'"@9:"ANSWER (Y/N): ";A$:A$"N"1180F99X63:C0:4650:"YOU ARE NOW FEELING GOOD!"::"PRESS ";A$:11809 PORTAL9:::" PORTAL TO TOWNS ":34,1:f::"YOU SEE A H-ORC GUARDING A BLUE/WHITE PORTAL. HE GROWLS: 'SO YOU THINK YOU'RE GONNA GET BY ME DO YA???'"::"ANSWER (Y/N): ";A$:A$"N"1180::4:"1) SORPIGAL":5:"2) PORTSMITH":6:"3) ALGARY":&7:"4) DUSK":08:"5) ERLIQUIN"$;:10:"CURRENT LOCATION: ";:(26861I)L;D2:"TELEPORT TO: ";A$:A$""ī1180f;NA(A$):A1A54360{;X26861I,A:1180;b SIGN;l:"YOU READ THE SIGN. IT SAYS:";vX<"'WELCOME TO THE TOWN OF CHANGES, HERE YOU MAY CHANGE YOUR CHARACTER TO WHAT YOU SEE FIT. THERE ARE MANY PLACES TO VISIT SO HERE IS A BRIEF EXPLANATION OF"m<"OF EACH AREA:"<:" ICARUS' LAB : RACE, NAME, SEX, ALIGN- MENT AND CLASS" =:" BATTLEFIELDS OF HORNBLOUGH : ALL YOUR STATS, SUCH AS MIGHT, SPEED, LUCK, ETC.";@=:" TEMPLE OF AK'BORU : CONDITION BACK TO GOOD"b=:" FOUNTAIN OF YOUTH : AGE"=:" LARAGATHRA'S RESTAURANT : FOOD"=:"PRESS ";A$=" HALL OF COMMENDATIONS : LEVEL"= >:" ZAERDIDAIN'S LIBRARY : SPELL CASTING LEVEL AND EXPERIENCE POINTS"_>:" GUILD OF STRENGTH : HIT POINTS AND SPELL POINTS">:" VAULT OF RICHES : GEMS AND GOLD">:" WASPIN GEARSHOP : ITEMS"> :" PORTAL TO TOWNS : WHERE YOU ARE PRESENTLY LIVING'" ?:"PRESS ";A$? 1180 EQUIPMENT PRINT?H"-------------------"?RJ16:J2:J")";:X63J:4660:G0ĺ:4710?\IT$(G)@fJ2:21:(J64);")";:X69J:4660:G0ĺ:4730'@pIT$(G).@zJ4@?@ DATAl@ CLUB,DAGGER,HAND AXE,SPEAR,SHORT SWORD@ MACE,FLAIL,SCIMITAR,BROADSWORD,BATTLE AXE@ LONG SWORD,CLUB +1,CLUB +2,DAGGER +1,HAND AXE +1A SPEAR +1,SHORT SWORD +1,MACE +1,FLAIL +1,SCIMITAR +1YA BROADSWORD +1,BATTLE AXE +1,LONG SWORD +1,FLAMING CLUB,CLUB OF NOISEA DAGGER +2,HAND AXE +2,SPEAR +2,SHORT SWORD +2,MACE +2A FLAIL +2,SCIMITAR +2,BROADSWORD +2,BATTLE AXE +2,LONG SWORD +2$B ROYAL DAGGER,DAGGER OF MIND,DIAMOND DAGGER,ELECTRIC SPEAR,HOLY MACEnB UN-HOLY MACE,DARK FLAIL,FLAIL OF FEAR,LUCKY SCIMITAR,MACE OF UNDEADB COLD AXE,ELECTRIC SWORD,FLAMING SWORD,SWORD OF MIGHT,SWORD OF SPEEDC SHARP SWORD,ACCURATE SWORD,SWORD OF MAGIC,IMMORTAL SWORD,AXE PROTECTORTC AXE DESTROYER,X!XX!X'S SWORD,ADAMANTINE AXE,ULTIMATE SWORD,ELEMENT SWORDC SLING,CROSSBOW,SHORT BOW,LONG BOW,GREAT BOWC SLING +1,CROSSBOW +1,SHORT BOW +1,LONG BOW +1,GREAT BOW +1 D$ MAGIC SLING,CROSSBOW +2,SHORT BOW +2,LONG BOW +2,GREAT BOW +2UD. CROSSBOW LUCK,CROSSBOW SPEED,LIGHTENING BOW,FLAMING BOW,GIANT'S BOWD8 THE MAGIC BOW,BOW OF POWER,ROBBER'S X-BOW,ARCHER'S BOW,OBSIDIAN BOWDB STAFF,GLAIVE,BARDICHE,HALBERD,GREAT HAMMER EL GREAT AXE,FLAMBERGE,STAFF +1,GLAIVE +1,BARDICHE +1MEV HALBERD +1,GREAT HAMMER +1,GREAT AXE +1,FLAMBERGE +1,STAFF +2E` GLAIVE +2,BARDICHE +2,HALBERD +2,GREAT HAMMER +2,GREAT AXE +2Ej FLAMBERGE +2,STAFF OF LIGHT,COLD GLAIVE,CURING STAFF,MINOTAUR'S AXE(Ft THUNDER HAMMER,GREAT AXE +3,FLG"41707@401027J"GET ITEM #";A$:A$""4010N7TA(A$):A1A2554010V7^CAu7h:"PUT "IT$(A)" IN WHICH"7r"POSITION (1-6/A-F): ";A$:A$""40107|A$"A"A$"G"X(A$)5:4650:40007A$"1"A$"7"X(A$)63:4650:400074200LUE RING MAIL,RED CHAIN MAILfH X!XX!X'S PLATE,HOLY PLATE,UN-HOLY PLATE,ULTIMATE PLATE,BRACERS AC 8H SMALL SHIELD,LARGE SHIELD,SILVER SHIELD,SMALL SHIELD +1,LARGE SHIELD +1I LARGE SHIELD +1,SMALL SHIELD +2,LARGE SHIELD +2,LARGE SHIELD +2,FIRE SHIELDKI COLD SHIELD,ELEC SHIELD,ACID SHIELD,MAGIC SHIELD,DRAGON SHIELDI ROPE & HOOK,TORCH,LANTERN,10 FOOT POLE,GARLICI WOLFSBANE,BELLADONNA,MAGIC HERBS,DRIED BEEF,ROBBER'S TOOLSJ BAG OF SILVER,AMBER GEM,SMELLING SALT,BAG OF SAND,MIGHT POTIONHJ  SPEED POTION,SUNDIAL,CURING POTION,MAGIC POTION,DEFENSE RINGJ BAG OF GARAGE,SCROLL OF FIRE,FLYING CARPET,JADE AMULET,ANTIDOTE BREWJ SKILL POITION,BOOTS OF SPEED,LUCKY CHARM,WAND OF FIRE,UNDEAD AMULET'K( SILENT CHIME,BELT OF POWER,MODEL BOAT,DEFENSE CLOAK,KNOWLEDGE BOOKpK2 RUBY IDOL,SORCERER ROBE,POWER GAUNTLET,CLERIC'S BEAD,HORN OF DEATHK< POTION OF LIFE,SHINY PENDANT,LIGHTNING WAND,PRECISION RING,RETURN SCROLLLF TELEPORT HELM,YOUTH POTION,BELLS OF TIME,MAGIC OIL,MAGIC VESTJLP DESTROYER WAND,ELEMENT SCARAB,SUN SCROLL,STAR RUBY,STAR SAPPHIRELZ WEALTH CHEST,GEM SACK,DIAMOND COLLAR,FIRE OPAL,UNOBTAINIUMLd VELLUM SCROLL,RUBY WHISTLE,KINGS PASS,MERCHANTS PASS,CRYSTAL KEY Mn CORAL KEY,BRONZE KEY,SILVER KEY,GOLD KEY,DIAMOND KEYWMx CACTUS NECTAR,MAP OF DESERT,LASER BLASTER,DRAGON'S TOOTH,WYVERN EYEM MEDUSA HEAD,RING OF OKRIM,B QUEEN IDOL,W QUEEN IDOL,PIRATES MAP AM PIRATES MAP B,THUNDRANIUM,KEY CARD,EYE OF GOROS,(USELESS ITEM)A MAIL +1,CHAIN MAIL +1,SPLINT MAIL +1,PLATE MAIL +1,LEATHER +2G SCALE +2,RING MAIL +2,CHAIN MAIL +2,SPLINT MAIL +2,PLATE MAIL +2G BRACERS AC 4,RING MAIL +3,CHAIN MAIL +3,SPLINT MAIL +3,PLATE MAIL +3H BRACERS AC 6,CHAIN MAIL +3,BRACERS AC 8,B1췩뷍h詷 `&ABRACADATA DESIGN YOUR OWN HOME@TK0:ST0:LT35:CDWRV47507,0:47517,0eT1TK:490t47445,213TK((TK2))2Ĺ47445,212$430:100:STST1:STDOS1060.BF10908ST0:TKTK1:TKLT1040 B490:47445,213:TKT1:ST0# L430:100:STST1:STDOS1100E VST0:TKTK1:BF0TKLT1100U `TKLT1030z j47507,174:47517,164:47445,213 t::"DONE":# "! 40206,0:(4)"BRUNDDMOVER"' M(4)"BRUN MUSIC TEXT & KEYBOARD"g(4)"BRUN POLYHANDS"(4)"BRUN POLYMOVER-2"((4)"BRUN POLY MOVER-2"2(4)"BRUN POLYDOER-2"d(4)"BLOAD CHARTS"n(4)"BLOAD UPPERS"x 46432,234:46433,234! (4)"BRUN MAINS" 9SPELL IT/TK3:LT4:ST15:LS15:CDWR[47405,24:47406,96:47497,24:47498,96x47829,3:T1TK:490:210190:610TKTK1:LTLT1:(BUF)MBTK351040$47405,208:47406,19:47497,208:47498,183:47829,213:230 .TKT1:LT35:490:610:(TRK)LT1090? 8TK(TRK):ST(SCT):LTTK1:1020T B:"COPY DONE": 213,170,181,215,170,151,213,170,150,213,170,151,215,170,150 215,170,151,221,170,158,221,170,159,213,170,181,223,170,158 223,170,159,221,170,158,221,170,159,223,170,158,223,170,159X 213,170,150,213,170,181,213,170,151,215,170,150,215,170,151 213,170,150,213,170,151,215,170,150,215,170,151,213,170,181 221,170,158,221,170,159,223,170,158,223,170,159,221,170,158 221,170,159,223,170,158,213,170,181,223,170,159,245,170,1828 245,170,183,247,170,18283,247,170,182,   ,1):.ZSLĞ:11:HS1:(DE$(B),S1,1):8d1310\nED$(DE$(B),SP,L):DE$(B1)ED$xED$(DE$(B),1,SP1):(DE$(B),SP1,1)" "ED$(DE$(B),1,SP2)DE$(B)ED$WW1:1440::7:16:DE$(B):8:16:DE$(B1)::PRINT BORDER!:: INFOCOM TEXT DECODER0BY RYAN LANCTOTIREVISION # 15/03/88S(800g2INITIALIZATION<::1:1:40);:2:1:13);"INFOCOM DECODER";12):3:1:40);:FD$(4)PDE$(200),X$(1200),AB$(10),R$(10),AR$(130)ZW0:MA0 dI110:AB$(I),R$(I):Iq n"@@"," ","@"," ","@M",".","@N",",","@O","!","@S","'","@W","-","@X",":","@Y","(","@Z",")" xREAD DATA 5:1:">GETTING DATA" D$"OPEN INFOCOM DATA" D$"READ INFOCOM DATA" F I1400F X$(I) I D$"CLOSE INFOCOM DATA"1 850: CHANGE DELIMETERR 6:1:">CHANGING DELIMETER"a I1400Fz X$(I)";"X$(I)" " I 2040:** PARSE REPLACE LEADING @ 8:1:">REPLACING LEADING @'S" "I1W ,G(DE$(I))& 6(DE$(I),1,3)"@@@"ED$"@@"(DE$(I),4,G):DE$(I)ED$_ @(DE$(I),1,2)"@@"ED$"@"(DE$(I),3,G):DE$(I)ED$f JIy TABBREV. CHECK ^9:1:">CHECKING ABBREVIATIONS" hJ1W rI110 |G(DE$(J)) K1G (DE$(J),K,2)AB$(I)MA1 MA1K1G2DE$(J)R$(I)> MA1K1G2ED$(DE$(J),2,G):DE$(J)ED$ MA1K1ED$(DE$(J),1,K1)R$(I)(DE$(J),K2,G):DE$(J)ED$ MA0 K I:J DELETE LEFTOVER @ 10:1:">DELETING LEFTOVER @'S" J1W G(DE$(J)) K1G (DE$(J),K,1)"@"F1I F1K1ED$""(DE$(J),2,G):DE$(J)ED$:F0 F1K1ED$(DE$(J),1,K1)" "(DE$(J),K1,G):DE$(J)ED$:F0 &K:J 0WORDLIST CHOOSING :23:13:"PRESS A KEY:";:A$:1000 DBST:EEN:940 NOUTPUT DATAX6:1:">SENDING DATA TO DISK"Lb24:1:"FILE NAME TO SAVE DATA UNDER?:";F$\lD$"OPEN"F$mvD$"CLOSE"F$D$"DELETE"F$K860:Q$(34)D$"OPEN"F$D$"WRITE"F$"840 DATA ";ENST9;": REM NUMBER OF ABBREVIATIONS KNOWN""850 REM ABBREVIATIONS FOR ";F$$ISTENRK;" DATA ";Q$;AR$(I);Q$;",";Q$;DE$(I);Q$]KK10dII310:K;" DATA ";Q$;AB$(I);Q$;",";Q$;R$(I);Q$:KK10:ID$"CLOSE"F$: ** SUB-ROUTINES **ONERR CODE TRAP! (222)6F1Ĺ218,0:"DATA FILE NOT FOUND":E*(222)6F1Ĺ218,0:FF1:1304"AN ERROR (#";(222);")":"HAS OCCURRED ON LINE #";(218)(219)256>HPARSING ROUTINER7:1:">PARSING DATA"\J1400FfFOUND1890 pX$(J)" "FOUND0XSJ:FOUND15zX$(J)" "FOUND1XEJ1:FOUND0:910aWW1:KXSXE:DE$(W)DE$(W)X$(K):K:wMAKE DATA ABBRV.::1:1:40);:2:1:13);"INFOCOM DECODER";12):3:1:40);:ZB:A60:B59ZE1ıAR$(Z)(A)(B)ZZ1:B90B59:AA1:950!BB1:9508LIST BEG/END FIND\B1:ST0:EN0:S0:SP0:H0:FL0f1440p115018:15:"COMMAND ( )";:18:24:A$A$(8)B1BB1A$(21)BWBB1$A$(32)WB5BB5.A$(13)FL0STB:FL1:4:14::DE$(ST)::1150:1100R8A$(13)FL1STBENB:5:14::DE$(EN)::BA$(13)FL1STBė:12:"START MUST COME BEFORE END":23:14:"PRESS A KEY:";:A$:FL0:ST0:1010LA$"S"(DE$(B))2İ1270VA$(27)ĝ:`1150j1030tPRINT 5 WORDS~DB:F0+I1317CH20((DE$(D))2)VI2:2:38);bI13ĞpF11240I2:H:DE$(D):DWF1DWDD1ISPLIT WORDS1::19:9:"SPLIT THIS WORD? (Y/N):";:A$:A$"N"A$"n"Ģ19:9:23);:!19:9:23);; H20((DE$(B))2)1KL(DE$(B))g11:HS:(DE$(B),S,1)w(18:24:A$2A$(21)SLSS1<A$(8)S1SS1FA$"S"SPS:IWB11:DE$(I1)DE$(I):I:1390PS1Ğ:11:HS1:(DE$(B),S1          16:10:"+-------------------+"=21:4:"<- = REVERSE"Z22:5:"S = SPLIT WORD"{"20:21:" = MARK WORD",21:21:" TO JUMP 5"622:21:" = QUIT MENU"@---+r ! PRINT 5 WORDS !| +---------------+:DB:F0!I13179H20((DE$(D))2)LI2:2:38);XI13ĞfF14330|I2:H:DE$(D):DWF1DWDD1I: +------------+ ! SPLIT WORD " +------------+&:@0S1::19:9:"SPLIT THIS WORD? (Y/N):";:A$:A$"N"A$"n"Ģ19:9:23);:R519:9:23);l:H20((DE$(B))2)1|DL(DE$(B))N11:HS:(DE$(B),S,1)X18:24:A$bA$(21)SLSS1lA$(8)S1SS1 vA$"S"SPS:IWB11:DE$(I1)DE$(I):I:45106S1Ğ:11:HS1:(DE$(B),S1,1):_SLĞ:11:HS1:(DE$(B),S1,1):i4430ED$(DE$(B),SP,L):DE$(B1)ED$ED$(DE$(B),1,SP1):(DE$(B),SP1,1)" "ED$(DE$(B),1,SP2)DE$(B)ED$WW1:4600::7:16:DE$(B):8:16:DE$(B1):::3 +--------------+J ! PRINT BORDER !a +--------------+g:::10);"ABBREVIATION EDITING";10)2:18);"MENU";18) I222:I:1:" ":I:40:" ":I23:1:40); *4:4:"BEGINNING:"45:10:"END:"->7:4:"SPLIT WORDS:"HH20:4:"-> = FORWARD"mR10:10:"+-------------------+"\16:10:"+-------------------+"f21:4:"<- = REVERSE"p22:5:"S = SPLIT WORD"z20:21:" = MARK WORD" 21:21:" TO JUMP 5"-22:21:" = QUIT MENU"310);"ABBREVIATION EDITING";10):2:18);"MENU";18)`I222:I:1:" ":I:40:" ":Ir23:1:40);x4:4:"BEGINNING:"5:10:"END:"7:4:"SPLIT WORDS:"20:4:"-> = FORWARD"10:10:"+-------------------+""!sX$(1200):A1:D$(13)(4)XCOMDOS188:STDDOS173:47356,COMDOS:DOS$"INFOCOM"T$"Q"Ĺ47356,STDDOS:24:6:"PUT DATA DISK IN DRIVE #1";:A$:D$:750:D$"RUN INFOCOM DECODER,D1":|776,0:775: 16368,0::24:"SAVE THIS PAGE? (Y/N):";:A$:A$"Y"A$"y"630' vY312b {24:1:38);::24:11:"WORKING";::" ON LINE #";Y;u XY12833680 D(A1)400X(40(Y3)) X$(D)(XY) X:Y AA1:170 D$"OPEN INFOCOM DATA,D1" D$"CLOSE INFOCOM DATA" D$"DELETE INFOCOM DATA" :3 D$"OPEN INFOCOM DATA"O D$"WRITE INFOCOM DATA"X A1g *I1400Ar 4X$(I)y >I HD$"CLOSE INFOCOM DATA" R::    *---------------------*;* INFOCOM TEXT READER *X* *u(* BY: *2* GEORGE BIGELOW *<* & JOHN BIGELOW *F* *P* ENHANCED BY: * Z* RAY DARRAH *# d*---------------------*) n1 x:Z (768)169ĺ(4)"BLOAD OBJ.READER"p SET UP VARIABLES COMDOS188:STDDOS173:47356,STDDOS:DOS$"STANDARD" MAKE SELECTIONS :10:"INFOCOM TEXT READER" 2:9:T* 2:3:"TRACK:";T$:T$"Q"T$""T$"+"T$"-"T(T$)H T$"Q"Ĺ47356,STDDOS::_ T0T34T0:170h 420v 2:21:S 2:14:"SECTOR:";S$:S$"+"S$"-"S$""S(S$) S0S15Ģ2:21:" ":240 500 2:26:"DOS:";DOS$  CALL RWTS< "47083,0:47084,T:47085,S:47088,0:47089,150:47092,1E ,768] 6AUTO DOS SELECTION{ @ERR(47093):ERR64380 JDOS(47356) TDOSSTDDOSĹ47356,COMDOS:2:30:DOS$"INFOCOM ":DOS$:360 ^47356,STDDOS:2:30:DOS$"STANDARD":DOS$ h768 rPRINT DECODED SECTOR< |776,0:775::776,1:775| 16368,0::24:"PRINT THIS PAGE? (Y,N):";:A$:A$"Y"610 170 PRINT TRACK T$""470 T$"+"TT1:450 T$"-"TT1 T0T34 T34T0 2:9:T;" "   PRINT SECTOR$ S$""5807 S$"+"SS13J S28S0:580[ S15SS15k S$"+"580~ &S$"-"SS13 0S13S15:580 :S0SS15 D2:21:S;" " N XPRINT PAGE b24:7:"DOUBLE SPACE? (Y/N):";:A$ l1vY122X140Y:XDXYX1,2(Y1))16X1,2(Y1)1)P(XY);[:1:iA$"Y"ĺox1:024:1:"PRESS A KEY TO CONTINUE-->";:A$170      CL)JJ) #JJJJJ)i ` ҠƠʮҍҠѠұѠƠƍҲѠŠōҳѠĠčԠѠư危·Ӡ썱٠ŸРĹӠ٠嬠危ԱҬٍĠƠҍҠұ򍱱ҬٍĠ󠰠䠱̠̍̍Ҳ󠳠䠴ٍѠӱ嬠獱Ҭ٠ҍҍҍҍҍҲ󠰠蠳䠴Ҳ򍱳ҬٍĠƠ󠰠蠴危ҳ򍱳ؠ󍱴Աҳؠ򍱴Íà䠱ɍҠԠ􍱴؍̠ԱٍŠԱӱӍӍ!! ! ! ! !  SEASPELLER~CONTROLLER7TK0:ST0:LT35:CDWRM47507,0:47517,0\T1TK:490k47445,213TK((TK2))2Ĺ47445,212$430:100:STST1:STDOS1060.BF10908ST0:TKTK1:TKLT1040B490:47445,213:TKT1:ST0 L430:100:STST1:STDOS1100< VST0:TKTK1:BF0TKLT1100L `TKLT1030q j47507,174:47517,164:47445,213 t::"DONE.":""