أبأ…بx2ب1ےأ:üح‎!کحhب!بfي°!بüي°حک:b‎ث¯ثïOح ‎ح#‎2c‎!حhب:بG:b‎ث¯Oح ‎أ¬بإ:بصهحiüلر0ٌ‏€ ي	ءنةُإصهفه‎هُظهصإحY‎ءرلظٌ‎لفللرح#‎2c‎ءٌيEحS‎أٹl                                                                            PRESENTS:                                                                                  CASTLE DEATHSTONE I                                                QUESTECH CES                                                 COPYRIGHT (C) 1986                                                                         ONE MOMENT PLEASE... LOADING                                    ذ›  PPPPًًًًًًًًPPPPPPِ›€ےےCastleDeathپUھے BOOT       گDIRECTORY  طLOGO/SONG طWBASICPGMTطWHELLOA    گ#}BACKUPFILEAگ?}BLOCKS LEFT[E         ˆˆّˆˆًˆˆًˆˆًpˆ€€€ˆpًˆˆˆˆˆًّ€€ً€€ّّ€€ً€€€x€€€کˆxˆˆˆّˆˆˆp     pˆpˆگ ہ گˆ€€€€€€ّˆط¨¨ˆˆˆˆˆب¨کˆˆpˆˆˆˆˆpًˆˆً€€€pˆˆˆ¨گhًˆˆً گˆpˆ€pˆpّ      ˆˆˆˆˆˆpˆˆˆˆˆP ˆˆˆ¨¨طˆˆˆP PˆˆˆˆP    ّ @€ّ<B¹¥¹­B<ْ#" ` |‚؛¢؛‚|ےےےے‏‏üüپپےےےے??ہààًًًّّüüüüüüüü€€€€€پپƒ?ےےےےےًًّààہہ€??ًًّّüü‏‏؟ںںںڈڈڈ‡ّüüü‏‏‏‏?ےےےےûَََمممأ??üےےےےےےےےےےےےےے?ےےےےےےےüü‏‏‏ےےےüüüüüüüےےےƒƒ‡‡ڈڈڈں€ےےےےےےےےےےےےےےƒƒƒأأأ‡‡ƒƒƒپپپأأƒƒƒےےہہ€€ےے!ے?¯ح&‎ح‹کح—کحہکف!ً›حHکف!ت›حHک!بکح‎حv ح~ حAکةح ‎ةہأ ‎إفfفnفVف^فFفNفهحkکفلف	ءقةإهص(ح‎رلءبإ	ë	ëءح‎ةح ‎€أ;ک!>ح)‎! >ح)‎!>ح)‎!8>ح)‎!€>ح)‎ةح ‎ة‹	
`abcdefghijklmnopqrstudvwxyz{|}~€پ‚ƒ„…†پپb‡ˆ‰ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےًًّّüےےےّ‏ےےےپپےےےےüü‏‏ے??€€ہہہ???ےےےےççأأü‏‏ےےےےے€€ہےےےےےےےےüüüüےےےےےےےےƒƒ‡‡€€€€ےےےے??ےےےےےüüّےےےےےےے€€ہہààًےےےےےےےےے؟àààًًًّّ??ےےےےےےےû      PPPPPّPّPP x p(ً ہب @ک@  @¨گh    @€€€@    ¨p p¨   ّ    @ّ  @€pˆک¨بˆp `    ppˆ0@€ّّ0ˆp0Pگّّ€ًˆp8@€ًˆˆpّ @@@pˆˆpˆˆppˆˆxà     @ @€@ ّّ@  @pˆ    Pےےےڈڈددïïïےےےےےے‏üًں؟؟?ےےےےًًّّààممَََûûû€€€€€€€€ےےے??‏‏‏üüüَّّUQQ!’ 	أP‎حV‎حV‎حV‎أV‎¢ ³$¤
³¦³N¨³B¾0Bض0
B‏0Bً0
Bض0~bBض0
B‏0Bً0
Bض0Aً04و@ً0B‏0B@1
B¬1Bض0
B‏0Bً0
Bض0jB 0$Bض0$B‏0Bً0
Bض0Aً04و@ً0B‏0B@1$Bض0
B1Bً0
Bض0~bBض0
B1Bً0
Bض0Aً04و@ً0B1B@1
B1Bض0
B‏0Bً0
Bض0jB 0$Bض0$B‏0Bً0
Bض0Aً04و@ً0B‏0@@1a@‏0a@ً0aBض0
Bض0B 0
Bض0$BHٌP0Bk0
Bq0Bx0
B0B 0
X¦‚‏0
‚@1‚1
‚‏0¾¢‚‏0
‚@1‚1
‚‏0پ14ل€1‚@1‚}1
‚¬1‚‏0
‚@1‚1
‚‏0ھ‚‏0$‚‏0$‚@1‚1
‚‏0پ14ل€1‚¬1‚@1$‚1
‚@1‚1
‚1¾¢‚1
‚@1‚1
‚1پ14ً€1‚@1‚}1
‚@1‚‏0
‚@1‚1
‚‏0ھ‚‏0$‚‏0$‚@1‚1
‚‏0پ14ل€1‚¬1€@1b€@1b€}1b°‚ص0
‚ص0‚،0
‚ص0$‚ص0‚،0
‚ص0$‚ص0پض04è€ض0‚‏0‚ً0
‚‏0€ً°‚‏ 
‚ً €ًp‚ھ 
‚  €ًj‚ً ¾¼‚ً ھ‚ض0€ًp‚@Q$‚@Q$‚Q$R>HIMEM?LOMEM@ذBREAKAذNOBREAKن?B¹& +،-¢*£/¤^¥<¦>§<=¨>=©<>ھ=«AND¬OR­NOT®GOTO¯GOSUB°STEP±AT²THEN³THEN´TOµ:¶#·(¸)¹,؛;§=<¨=>©><¬:Œ=€;ڈ;‹;ة=ئ=ڈ:[>:ُ:c:»:;د<ض<·<:i;w>Œ=ـ<:<:C>:y:‏::C>::€::C>:i>:6>:N>:'>:Hi CathyFATAL SYSTEM ERROR     Coleco SmartBASIC V1.0 (c) 1983, Lazer MicroSystems Inc]:NEXT without FORSyntaxRETURN without GOSUBOut of DATAIllegal QuantityOverflowOut of MemoryStack OverflowUndefined StateW3BآW3Bآپ2Bآپ2
BآپRBآW3BآW3Bآ؟3Bآ‰3BآW3Bآْ2Bآت2Bآ§2
Bط&t4t
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt Dt Dt Dt
tُ€t4t
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt
tDt$t$t
ض0B 0
Bض0$Bض0B 0
Bض0Aھ04ِ@ھ0Bض0Bھ0
B 0jBض0A 0V6@ 0aAڈ0VG@ڈ0aA0Vù@q0aBk0
BP0Bk0
Bq0Ax04َ@x0B0B 0
B¾0Bض0
Bض0B¾0
Bض0B 0
Bڈ0Bض 
Bً jBت A¾0Vâ@k0aBx0
B0B 0
B¾0Aض0V(@ض0aB¾0
B 0pB‡ 
B hAضPDèA 0DA PDïA0D!APDùAk0DA0DىBx0$A 0V@x0kB¾ jBx0$A 0V@x0kB¾ jB0$A 03ïB0
Bx0Bk0
B0Bk0
B_0BZ0
B_0Aھ0VِBk0Bx0A0Vù@k0aA0VW@ 0aA0V!@0aAx0V(@x0aAq0V/@q0aBk0
Bأ‌>أO'èd
ھ­GOSUB­GOTO×INPUTھLETرNEXTنPRINTشREAD	¹REM
؟FORبIF¼DATAشDIMعONكONERRذSTOPذRETURNذENDحDEFذCLEARذRESUMEذNEWذPOP°RUN¶LISTذTRACEذNOTRACE³DELçCALLذCONTذCLRERR êGET!ùPOKE"ذRESTORE#ذHOME$DRAW%XDRAW&ذFLASH'ذINVERSE(ذNORMAL)ذTEXT*ذGR+ذHGR,ذHGR2-HLIN.VLIN/ِHPLOT0ùPLOT1çHTAB2çVTAB3ذSHLOAD4êRECALL5êSTORE6يWAIT7SPEED8ROT9SCALE:COLOR;HCOLOR<IN=P‚Q$‚‏P$¼®کآWsBآپ2Bآپ2BآW3
BآپrBآ‰3Bآ؟3Bآْ2Bآت2Bآ§2Bہپ2âہWSâہّsâآپ2Bآّ3BآW3Bآپ2
BآپrBآت2Bآْ2
BآپrBآW3Bآ؟3
Bآ؟sBآْ2Bآت2Bآ§2Bآپ2
BآàqBآ؟3Bآْ2Bآت2
Bآ§rBہپ2لہWSلہّsلآپ2Bآّ3BآW3Bآپ2
BآپrBآّ3BآW3Bءپ2آW3BآW3 BآW3 BآW3 BآW3
Bآپ2BہًzآWsBآپ2Bآپ2BآW3BآW3Bآ؟3Bآْ2Bآت2Bآ§2Bآپ2Bآپ2Bآّ3BآW3Bہپ2لہWSلہّsلآپ2BآW3BآW3Bآ؟3Bآْ2Bآت2Bآپ2
BآپRBآ؟3Bآْ2Bآت2Bآ§2Bہپ2لہWSلہّsلآپ2Bآّ3BآW3BآmentBad SubscriptRedimensioned ArrayDivide by ZeroType MismatchString Too LongFormula Too ComplexUndefined FunctionIncorrect Function UsageIllegal ModeBreakCan't Continue*5EMMZkx…£°؟à•‏ےےز	
ح3·آح2	ع|´بأ‏ٹعتظظOGةوOةظظOةصهإح¼!v?حN/ءلرةحأ/:.?î€2.?:&?*.?”8يK+?ي[-?*%?أSيK"?ي[$?ح(يD¼ب:%?2?ھ!%?ث‏ثْ.gث<ث<ث<(	iHCZ% ÷و(ث:ثثثث= َ}ْث*"?	DM*$?يZ0ثثثثحS0آ»آ»,آ»$جS:?ثث"$?يC"?ةيD*"?يBDM*$?يR_0:?î€2?¯“ë!يBDM!يR_:&?W|·  ehAK<ه!.?ث¾ُيDoںg¯حg	ح/!ëح¶:&?ء€زل<ه·يRلآٌأ
:.?·ْ
أح!ùح#أâآ:%?>€ح|ح,يK3?ي[5?¯حسحYأâآ>@أ|آ:%?>!%?ث¾2B?!،ح]يK"?ي[$?ثْ:&?ض‚8(+‏ 8أب‏ل8َث:ثثث<آ®أبث!ثثث= ُيC3?يS5?:B?‚Wٍق!	هث؛ثr(!¯يBDM!€يRë*ئ·يR8 *ؤيB!ُ0&ُ!·يBDM!@يRë!)x±²³(>‚=ث!ثثثٍ ث؛2&?يC"?يS$?ٌ8r"7?حح,ح`*7?ح¶حYأ`آح!«حح¸	84!°حح¸	8
ح<!ںهأ™!ùح!ح<*%?ث‎$"%?!ùح!!¨هح!جأ<ح	!œأ!!¦أ!هحح`ل~ُ#+?ي°"7?*"?"9?*$?";?:&?2=?أىإ*9?"+?*;?"-?:=?2/?ح`*7?+?ي°"7?ح/$?>پ2&?ً!.?ع	!%?>€®wة!/?ع	!&?~·آ/	6پ+w+w+w+wة¯wة:&?‏پعa	ضگزe	يD*$?ث|ثüث<ث=آJ	آX	·ة¯•o>œg·ة!و7ةصë!/?عr	!&?z³ت§	¢تھ	ٍچ	{يD_z/?خWت«	>>گ=ث#ثٍگ	w+ْ 	ث؛r+s+¯w+wرةSz·>ˆٍگ	أک	صهي[%?*.?z·تے	|·ت

}«ْ

z¼آَ	{½آَ	$?!-?¾آَ	+¾آَ	+¾ت
لر:%?خہ<ة´ت
}·ْ
ثû7ثلرةظإصه¯2?GOW_ظoO‏+(ض- =2?‏E(j‏e(f‏. (îأز
ض0‏
زز
پg}وً غظح”
صإظ}ڈoظح”
ظڈظح”
ظڈظل	DMليZëظچo|ظپO0¯   7ظ}خoوً(ںأ/
`i)DMbkيjëة¯GO‏+(‏- ض0‏
0gx‏0VG€„Gأ­
 xيDG€êeظإصظءhAيS"?رJ¨"$?ح
*"?ه*$?حّئ&‏M0)O!;	#6?ٍ*%?".?*#?",?*!?"*?,-ب*+?6+#6?ة*.?"%?*,?"#?**?"!?,-ب*"?6"#6?ة‏“ز^و!c…oزQ$~ل…oزY$~#foé>أR
و7&وoأg	و7ظظ&oأg	و7ظظogأg	إ!"?هحںأضçإ!+?هح أضçëمPYëي ي ي ي ي رء¯ة

ل	ءصW_أr	
o
g##~ëمهح`ء}|##~·O#ë(ي°رء>ے7ةلح/ءةل2?حµ:?ح/2!?Gححمxءةت‎ثw *إظظو  ح3·لصح2رظظ‏¸آ¯ةح3·لح2>ےة‏بآظظإح3ل·آظظ‏¸آص~	N‘ضظإOظ#	ëحں•{zYP!ûے9ùëي°+ë!&?ي¸صW_ح3ر!9ي°ùظءظر¯ة!"?أس!+?ظyظë#إN‘ظOظyهbkح`ës#rلx±تù#ي°+ëء>ےة!"/?ي¸ح`حü:2?_ث'ث'ƒ_!‏يRحë5ح/حü:&?يK"?ي[$?ثْض„(ث:ثثث< ُ:2?لُzوئ0w#zوWٌ=(ه`i)DMëيjهë)ëيjë)ëيjë	DMليZëأGُ:2?G+~‏0 ّ+~ُû:?ئ‏8>ضٍ´6.يDG#60ûٌ#w ûأتGٌ(w#ù6.ٌ ëأت60#û %6E#:?·+ٍف-يDp#/ض
ٍلp#:<ْëp#+v?·يR}ة:&?‏„ط :%?‏ ط!?4!ôأ]آ*%?|·تث}آُ>€2&?!؟ح!ح,!؛ح!حYحâ!Cح<!µح!ٌض€oںg7حg	ح/!’أ]آ:&?·بح!&?5أë:/?·ت :&?·بـح‚!.?ث~(ث¾!<هح,ح(ح³)و2B?ح¸	(>ے2B?أتحh8‏0ح;حُأئإ!.?ث¾ح`ءôةح;حJححYح`أë:B?ث/ْذأ	آ!—ح]ححh89·ٍيD!zضW(0î¯2&?ة(ّث#ثثثثٍz2&?ثأ©*+?""?*-?"$?*.?"%?ةي[%?*.?}«2?ثûث‎".?يS%?ةë!&?4تٌëةحح;z·ب|·(،‚0ضپْ}‏(أٌضپ8چ2&?PY:"?ح°:#?ح°:$?ح°:%?ح°ëث|آ¥ثثثثأ¨·(&70*+?	DM*-?يZëثأجث:ثثثث? فةyHCZةح;|·تîz·ت”زےئ€ٍ‏€(أ
ئ€ٌٍ2&?!"?"?"'?")?"?" ? !'??
–#
‍#
‍#
‍#
‍#
‍#
‍#
‍ع´7!?ث#ث#ث#ث!.?ث>+ث+ث+ث+ث+ث+ث+ثآ:?·ْ‍*?)""?*?يj"$?:?·ّ:%?و2%?ة:&?<2&?*?""?*?"$?أگ!'??
†#
ژ#
ژ#
ژ#
ژ#
ژ#
ژ#
ژ·أNآ!%?ث¾ةآ:&?·ب:%?·!""?"ءضة*"?"+?*$?"-?*%?".?ة+?ي°ة!ù"?ي°ةر*%?ه*#?ه*!?هëéرل"!?ل"#?ل"%?ëéر*.?ه*,?ه**?هëéرل"*?ل",?ل".?ëéح2	ط|·ٍx‏ےط}‏پة }‏€?ة	!%?ث~ب:&?·بث¾ëمéّr1€);ھ8پ¢عIپnƒù"€¢عI€ذجTڑy‚‚€€4َµپ4َ5€´ى-و@»K.÷|OG‹X}f‚ر‘~ بL~
¢ھھ‎ےے€l]-q|oetِّv/wvڈچz²کXc|¼î‎u~ùr1€پ„ˆر—yJv3#}زن]¥€،عIپےû¹jv6ظھ{Jعà×هé‌پ‏ےے€yثV^d›€“8v€;ھ8‚آي[%?يK>?*@?z·(8ث{(ëيK#?يC+?"-?!بح¬2>?ح¬2??ح¬2@?ح¬2A?يK>?*@?¯2?€_أّ~هح°ل#ةل}|*%?ه*#?ه*!?ه,- goéُ*"?ه!9}مw#م|مwللoéل}|ل,-"!?ل"#?ل"%? goé*"?6"				ح]ر·ةلظلرءظéح
ت
7ةح
ٍ
ِ‏ُ8ئُ!آح]ٌأù
رض&ْ
فيـاYê™$$*	ہ-­Tک<ى¾K'&­±O,³خ÷_B"ُ÷زJ َµ‡}#¸رt'%F*¯‡–w-ح¾1ڑmA4پةq7P ;eه<>~JlAڈî’E2ھw8H؟”•fK÷|O5ـ$4RB.aU	ج¼Yےë/\د‏و[_A_p	cwج+fض”؟Vi½7mG¬إ'pY·Qsکnw=
×#zحججL}پ „H‡zٹ@ژPC‘$t”€–ک ¼>›(kn‍ù¢@·C:¥¥شh¨*ç„¬ُ و5¯2©_c²؟ة¶/¼¢1¹:k^¼#ا
ہئëx-أ·&×Xئ2x†ت?h)حدآSذaQYش؛¥o%×(ڈثNعy9?ق×ڈ!لحةٍIن@|o|ç¨­إë7EîWك„vٌ–ُ|خ—@ّآ½pûQ™vے!w?:&?· 60+6ة:%?·ٍع6-#و2%?ه&:&?ض<0
!‏ح]%îW!?	~‚0ْ{2??أ!+?ظyضOظإëي ي ي ي ي ëء¯ةN#x±بي°ة ح/رء¯ة*+?ي["?##†ع	ه!"?ح`""?###ëحلحرء>ےةح'رء¯ةح`رء¯ةحâرء¯ةحpرء¯ة:&?·تّ:/?·تّأع:&?G:/?°تّأع ح¸	8<Xح÷ 	ح¸	8L(J*حُ 	ح¸	8(8حُ ح¸	0*ح÷ ح¸	(>پ2&?!""?"$?رء¯ةحç ح¸	(â¯2&?رءةحٍ*"?ë*+?##ح?.¯ة‏·آ%ح3ظظة‏،آ7حƒححو7ح	¯ة‏­آححƒححو7ح	¯ة‏·آdإحµح3Gححمxءظظة‏،آrحƒحهأ1‏­آهحƒحهأCظyظ·(ظظض ‏0Oپپ¥پOذةظظج¯ة)\cjq—¥µإسٌx‰ےظظحAvƒگںةت‏ظظحAw„‘±ةذIحه>>>>>2?ظيSْ>"ü>ثذظ‏0ظث@ظآ’حc_ح`/>?حع.:?‏ >2?G!€·(	~#…o0$÷حN/:?‏0!،حN/ظثpظ(!¨حN/ظهظل+++V+^ح§2ح`/!""?"+?:?‏آ£>ظثگظأ¦>ظثبظHإيK‏>أ‍  Error In ظث€ظةظثp(ظحïيC‏>ظثہظةظأëح
%*ظ>+"ي>*ك>#‘	يKë>x· >¹(يDپO8¯صWw#wي،êّر+:ل>½ :â>¼(صT]يKل>إ"ل>*م>·يBDMلي°يSم>ر*م>"َ>"ï>ةظثpظتëح*~و0آ#ه!هظظ‏·ہظظضŒ‏ذح*~وüہظظ‏¸ہللظصظءq#pأم ظثp(ثH(ثˆ*ü>ظي[ْ>ةظأظأëظظحïيCO?حً0ز¸ هظلثًح€ةللفل‎ل>أحـ}·تم ظظ‏®آD!}=ت– -ظظب‏¹آص أد ظyظƒ_ذةحƒ‎هفهظهظظظحïصيCص*ü>Oظرz³تأHظ>أgë – ‎"gk"®%م m!م ½ ²ê!ں4 حy ش-!ïہإƒ:'َ­¢$x'
%R+^,”,*+/+4+9+>+C+H+¢+س+ك,ƒ+8,B,M+ô-ى-ژ'P*أ,ر,[+o+4//+v*تد´'ظظو7ë~وG#N#^ë}ظ<‘/Oظ`i	)	يKك>	~#N#F(-وü ل~#foéْëث_آ}ثo+DMل##(ç##ملإ	ءثwïوü ه!حڈ*ي>6++++DM+"ي>لp+q¯¶ْëث_ +ثo(½R?p+q¶ë~وG#N#^ë}ظ<‘/Oظ`i	)	يKك>	ةصهُحٌA!حڑع÷حƒصô_و0{ حڑع÷ح¹لp+qرُظظ‏·آ8"ح¾ٌصWzو0T]آœ)	DMر أحثoأâحµح¾"?حم*?ذ!ه`iF#أسمظظ‏¹ :إهح303· 0لءKz^#V#محڑ8%هُح2	8ٌ$%ْë+يR8ل‏‘آ&#ظظbkحN/~ظيDپOظ~ƒ_ز#ظظأ/#ظظ>?حع.صح/BK·تE#ه!?¾لتbر
·(
·ت*#7إُيS?ظyظ2?ح›l#x$$ٌلزش#صT]‏ آ~#أt#إح
لعBKي["?s#r#ي[$?s#r#:&?wر
‏,(·ت¯#‏ آش#أ‌#ظyظ·بظظأ*#ظyظ·(ظظأM#!ُ#حN/ح`/ةرظث@ظ !$حN/ي[?:?ظOظح`/أ*#>أ?Extra Ignored?Reenterٌلإ0	~‏  #أ$يS	?T]·(ُ‏"تh$ه>#~‏,(·آ-$يS	?ر·يR}ء`iح`}|##~#·ë(Oي°DMي[	?
‏"آ‌#أ‌##ه~‏"ت7$·ت7$#أj$ٌëمزس#إ~‏  #أ$T]ح
عح2	عء}|BKرأ‌#حi/ُح›³$³$ّ$oٌ‏.(‏E(‏e(‏-(‏+(‏0ع‏:ز‏¯وثe إ&o·حg	ليK%?¯w#w#w#q#pة¯ة`i>ح`}‏¹(ص‏،(رحïظyظ·تoظظ`iظyظ·ت}ظظحïه·يBلتoذ"O?إحً0ءيCO?هحً0ء}iO|`GعWه·يBل( صإهحNلءح“4ه·يBلعXتXرةيCO?حً0ذصح“4رةےےأ)ظyظ·ب*غ>|µتم ظظ‏¹ت‏،تحïظyظ·ت`iظyظ·تحïxDgyMoه·يBلتطصهإ"O?حً000$هإ"O?حً0ي[ظ>ه·يRل( +++V+^مëه·يRلëم8حٍ1*غ>|µ(ءلأضءلرأ£>ص`iحë1رأ£>ح3·آ+:&?·ت6=ت6ظظ‏²بأ– ظح€ةظظحـحAf½زkيD…o-آcأkظظحـµ(> حع.- ْظظ‏¸تشأظظ‏¹تأ‏؛تش‏Œآ‌ظظ·تW=ت<ظظظظح3زx·آ¸حظyظ·آxأ`/*"?##حN/أ®حAfوضO> حع.آحظyظ·آxة!ـهف!ف9فه‎ل>>>>
>>>2*?`iح€ت'
¾ز'هحµح#ح‎2!?ححملأ:!?·#~#foإصéظyظ·بحƒحح2!?ح€تTح‎2!?
<آH7ةل1€سـإف!ف9فه‎لéححظ*ف>ي[ظ>"ه>ëxوِّ@Gثpت¢ي[ه>}“|ڑ0##^#V#Oثxصظر $ةظثp(	ثگيSْ>"ü>ظ33أ¦>·صظر(أOثxظبظثp(صه++++>#حع.¯ح،2> حع.لرظةصظxوœGو(*ظ>ح%ي[ف>"ه>!ےےرثXثکظؤذظثPظؤWأHحWحƒ.ظyظ·صُحjٌت.رظث°ظ!Hهأ– لظث`ظجN‡O!	~#foح2حµأ/ح‍C<ہ!kB:?®2?:?¾ہ>أح›t•ھإظظح3ليK"?q#p#يK$?q#p#:&?wةإإظظح3ح2	DMلعq#pةإظظح3ء*"?}|q#pةظثّظةظث¸ظةظث ظةظثàظةحWحt.!"ë>ححظثذظأ£>ظظ>أظxوDآثًي[ْ>O?حً0ز² "!صف!ف9هظلثًح€أ/فù>ةرظثًلظفل‎لةفùل"!ه·يBل للفل‎لة>é}=تX!-ظظب‏¹آJ!أD!ظظحïحم ‎هفهظهظأ‎ حƒفه‎هح›پ!·آإإ‎هلفهءه·يBلزؤ!	ءإ#x¾+ y¾آ­!ùءإإأؤ!##N#~##¾+ y¾0+~+ngأ•!ظظح3ليK"?q#p#يK$?q#p#:&?wظظح3*%?ه*#?ه:"?ُ3ظyظ·ت""ظظح3*%?ه*#?ه:"?ُ3ظهثèظص!1"ه‎!‎9أHپإإإأ"ظأظxو`(ِyظ·تv"صظإظح›N"·آ‎~¸ ‎~¹(ظءظر!9ù‎لفل‎ù>ة`iءء!9~#foصه"?ي ي ي ي ي !9+?ي ي ي ي ي مهح/ر!"?ي ي ي ي ي ل+?ي ي ي ي ي ح¸	رُ‎ث	~ ٌ(0رظل#|µ+(ثًهظص!1"هأHٌزد"!9ù‎لفلظyظ·بظظأk"ظظWYإظظ‏¸ءب>!>	أظظ‏¹ ïظظح*F#~#¶آô°ْ+هظظ‏· ر!إهح3لء0ئ· أحƒصëح2	ë8¸ْحڑع÷ëمëظظ‏¹تA‏¸ —xص_و0{ حڑع÷رح¹لq#pظyظ·بأصإُL}!ث9ز­8ë)ëٍ|ءxءرةم"?يS?لAإُy7ڈO	حڈ·يBٌثoDM*ي>(R?rي©âîsي©êâءرr+s+ùqDM+"ي>ي[?*?éƒ_0‏¹(1‏¸(?‏·(3‏ٹع(‏‹(‏گ8غ‏’(زƒ_زأأx= إ آأ ¼>أ ´ةإهO&ئo0$حڈyيKï>	"ï>`iءq#p#w++ءةه!.9لط>أإهيKï>	ع¤يKي>يBلءطإهحل'لهيKï>	ع÷يKي>يBلءطأ÷صح`/*ظ>يKغ>ح“4إهحNلءx± ٌرةظyظ·(ـظظحï!أ)ظyظ·(ب*غ>|µتم ظظ|###ٌwة*ظ>"ُ>¯2ù>2÷>2ّ>ة:ù>·آj%*ُ>يK÷>°±آ@%يKه>ه·يBلزْ##N#F#
·ت.%
‏تW%پOز@%أ@%
·يC÷>"ُ>ت@%2ù>ح›2&w%‡%صحY&رح’أM&T]أ¸%صإ*÷>:ù>O~‏ آ‍%ت'&#أگ%‏,ت‚%‏"تٌ%T]"?تé%#~‏,آ­%#"÷>y2ù>·يR-}لح`^#V+}|##~·ته%#ي[?Oëي°رأM&#"÷>#أ½%ت'&#T]"?~‏"ت	&تé%#أû%هت&#~‏,ت&‏ ت
&أ#"÷>ل#أ½%y2ù>"÷>oأإ%صحY&`iيK"?q#p#يK$?q#p#:&?wرظyظ·بظظأ%إ:ù>Oي[÷>‏ آp&ته&أb&‏,تٍ&y2ù>يS÷>‏,ت´&آ}&*÷>w?:ù>Oي°"÷>x2ù>w?ح
عء·ب‏ ت¨&أي[÷>ح
عbkي[÷>"÷>·يR:ù>•O*÷>~‏,تّ&‏ آتْ&#أز&y2ù>يS÷>2&?ءة¯2&?bk#"÷>y2ù
حfü:0?21?ٌُ:?G ‎< ùٌأLظظحـ>½ع)U?	~#fo"I?ةظظحـ>½ع)e?	~#fo"E?ة~·بإهO#~حع.آT/لءةه!~حN/لةإهص*E?ح2رلءةح`/!yأN/:nBُ¯2nB:pB· :lBُ¯2lBu?>€هإëهN##حi/‏ 8,‏€0(wح„0#x¹ع¤/ٌُ6xرءلح“0:pB· ٌ2lBٌ2nBةهإ!Q0ي± !b0		ء~#foمة>”>—ضح„0أ¤/ءلwأ³/x·ت¤/+>ح„0أ¤/:;Bوw>،ح„0أ³/ح¸GzويDئُ6 #x¹ز»/> ح„0ٌ= يأ¤/له>\ح„0ح“0أ /	،£ ¢€¤¦§¥¤/ù/ù/ù/ù/û/û/û/û/D0ُ/ٌ/00$00½/ُهإص*K?ح2رءلٌةهإ!~F#~ح„0ùءلة!وO	8حl.ذ)8DM)8)8	0نحگ.Number Too Bigإbk
<O€G}پo0$~·آغ0x2N?ءةص*ف>ëbkه·يBلعyءلهإO##~¹ةحà(ز)Oظظض¸تx)أحà(ع)g‘Oظظ‏¸آyLأw)ٌع¢)GyHأv)حà(ُظظ‏¸ت9)إحـءEظظ‏¸آٌع¢)ُ¸ع9)گ¹ع9)ٌy€AOx=G!"?yگ<(%ح`""?##N#ëمه###x…o0$ي°لر¯w#wة¯!"?ح`""?لأ‌)آ:&?·ب‏ ذيK$?ثxثّ(*"?ه*$?ه*%?ه!*ه‏پع
‏گع**"?ث8ثثث<‏ آâ)هث%ثثثٌٍ)ث¸يC$?""?ل}ةح2	ه·حg	ل}ة!%?ث‏ل".?ل"-?ل"+?ُح¸	(!€پ".?!"+?",?ح/ٌة:?!·…o0$n&·أg	ظظحـ}2?ةآحAfo&·أg	آحHfo&·أg	ظظح'هحذ*ك>ء·يBبصزإ**م>ي[ك>·يRT]	DM*ي>+·يBع÷zPG{YO*م>ë"م>"َ>"ï>ëي¸يSك>أً*!k+·يBز÷PY*م>يKك>·يBDM*ك>يSك>ي°ë"م>"ï>"َ>*ë>T]))ي[ك>"ل>‏(:?حع.حC4أN/Gوàثع$3!(أ×.آ4x‏ٹعN3تV3‏‹تa3‏گتظ3‏‘عl3ته3‏’ت¥4!(ح×.وِ0حع.ةص_ح§2رةë^#Vح§2ëةxوgoصT]))ي[ك>~Wzو@ؤذ3zو(2G###~حع.ùBر·(`Gحع.ّDxو0‏  >$أع.‏ہ>%أع.###~#foyيKل>	OحN/أ”3ه!/;حN/لةëحN/N	ëةë>"حع.FyگOحN/>"حع.yH	Oëةxح14> ُـع.xحM4حN/ٌـع.x‏²آ4أe4‏¹آ)4> أع.‏؛ہ> أع.:?·x(‏¥?ذ‏µة‏«÷إ!أT4إ!2ص¾	تb4^#أW4رءةOحî2ب> حع.ح3y·آs4ة&o#هحe4ر·ب!|حN/أ|4إحں2^#V#هح|4لح`/ءة2"?2#?2$?2%?2&?صإحءرyضOة*َ>N#F+
½ :
¼ 5##~`iح`N#F+}|##~·(#صë*َ>###Oي°"½عءEظyظ·ت]-إظظحـ>ے½عهظظحـ>؟½عءëمSYDMحVdرظyظ·بظظحـ>ے½عهظظحـ>؟½عءEصحإdأ3-صحdرةآح2	ع|·آ}‏زOصحiرo¯gأg	ظظح*~و(آ~ص###ëGوOxِح7رزْ|وgDM	)	يKك>	F#~#fo´تْصإDM~!
_
Wحڑ=آإ-ٌو0(حڑ|`G}iOرëمéحƒ-حةرةحƒ-حhر·بأ÷·ب‏!8ّ·ةFO#y¸ع.Hُy·ت*.¾آ,.#x±آ.ٌةع;.î ¾آ;.أ".ءةو7إصهح
.لرءةو7إصهح.لرءةثoآe.‏A?ذ‏[ة‏a?ذ‏{ة‏0?ذ‏:ة!€ر"ظ>!"غ>"ف>!@û">?!‘ز"@?ةو7ُح¬M!v?حN/ëح`/w?·يRE> حع.ù>^حع.ح`/ٌلُحN/!ج.ٌـN/ح`/أ£>	 Expectedل·لُإصه*I?·ؤ2لرءٌةُحfüٌُ‏(:1?= >حfü>>ءةح3:&?·(*‏€8&‏‘زح³)*$?:&?ث| ثüض‘<بث<ثأ&'X	إأ$'!ةح'حƒصظصإهظ‎هفهح2فل‎لظلءرظر¯ةحƒصظصإهظ‎هفه*?كآح'~o¯gأg	ح'هظظحـ}ء*?·يBطةحـهظظحـظyظ·ت«'ظظهحـ}لgءيx­¤ت¬'ةحƒظصإهظ‎هفه*?ح2فل‎لظلءرظةحل'*ي>يKï>·يB·أg	ص*م>"ٌ>T]*َ>يSَ>يKï>ه·يBلز=(^#V+½آ0(¼آ0(:ٍ>:ٌ>]T##~ئز"(O*ٌ>ëي°يSٌ>أٌ'##~#…oزٌ'$أٌ'*ٌ>"ï>رةت*"?##~·ت#Oصw?ي°¯v?‏ (ْح
رذأٌت*"?##~·ت#n&أg	آح2	ع|´آMظظض¸آ<!"?ح`""?###qةآظظ‏¸آصح¼:v?!"?ح`""?##N#w?ëي°رةت*"?#أ|(ت!"?N#Fلإه!9}|ظظحـM±ت21ت21	ث}وüoهصë*ظ>^#V*O?ه·يRلرع.1ت91ءأّ0رأّ0*ظ>	·رة*ظ>ر7رةصحٍ1رحً0ةظثذثطظفهصحً0ـA1DMي[ف>*ظ>يBه`iي[ظ>يRه:M?پOث*ظ>T]يBيKم>ه·يBلعà1"ظ>ëءx±ت™1ي°صفل:O?:P?ë	ëءx±ت²1ي°فsفr:M?Oلي°*غ>#"غ>))"ف>*م>"ï>"َ>*ظ>+"ي>فلةلللفل!سأ×."O?حً0ذظثذثطظفه‎ه##^#Vصحش0يKظ>*ف>	BKëيRه`iPY=O	ëءx±ت&2ي¸صهفل‎لليKغ>‎ےف‎x±ت2فVف^ëه·يRلëعY2آb2üےفأ82:N?ƒ_زb2‎r‎sف~‎wف~‎wüےف‎أ82‎‎"ظ>‎+‎"ي>*غ>+"غ>))"ف>‎لفلة:?^#V#‏¯2Q?إه!>·ٌ=(18 
ُ‏(:Q?7ُ{ِ0حع.ٌëلN#F#هëُ|¸ }¹8ذيBَللءة:?·آ3‏ >?أع.رةظظح'هحذليKظ>ه·يBلز÷يKï>ه·يBلع÷"ي>ة!3f&!f!!'f!H!<H!Œc!c!ة!hKصح2رةظظحـ>½عMصح/Iرةظظحـ>½عMصح(Iرةحـ>'½عهظظحـ>'½عءEصح‍Jرةحـ>'½عهظظحـ>'½ع}لgهظظحـ>'½ع}ءص_حuIرةحـ>'½عهظظحـ>'½ع}لgهظظحـ>'½ع}ءص_حüIرةح2	ع|·آ>'½عهظظ‏¹آحـ>'½عءEلëمصحûJo¯gأg	حـMصحOfرةحـ}·ت>½عMصحkfرةءصححfرةحـهظyظ·(ïظظحـ>ے½عهظظحـ>؟½عءEلص]حـgرةءصح¹fرةحـهظyظ·(ïظظحـ>ے½عهظظحـ>؟½عءEلص]حiرةظظحـMصحèfرةظظحـMصحفfرةظظ‏´ت=-ظظحـ>ے½عهظظحـ>؟َ>رة*َ>###"َ>ة##~#…o0ôٌهإُo&حڈ*َ>:ï>½ :ً>¼(ظثPظ ##Nٌض8‘ُحة4ٌ8ُ*َ>أ65ٌO	"َ>"ï>ءلةح.بصحX.ع±5حl.ع¦5‏:(.وü‏< '<و(@ثG(ëî?¾ت“5>=¾آ،5ëر7ةو‎‏<ت”5>ë7رةحl.ع¥5ر7ةحX.ع°5حl.ع°5ر7ةر7ة>!أس5>!2إص_A~·ت‏5N#ëمحK.مëآô5+·يR7~رءةy…oزظ5$أظ5رء¯ةحئ5طأخ5!"é>!w@"ç>حz6ح‘6ع6تL6حگ.'Meaning Of Line Unclear ':' Expected ?¯حآ8*ç>w@·يB|·تo6حگ.Line Too Long}2M?ح“8w@ةإيKç>¯حآ8ح¨6*ç>·يB}=ءةح.ب‏:تœ6·ةح.ب‏:تœ67ةإح[5ز7x·تج6‏&(حگ.Illegal Commandحئ5زà6حآ8حص8#~#foأè6>حآ8!ھ~·ت7#N#F#ُهإ!ْ6مéلٌ=آî6ےةم ے گسPP	‰C‰C//RCے/ê.//////‰C‰C‰C‰C‰C‰C‰C‰CSPCˆTABˆERRNUMˆ>*ABSˆنASCˆo(ATNˆTCHR¨ƒ(COSˆjEXPˆèFREˆذ'INTˆ°)LEFT¨)LENˆض(LOGˆMID¨C)PDLˆc-PEEKˆk'POSˆ\*RIGHT¨!)RNDˆXSCRNˆ,SGNˆيSINˆrSQRˆ^STR¨«(TANˆHUSRˆY'VALˆE(VPOSˆi*JFU@JL[@GY؟Y|p.z}ظظ!£>"u?bkN#y…o0$~#ه~#foإحچ7ءرâ!>ةwü!0AfFي°>ے2oBح9+حt.¯2lB2vBGحèf> 2:B>_29B2qBح¨üح±ZحھZح£Zح¸Z!yB"گB¯!إA
wü!ظAwüح
c!ُA)Aذ¸7?ہحآ8حص87ةحë80حë88ûح$9?0ُةح$9ذîحم80حم88ûحç8?0ُةحç8ذîإح9!Q90!f:هح[5ذلحS97ءةت%=ت#<‏.ت%=‏"تز=حï88ءءةح¹9هحَ8ز°<ٌوةإهح[50حخ50‏­0حآ8حص87لءةB‚پپ€„…0حگ.Illegal Equationح;9ذGgح;9ز¥9gح.صح|9.0#هض !–9…o0$~لoوً´g>¥oإDMحأ9ء}¹8ُثY x¤8x¬8ثpء7ہث„ةر!5هأگ.حO:ةحO:ح‘.Numeric EquationحL:ةحL:ح‘.String Equation!إح¹9ءذ|و¸ہ33ةحr:ةحr:ح‘.Equationح¹9ذ33ةحغ8ذأ:>±حُ8ذح:حC>أ:ح<وُح6>ٌ(ح‘.Real Variableح<ُح>ٌز:أ6:حب:ح‘.'THEN'>®حُ88"‏²ہلحص8ح[5ز¹6(آ¹6>²حآ8أz6>³حآ8>لأŒ=>°حُ8ذأ:>´€ح‎> !ح&‎> !ح&‎!"tB!"sB!>>ح¶Càح ‎>ے2qBة8xّ‏G:pB‏بxُ:mB· ‏ 8‏€0ه!lB¶لح(DٌةحDٌةz³ :mB· حôCح‍C< é:kB‏ہحDأ‰CحKü2kB>0(ح¨ü¯ح¨ü>ےةيCaBيScBيSiB"eB2gB2hBz2<B€=2=B{2>Bپ=2?B::B2;B:9BحGةO¯2qByةُإهفه‎هصحيC:9B>‏Uُإهفه‎هصحيC!€Gي± !‘G		G~#foéُإهفه‎هصحيCحG*iB$:=B¼0:<Bg,:?B½0	-هحFGحہFل"iBحIG:;BحpG!HBح‎:9BحpG!@Bح‎!@BHB®#ùë:9B>‏ُo&)))يKgB	ëح‎ء:nBُ¯2nBxحGٌ2nB:pB· :rB·ؤ{>ے2qB2oBر‎لفللءٌةحF:<B2jBحFG
*iB:?B½(
,>
¸ؤGأTD>
¸ ¼حأF*iBأWD*iB:>B(	حl.8حX.ذ>؛حآ8أـ<حگ.Number Too Bigح
8é:&?·ت¥=‏پعC=‏گزC=*"?|µتf=>’حآ8*"?}حآ8|حآ8*$?}حآ8|حآ8:&?حآ8¯ة:$?عC=ح2	7هحg	ح¸	لآC=|·ٍڑ=>،حآ8حX	أڑ=!‡>هح[5ذہلح£0|·آ·=}‏
ز¬=ِ€حآ8¯ة>ٹحآ8}حآ8¯ة>‹حآ8}حآ8|حآ8¯ة:!>گ·أظ=>‘"7حآ8*ç>هحآ8·تü=¸ت>‏"ج>حآ8أو=x‏"(لq>ةح‘.'"'‏: ً0قç?ة>ھحُ8طأ¹6>µحآ8ح.‏:آ–>ة>ھحُ8طح‘.'='حغ8طح‘.','>¶حُ8طح‘.'#'>´حُ8طح‘.'TO'>±حُ8طح‘.'AT'>®حُ8طح‘.'GOTO'ح‘.Line Numberح‘.':'1~سحa@حWحv/!¦>هح/w?ح.بحl.عؤ>ح	6لأàح£0"O?ح‘6تض>ح	6أJ1أî1€رkkkرkkءةإ*ë>هوxG*ك>5~~وx¸###آB7إهy‏8>وآ77yN#F*ل>	OF#GOحK.لءتP7##م|µ+مآ733ءة+++~ء*ë>+·يB|ِŒgء7ة!"é>حگ.Too Many Variables Declared!هُح7ع/8*ë>#>ü¤ اصإ>ح5*م>T]يKل>·يBDM!"م>ë(+ي¸#ءيSل>رAy‏8ٌ2	?ئ@:	?ْك7°Hwئ@yء#q#p#Oٍ8صه<ح5*م>ي[ل>·يRëلs#r*م>رq#ëي°يSم>ح^.0ِ wي،ê8*ë>#"ë>+>Œ´gةٌٌة!"é>حگ.Statement Too Complexإص*é>|µ >‎!é>ح`"é>###6*é>###^4#>)»8¸ë)DM)	رءp#q#r#s#يKç>p#qة*é>|µب###Fب#~#N#V#^#إهحٹ7رëF#Nz{ءه!"é>ةه*ç>w#"ç>g}‏w|لہأ^6ë	ëة>¹>؛> >،
>­>·>¸هgح[5Dلذحخ5أ(lµAحجü!p(lضي°>أع.!)A‌Aي°أش]HELLOAُ:pB· =2rB:qB·ؤ{ٌيEإ:sB=آjAصهفه‎ه*tB>¬g"tB>ح)‎‎لفللر>2sB¯2rBح#‎ءةےےےےےےےےخgےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے_ ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےyBےےےےح ‎€ح ‎ح ‎!>ح)‎!>ح)‎! >ح)‎!¯ح)‎!8>ح)‎>ذ!ح&‎>ً! ح&‎>! ح&‎ح8‎!JCّح‎!حُ8ح:حC>ح:>´حُ8ع;ةح3;ح‘.'FN<function name>'FN ح[5ذy‏ط!0;حK.ہصح[5رذہلأڈ:ح‘.'GOTO' or 'GOSUB'>®حُ88>¯حُ80فحŒ=حغ88ّةح[5ذت—=أ‡>ح§;ةح§;ح‘.Line Number Rangeح[5ذ(بحغ88حç8ذح[5ذہلأ—=لح—=ح°;ةح.بإ ‏$(	‏%(>ح.‏(yءہِةحگ.Illegal Variable Nameح<ح‘.Variableح<لأص<ح[5ذ?ہلy‏8إ!0;حK.ء &ہح[50ا أDح68،صxحص8Gحث;°Gëمëح78إحQ8ءxئ@ٍj<|حآ8}حآ8(yحآ8(ح^.0ِ حآ8آ€<رإحœ<ء¯ثhب<ةحï8ذح_:زf:حغ8ع <حَ8طح‘.')'ح.‏"آض<حز=حك8عض<ح‘.';'ح<حغ8ذح<أز<ح_:حك8عـ<حغ8عـ<ح.ب‏:ب‏;(é‏,(ه‏"(‏.½(ھ-حGأTD*iB:=B¼($أE:?B½ت­D,:<BgأE*iB:<B¼(%أE:>B½ت­D-:=BgأE>ے2oBحaE:pB· >2oBحaE::B2;BأZDح¥Fصإ:;Bw	T]+ي¸:9Bëءرأ‎>ے2oBح”E:pB·آZD>2oBح”EأZDح¥FصإهT]#ي°ل::B~2;B:9Bwءرأ‎:aBG*cBحOF::B2;BحG*cBأTDحFأZDحF*iB,:>BO:aBپ•تZDG:<BgحOFأZD:<B؛(ز­D:=B؛(ع­D:>B»(ز­D:?B»(ع­DëأE:/üO>ڈيy>يy>گيy!€مم+|µ ù>ںيyأ­Dهإهإ!@B ::Bw#üءلةح>F:bBOإه>ے2oBحlFلء:pB·ہ>2oBإهحZG!@Bح‎ل,ءîة>ے2oBح‘F:pB·ہ>2oBح¥FهإAح:Fءل::B2;Bأ‎*iB:=B<”OحZG!@Bإهصح‎رلءةحG>ے2oBحصF:pB·ہ>2oB*cBهحZGل:aBGإص,هحZGص:bBOإ!@Bح‎ءرلمëه!@BSAVEBLOADBRUNCLOSEMON NOMON"LOAD$SAVE&FP(INT*INIT,RUN.RECOVER0NN!N(N/N6N=NDNKNRNYN`NgNnNwN€N‰N’NMMTMbM[MiMpMwMيLُLMMMMM#M*M1M8M?MFMMˆM‘MڑM£MIllegal Form Of OS Command>>!>]2z7ةح[ذحD[ذ>Aحئ[:µA!‌Aحلü7ب>Hحئ[:µA!‌Aحلü7بأé^ح[ذح[ذحD[ذ>Aحئ[>Aحء[:µA‌A!©Aحقü7ب>Hحئ[>Hحء[:µA‌A!©Aحقü7بأé^ح[ذحD[ذ>Aحئ[:µA‌A!ُAحجü7ب>Hحئ[:µA‌A!ُAحجü7ب©A!‌Aي°>aحئ[>Aحء[:µA‌A!©Aحقü7ب>hحئ[>hحء[:µA‌A!©Aحقü7بأé^و7ُح[ءذإحD[ءذإ>Aحئ[!ُA‌A:µAحجüت×P>Hحئ[!ُA‌A:µAحجüآé^:BGٌثX xث/2B!ُA‌A:µAحدü7بأé^L!Aح> ح&‎!5>ےح&‎!>ًح&‎! `5ح‎ةح;I2‰Aةح6I2ˆAة!]I!MI	~ة!lIي¹yة
	
	إIثIطIêI:pB=ہفه‎هyHGSyگٍŒIYHCيDXGإCJح”KءOإ!mIO	ص^#Vëرصéرء(إy‏ نءإy!ëط‎لفلةح°Kأ¨IحكK!ëح°Kذ!ëحكK!ëح°K¾!ëحكK´1J>JUJqJ:pB=ہفه‎هyHGSyگٍJYHCيDXHGإBKح”K!ôIO	ص^#Vëرé‎لفلةح°Kء(ôحƒJإَحكKص!ëح°Kرء(فحƒJإé!ëحكKص!ëح°Kرء(ءحƒJإé!ëحكKء(¯حƒJإَثA ثء!!üثپëةءJاJصJèJ:pB=ہفه‎هxAOح”K!–JO	ص^#Vëرé‎لفلةح°Kأ¼JحكK!ëح°Kأ¼J!ëحكK!ëح°Kأ¼J!ëحكKأ¼JKK%K0K:pB=ہB*™A"™AحhSءث:¶A!ُA
حزü'»ءح@Sأé^ح`/ي[B*™Aëح§2!×SحN/ح`/ء:¶Aُحأüءحےa7ةح?Sأ_!ُAح¥S!خSحN/!BحŒSأ`/ح SحکS!ُAح¥Sصحع.ي[B> ح¨2ح Sرë+6 !B~#حع.ùأ`/:B>*8> أع.هB> ْB~‏(#ِ+~لةDIRECTORYVolume:  Blocks Freeح[ذحD[ذ>Aحئ[+B!‌Aي°ëq#q!‌Aحb0/هصُ!‌A:µAحًüءرل صإ7Bي ي ح~`ٌر!7B~#¶ !"™Aح`إ:µA!‌Aحہüءآé^2¶A!‌Aح”axPو(pإ!‌AحbV#^يS™Aحذ["’B:µAحلü*’B:µAPYحةüآé^*’B:µAحہüءآé^2·A2¼A*’Bثطح”a+Bح^bحô\حظ\ ّ:¶Aحأüآé^:¶AGحےaحaأ
Xح[ذ!"™Aح. 7ةRحےPذ>Aحئ[!‌Aحbز"_!‌Aحًü((ْحُOَ(َح،Pى(ىح Pه(هحqQق(قحR×(×ح”Rذ(ذح$`ة(ةحZآ(آحZ»(»ح¨]´(´ح]­(­ح±_¦(¦حهSں(ںح·Wک(کح!V‘(‘حسTٹ(ٹحfaƒ(ƒحoaأْLآüLحأOأْLآüLحہOأْLتüLح³bأْLتüLحج]أْLتüLح4PأْLصw?ح.تNو_!ںNي±آNح[5زN!×NFx·(/#حK.(#x…oزحM$أحMx…o0$حص8ح.ُN!AO	~#foٌظث€ظéرةحکR0رلٌلأ£>(حتO8ٍللٌم!¥Oم·ُé(َحُOى(ىح،Pه(هح Pق(قحqQ×(×حRذ(ذح”Rة(ةح$`آ(آحZ»(»حZ´(´ح¨]­(­ح]¦آNحأOأNآNحہOأNتNح³bأNتNحج]أNتNح4PأNOAWPCDRLUBNMSIFOPENAPPENDREADWRITEPOSITIONPR
INCATALOGDELETERENAMELOCKUNLOCKBح‎رلءعح>F!@B:bBOأ‎:;Bه*iBGحZGص!@Bpح‎ر:pB· zوW:nB!@B®wح‎لة*iB>ے2oBحZG!;Bأ‎\b)))))ي[eBë:oB¢Wةo&)))يKgB	ëة
€ ¢£،	”—ثGzEBE­D
E&EظDْDٌEسEحEFؤE²EظDثD&Eي[iBةي[iB:<BيD‚W:>BيDƒ_ةحG*cBيKaBxAOهإحZGإ!@Bح‎::B!@Bء	+ي©âِG(ù##6!@Bحcü>حfü>
حfüءل,ةحGأZD‎هفه!9B>¦w!:B>¦w¯2pB2lB2mB2nBح–Bفل‎لة>2pB¯2mB>€2lB!9B¶w>€!:B¶w‎هفه€ح ‎ح±Hح±H!>0>ح¶Cہح ‎فل‎لةüüüüüüüüًًًًًًًًہہہہہہہہ€8 ےے!œHحsK!¬Hح†K>2pB!>ح&‎!ˆA6! 
إهë!„Hح‎لءآظH
âح f!€€.ب‏,آےQح.بوك¨ہح.ب‏$ #ح.بحYQذ!…oحYQ0)8
)8)8)ز&Q?ةحm.ذإح£0ءx‏Aص—A(™Aës#rر7ة·بحm.و؟ض طض'?ذ‏
?ذ‏ةح[ذح‎PذحْPذحD[ذحذ["”B:µAحلü*™A	ë:µA*”Bحةüآé^:µA*”Bحہüآé^2·Aے*”Bح”a!"”A>2–A:·A!”Aحصüآé^:·AيK™A*—Aحصüآé^:·Aحأüآé^:·AGحےa>HحS\7ةٌ·ةح[ذح.(‏,آےQصح.ربوك‏A مح‎Pذ*—A"™Aو7ُحD[0ذ>Hحئ[:µA!‌Aحہüآé^2¶Aے!‌Aح”a:¶A!”Aحزüآé^:–A‏آ%_ٌ8*™A"—A:¶Aےے*—Aحزü(‏
آé^:¶Aحأü:¶AGحےa*—A7بأé^حRé!"™AحD[ذ:µA!ؤSحہüآé^ے!ؤSح”a2¶A!ُAحزüآé^حSS:¶A!ُAحزüآé^%إ:¶A!ُAحزü 6!BثF 6‏(Xث^ ثV(ي[فه‎هxAOح”K!َJO	ص^#Vëرéح@Kأ8KحWKأ8K!ëح@Kأ8K!ëحWKحCI‎لفلةص!wAح‎:wAث?ث?ث?ث?رةص!wAح‎:wAورة:pB‏ب>أZC~‏ےب#^#V#ëصح)‎رëأsK~‏ےبG#N#ح ‎أ†KPث(ث(x‡‡‡G‡€ئAث)a0ئozوëةص!wAح‎:ˆAO>!wA¦±wxAي°رص!wAح‎رةص!wAح‎:ˆAO>ً!wA¦±wأتK*I?ه!RC"I?!xBحN/ل"I?أ`/!vBثV K‏(8O:pB‏ب:?·(ح‍C< !:kB!?® 
=2?ح‍C< ْ:kB!?® >أyأZCصح¸Gzر·> ½2vBة‏(*گBw#"گBڈB·يBہأ_*گB¯2vBwصyBيR}يSگB*½AحىLح.تإLوك!›Nي±آüLح[5زüL!ھNFx·(G#حK.(#x…o0ï$أ°Lر*C?"E?*G?"I?ةx…o0$حص8ح.ُN!sO	~#foٌéحکRزüLرة(حتO8÷رأ_:µA!‌Aحہüآé^2¶A!‌A:¶Aح”a*™A|µ7بMDإ:¶Aح?boهإg}‏ه| حô\حظ\لت_‏ء èx± م7ة*ءAé*؟AéحفUُحRCٌة!/"I?>2vBٌةُحRCٌُ‏ 	:wB‏(â>2wB:¼A2·Aح?b·ُهüظ\لٌGو"(?####^#Vr+sz³(-ٌُ‏ *ٌهصإحô\ءرصإثxؤظ\¯حô\ءرz³ îل##^#V++r+sةحتUٌحô\ة:»A2¶Aحظ\ت_ُ:»Aح?bو"(+####^#Vr+sz³(ٌُ‏ هصحظ\رz³ ِل##^#V++r+sٌةح[ذ>Aحئ[ح.(ح‹Y8qة!‌Aحbز"_ه!‌Aحًü(:µA!‌Aحہüآé^لُ~#¶(ٌ2»A!‌Aح”a*E?>S½ >U¼7ب"C?!SU"E?*K?"›A!چV"K?7ةO>¸y(ح%a!2¶A2»Aحئü/هص·ُحY~#¶(gٌه!‌Aحًü(س:µA!‌Aحہüآé^2»A!‌Aح”aلF+Nإصإإحظ\ءx± ِءرz³ ëرإx± ءإإصحظ\>>>$>>>>>>>>> >!2?ظثذثpظ(ظيSْ>"ü>ث@ظآ’حc_ح`/:?ضG!>^(	~#…o0$÷حN/ح`/أ£>!/"I?!‰C"E?!RC"K?!ؤAإ#~#·(¯+w#~هحأüله#~#fo]T	~حيüلء×!ظA¯wüةح[ذصحْPل8ë!"™AحD[ذ>Aحئ[‌A!ُA:µAحجü(‏آé^!‌APY:µAحةü(أé^!‌Aحًü حئüآé^!ظA~·(ùأ"_ë!‌Aي°*™Aës#r7ةح[ذحD[ذ>Aحئ[!‌Aحًü(E!‌Aحkbإ!إA~#N·(8و`(^#V+مإEM!‌AحL.iءم(##طل:µA‌Aحيüأaلyُح?b0ٌُحOaتé`ٍé`ٌîèوہت÷`0حô\حظ\ ّ:¶Aحأü:¶AGحےa!‰C"E?ٌُحأüآé^:µAي[’Bحيü*’B"”B>Aحئ[>AحS\ءحےa!/"I?,!‰C"E?!RC"K?!/"I?ٌُححہüآé^2»A!‌Aح”aحذ["’B:µAحلü*’BPY:µAحةüآé^:µA*’Bحہüآé^2¼Aک!"™A*’Bح”a:»Aح?b##N#F:¼Aح^bءء:»A2¶A:¼A2·Aإحظ\حô\ءx± َأ
X!‌Aحbطأ"_·ة‏,آ‰Yح.بBو_¸(R¸آ‰YإحْYلذM*™A"—Aح.(إحيYءذح.ہ>B(¸ي[—A*™A(ë>7ة¸(	*—A¯7ةي[—A!>7ةح[ذح.بو_¸ ڈîGحQة!dZ!lZهو_!tZإي± D`i	ءتaZو‏ <‡<<<€Gëمëëمë~#foح2ح.(‏,آaZح.أZx!xZي±ل7ب·ةءل·ة¸Z£Z±ZھZœZ‡Z•ZژZOICL
!ّK"½Aة!mU"ءAة!WU"؟Aة!RC"أAة!©Z"½Aة!rU"ءAة!فU"؟Aة!©Z"أAة!#$%&'+-.@\^`{}~|_$$$$1A$$$$2ASVD#$	حY.طحm.طإه!؟Zأüآé^7بأé^WأطüأçüBOOT>2pB2mB>€2lB‎هفه€ح ‎حYcحYcہح ‎فل‎لة€8 ےے!{A6#6!DcحsK!Tcح†K! >ح&‎!>ح&‎!‰A6ح fة>2pB¯2mB>€2lB!9B¶w>€!:B¶wفه‎ه€ح ‎حYcحYc!€€> ح&‎!5>ےح&‎! `5ح‎!>ًح&‎!>0>ح¶Cہح ‎‎لفلة:pBوبyHG‎هفهإصحطeص! ëيSf!fح‎ر!ë!fح‎رءPYظإصهظصظرظحCeيKfحïeظلرءظفل‎لةyHG{ZW¯x؛ 	¯y» ح
dة:pBوبفه‎هإصحطeص! ëيSf!fح‎ر!ë!fح‎رءث…ثچث•zگ0يDثإW{‘0يDثح_’8zS_ثصحشd‎لفلةQX!{AF#Ns+rح\dةظإصهظهإظءلظ!zث/يDOےحe$هk&·يJْeJ·يBDMüبأé^*I?ه!ô\"I?ح[زz]حD[زz]حذ["”B:µAحلüحwb:µA*”BيK™Aي[—Aحةüآé^:µAحہüآé^2·Aے*”Bح”aح#^:·Aحأüآé^:·AGحےa:µAي[”Bحيüآé^>AحS\7ل"I?ةحظ\ہ*—A"E?*™A"I?*›A"K?:¶Aحأüآé^:¶AGحےa>ةحظ]!]"E?*K?"›A*أA"K?*I?"™A!§]"I?أشحظ]!ِ]عحل]ِح[ذحD[ذحل[:¶Aے!‌Aح”a*E?"—Aةحظ\ہ*—A"E?*™A"I?*›A"K?:¶Aحأüآé^:¶AGحےaظظأ¯2?*ظ>يKغ>ح“4x± ّ> 2?ةRange ErrorWrite ProtectedEnd of DataFile Not Found	I/O ErrorNo More RoomFile LockedSyntax ErrorNo Buffers AvailableFile Type MismatchControl Buffer Overflow‏(,‏((‏(‏(‏(%‏(رءz³ ير:»Aح?bq#pأjVٌآ%_!‌Aحًü(!‌A:µAحہüآé^2»A!‌Aح”aلdO>¸ jy2»Aح?b##~#foN#F^#Vإ	ء~#fo|وgëيB(|·آ
_}lع
_ع
_gع
_ءءë`iيRتjV0إ:»A2¶Aحئüإحظ\ءx± ِأjVهôyح%aأ$Wح[ذ>Aحئ[ح.(ح‹Y8Xة!‌Aحbز"_ه!‌Aحًüج%a:µA!‌Aحہüآé^ُحئüآé^ٌلُ~#¶ءx0 2¼A!‌Aح”a*I?>O½ >U½7ب"G?!OU"I?7ةهص·ُحY~#¶تىXٌه!‌Aحًüج%a‌A:µAحيüآé^!‌A:µAحہüآé^2»A!‌Aح”aحذ["’B:µAحلü*’B:µAPYحةüآé^*’B:µAحہüآé^لF+NإيC™A*’B2¼A2·A¸ح”a:»A2¶Aصإإحظ\حô\ءx± َءرz³ èرإx± ءإإصحظ\حô\رءz³ êر:¼Aح?bq#pأ
Xٌآ%_!‌Aحًüج%a!‌A:µAأüآé^:µA‌Aحيüءآé^حےa!‌Aحb?طôے	67ةُحbٌëFإهُحOa(ٍAaٌîحKaلٌwةٌحGaُِأé`ُأ£`î!ئA
¾(ْ¯+~·ةحzaذح'/7ةحzaذحA/7ة·ةح.ب‏# ِح.بحm.ذض0‏ذo&ةصهإُ!إA
~·(ùأ"_ٌءp#wمهإُحًü 1ٌءëلم#s#rإ( ءرصإُهëثX حbز"_ëل#ëي ي ++ي ي ٌءلرةٌءللرةلxîيRw™Aظصُهإx!إA	#¾ +6#ُءلٌرةحkbA>ظAُحL.(ه!ëلٌ= ï·ةٌ!7ةصإO!إA
~·(#~+¹(َأ
_ءر~ةإح?b	ءq#pةه>¾# ûلةص*I?ه!”b"I?!"—A"™Aح#^ل"I?رة*—A·يJ"—Aذ*™A#"™AةBASICPGMح[ذحD[ذ!ُA©b:µAحجü7ب!‌Aحkb	w!‌A:µAح9ح½ü:µA!cحہüآé^!cُحصüآé^ٌحي±لء7ب?ةح.بض,7ب?ةح[ذ!©A!‌A
ح.بحïZذëي ëâ8[حïZ8ô‏حïZ8ْ6A#67ةح.(إ‏, ح.بح‰[ذy±ب‏ذx!âZي±ب·ةضC€G8ںح.بحm.ذح.(‘‏, هح.بوكإ!كZي±ءہêk[بح.بض1‏ذ!éZ…o0$~2µAئإ>ي±ء++ة!©A!‌Aُحµ[ٌwة!رZحًüہ!طZحًüہأ"_>Aحئ[:µA!‌Aحہü2¶Aب>Hحئ[:µA!‌Aحہüآé^2¶A!¸Aحزü 2:؛A= يK¸Aإ:¶A!¸Aحزü ءx± ëة:¶Aح‎ب:¶Aحأüأ%_ُ:¶Aحأüٌأé^ُ©A!‌Aي°>Aحئ[:µA‌A!ُAحجü(>Hحئ[:µA‌A!ُAحجü ?>aحء[:µA!©Aحلü(>hحء[:µA!©Aحلü!‌Aحµ[~ُ!©Aحµ[ٌِ w:µA‌A!©Aحقüآé^ٌحء[:µAي[”B!©Aحقüبأé^:¶A!¸Aحزü x±!¸A~ة‏
بأé^!¸Aw:·Aحصل,أeDMلz=¼زêdيKfحïeظلرءظةهظرثUت&ezS_ثMت/e{يD_ثEت8ezيDW{پ_z€WظحCeةإصهظصظءإ:pB‏(	y‏ں8ءأ¯e!{Ap#qحطe! يKfy½آ³ex¼آ³eءyو_!fNxوG¯7‎G:‰Aثxتœe/،wأ¯e±w!f>¦G:‰A°wلرءةصه"fحïeلë!fح‎ر!ë!fح‎أveYح5‎KXح5‎Qح2‎ë)))ëة!fPYصح‎ر!àë!fح‎ةےےےےےےےےےےےےےےےےےے>€2lB¯2nBة:pB·ہ2lB2nBة>€2nB:pB·ہ2lBةصح¸Gzرةصح¸G{رةهصح³GyوWyوƒ_ح}f>حZCرلةهصح³GYح}f>حZCرلة:<B؛(8Wأگf:=B؛0W:>B»ب8_ة:?B»ذ_ة!¯إُهح&‎لٌ#< ٍءîة:pBوب!‰Aث‏ححf!‰Aث¾ة:pBوب!{AV#^حوgةy·آنf>ے2}AةAفه‎ه>? Gث/ث/ث/O:فf=آg>ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے ءة:pBوب!‰Aث‏حـg!‰Aث¾ةفه‎هصإحài>ƒف!ٹAفهح>‎ف!ٹA>ƒح>‎فلء!¼i		~#foéف~·(]>أ§iف~أGiف~أGiف~أGiف~ئ0‏:8=(	‏; 
>#أ§i>*أ§i¯أ§iف~أdiف~أ§iف~أ§iف~ف~ف~ف~	:ـiر‎لفلة:فiُ:قiً:كië¤i²i­i·iگi•iDiOiUi[iai~i„iٹiڑiںi€€€€فه‎هف!ٹAفه>ح>‎ف!ٹA>ح>‎فلف~!غjإO		ء~#foéف~!ُjأj‎لفلة!ـiحسjأj!ـiحتjأj!فiحتjأj!فiحسjأj!ـiحسj#حتjأj!ـiحسj#حسjأj!ـiحتj#حتjأj!ـiحتj#حسjأj!قiحسjأj!قiحتjأj!كiحتjأj!كiحسjأj!قiحسj#حتjأj!قiحسj#حسjأj!قiحتj#حتjأj!قiحتj#حسjأj>†0>ےwة~ض0¯wةjj,j>j#jjXjj5jKjjjejjrj„j–j{j"                               "; 32NORMAL40GET z$41IF z$="" THEN TEXT:GOTO 100042HGR250 file$=LEFT$(name$, 6)60? CHR$(4); "open "; file$; ".CDP"70? CHR$(4); "write "; file$; ".CDP"80? name$85? ali$90? score95? xp100? ohits105? hits110? weapon$115? armor$116? shield$120? spell$121? moves125? cd126? lamp$127? item$130? CHR$(4); "close "; file$; ".CDP"140GOTO 1000220HOME221INVERSE222? "                               "; 230? "INSERT DATA DISK.              "; 231? "               ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےًأ!g=آg>ّأ!g=آg>üأ!g=آg>‏أ!g>ے وثAت-gG>گGف!€AyحSg>پوحSg>پوحSg>پوحSg‎لفلة!`g‡_^#Vëépgzg‡g‘g›g¨g²g؟gفpف6ّأةgف6xيDفwأةgف6فpأةgفpف6أةgxيDفwف6أةgف6ّفpأةgف6ّxيDفwأةgxيDفwف6ّف#ف#ة6?$$--66?:pBوبyKXWفه‎هإصحطeص! ëيSf!fح‎ر!ë!fح‎رءص*~Ay‡O	^#V*~Aرظإصهظصظرظ~‏تdhGحuhصظءظحƒhx‏ت_hحuhصظءظحƒhx‏ت_hحuhصظءظحƒh#~أ/hيKfحïeظلرءظ‎لفلةوWث8ث8xو_ث8ةإظ!€Axث'…oز‘h$~#ngyثدظُ:}AGٌ‏آ®hُحCeٌثڈظx„Gثxت؛hيD‏عدhوثxآتhأثhثدثxتضhيDGy…OثyتلhيD‏عِhوثyآٌhأٍhثدثyت‎hيDOظx	ETILL HACKING................................"20FOR x=1 TO 85:VTAB 12:HTAB 1:? MID$(x$, x, 30):FOR z=1 TO 50:NEXT z:NEXT x30GOTO 1013800? "PARANOIA"13810?:? "HACKERS BE10ONERR  GOTO 35015POKE 17059, 4:POKE 17126, 24616GOTO 256020HOME21IF name$="" THEN ? "THERE IS NO CHARACTER TO SAVE!":FOR    z=1 TO 1000:NEXT z:GOTO 100022INVERSE23? "                               "; 30? "INSERT DATA DISK.              "; 31? j°jjچj£jjj½jےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےإهص!·l9-ي°!kl¬Lي°ح¬رلء:o‎2µAحجüتA!;حN/ح`/ح`/!نlحN/ح`/أAةے‏ذ ةےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے     DISK enhanced by MMSGے                "; 232NORMAL233?:?:GET z$234IF z$="" THEN 1000235? "ENTER PLAYER'S NAME."240INPUT name$:HGR2250 file$=LEFT$(name$, 6)260? CHR$(4); "open "; file$; ".CDP"270? CHR$(4); "read "; file$; ".CDP"280INPUT name$285INPUT ali$290INPUT score295INPUT xp300INPUT ohits305INPUT hits310INPUT weapon$315INPUT armor$316INPUT shield$320INPUT spell$321INPUT moves325INPUT cd326INPUT lamp$327INPUT item$330? CHR$(4); "close "; file$; ".CDP"335IF cd<>1 THEN ? "THIS CHARACTER IS TO           2? "                               "; 810? "INSERT DATA DISK.              "; 811? "                               "; 812NORMAL:?:?820GET z$825IF z$="" THEN 1000826?:? "THIS DISK WILL BE COMPLETELY  "827? "ERASED!"828GET z$829IF z$="" THEN 1000830? "THIS DISK IS "; 831? "ONLY"; 832? " TO BE USED"840? "FOR "; 841? "CASTLE DEATHSTONE"; 842? " PLAYERS!"850? CHR$(4); "INIT DEATHSTONE"860GOTO 1000870TEXT880? "I CANNOT USE THE PLAYER'S NAME"890? "AS THE FILE NAME."900? "PLEASE TYPE IN A FIL434IF z$="" THEN 1000440? "ENTER PLAYER'S NAME."445INPUT file$450 file$=LEFT$(file$, 6)460? CHR$(4); "delete "; file$; ".CDP"470GOTO 1000480HOME490? "ENTER PLAYER'S NAME."500INPUT name$510GOTO 1000520HOME521? "THE PLAYER IN MEMORY WILL BE  "522? "ERASED!  PRESS ESCAPE NOW TO  "523? "ABORT!"524GET z$525IF z$="" THEN 1000526HOME530? "ENTER PLAYER'S NAME."540INPUT name$545IF name$="" THEN 540550? "ENTER PLAYER'S ALIGNMENT."560? "1> GOOD"570? "2> NEUTRAL"580? "3> EVIL"590GET ali$600IOOM"1100? "7> END GAME"1110? "8> LEAVE INN"1111? "9> REVIEW DATA DISK"1112? "0> FORMAT DATA DISK"1120GET z$1130IF z$="!" THEN 201140IF z$="@" THEN 2201150IF z$="#" THEN 4201160IF z$="$" THEN 5201170IF z$="%" THEN 6801180IF z$="&" THEN HOME:NEW1190IF z$="_" THEN 12201200IF z$="*" THEN 14001201IF z$="(" THEN 7601202IF z$=")" THEN 8001210GOTO 11201220HOME1221IF name$="" THEN ? "WHO WANTS TO SLEEP HERE?!?":FOR z=1  TO 1000:NEXT z:GOTO 10001230? "RENT IS "; 1240 z=INT(RND(1)*101)1250IF z=0 T; ","700? "HAS "; score; " GOLD PIECES,"710? hits; " HIT POINTS,"715? "AND "; xp; " XPOINTS,"720? "AND CARRIES "; weapon$730? "AND "; spell$; ","731? "AND IS PROTECTED BY "732? armor$; " AND "733? shield$; ","734? "AND ALSO CARRIES "; item$; "."740GET z$750GOTO 1000760HOME761INVERSE762? "                               "; 763? "INSERT DATA DISK.              "; 764? "                               "; 765NORMAL:?:?766GET z$770? CHR$(4); "CATALOG"780GET z$790GOTO 1000800HOME801INVERSE80          POWERFUL!":CLEAR:FOR z=1 TO 1000:NEXT z:GOTO 1000340GOTO 1000350IF ERRNUM(0)=5 THEN 330351IF ERRNUM(0)=255 THEN RESUME355IF ERRNUM(0)=11 THEN 870360TEXT370? "ERROR NUMBER "; ERRNUM(0); " HAS OCCURED."380GET z$390IF z$="†" THEN END400HOME410ONERR  GOTO 350:? "I'AM RETURNING YOU TO THE INN.":FOR    z=1 TO 1000:NEXT z:GOTO 1000420HOME421INVERSE422? "                               "; 430? "INSERT DATA DISK.              "; 431? "                               "; 432NORMAL:?:?433GET z$E NAME FOR"910? name$; "."920INPUT zz$930 file$=LEFT$(zz$, 6)940ONERR  GOTO 350950GOTO 601000TEXT:HOME1002? "…………………………………………………………………………………"; 1003INVERSE1004? "                               "; 1010? "WELCOME TO THE INN!            "; 1011? "                               "; 1012NORMAL1013? "…………………………………………………………………………………"; 1020?:? "WHERE YOU MAY:"1030?1040? "1> SAVE PLAYER"1050? "2> LOAD PLAYER"1060? "3> DELETE PLAYER"1070? "4> CREATE PLAYER"1080? "5> REVIEW PLAYER"1090? "6> RENT A RF ali$="!" THEN  ali$="GOOD":GOTO 630610IF ali$="@" THEN  ali$="NEUTRAL":GOTO 630620IF ali$="#" THEN  ali$="EVIL":GOTO 630625GOTO 590630LET score=INT(RND(1)*11)+4640LET ohits=INT(RND(1)*11)+70641LET moves=0645LET xp=1000650LET hits=ohits660 weapon$="NO WEAPON"670 spell$="NO SPELL"675 armor$="NO ARMOR"676 shield$="NO SHIELD"677LET cd=1678 lamp$="NO LAMP"679 item$="NO ITEM"680HOME681IF name$="" THEN ? "THERE IS NO PLAYER IN MEMORY!":FOR    z=1 TO 1000:NEXT z:GOTO 1000690? name$; " IS "; ali$HEN 13101260? z; "."1270? "PRESS RETURN TO ACCEPT."1280GET z$1290IF z$<>CHR$(13) THEN 10001300GOTO 13201310? "FREE!"1320?:?:? name$1330? "IS RESTING AND REVIVING."1340 score=score-z1350FOR z=1 TO 5000:NEXT z1360?:?:? "GOOD MORNING!"1370 hits=ohits1380GET z$1390GOTO 10001400HOME1401IF name$="" THEN ? "WHO'S GOING TO LEAVE THE INN?":FOR   z=1 TO 1000:NEXT z:GOTO 10001402? "…………………………………………………………………………………"; 1403INVERSE1404? "                               "; 1410? "THESE ARE THE CROSSROADS! z$="@" THEN  minus=16:GOTO 20001950IF z$="#" THEN  minus=20:GOTO 20001960IF z$="$" THEN  minus=30:GOTO 20001970IF z$="%" THEN  minus=50:GOTO 20001980IF z$="&" THEN 20701990GOTO 19152000IF minus>score THEN ? "YOU DO NOT HAVE ENOUGH!":GOTO     19152005 score=score-minus2006 ohits=ohits+(minus/2)2010IF z$="!" THEN  armor$="LEATHER ARMOR"2020IF z$="@" THEN  armor$="CHAIN MAIL"2030IF z$="#" THEN  armor$="BREAST ARMOR"2040IF z$="$" THEN  armor$="PLATE ARMOR"2050IF z$="%" THEN  armor$="MAGIC ARMOR"2"; 1512NORMAL1513? "…………………………………………………………………………………"; 1520?:? "WHERE YOU MAY:"1530?1540? "1> BUY WEAPONS AND ARMOR"1545? "2> BUY GENERAL ITEMS"1550? "3> SELL WEAPONS AND ARMOR"1560? "4> LEAVE TRADING POST"1570GET z$1575IF z$="@" THEN 146001580IF z$="$" THEN 14001590IF z$="!" THEN 16151600IF z$="#" THEN 23001610GOTO 15701615HOME1620? "YOU MAY BUY:"1630?1640? "1> DAGGER FOR 4"1650? "2> SHORT SWORD FOR 10"1660? "3> LONG SWORD FOR 14"1670? "4> 2-HAND SWORD FOR 20"1680? "5> MAGICAL SWORD FO" THEN  shield$="SMALL SHIELD"2260IF z$="@" THEN  shield$="MEDIUM SHIELD"2270IF z$="#" THEN  shield$="LARGE SHIELD"2280IF z$="$" THEN  shield$="MAGIC SHIELD"2290GOTO 15052300HOME2310? "YOU MAY SELL:"2320?2330? "1> YOUR WEAPON"2340? "2> YOUR ARMOR"2350? "3> YOUR SHIELD"2360? "4> NOTHING"2370GET z$2380IF z$="$" THEN 15052390IF z$="#" AND shield$="MAGIC SHIELD" THEN  offer=202400IF z$="#" AND shield$<>"NO SHIELD" THEN  offer=10:GOTO   24602410IF z$="@" AND armor$="MAGIC ARMOR" THEN  offer=20:GOz$="@" THEN  weapon$="SHORT SWORD"1813IF z$="#" THEN  weapon$="LONG SWORD"1814IF z$="$" THEN  weapon$="2-HAND SWORD"1815IF z$="%" THEN  weapon$="MAGIC SWORD"1816IF z$="_" THEN  weapon$="STAFF"1820HOME1830? "YOU MAY BUY:"1840?1850? "1> LEATHER ARMOR FOR 10"1860? "2> CHAIN MAIL FOR 16"1870? "3> BREAST ARMOR FOR 20"1880? "4> PLATE ARMOR FOR 30"1890? "5> MAGIC ARMOR FOR 50"1900? "6> NOTHING"1910? "7> GO ON TO SHIELDS"1915GET z$1920IF z$="_" THEN 15051930IF z$="!" THEN  minus=10:GOTO 20001940IF      "; 1411? "                               "; 1412NORMAL1413? "…………………………………………………………………………………"; 1420?:? "WHERE YOU MAY:"1425?1430? "1> ENTER THE INN"1440? "2> ENTER THE TRADING POST"1450? "3> ENTER CASTLE DEATHSTONE"1460GET z$1470IF z$="!" THEN 10001480IF z$="@" THEN 15051490IF z$="#" THEN 28401500GOTO 14601505HOME1506? "…………………………………………………………………………………"; 1507INVERSE1508? "                               "; 1510? "WELCOME TO THE TRADING POST!   "; 1511? "                               070HOME2080? "YOU MAY BUY:"2090?2100? "1> SMALL SHIELD FOR 10"2110? "2> MEDIUM SHIELD FOR 16"2120? "3> LARGE SHIELD FOR 20"2130? "4> MAGIC SHIELD FOR 40"2140? "5> NOTHING"2150GET z$2160IF z$="%" THEN 15052170IF z$="!" THEN  minus=10:GOTO 22202180IF z$="@" THEN  minus=16:GOTO 22202190IF z$="#" THEN  minus=20:GOTO 22202200IF z$="$" THEN  minus=40:GOTO 22202210GOTO 21502220IF minus>score THEN ? "YOU DO NOT HAVE ENOUGH!":GOTO     21502230 score=score-minus2240 ohits=ohits+(minus/2)2250IF z$="!R 50"1690? "6> STAFF FOR 6"1695? "7> NOTHING"1696? "8> GO ON TO ARMOR"1700GET z$1710IF z$="!" THEN  minus=4:GOTO 18001720IF z$="@" THEN  minus=10:GOTO 18001730IF z$="#" THEN  minus=14:GOTO 18001740IF z$="$" THEN  minus=20:GOTO 18001750IF z$="%" THEN  minus=50:GOTO 18001760IF z$="_" THEN  minus=6:GOTO 18001765IF z$="&" THEN 15051766IF z$="*" THEN 18201770GOTO 17001800IF minus>score THEN ? "YOU DO NOT HAVE ENOUGH!":GOTO     17001810 score=score-minus1811IF z$="!" THEN  weapon$="DAGGER"1812IF TO   24602420IF z$="@" AND armor$<>"NO ARMOR" THEN  offer=10:GOTO     24602430IF z$="!" AND weapon$="MAGIC SWORD" THEN  offer=20:GOTO  24602435IF z$="!" AND weapon$="DAGGER" THEN  offer=3:GOTO 24602436IF z$="!" AND weapon$="STAFF" THEN  offer=5:GOTO 24602440IF z$="!" AND weapon$<>"NO WEAPON" THEN  offer=10:GOTO   24602450GOTO 23702460? "I WILL OFFER YOU "; offer; " GOLD"2470? "COINS FOR THAT!"2480?:? "PRESS RETURN TO ACCEPT."2490GET zz$2500IF zz$<>CHR$(13) THEN 15052510 score=score+offer2520IF F z=18 THEN  en$="WARRIOR": eh=35: da=12:GOTO 50003080IF z=19 THEN  en$="SAMURAI": eh=40: da=15:GOTO 50003090IF z=20 THEN  en$="BARBARIAN": eh=40: da=20:GOTO 50003100IF z=21 THEN  en$="THIEF": eh=25: da=10:GOTO 50003110IF z=22 THEN  en$="CHIEF THIEF": eh=28: da=12:GOTO 50003120IF z=23 THEN  en$="NINJA": eh=22: da=15:GOTO 50003130IF z=24 THEN  en$="MASTER NINJA": eh=35: da=20:GOTO 50003140IF z=25 THEN  en$="SKELETON": eh=14: da=6:GOTO 50003150IF z=26 THEN  en$="WEREWOLF": eh=15: da=10:GOTO 50003160I660? "  (C) 1986 QUESTECH COMPUTER  "2661? "    ENTERTAINMENT SOFTWARE    "2670FOR z=1 TO 2000:NEXT z2675VTAB 8:? "                              "2680VTAB 112685? "MAKE SURE THE CAPS LOCK IS ON!"2690? "         PRESS ANY KEY        "2700? "  TO CREATE OR LOAD A PLAYER. "2820VTAB 1:INVERSE:GET z$:NORMAL2830GOTO 10002840LET x=12850LET y=12860HOME2870? "YOU ARE AT COORDINATES"2880? x; ", "; y; "."2885FOR z=1 TO 1000:NEXT z2890 z=INT(RND(1)*250)+12900IF z=1 THEN  enemy$="SMALL HUMANOID": ehits=2:GOTO 50003250IF z=36 THEN  en$="PRIEST": eh=30: da=10:GOTO 50003260IF z=37 OR z=38 OR z=39 THEN  z=13270IF z=40 OR z=41 THEN  z=23280IF z=42 OR z=43 OR z=44 THEN  z=33290IF z=106 OR z=45 THEN  z=43300IF z=46 OR z=47 THEN  z=53310IF z=48 OR z=49 THEN  z=63320IF z=50 OR z=51 OR z=52 THEN  z=73330IF z=53 OR z=54 THEN  z=83340IF z=55 OR z=56 OR z=57 THEN  z=93350IF z=58 OR z=59 THEN  z=103360IF z=60 OR z=61 THEN  z=113370IF z=62 OR z=63 OR z=64 THEN  z=133380IF z=65 OR z=66 THEN  z=143390IF z=650002980IF z=9 THEN  en$="SLIME": eh=16: da=4:GOTO 50002990IF z=10 THEN  en$="MOLD": eh=18: da=5:GOTO 50003000IF z=11 THEN  en$="SLIME MOLD": eh=18: da=6:GOTO 50003010IF z=12 THEN  en$="GIANT": eh=50: da=15:GOTO 50003020IF z=13 THEN  en$="MUMMY": eh=20: da=10:GOTO 50003030IF z=14 THEN  en$="VAMPIRE": eh=25: da=15:GOTO 50003040IF z=15 THEN  en$="WIZARD": eh=25: da=12:GOTO 50003050IF z=16 THEN  en$="MASTER WIZARD": eh=35: da=20:GOTO     50003060IF z=17 THEN  en$="FIGHTER": eh=30: da=8:GOTO 50003070Iz$="!" THEN  weapon$="NO WEAPON"2530IF z$="@" THEN  armor$="NO ARMOR"2540IF z$="#" THEN  shield$="NO SHIELD"2550GOTO 15052560NORMAL:TEXT:CLEAR:HOME2570? "…………………………………………………………………………………"; 2571INVERSE2572? "                               "; 2573? "      CASTLE DEATHSTONE I      "; 2574? "                               "; 2580NORMAL2590? "…………………………………………………………………………………"; 2600?:?2610FOR z=1 TO 2000:NEXT z2620? "              BY   "2630VTAB 122640? "       JON-CLAUDE GEROW       "2650VTAB 222F z=27 THEN  en$="LIZARD": eh=15: da=8:GOTO 50003170IF z=28 THEN  en$="SMALL DRAGON": eh=40: da=20:GOTO 50003180IF z=29 THEN  en$="MEDIUM DRAGON": eh=50: da=30:GOTO     50003190IF z=30 THEN  en$="LARGE DRAGON": eh=60: da=40:GOTO 50003200IF z=31 THEN  en$="WEREBEAR": eh=45: da=20:GOTO 50003210IF z=32 THEN  en$="RABID COW": eh=15: da=10:GOTO 50003220IF z=33 THEN  en$="RABID RABBIT": eh=14: da=10:GOTO 50003230IF z=34 THEN  en$="RABID RAT": eh=14: da=8:GOTO 50003240IF z=35 THEN  en$="LACKEY": eh=90: da=16:          damage=6:GOTO 50002910IF z=2 THEN  enemy$="LARGE HUMANOID": ehits=18:          damage=8:GOTO 50002920IF z=3 THEN  enemy$="SMALL SPIDER": ehits=12:            damage=2:GOTO 50002930IF z=4 THEN  enemy$="LARGE SPIDER": ehits=15:            damage=3:GOTO 50002940IF z=5 THEN  enemy$="GARGANTUA SPIDER": ehits=20:        damage=7:GOTO 50002950IF z=6 THEN  en$="BOA' SNAKE": eh=22: da=4:GOTO 50002960IF z=7 THEN  en$="ASP": eh=15: da=2:GOTO 50002970IF z=8 THEN  en$="MAMBA SNAKE": eh=22: da=6:GOTO 7 OR z=68 THEN  z=153400IF z=69 THEN  z=163410IF z=70 OR z=71 OR z=72 THEN  z=173420IF z=73 OR z=74 THEN  z=183430IF z=75 OR z=76 THEN  z=193440IF z=77 OR z=78 THEN  z=203450IF z=79 OR z=80 OR z=81 THEN  z=213460IF z=82 THEN  z=223470IF z=83 OR z=84 THEN  z=233480IF z=84 THEN  z=243490IF z=85 OR z=86 OR z=87 OR z=88 THEN  z=253500IF z=89 OR z=90 OR z=91 THEN  z=263510IF z=92 OR z=93 OR z=94 THEN  z=273520IF z=95 THEN  z=283530IF z=96 THEN  z=313540IF z=97 OR z=98 THEN  z=323550IF z=99 OR z=1HAND SWORD" THEN  ed=156350IF weapon$="MAGIC SWORD" THEN  ed=206355IF weapon$="STAFF" THEN  ed=106360HOME6361? name$; " PARRYS!"6370 ehits=ehits-ed:IF eh<1 THEN 59006380FOR z=1 TO 1000:NEXT z:HOME6390? en$; " ATTACKS!"6400 hits=hits-INT(RND(1)*(da-2))6410IF hits<1 THEN 100006420GOTO 51666500? spell$:FOR z=1 TO 1000:NEXT z6510IF spell$="HAMIATO" THEN  ed=20:GOTO 51006520IF spell$="KILLATA" AND eh<36 THEN  ed=eh:GOTO 51006530IF spell$="KILLATA" AND eh>36 THEN  ed=1:GOTO 51006540IF spell$="MINIS? "THERE IS A "; enemy$:? "IN HERE!"5021IF z=3 THEN ? name$; " SURPRISED A ":? en$5022IF z=4 THEN ? "A "; en$; " SURPRISED ":? name$5030IF z=2 THEN ? "A "; enemy$; " JUMPS":? "AT "; name$5031IF spell$="NO SPELL" THEN 50335032IF en$="THIEF" OR en$="CHIEF THIEF" THEN ? "HE STEALS    YOUR SPELL!": sp$="NO SPELL"5033?:? "…………………………………………………………………………………"; :?:?5040? "WHAT WILL "; name$; " DO?!?"5050GET a$5060IF a$="‰" THEN 6000:REM                                  fight5070IF a$="ٹ" THEN 6300:REM        WORK HERE!":FOR z=1 TO 1000:NEXT  z:GOTO 50407000HOME7001IF INT(RND(1)*10)=4 THEN 110007010? "THIS ROOM IS EMPTY."7020? "THERE ARE FOUR DOORS LEADING TO"; 7030? "THE NORTH, EAST, SOUTH, WEST."7040GET a$7041IF a$="‹" THEN 71607050IF a$="N" THEN  x=x+1:GOTO 71007060IF a$="E" THEN  y=y+1:GOTO 71007070IF a$="S" THEN  x=x-1:GOTO 71007080IF a$="W" THEN  y=y-1:GOTO 71007090GOTO 70407100IF x<1 THEN  x=1:? "SORRY THAT DOOR IS LOCKED!":GOTO     70407110IF x>20 THEN  x=20:? "SORRY THAT DOOR IS LOCKED!":y$; " IS DEAD!":FOR z=1 TO 1000:NEXT       z:GOTO 70006000IF weapon$="NO WEAPON" THEN  ed=06010IF weapon$="DAGGER" THEN  ed=86020IF weapon$="SHORT SWORD" THEN  ed=106030IF weapon$="LONG SWORD" THEN  ed=156040IF weapon$="2-HAND SWORD" THEN  ed=206050IF weapon$="MAGIC SWORD" THEN  ed=256055IF weapon$="STAFF" THEN  ed=106060GOTO 51006300IF weapon$="NO WEAPON" THEN  ed=06310IF weapon$="DAGGER" THEN  ed=56320IF weapon$="SHORT SWORD" THEN  ed=56330IF weapon$="LONG SWORD" THEN  ed=106340IF weapon$="2-00 THEN  z=333560IF z=101 OR z=102 THEN  z=343570IF z=103 OR z=104 THEN  z=353580IF z=105 THEN  z=363581IF z=106 THEN 120003582IF z=107 THEN 122103583IF z=108 THEN 124403584IF z=109 THEN 125703585IF z=110 THEN 128003586IF z=111 THEN 130003587IF z=112 THEN 131703588IF z=113 THEN 132603589IF z=114 THEN 134253590IF z>114 AND z<240 THEN 70003600IF z>239 THEN 80004990GOTO 29005000IF eh>(xp/50) THEN 28905005LET z=INT(RND(1)*5)5010IF z=0 THEN ? name$; " DISTURBED A":? enemy$; "!"5020IF z=1 THEN HA" THEN 65606550GOTO 66006560IF en$="SMALL DRAGON" OR en$="MEDIUM DRAGON" OR          en$="LARGE DRAGON" THEN  ed=eh:GOTO 51006570 ed=0:GOTO 51006600IF spell$="TALAPHO" THEN 90006610IF spell$="ASINKON" THEN  ed=10:GOTO 51006620IF spell$="ASINKON" AND eh>10 THEN  ed=1:GOTO 51006625IF spell$="PIPLAKA" THEN  x=INT(RND(1)*50)+1:            y=INT(RND(1)*50)+1:GOTO 28606630IF spell$="MOWALMA" AND enemy$="GIANT" THEN  ed=eh:GOTO  51006640IF spell$="BABAVIG" THEN  ed=5:GOTO 51006999? "THAT SPELL DOES NOT                           parry 5080IF a$="‹" THEN 6500:REM                                  spell5081IF a$="Œ" THEN 150005090GOTO 50505100HOME5110? name$; " ATTACKS!"5120IF a$<>"‹" THEN  ed=INT(RND(1)*ed)5130 ehits=ehits-ed:IF eh<1 THEN 59005140FOR z=1 TO 1000:NEXT z:HOME5150? en$; " ATTACKS!"5160 hits=hits-INT(RND(1)*da)5165IF hits<1 THEN 100005166?:? "…………………………………………………………………………………"; :?:?5170? name$; " HAS "; hits; " HIT POINTS."5180FOR z=1 TO 1000:NEXT z:HOME:GOTO 50405900? "THE "; enemGOTO   70407120IF y<1 THEN  y=1:? "SORRY THAT DOOR IS LOCKED!":GOTO     70407130IF y>20 THEN  y=20:? "SORRY THAT DOOR IS LOCKED!":GOTO   70407140IF x=20 AND y=20 THEN 90007150GOTO 28607160? "YOU HAVE A "; spell$; "."7165FOR z=1 TO 1000:NEXT z7170IF spell$="DORAMIN" AND INT(RND(1)*10)=4 THEN            hits=ohits:GOTO 70007180IF spell$="RIKANOS" AND INT(RND(1)*10)=0 THEN GOTO 80007190IF spell$="TALAPHO" THEN GOTO 90007200IF spell$="PIPLAKA" THEN  x=INT(RND(1)*50)+1:            y=INT(RND(1)*50)+1:GOHIEF!"11130 spell$="NO SPELL"11135?:? "…………………………………………………………………………………"; :?:?11140GOTO 701012000IF moves<>1 THEN 286012005IF INT(RND(1)*2)<>1 THEN 286012010?:? "…………………………………………………………………………………"; :?:?12020? "THERE IS A HOLE IN THE FLOOR, "12030? "IT LOOKS AS IF IT GOES DOWN   "12040? "QUITE A WAY!"12050? "DO YOU THINK "; name$12060? "WISHES TO GO THROUGH THE HOLE?"12070GET a$12080IF a$="N" THEN 700012090IF a$<>"Y" THEN 1207012100? "THERE IS A SLIDE UNDER THE    "12110? "HOLE."12120? name$; " "IT IS A STRENGTH STONE AND"8310 z=INT(RND(1)*5)+18320? z; " GOLD PIECES."8330 ohits=ohits+INT(RND(1)*5)+1: score=score+z:FOR z=1 TO   5000:NEXT z:GOTO 70008500? "IT IS A STRENGTH STONE AND"8510 z=INT(RND(1)*7)+18520? z; " GOLD PIECES."8530 ohits=ohits+INT(RND(1)*3)+1: score=score+z:FOR z=1 TO   5000:NEXT z:GOTO 70008700? "IT IS A SPELL!"8710LET z=INT(RND(1)*20)+18720IF z=1 OR z=2 THEN  the$="HAMIATO"8730IF z=3 THEN  the$="KILLATA"8740IF z=4 THEN  the$="MINISHA"8750IF z=5 THEN  the$="DORAMIN"IR!"12270? "DO YOU THINK "; name$; " WOULD"12280? "LIKE TO INSPECT THIS 'LIGHT'?"12290GET a$12300IF a$="N" THEN 700012310IF a$<>"Y" THEN 1229012320? name$; " GETS SUCKED INTO"12330? "THE HOLE!"12340? "HE LANDS ON A HARD, COLD"12350? "CONCRETE FLOOR, AND IS KNOCKED"12360? "UNCONSCIENCE."12370FOR z=1 TO 10000:NEXT z12380? name$; " WAKES UP WITH A"12390? "BIT OF A HEADACHE TO NOTICE   "12400? "HE'S AT LEVEL THREE!"12410 moves=moves+112420 xp=xp+50012425FOR z=1 TO 5000:NEXT z12430GOTO 9000124name$; " GO OUT?"9030GET z$9040IF z$="N" THEN  x=19: y=19:GOTO 28609050IF z$="Y" THEN  xp=xp+500: moves=moves+1:GOTO 14009060GOTO 903010000FOR z=1 TO 1000:NEXT z10001ONERR  GOTO 6000010010? name$; " HAS NO MORE"10020? "HIT POINTS."10030?:? "HE WILL REST IN PEACE."10040? CHR$(4); "delete "; file$; ".CDP"10050FOR z=1 TO 1000:NEXT z:CLEAR:GOTO 100011000IF spell$="NO SPELL" THEN 701011005? "A THIEF COMES IN AND STEALS   "11100? name$; "'S SPELL BEFORE"11110? name$; " EVEN KNEW IT WAS"11120? "A TTO 28607210? "BUT IT DOES NOT WORK!"7220FOR d=1 TO 1000:NEXT d:GOTO 70008000HOME8001IF INT(RND(1)*2)<>INT(RND(1)*2) THEN 28608010? "THERE IS TREASURE IN HERE!!!  "8011?:? "…………………………………………………………………………………"; :?:?8020IF INT(RND(1)*10)=1 THEN 87008030IF ali$="GOOD" THEN 81008040IF ali$="NEUTRAL" THEN 83008050IF ali$="EVIL" THEN 85008100? "IT IS A STRENGTH STONE AND"8110 z=INT(RND(1)*3)+18120? z; " GOLD PIECES."8130 ohits=ohits+INT(RND(1)*7)+1: score=score+z:FOR z=1 TO   5000:NEXT z:GOTO 70008300? SEEMS TO SLIDE"12125? "FOREVER!"12130FOR z=1 TO 10000:NEXT z12140?:? name$; " LANDS NOT KNOWING"12145? "WHERE HE IS AT FIRST,"12150? "BUT THEN "; name$; " REAL-"12160? "IZES; HE'S NOW AT LEVEL TWO!"12170 xp=xp+50012180 moves=moves+112190FOR z=1 TO 5000:NEXT z12200GOTO 900012210IF moves<>2 THEN 286012215IF INT(RND(1)*3)<>2 THEN 286012220?:? "…………………………………………………………………………………"; :?:?12230? name$; " SEES A DISTORTED"12240? "LIGHT AMONG HIM."12250? "IT LOOKS LIKE A HOLE SUSPENDED"12260? "IN MID A8760IF z=6 OR z=7 OR z=8 OR z=9 OR z=10 THEN  the$="RIKANOS"8770IF z=11 THEN  the$="TALAPHO"8780IF z=12 OR z=13 OR z=14 THEN  the$="ASINKON"8790IF z=14 THEN  the$="PIPLAKA"8791IF z=15 OR z=16 OR z=17 OR z=18 OR z=19 THEN             the$="BABAVIG"8792IF z=20 THEN  the$="MOWALMA"8800? "THE SPELL IS A "; the$; "."8810? "DO YOU WANT IT?"8830GET z$8840IF z$="Y" THEN  spell$=the$:GOTO 70008850IF z$="N" THEN 70008860GOTO 88309000HOME9005? "YOU SEE SUNLIGHT.  IT IS THE  "9010? "EXIT."9020? "WILL "; 40IF moves<>3 THEN 286012445IF INT(RND(1)*4)<>3 THEN 286012450?:? "…………………………………………………………………………………"; :?:?12460? "THERE IS A GOLDEN ORB RESTING "12470? "ON THE FLOOR IN HERE."12480? "WILL "; name$; " INSPECT IT?"12490GET a$12500IF a$="N" THEN 700012510IF a$<>"Y" THEN 1249012520?:? name$; " PICKS UP THE ORB."12530? "IT BEGINS TO GLOW AND VIBRATE."12540? "BEFORE "; name$; " KNOWS IT"12550? "HE'S AT LEVEL FOUR!"12560FOR z=1 TO 5000:NEXT z:GOTO 900012570IF spell$="NO SPELL" THEN 286012580IF moves<BLY BE SEEN FOR    "13310? "MILES AROUND!"13320? "LIKE A MAGNET IT TAKES ALL OF "13330? name$; "'S GOLD, WEAPONS,"13340? "ARMOR AND SHIELD, BUT"13350? name$; " HAS SUCCEEDED!"13360 armor$="NO ARMOR"13370 weapon$="NO WEAPON"13380 shield$="NO SHIELD"13390 score=013400 xp=xp+1000013410 spell$="NO SPELL"13411 item$="NO ITEM"13412 lamp$="NO LAMP"13413FOR a=1 TO 5000:NEXT a13420GOTO 100013425IF INT(RND(1)*5)<>INT(RND(1)*5) THEN 286013430?:? "…………………………………………………………………………………"; :?:?13440? "A HERMIT ACCEPT?"12740GET a$12750IF a$="N" THEN 700012760IF a$<>"Y" THEN 1274012770 spell$="NO SPELL"12780 score=sc+2012785 xp=xp+50012790GOTO 900012800IF moves<5 THEN 286012805IF INT(RND(1)*6)<>5 THEN 286012810?:? "…………………………………………………………………………………"; :?:?12820? "THERE IS A LARGE LEVEL FIVE   "12830? "DRAGON IN HERE."12840? "IT IS 50 STORIES HIGH!"12850? "LOOKS LIKE "; name$; " HAS"12860? "A FIGHT!"12870 en$="LEVEL 5 DRAGON"12880 eh=10012890 ed=5012900GOTO 503213000IF moves<6 OR mo>10 THEN 286013 PRESENTS FOR THE ADAM:"; 13750?:? "CASTLE DEATHSTONE I"13760? "CASTLE DEATHSTONE II"13770? "CASTLE DEATHSTONE III"13780? "CRITICAL MASS"13790? "SPACE STATION OMEGA"13800? "PARANOIA"13810?:? "HACKERS BEWARE:"13820? "SANTA ISN'T COMING TO YOUR"13830? "HOUSE EVER AGAIN!"13840? "GUILT! GUILT! GUILT! GUILT!"13850? "TONIGHT YOU WILL DIE!"13860? "INSPIRATION! INSPIRATION!"13870 weapon$="NO WEAPON"13880 shield$="NO SHIELD"13890 armor$="NO ARMOR"13900 score=0: xp=99999999913910 hits=0: ohits=0139213170IF moves<10 THEN 286013171IF INT(RND(1)*20)<>5 THEN 286013172?:? "…………………………………………………………………………………"; :?:?13180? "THERE IS A 'DEATHSTONE DRAGON'"13190? "IN HERE.  PROBABLY ONE OF THE "13200? "MOST POWERFUL DRAGON AROUND."13210? "HE'S ALL "; name$; "'S!"13220 en$="DEATHSTONE DRAGON"13230 eh=50013240 ed=10013250GOTO 503213260IF moves<50 THEN 286013270?:? "…………………………………………………………………………………"; :?:?13280? "THE DEATHSTONE IS IN THIS ROOM."; 13290?:? "IT SHEDS A BRIGHT LIGHT THAT"13300? "COULD PROBA>4 THEN 286012585IF INT(RND(1)*5)<>4 THEN 286012590?:? "…………………………………………………………………………………"; :?:?12600? "THERE IS A WIZARD IN HERE!"12610? "HE LOOKS LIKE A GOOD WIZARD."12620? "SHOULD "; name$; " TALK"12630? "TO HIM?"12640GET a$12650IF a$="N" THEN 700012660IF a$<>"Y" THEN 1264012670? "THE WIZARD IS INTERESTED IN"12680? name$; "'S SPELL."12690? "HE IS A COLLECTOR OF SORTS AND"12700? "DOES NOT HAVE "; spell$; "."12710? "HE OFFERS "; name$; " 20"12720? "GOLD PIECES FOR IT."12730? "WILL "; name$; " IS IN THIS ROOM."13450? "DO YOU THINK "; name$13460? "SHOULD TALK TO HIM?"13470GET z$13480IF z$="N" THEN 700013490IF z$<>"Y" THEN 1347013500? "THE HERMIT WANTS TO ASK "13510? name$; " SOME QUEST IONS."13520FOR z=1 TO 5000:NEXT z13530HOME13540? "WHAT IS YOUR NAME?"13550INPUT a$13560IF a$="QUESTECH" GOTO 1372013670IF a$<>name$ THEN 1369013680GOTO 1396013690? "THE HERMIT KNOWS "; name$13700? "IS WRONG, AND LEAVES.":GOTO 700013720HOME13730? "QUESTECH COMPUTER ENTERTAINMENT"; 13740? "SOFTWARE010IF INT(RND(1)*5)<>2 THEN 286013020?:? "…………………………………………………………………………………"; :?:?13030? "THERE IS A LADDER HEADING DOWN"13040? "IN THE MIDDLE OF THIS ROOM."13050? "DO YOU THINK "; name$13060? "WOULD WANT TO GO DOWN THE"13070? "LADDER?"13080GET z$13090IF z$="N" THEN 700013100IF z$<>"Y" THEN 1309013110? name$; " GOES DOWN THE"13120? "LADDER TO FIND NOTHING BUT A  "13130? "DUNGEON LIKE THE ONE HE WAS IN"13135? "BEFORE."13140FOR z=1 TO 5000:NEXT z13150 xp=xp+10013155 moves=moves+113160GOTO 70000 spell$="NO SPELL"13930 moves=99999999913940FOR z=1 TO 50000:NEXT z13950GOTO 100013960? "IS A DRAGON EASY TO KILL?"13970GET z$13980IF z$="Y" THEN ? "DREAM ON!":GOTO 1400013990IF z$="N" THEN ? "WIMP!":GOTO 1400013995GOTO 1397014000? "IS A SMALL HUMANOID EASY?"14010GET z$14020IF z$="Y" THEN ? "GOOD!":GOTO 1405014030IF z$="N" THEN ? "GOD, WHAT A WIMP!":GOTO 1405014040GOTO 1401014050? "TELL YOU WHAT."14055IF wepon$="NO WEAPON" THEN 1411014060? "I'LL GIVE YOU TEN GOLD PIECES"14070? "FOR THAT "; en$="WEREWOLF" THEN              ed=INT(RND(1)*eh):GOTO 513015070IF item$="GARLIC" AND en$="WEREWOLF" THEN               ed=INT(RND(1)*eh):GOTO 513015080IF item$="PERFUME" AND en$="WEREBEAR" THEN              ed=INT(RND(1)*eh):GOTO 513015090? "BUT IT DOES NOT WORK!"15100FOR z=1 TO 1000:NEXT z:GOTO 504060000ONERR  GOTO 35060005IF ERRNUM(0)=255 THEN RESUME60010GOTO 10050TO 150514800IF z$="#" AND score>9 THEN  item$="PERFUME":            score=score-10:GOTO 150514810IF z$<>"!" AND z$<>"@" AND z$<>"426014250IF z$<>"N" THEN 1423014260IF lamp$="NO LAMP" THEN 1435014261? "I'LL GIVE YOU FIFTEEN GOLD"14262? "FOR YOUR LAMP."14263GET z$14264IF z$="Y" THEN  sc=sc+10: lamp$="NO LAMP":GOTO 1435014300IF z$<>"N" THEN 1426314350IF item$="NO ITEM" THEN 1450014351? "I'LL GIVE YOU FIFTEEN GOLD"14360? "FOR YOUR "; item$; "."14370GET z$14371IF z$="Y" THEN  sc=sc+15: item$="NO ITEM":GOTO 1450014372IF z$<>"N" THEN 1437014500? "THE HERMIT WANTS TO HELP"14510? name$; " GET BACK TO THE"14520? "INN."14530FOR"                               "; 32NORMAL40GET z$41IF z$="" THEN TEXT:GOTO 100042HGR250 file$=LEFT$(name$, 6)60? CHR$(4); "open "; file$; ".CDP"70? CHR$(4); "write "; file$; ".CDP"80? name$85? ali$90? score95? xp100? ohits105? hits110? weapon$115? armor$116? shield$120? spell$121? moves125? cd126? lamp$127? item$130? CHR$(4); "close "; file$; ".CDP"140GOTO 1000220HOME221INVERSE222? "                               "; 230? "INSERT DATA DISK.              "; 231? "               #" AND z$<>"$" THEN     GOTO 1476014830? "YOU DO NOT HAVE ENOUGH!"14840GOTO 1476015000HOME15010? name$; " USES "; item$; "!"15020IF item$="GARLIC" AND en$="MUMMY" THEN                  ed=INT(RND(1)*eh):GOTO 513015030IF item$="CROSS" AND en$="PRIEST" THEN                  ed=INT(RND(1)*eh):GOTO 513015040IF item$="GARLIC" AND en$="VAMPIRE" THEN                ed=INT(RND(1)*eh):GOTO 513015050IF item$="CROSS" AND en$="VAMPIRE" THEN                 ed=INT(RND(1)*eh):GOTO 513015060IF item$="PERFUME" AND weapon$; "."14080GET z$14090IF z$="Y" THEN  sc=sc+10: weapon$="NO WEAPON":GOTO      1411014100IF z$<>"N" THEN 1408014110IF shield$="NO SHIELD" THEN 1420014120? "I'LL GIVE YOU TEN GOLD PIECES"14130? "FOR THAT "; shield$; "."14140GET z$14150IF z$="Y" THEN  sc=sc+10: shield$="NO SHIELD":GOTO      1420014160IF z$<>"N" THEN 1414014200IF armor$="NO ARMOR" THEN 1426014210? "I'LL GIVE YOU TEN GOLD PIECES"14220? "FOR THAT "; armor$; "."14230GET z$14240IF z$="Y" THEN  sc=sc+10: armor$="NO ARMOR":GOTO 1x	ETILL HACKING................................"20FOR x=1 TO 85:VTAB 12:HTAB 1:? MID$(x$, x, 30):FOR z=1 TO 50:NEXT z:NEXT x30GOTO 1013800? "PARANOIA"13810?:? "HACKERS BE10ONERR  GOTO 35015POKE 17059, 4:POKE 17126, 24616GOTO 256020HOME21IF name$="" THEN ? "THERE IS NO CHARACTER TO SAVE!":FOR    z=1 TO 1000:NEXT z:GOTO 100022INVERSE23? "                               "; 30? "INSERT DATA DISK.              "; 31?  z=1 TO 5000:NEXT z14540GOTO 700014600HOME14710? "WOULD YOU LIKE TO BUY:"14720?:? "1> GARLIC FOR TEN"14730? "2> CROSS FOR TEN"14740? "3> PERFUME FOR TEN"14750? "4> NOTHING"14760GET z$14770IF z$="$" THEN 150514780IF z$="!" AND score>9 THEN  item$="GARLIC":             score=score-10:GOTO 150514790IF z$="@" AND score>9 THEN  item$="CROSS":              score=score-10:GOTO 150514800IF z$="#" AND score>9 THEN  item$="PERFUME":            score=score-10:GOTO 150514810IF z$<>"!" AND z$<>"@" AND z$<>"                "; 232NORMAL233?:?:GET z$234IF z$="" THEN 1000235? "ENTER PLAYER'S NAME."240INPUT name$:HGR2250 file$=LEFT$(name$, 6)260? CHR$(4); "open "; file$; ".CDP"270? CHR$(4); "read "; file$; ".CDP"280INPUT name$285INPUT ali$290INPUT score295INPUT xp300INPUT ohits305INPUT hits310INPUT weapon$315INPUT armor$316INPUT shield$320INPUT spell$321INPUT moves325INPUT cd326INPUT lamp$327INPUT item$330? CHR$(4); "close "; file$; ".CDP"335IF cd<>1 THEN ? "THIS CHARACTER IS TO           2? "                               "; 810? "INSERT DATA DISK.              "; 811? "                               "; 812NORMAL:?:?820GET z$825IF z$="" THEN 1000826?:? "THIS DISK WILL BE COMPLETELY  "827? "ERASED!"828GET z$829IF z$="" THEN 1000830? "THIS DISK IS "; 831? "ONLY"; 832? " TO BE USED"840? "FOR "; 841? "CASTLE DEATHSTONE"; 842? " PLAYERS!"850? CHR$(4); "INIT DEATHSTONE"860GOTO 1000870TEXT880? "I CANNOT USE THE PLAYER'S NAME"890? "AS THE FILE NAME."900? "PLEASE TYPE IN A FIL434IF z$="" THEN 1000440? "ENTER PLAYER'S NAME."445INPUT file$450 file$=LEFT$(file$, 6)460? CHR$(4); "delete "; file$; ".CDP"470GOTO 1000480HOME490? "ENTER PLAYER'S NAME."500INPUT name$510GOTO 1000520HOME521? "THE PLAYER IN MEMORY WILL BE  "522? "ERASED!  PRESS ESCAPE NOW TO  "523? "ABORT!"524GET z$525IF z$="" THEN 1000526HOME530? "ENTER PLAYER'S NAME."540INPUT name$545IF name$="" THEN 540550? "ENTER PLAYER'S ALIGNMENT."560? "1> GOOD"570? "2> NEUTRAL"580? "3> EVIL"590GET ali$600IOOM"1100? "7> END GAME"1110? "8> LEAVE INN"1111? "9> REVIEW DATA DISK"1112? "0> FORMAT DATA DISK"1120GET z$1130IF z$="!" THEN 201140IF z$="@" THEN 2201150IF z$="#" THEN 4201160IF z$="$" THEN 5201170IF z$="%" THEN 6801180IF z$="&" THEN HOME:NEW1190IF z$="_" THEN 12201200IF z$="*" THEN 14001201IF z$="(" THEN 7601202IF z$=")" THEN 8001210GOTO 11201220HOME1221IF name$="" THEN ? "WHO WANTS TO SLEEP HERE?!?":FOR z=1  TO 1000:NEXT z:GOTO 10001230? "RENT IS "; 1240 z=INT(RND(1)*101)1250IF z=0 T; ","700? "HAS "; score; " GOLD PIECES,"710? hits; " HIT POINTS,"715? "AND "; xp; " XPOINTS,"720? "AND CARRIES "; weapon$730? "AND "; spell$; ","731? "AND IS PROTECTED BY "732? armor$; " AND "733? shield$; ","734? "AND ALSO CARRIES "; item$; "."740GET z$750GOTO 1000760HOME761INVERSE762? "                               "; 763? "INSERT DATA DISK.              "; 764? "                               "; 765NORMAL:?:?766GET z$770? CHR$(4); "CATALOG"780GET z$790GOTO 1000800HOME801INVERSE80          POWERFUL!":CLEAR:FOR z=1 TO 1000:NEXT z:GOTO 1000340GOTO 1000350IF ERRNUM(0)=5 THEN 330351IF ERRNUM(0)=255 THEN RESUME355IF ERRNUM(0)=11 THEN 870360TEXT370? "ERROR NUMBER "; ERRNUM(0); " HAS OCCURED."380GET z$390IF z$="†" THEN END400HOME410ONERR  GOTO 350:? "I'AM RETURNING YOU TO THE INN.":FOR    z=1 TO 1000:NEXT z:GOTO 1000420HOME421INVERSE422? "                               "; 430? "INSERT DATA DISK.              "; 431? "                               "; 432NORMAL:?:?433GET z$E NAME FOR"910? name$; "."920INPUT zz$930 file$=LEFT$(zz$, 6)940ONERR  GOTO 350950GOTO 601000TEXT:HOME1002? "…………………………………………………………………………………"; 1003INVERSE1004? "                               "; 1010? "WELCOME TO THE INN!            "; 1011? "                               "; 1012NORMAL1013? "…………………………………………………………………………………"; 1020?:? "WHERE YOU MAY:"1030?1040? "1> SAVE PLAYER"1050? "2> LOAD PLAYER"1060? "3> DELETE PLAYER"1070? "4> CREATE PLAYER"1080? "5> REVIEW PLAYER"1090? "6> RENT A RF ali$="!" THEN  ali$="GOOD":GOTO 630610IF ali$="@" THEN  ali$="NEUTRAL":GOTO 630620IF ali$="#" THEN  ali$="EVIL":GOTO 630625GOTO 590630LET score=INT(RND(1)*11)+4640LET ohits=INT(RND(1)*11)+70641LET moves=0645LET xp=1000650LET hits=ohits660 weapon$="NO WEAPON"670 spell$="NO SPELL"675 armor$="NO ARMOR"676 shield$="NO SHIELD"677LET cd=1678 lamp$="NO LAMP"679 item$="NO ITEM"680HOME681IF name$="" THEN ? "THERE IS NO PLAYER IN MEMORY!":FOR    z=1 TO 1000:NEXT z:GOTO 1000690? name$; " IS "; ali$HEN 13101260? z; "."1270? "PRESS RETURN TO ACCEPT."1280GET z$1290IF z$<>CHR$(13) THEN 10001300GOTO 13201310? "FREE!"1320?:?:? name$1330? "IS RESTING AND REVIVING."1340 score=score-z1350FOR z=1 TO 5000:NEXT z1360?:?:? "GOOD MORNING!"1370 hits=ohits1380GET z$1390GOTO 10001400HOME1401IF name$="" THEN ? "WHO'S GOING TO LEAVE THE INN?":FOR   z=1 TO 1000:NEXT z:GOTO 10001402? "…………………………………………………………………………………"; 1403INVERSE1404? "                               "; 1410? "THESE ARE THE CROSSROADS! z$="@" THEN  minus=16:GOTO 20001950IF z$="#" THEN  minus=20:GOTO 20001960IF z$="$" THEN  minus=30:GOTO 20001970IF z$="%" THEN  minus=50:GOTO 20001980IF z$="&" THEN 20701990GOTO 19152000IF minus>score THEN ? "YOU DO NOT HAVE ENOUGH!":GOTO     19152005 score=score-minus2006 ohits=ohits+(minus/2)2010IF z$="!" THEN  armor$="LEATHER ARMOR"2020IF z$="@" THEN  armor$="CHAIN MAIL"2030IF z$="#" THEN  armor$="BREAST ARMOR"2040IF z$="$" THEN  armor$="PLATE ARMOR"2050IF z$="%" THEN  armor$="MAGIC ARMOR"2"; 1512NORMAL1513? "…………………………………………………………………………………"; 1520?:? "WHERE YOU MAY:"1530?1540? "1> BUY WEAPONS AND ARMOR"1545? "2> BUY GENERAL ITEMS"1550? "3> SELL WEAPONS AND ARMOR"1560? "4> LEAVE TRADING POST"1570GET z$1575IF z$="@" THEN 146001580IF z$="$" THEN 14001590IF z$="!" THEN 16151600IF z$="#" THEN 23001610GOTO 15701615HOME1620? "YOU MAY BUY:"1630?1640? "1> DAGGER FOR 4"1650? "2> SHORT SWORD FOR 10"1660? "3> LONG SWORD FOR 14"1670? "4> 2-HAND SWORD FOR 20"1680? "5> MAGICAL SWORD FO" THEN  shield$="SMALL SHIELD"2260IF z$="@" THEN  shield$="MEDIUM SHIELD"2270IF z$="#" THEN  shield$="LARGE SHIELD"2280IF z$="$" THEN  shield$="MAGIC SHIELD"2290GOTO 15052300HOME2310? "YOU MAY SELL:"2320?2330? "1> YOUR WEAPON"2340? "2> YOUR ARMOR"2350? "3> YOUR SHIELD"2360? "4> NOTHING"2370GET z$2380IF z$="$" THEN 15052390IF z$="#" AND shield$="MAGIC SHIELD" THEN  offer=202400IF z$="#" AND shield$<>"NO SHIELD" THEN  offer=10:GOTO   24602410IF z$="@" AND armor$="MAGIC ARMOR" THEN  offer=20:GOz$="@" THEN  weapon$="SHORT SWORD"1813IF z$="#" THEN  weapon$="LONG SWORD"1814IF z$="$" THEN  weapon$="2-HAND SWORD"1815IF z$="%" THEN  weapon$="MAGIC SWORD"1816IF z$="_" THEN  weapon$="STAFF"1820HOME1830? "YOU MAY BUY:"1840?1850? "1> LEATHER ARMOR FOR 10"1860? "2> CHAIN MAIL FOR 16"1870? "3> BREAST ARMOR FOR 20"1880? "4> PLATE ARMOR FOR 30"1890? "5> MAGIC ARMOR FOR 50"1900? "6> NOTHING"1910? "7> GO ON TO SHIELDS"1915GET z$1920IF z$="_" THEN 15051930IF z$="!" THEN  minus=10:GOTO 20001940IF      "; 1411? "                               "; 1412NORMAL1413? "…………………………………………………………………………………"; 1420?:? "WHERE YOU MAY:"1425?1430? "1> ENTER THE INN"1440? "2> ENTER THE TRADING POST"1450? "3> ENTER CASTLE DEATHSTONE"1460GET z$1470IF z$="!" THEN 10001480IF z$="@" THEN 15051490IF z$="#" THEN 28401500GOTO 14601505HOME1506? "…………………………………………………………………………………"; 1507INVERSE1508? "                               "; 1510? "WELCOME TO THE TRADING POST!   "; 1511? "                               070HOME2080? "YOU MAY BUY:"2090?2100? "1> SMALL SHIELD FOR 10"2110? "2> MEDIUM SHIELD FOR 16"2120? "3> LARGE SHIELD FOR 20"2130? "4> MAGIC SHIELD FOR 40"2140? "5> NOTHING"2150GET z$2160IF z$="%" THEN 15052170IF z$="!" THEN  minus=10:GOTO 22202180IF z$="@" THEN  minus=16:GOTO 22202190IF z$="#" THEN  minus=20:GOTO 22202200IF z$="$" THEN  minus=40:GOTO 22202210GOTO 21502220IF minus>score THEN ? "YOU DO NOT HAVE ENOUGH!":GOTO     21502230 score=score-minus2240 ohits=ohits+(minus/2)2250IF z$="!R 50"1690? "6> STAFF FOR 6"1695? "7> NOTHING"1696? "8> GO ON TO ARMOR"1700GET z$1710IF z$="!" THEN  minus=4:GOTO 18001720IF z$="@" THEN  minus=10:GOTO 18001730IF z$="#" THEN  minus=14:GOTO 18001740IF z$="$" THEN  minus=20:GOTO 18001750IF z$="%" THEN  minus=50:GOTO 18001760IF z$="_" THEN  minus=6:GOTO 18001765IF z$="&" THEN 15051766IF z$="*" THEN 18201770GOTO 17001800IF minus>score THEN ? "YOU DO NOT HAVE ENOUGH!":GOTO     17001810 score=score-minus1811IF z$="!" THEN  weapon$="DAGGER"1812IF TO   24602420IF z$="@" AND armor$<>"NO ARMOR" THEN  offer=10:GOTO     24602430IF z$="!" AND weapon$="MAGIC SWORD" THEN  offer=20:GOTO  24602435IF z$="!" AND weapon$="DAGGER" THEN  offer=3:GOTO 24602436IF z$="!" AND weapon$="STAFF" THEN  offer=5:GOTO 24602440IF z$="!" AND weapon$<>"NO WEAPON" THEN  offer=10:GOTO   24602450GOTO 23702460? "I WILL OFFER YOU "; offer; " GOLD"2470? "COINS FOR THAT!"2480?:? "PRESS RETURN TO ACCEPT."2490GET zz$2500IF zz$<>CHR$(13) THEN 15052510 score=score+offer2520IF F z=18 THEN  en$="WARRIOR": eh=35: da=12:GOTO 50003080IF z=19 THEN  en$="SAMURAI": eh=40: da=15:GOTO 50003090IF z=20 THEN  en$="BARBARIAN": eh=40: da=20:GOTO 50003100IF z=21 THEN  en$="THIEF": eh=25: da=10:GOTO 50003110IF z=22 THEN  en$="CHIEF THIEF": eh=28: da=12:GOTO 50003120IF z=23 THEN  en$="NINJA": eh=22: da=15:GOTO 50003130IF z=24 THEN  en$="MASTER NINJA": eh=35: da=20:GOTO 50003140IF z=25 THEN  en$="SKELETON": eh=14: da=6:GOTO 50003150IF z=26 THEN  en$="WEREWOLF": eh=15: da=10:GOTO 50003160I660? "  (C) 1986 QUESTECH COMPUTER  "2661? "    ENTERTAINMENT SOFTWARE    "2670FOR z=1 TO 2000:NEXT z2675VTAB 8:? "                              "2680VTAB 112685? "MAKE SURE THE CAPS LOCK IS ON!"2690? "         PRESS ANY KEY        "2700? "  TO CREATE OR LOAD A PLAYER. "2820VTAB 1:INVERSE:GET z$:NORMAL2830GOTO 10002840LET x=12850LET y=12860HOME2870? "YOU ARE AT COORDINATES"2880? x; ", "; y; "."2885FOR z=1 TO 1000:NEXT z2890 z=INT(RND(1)*250)+12900IF z=1 THEN  enemy$="SMALL HUMANOID": ehits=2:GOTO 50003250IF z=36 THEN  en$="PRIEST": eh=30: da=10:GOTO 50003260IF z=37 OR z=38 OR z=39 THEN  z=13270IF z=40 OR z=41 THEN  z=23280IF z=42 OR z=43 OR z=44 THEN  z=33290IF z=106 OR z=45 THEN  z=43300IF z=46 OR z=47 THEN  z=53310IF z=48 OR z=49 THEN  z=63320IF z=50 OR z=51 OR z=52 THEN  z=73330IF z=53 OR z=54 THEN  z=83340IF z=55 OR z=56 OR z=57 THEN  z=93350IF z=58 OR z=59 THEN  z=103360IF z=60 OR z=61 THEN  z=113370IF z=62 OR z=63 OR z=64 THEN  z=133380IF z=65 OR z=66 THEN  z=143390IF z=650002980IF z=9 THEN  en$="SLIME": eh=16: da=4:GOTO 50002990IF z=10 THEN  en$="MOLD": eh=18: da=5:GOTO 50003000IF z=11 THEN  en$="SLIME MOLD": eh=18: da=6:GOTO 50003010IF z=12 THEN  en$="GIANT": eh=50: da=15:GOTO 50003020IF z=13 THEN  en$="MUMMY": eh=20: da=10:GOTO 50003030IF z=14 THEN  en$="VAMPIRE": eh=25: da=15:GOTO 50003040IF z=15 THEN  en$="WIZARD": eh=25: da=12:GOTO 50003050IF z=16 THEN  en$="MASTER WIZARD": eh=35: da=20:GOTO     50003060IF z=17 THEN  en$="FIGHTER": eh=30: da=8:GOTO 50003070Iz$="!" THEN  weapon$="NO WEAPON"2530IF z$="@" THEN  armor$="NO ARMOR"2540IF z$="#" THEN  shield$="NO SHIELD"2550GOTO 15052560NORMAL:TEXT:CLEAR:HOME2570? "…………………………………………………………………………………"; 2571INVERSE2572? "                               "; 2573? "      CASTLE DEATHSTONE I      "; 2574? "                               "; 2580NORMAL2590? "…………………………………………………………………………………"; 2600?:?2610FOR z=1 TO 2000:NEXT z2620? "              BY   "2630VTAB 122640? "       JON-CLAUDE GEROW       "2650VTAB 222F z=27 THEN  en$="LIZARD": eh=15: da=8:GOTO 50003170IF z=28 THEN  en$="SMALL DRAGON": eh=40: da=20:GOTO 50003180IF z=29 THEN  en$="MEDIUM DRAGON": eh=50: da=30:GOTO     50003190IF z=30 THEN  en$="LARGE DRAGON": eh=60: da=40:GOTO 50003200IF z=31 THEN  en$="WEREBEAR": eh=45: da=20:GOTO 50003210IF z=32 THEN  en$="RABID COW": eh=15: da=10:GOTO 50003220IF z=33 THEN  en$="RABID RABBIT": eh=14: da=10:GOTO 50003230IF z=34 THEN  en$="RABID RAT": eh=14: da=8:GOTO 50003240IF z=35 THEN  en$="LACKEY": eh=90: da=16:          damage=6:GOTO 50002910IF z=2 THEN  enemy$="LARGE HUMANOID": ehits=18:          damage=8:GOTO 50002920IF z=3 THEN  enemy$="SMALL SPIDER": ehits=12:            damage=2:GOTO 50002930IF z=4 THEN  enemy$="LARGE SPIDER": ehits=15:            damage=3:GOTO 50002940IF z=5 THEN  enemy$="GARGANTUA SPIDER": ehits=20:        damage=7:GOTO 50002950IF z=6 THEN  en$="BOA' SNAKE": eh=22: da=4:GOTO 50002960IF z=7 THEN  en$="ASP": eh=15: da=2:GOTO 50002970IF z=8 THEN  en$="MAMBA SNAKE": eh=22: da=6:GOTO 7 OR z=68 THEN  z=153400IF z=69 THEN  z=163410IF z=70 OR z=71 OR z=72 THEN  z=173420IF z=73 OR z=74 THEN  z=183430IF z=75 OR z=76 THEN  z=193440IF z=77 OR z=78 THEN  z=203450IF z=79 OR z=80 OR z=81 THEN  z=213460IF z=82 THEN  z=223470IF z=83 OR z=84 THEN  z=233480IF z=84 THEN  z=243490IF z=85 OR z=86 OR z=87 OR z=88 THEN  z=253500IF z=89 OR z=90 OR z=91 THEN  z=263510IF z=92 OR z=93 OR z=94 THEN  z=273520IF z=95 THEN  z=283530IF z=96 THEN  z=313540IF z=97 OR z=98 THEN  z=323550IF z=99 OR z=1HAND SWORD" THEN  ed=156350IF weapon$="MAGIC SWORD" THEN  ed=206355IF weapon$="STAFF" THEN  ed=106360HOME6361? name$; " PARRYS!"6370 ehits=ehits-ed:IF eh<1 THEN 59006380FOR z=1 TO 1000:NEXT z:HOME6390? en$; " ATTACKS!"6400 hits=hits-INT(RND(1)*(da-2))6410IF hits<1 THEN 100006420GOTO 51666500? spell$:FOR z=1 TO 1000:NEXT z6510IF spell$="HAMIATO" THEN  ed=20:GOTO 51006520IF spell$="KILLATA" AND eh<36 THEN  ed=eh:GOTO 51006530IF spell$="KILLATA" AND eh>36 THEN  ed=1:GOTO 51006540IF spell$="MINIS? "THERE IS A "; enemy$:? "IN HERE!"5021IF z=3 THEN ? name$; " SURPRISED A ":? en$5022IF z=4 THEN ? "A "; en$; " SURPRISED ":? name$5030IF z=2 THEN ? "A "; enemy$; " JUMPS":? "AT "; name$5031IF spell$="NO SPELL" THEN 50335032IF en$="THIEF" OR en$="CHIEF THIEF" THEN ? "HE STEALS    YOUR SPELL!": sp$="NO SPELL"5033?:? "…………………………………………………………………………………"; :?:?5040? "WHAT WILL "; name$; " DO?!?"5050GET a$5060IF a$="‰" THEN 6000:REM                                  fight5070IF a$="ٹ" THEN 6300:REM        WORK HERE!":FOR z=1 TO 1000:NEXT  z:GOTO 50407000HOME7001IF INT(RND(1)*10)=4 THEN 110007010? "THIS ROOM IS EMPTY."7020? "THERE ARE FOUR DOORS LEADING TO"; 7030? "THE NORTH, EAST, SOUTH, WEST."7040GET a$7041IF a$="‹" THEN 71607050IF a$="N" THEN  x=x+1:GOTO 71007060IF a$="E" THEN  y=y+1:GOTO 71007070IF a$="S" THEN  x=x-1:GOTO 71007080IF a$="W" THEN  y=y-1:GOTO 71007090GOTO 70407100IF x<1 THEN  x=1:? "SORRY THAT DOOR IS LOCKED!":GOTO     70407110IF x>20 THEN  x=20:? "SORRY THAT DOOR IS LOCKED!":y$; " IS DEAD!":FOR z=1 TO 1000:NEXT       z:GOTO 70006000IF weapon$="NO WEAPON" THEN  ed=06010IF weapon$="DAGGER" THEN  ed=86020IF weapon$="SHORT SWORD" THEN  ed=106030IF weapon$="LONG SWORD" THEN  ed=156040IF weapon$="2-HAND SWORD" THEN  ed=206050IF weapon$="MAGIC SWORD" THEN  ed=256055IF weapon$="STAFF" THEN  ed=106060GOTO 51006300IF weapon$="NO WEAPON" THEN  ed=06310IF weapon$="DAGGER" THEN  ed=56320IF weapon$="SHORT SWORD" THEN  ed=56330IF weapon$="LONG SWORD" THEN  ed=106340IF weapon$="2-00 THEN  z=333560IF z=101 OR z=102 THEN  z=343570IF z=103 OR z=104 THEN  z=353580IF z=105 THEN  z=363581IF z=106 THEN 120003582IF z=107 THEN 122103583IF z=108 THEN 124403584IF z=109 THEN 125703585IF z=110 THEN 128003586IF z=111 THEN 130003587IF z=112 THEN 131703588IF z=113 THEN 132603589IF z=114 THEN 134253590IF z>114 AND z<240 THEN 70003600IF z>239 THEN 80004990GOTO 29005000IF eh>(xp/50) THEN 28905005LET z=INT(RND(1)*5)5010IF z=0 THEN ? name$; " DISTURBED A":? enemy$; "!"5020IF z=1 THEN HA" THEN 65606550GOTO 66006560IF en$="SMALL DRAGON" OR en$="MEDIUM DRAGON" OR          en$="LARGE DRAGON" THEN  ed=eh:GOTO 51006570 ed=0:GOTO 51006600IF spell$="TALAPHO" THEN 90006610IF spell$="ASINKON" THEN  ed=10:GOTO 51006620IF spell$="ASINKON" AND eh>10 THEN  ed=1:GOTO 51006625IF spell$="PIPLAKA" THEN  x=INT(RND(1)*50)+1:            y=INT(RND(1)*50)+1:GOTO 28606630IF spell$="MOWALMA" AND enemy$="GIANT" THEN  ed=eh:GOTO  51006640IF spell$="BABAVIG" THEN  ed=5:GOTO 51006999? "THAT SPELL DOES NOT                           parry 5080IF a$="‹" THEN 6500:REM                                  spell5081IF a$="Œ" THEN 150005090GOTO 50505100HOME5110? name$; " ATTACKS!"5120IF a$<>"‹" THEN  ed=INT(RND(1)*ed)5130 ehits=ehits-ed:IF eh<1 THEN 59005140FOR z=1 TO 1000:NEXT z:HOME5150? en$; " ATTACKS!"5160 hits=hits-INT(RND(1)*da)5165IF hits<1 THEN 100005166?:? "…………………………………………………………………………………"; :?:?5170? name$; " HAS "; hits; " HIT POINTS."5180FOR z=1 TO 1000:NEXT z:HOME:GOTO 50405900? "THE "; enemGOTO   70407120IF y<1 THEN  y=1:? "SORRY THAT DOOR IS LOCKED!":GOTO     70407130IF y>20 THEN  y=20:? "SORRY THAT DOOR IS LOCKED!":GOTO   70407140IF x=20 AND y=20 THEN 90007150GOTO 28607160? "YOU HAVE A "; spell$; "."7165FOR z=1 TO 1000:NEXT z7170IF spell$="DORAMIN" AND INT(RND(1)*10)=4 THEN            hits=ohits:GOTO 70007180IF spell$="RIKANOS" AND INT(RND(1)*10)=0 THEN GOTO 80007190IF spell$="TALAPHO" THEN GOTO 90007200IF spell$="PIPLAKA" THEN  x=INT(RND(1)*50)+1:            y=INT(RND(1)*50)+1:GOHIEF!"11130 spell$="NO SPELL"11135?:? "…………………………………………………………………………………"; :?:?11140GOTO 701012000IF moves<>1 THEN 286012005IF INT(RND(1)*2)<>1 THEN 286012010?:? "…………………………………………………………………………………"; :?:?12020? "THERE IS A HOLE IN THE FLOOR, "12030? "IT LOOKS AS IF IT GOES DOWN   "12040? "QUITE A WAY!"12050? "DO YOU THINK "; name$12060? "WISHES TO GO THROUGH THE HOLE?"12070GET a$12080IF a$="N" THEN 700012090IF a$<>"Y" THEN 1207012100? "THERE IS A SLIDE UNDER THE    "12110? "HOLE."12120? name$; " "IT IS A STRENGTH STONE AND"8310 z=INT(RND(1)*5)+18320? z; " GOLD PIECES."8330 ohits=ohits+INT(RND(1)*5)+1: score=score+z:FOR z=1 TO   5000:NEXT z:GOTO 70008500? "IT IS A STRENGTH STONE AND"8510 z=INT(RND(1)*7)+18520? z; " GOLD PIECES."8530 ohits=ohits+INT(RND(1)*3)+1: score=score+z:FOR z=1 TO   5000:NEXT z:GOTO 70008700? "IT IS A SPELL!"8710LET z=INT(RND(1)*20)+18720IF z=1 OR z=2 THEN  the$="HAMIATO"8730IF z=3 THEN  the$="KILLATA"8740IF z=4 THEN  the$="MINISHA"8750IF z=5 THEN  the$="DORAMIN"IR!"12270? "DO YOU THINK "; name$; " WOULD"12280? "LIKE TO INSPECT THIS 'LIGHT'?"12290GET a$12300IF a$="N" THEN 700012310IF a$<>"Y" THEN 1229012320? name$; " GETS SUCKED INTO"12330? "THE HOLE!"12340? "HE LANDS ON A HARD, COLD"12350? "CONCRETE FLOOR, AND IS KNOCKED"12360? "UNCONSCIENCE."12370FOR z=1 TO 10000:NEXT z12380? name$; " WAKES UP WITH A"12390? "BIT OF A HEADACHE TO NOTICE   "12400? "HE'S AT LEVEL THREE!"12410 moves=moves+112420 xp=xp+50012425FOR z=1 TO 5000:NEXT z12430GOTO 9000124name$; " GO OUT?"9030GET z$9040IF z$="N" THEN  x=19: y=19:GOTO 28609050IF z$="Y" THEN  xp=xp+500: moves=moves+1:GOTO 14009060GOTO 903010000FOR z=1 TO 1000:NEXT z10001ONERR  GOTO 6000010010? name$; " HAS NO MORE"10020? "HIT POINTS."10030?:? "HE WILL REST IN PEACE."10040? CHR$(4); "delete "; file$; ".CDP"10050FOR z=1 TO 1000:NEXT z:CLEAR:GOTO 100011000IF spell$="NO SPELL" THEN 701011005? "A THIEF COMES IN AND STEALS   "11100? name$; "'S SPELL BEFORE"11110? name$; " EVEN KNEW IT WAS"11120? "A TTO 28607210? "BUT IT DOES NOT WORK!"7220FOR d=1 TO 1000:NEXT d:GOTO 70008000HOME8001IF INT(RND(1)*2)<>INT(RND(1)*2) THEN 28608010? "THERE IS TREASURE IN HERE!!!  "8011?:? "…………………………………………………………………………………"; :?:?8020IF INT(RND(1)*10)=1 THEN 87008030IF ali$="GOOD" THEN 81008040IF ali$="NEUTRAL" THEN 83008050IF ali$="EVIL" THEN 85008100? "IT IS A STRENGTH STONE AND"8110 z=INT(RND(1)*3)+18120? z; " GOLD PIECES."8130 ohits=ohits+INT(RND(1)*7)+1: score=score+z:FOR z=1 TO   5000:NEXT z:GOTO 70008300? SEEMS TO SLIDE"12125? "FOREVER!"12130FOR z=1 TO 10000:NEXT z12140?:? name$; " LANDS NOT KNOWING"12145? "WHERE HE IS AT FIRST,"12150? "BUT THEN "; name$; " REAL-"12160? "IZES; HE'S NOW AT LEVEL TWO!"12170 xp=xp+50012180 moves=moves+112190FOR z=1 TO 5000:NEXT z12200GOTO 900012210IF moves<>2 THEN 286012215IF INT(RND(1)*3)<>2 THEN 286012220?:? "…………………………………………………………………………………"; :?:?12230? name$; " SEES A DISTORTED"12240? "LIGHT AMONG HIM."12250? "IT LOOKS LIKE A HOLE SUSPENDED"12260? "IN MID A8760IF z=6 OR z=7 OR z=8 OR z=9 OR z=10 THEN  the$="RIKANOS"8770IF z=11 THEN  the$="TALAPHO"8780IF z=12 OR z=13 OR z=14 THEN  the$="ASINKON"8790IF z=14 THEN  the$="PIPLAKA"8791IF z=15 OR z=16 OR z=17 OR z=18 OR z=19 THEN             the$="BABAVIG"8792IF z=20 THEN  the$="MOWALMA"8800? "THE SPELL IS A "; the$; "."8810? "DO YOU WANT IT?"8830GET z$8840IF z$="Y" THEN  spell$=the$:GOTO 70008850IF z$="N" THEN 70008860GOTO 88309000HOME9005? "YOU SEE SUNLIGHT.  IT IS THE  "9010? "EXIT."9020? "WILL "; 40IF moves<>3 THEN 286012445IF INT(RND(1)*4)<>3 THEN 286012450?:? "…………………………………………………………………………………"; :?:?12460? "THERE IS A GOLDEN ORB RESTING "12470? "ON THE FLOOR IN HERE."12480? "WILL "; name$; " INSPECT IT?"12490GET a$12500IF a$="N" THEN 700012510IF a$<>"Y" THEN 1249012520?:? name$; " PICKS UP THE ORB."12530? "IT BEGINS TO GLOW AND VIBRATE."12540? "BEFORE "; name$; " KNOWS IT"12550? "HE'S AT LEVEL FOUR!"12560FOR z=1 TO 5000:NEXT z:GOTO 900012570IF spell$="NO SPELL" THEN 286012580IF moves<BLY BE SEEN FOR    "13310? "MILES AROUND!"13320? "LIKE A MAGNET IT TAKES ALL OF "13330? name$; "'S GOLD, WEAPONS,"13340? "ARMOR AND SHIELD, BUT"13350? name$; " HAS SUCCEEDED!"13360 armor$="NO ARMOR"13370 weapon$="NO WEAPON"13380 shield$="NO SHIELD"13390 score=013400 xp=xp+1000013410 spell$="NO SPELL"13411 item$="NO ITEM"13412 lamp$="NO LAMP"13413FOR a=1 TO 5000:NEXT a13420GOTO 100013425IF INT(RND(1)*5)<>INT(RND(1)*5) THEN 286013430?:? "…………………………………………………………………………………"; :?:?13440? "A HERMIT ACCEPT?"12740GET a$12750IF a$="N" THEN 700012760IF a$<>"Y" THEN 1274012770 spell$="NO SPELL"12780 score=sc+2012785 xp=xp+50012790GOTO 900012800IF moves<5 THEN 286012805IF INT(RND(1)*6)<>5 THEN 286012810?:? "…………………………………………………………………………………"; :?:?12820? "THERE IS A LARGE LEVEL FIVE   "12830? "DRAGON IN HERE."12840? "IT IS 50 STORIES HIGH!"12850? "LOOKS LIKE "; name$; " HAS"12860? "A FIGHT!"12870 en$="LEVEL 5 DRAGON"12880 eh=10012890 ed=5012900GOTO 503213000IF moves<6 OR mo>10 THEN 286013 PRESENTS FOR THE ADAM:"; 13750?:? "CASTLE DEATHSTONE I"13760? "CASTLE DEATHSTONE II"13770? "CASTLE DEATHSTONE III"13780? "CRITICAL MASS"13790? "SPACE STATION OMEGA"13800? "PARANOIA"13810?:? "HACKERS BEWARE:"13820? "SANTA ISN'T COMING TO YOUR"13830? "HOUSE EVER AGAIN!"13840? "GUILT! GUILT! GUILT! GUILT!"13850? "TONIGHT YOU WILL DIE!"13860? "INSPIRATION! INSPIRATION!"13870 weapon$="NO WEAPON"13880 shield$="NO SHIELD"13890 armor$="NO ARMOR"13900 score=0: xp=99999999913910 hits=0: ohits=0139213170IF moves<10 THEN 286013171IF INT(RND(1)*20)<>5 THEN 286013172?:? "…………………………………………………………………………………"; :?:?13180? "THERE IS A 'DEATHSTONE DRAGON'"13190? "IN HERE.  PROBABLY ONE OF THE "13200? "MOST POWERFUL DRAGON AROUND."13210? "HE'S ALL "; name$; "'S!"13220 en$="DEATHSTONE DRAGON"13230 eh=50013240 ed=10013250GOTO 503213260IF moves<50 THEN 286013270?:? "…………………………………………………………………………………"; :?:?13280? "THE DEATHSTONE IS IN THIS ROOM."; 13290?:? "IT SHEDS A BRIGHT LIGHT THAT"13300? "COULD PROBA>4 THEN 286012585IF INT(RND(1)*5)<>4 THEN 286012590?:? "…………………………………………………………………………………"; :?:?12600? "THERE IS A WIZARD IN HERE!"12610? "HE LOOKS LIKE A GOOD WIZARD."12620? "SHOULD "; name$; " TALK"12630? "TO HIM?"12640GET a$12650IF a$="N" THEN 700012660IF a$<>"Y" THEN 1264012670? "THE WIZARD IS INTERESTED IN"12680? name$; "'S SPELL."12690? "HE IS A COLLECTOR OF SORTS AND"12700? "DOES NOT HAVE "; spell$; "."12710? "HE OFFERS "; name$; " 20"12720? "GOLD PIECES FOR IT."12730? "WILL "; name$; " IS IN THIS ROOM."13450? "DO YOU THINK "; name$13460? "SHOULD TALK TO HIM?"13470GET z$13480IF z$="N" THEN 700013490IF z$<>"Y" THEN 1347013500? "THE HERMIT WANTS TO ASK "13510? name$; " SOME QUEST IONS."13520FOR z=1 TO 5000:NEXT z13530HOME13540? "WHAT IS YOUR NAME?"13550INPUT a$13560IF a$="QUESTECH" GOTO 1372013670IF a$<>name$ THEN 1369013680GOTO 1396013690? "THE HERMIT KNOWS "; name$13700? "IS WRONG, AND LEAVES.":GOTO 700013720HOME13730? "QUESTECH COMPUTER ENTERTAINMENT"; 13740? "SOFTWARE010IF INT(RND(1)*5)<>2 THEN 286013020?:? "…………………………………………………………………………………"; :?:?13030? "THERE IS A LADDER HEADING DOWN"13040? "IN THE MIDDLE OF THIS ROOM."13050? "DO YOU THINK "; name$13060? "WOULD WANT TO GO DOWN THE"13070? "LADDER?"13080GET z$13090IF z$="N" THEN 700013100IF z$<>"Y" THEN 1309013110? name$; " GOES DOWN THE"13120? "LADDER TO FIND NOTHING BUT A  "13130? "DUNGEON LIKE THE ONE HE WAS IN"13135? "BEFORE."13140FOR z=1 TO 5000:NEXT z13150 xp=xp+10013155 moves=moves+113160GOTO 70000 spell$="NO SPELL"13930 moves=99999999913940FOR z=1 TO 50000:NEXT z13950GOTO 100013960? "IS A DRAGON EASY TO KILL?"13970GET z$13980IF z$="Y" THEN ? "DREAM ON!":GOTO 1400013990IF z$="N" THEN ? "WIMP!":GOTO 1400013995GOTO 1397014000? "IS A SMALL HUMANOID EASY?"14010GET z$14020IF z$="Y" THEN ? "GOOD!":GOTO 1405014030IF z$="N" THEN ? "GOD, WHAT A WIMP!":GOTO 1405014040GOTO 1401014050? "TELL YOU WHAT."14055IF wepon$="NO WEAPON" THEN 1411014060? "I'LL GIVE YOU TEN GOLD PIECES"14070? "FOR THAT "; en$="WEREWOLF" THEN              ed=INT(RND(1)*eh):GOTO 513015070IF item$="GARLIC" AND en$="WEREWOLF" THEN               ed=INT(RND(1)*eh):GOTO 513015080IF item$="PERFUME" AND en$="WEREBEAR" THEN              ed=INT(RND(1)*eh):GOTO 513015090? "BUT IT DOES NOT WORK!"15100FOR z=1 TO 1000:NEXT z:GOTO 504060000ONERR  GOTO 35060005IF ERRNUM(0)=255 THEN RESUME60010GOTO 10050TO 150514800IF z$="#" AND score>9 THEN  item$="PERFUME":            score=score-10:GOTO 150514810IF z$<>"!" AND z$<>"@" AND z$<>"426014250IF z$<>"N" THEN 1423014260IF lamp$="NO LAMP" THEN 1435014261? "I'LL GIVE YOU FIFTEEN GOLD"14262? "FOR YOUR LAMP."14263GET z$14264IF z$="Y" THEN  sc=sc+10: lamp$="NO LAMP":GOTO 1435014300IF z$<>"N" THEN 1426314350IF item$="NO ITEM" THEN 1450014351? "I'LL GIVE YOU FIFTEEN GOLD"14360? "FOR YOUR "; item$; "."14370GET z$14371IF z$="Y" THEN  sc=sc+15: item$="NO ITEM":GOTO 1450014372IF z$<>"N" THEN 1437014500? "THE HERMIT WANTS TO HELP"14510? name$; " GET BACK TO THE"14520? "INN."14530FORےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے#" AND z$<>"$" THEN     GOTO 1476014830? "YOU DO NOT HAVE ENOUGH!"14840GOTO 1476015000HOME15010? name$; " USES "; item$; "!"15020IF item$="GARLIC" AND en$="MUMMY" THEN                  ed=INT(RND(1)*eh):GOTO 513015030IF item$="CROSS" AND en$="PRIEST" THEN                  ed=INT(RND(1)*eh):GOTO 513015040IF item$="GARLIC" AND en$="VAMPIRE" THEN                ed=INT(RND(1)*eh):GOTO 513015050IF item$="CROSS" AND en$="VAMPIRE" THEN                 ed=INT(RND(1)*eh):GOTO 513015060IF item$="PERFUME" AND weapon$; "."14080GET z$14090IF z$="Y" THEN  sc=sc+10: weapon$="NO WEAPON":GOTO      1411014100IF z$<>"N" THEN 1408014110IF shield$="NO SHIELD" THEN 1420014120? "I'LL GIVE YOU TEN GOLD PIECES"14130? "FOR THAT "; shield$; "."14140GET z$14150IF z$="Y" THEN  sc=sc+10: shield$="NO SHIELD":GOTO      1420014160IF z$<>"N" THEN 1414014200IF armor$="NO ARMOR" THEN 1426014210? "I'LL GIVE YOU TEN GOLD PIECES"14220? "FOR THAT "; armor$; "."14230GET z$14240IF z$="Y" THEN  sc=sc+10: armor$="NO ARMOR":GOTO 1ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے z=1 TO 5000:NEXT z14540GOTO 700014600HOME14710? "WOULD YOU LIKE TO BUY:"14720?:? "1> GARLIC FOR TEN"14730? "2> CROSS FOR TEN"14740? "3> PERFUME FOR TEN"14750? "4> NOTHING"14760GET z$14770IF z$="$" THEN 150514780IF z$="!" AND score>9 THEN  item$="GARLIC":             score=score-10:GOTO 150514790IF z$="@" AND score>9 THEN  item$="CROSS":              score=score-10:GOTO 150514800IF z$="#" AND score>9 THEN  item$="PERFUME":            score=score-10:GOTO 150514810IF z$<>"!" AND z$<>"@" AND z$<>"ےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےےے