óBASICPGM1Xþx!ÈÍÀü(Ãçü2ÐÍ>Èþ(Ãçü:ÐÍÃü(Ãçü*Èé!ÈÐí°!Ð5:Ð*ÐÍÒü 	Ý!ÐÝuÝt:Ðþ ÙÉ>É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 StateFIRST DIR  Uªÿ BOOT       ˆDIRECTORY  ÈBASICPGMTØ°°°ROOMHEATAˆWNUMERICALAúWLANDSIZEAH pWHELLOAõ:pB·!EWTHIAIZEHH$fWHEATORCOOLA%FWDATASHEETA3¥WTHERMCOSTA6¯WCEMENTNEEDA94WSHEDHEATAH;:WEASYCOOLAH=4WKWHCOSTAH?€WAIRCOSTAHANWBURNWOOD2AC¦WPRINTCATLGAGÑWWALKINGAGHIzÖW(0î¯2&?É(øË#ËËËËòz2&?ËÃ©*+?""?*-?"$?*.?"%?Éí[%?*.?}«2?ËûËý".?íS%?Éë!&?4ÊñëÉÍÍ;z·È|·(¡‚0Öú}þ(ÃñÖ82&?PY:"?Í°:#?Í°:$?Í°:%?Í°ëË|Â¥ËËËËÃ¨·(&70*+?	DM*-?íZëËÃÌË:ËËËË? ÝÉyHCZÉÍ;|·Êîz·Ê”ÒÿÆ€òþ€(Ã
Æ€òñ2&?!"?"?"'?")?"?" ? !'??
–#
ž#
ž#
ž#
ž#
ž#
ž#
žÚ´7!?Ë#Ë#Ë#Ë!.?Ë>+Ë+Ë+Ë+Ë+Ë+Ë+ËÂ:?·úž*?)""?*?íj"$?:?·ø:%?æ2%?É:&?<2&?*?""?*?"$?Ã!'??
†#
Ž#
Ž#
Ž#
Ž#
Ž#
Ž#
Ž·ÃNÂ!%?Ë¾ÉÂ:&?·È:%?·!""?"Ã>Ã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=Pment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…WVOLUMEAGHKWINSULATIONAM÷WROOMACAONHOHWPULLYSPEEDAQØWDRIPDRIPAHRÑWOHMSLAWAHShWHELLO2AHV@Wreadme1stHW…docHorCHFT[ÑdocBURNHFT^ABLOCKS LEFTa?WBLOCKS LEFTa?W$?>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!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ÂËðí[ú>ÁÖÉ*"?"+?*$?"-?*%?".?É+?í°É!ù"?í°ÉÑ*%?å*#?å*!?åëéÑá"!?á"#?á"%?ëéÑ*.?å*,?å**?åëéÑá"*?á",?á".?ëéÍ2	Ø|·òxþÿØ}þÉ }þ€?É	!%?Ë~È:&?·ÈË¾ëãéør1€);ª8¢ÚInƒù"€¢ÚI€ÐÌTšy‚‚€€4óµ4ó5€´ì-æ@»K.÷|OG‹X}f‚Ñ‘~ ÈL~
¢ªªýÿÿ€l]-q|oetöøv/wvz²˜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Íå<å!.?Ë¾õí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?Í/Õ*ü>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/~ÙíDOÙ~ƒ_Ò#ÙÙÃ/#ÙÙ>?ÍÚ.ÕÍ/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Ýåýá>>>>
>>>>ÁÉÍ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±Ê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Åõy7O	Í·í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ù>>>>>2?ÙíSú>"ü>ËÐÙþ0ÙË@ÙÂ’Íc_Í`/>?ÍÚ.:?þ >2?G!€·(	~#…o0$÷ÍN/:?þ0!¡ÍN/ÙËpÙ(!¨ÍN/ÙåÙá+++V+^Í§2Í`/!""?"+?:?þÂ£>ÙËÙÃ¦>ÙËÈÙHÅíKþ>Ãž  Error In ÙË€ÙÉÙËp(ÙÍïíCþ>ÙËÀÙÉÙÃëÍ
%*Ù>+"í>*ß>#‘	íKë>x· >¹(íDO8¯ÕWw#wí¡êøÑ+:á>½ :â>¼(ÕT]íKá>Å"á>*ã>·íBDMáí°íSã>Ñ*ã>"ó>"ï>ÉÙËpÙÊëÍ*~æ0Â#å!åÙÙþ·ÀÙÙÖŒþÐÍ*~æüÀÙÙþ¸ÀááÙÕÙÁq#pÃã ÙËp(ËH(Ëˆ*ü>Ùí[ú>ÉÙÃÙÃëÙÙÍïíCO?Íð0Ò¸ åÙáËðÍ€ÉááÝáýá>ÃÍÜ}·Êã ÙÙþ®ÂD!}=Ê– -ÙÙÈþ¹ÂÕ ÃÏ ÙyÙƒ_ÐÉÍƒýåÝåÙåÙÙÙÍïÕíCyÁáåÅ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yOÍ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ü>ÁÉÅ*ë>åæ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áÐÍÎ521Ê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
Í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áÚÐ¸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ÍýÑáÁÚÍ>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!€€Ã(lµAÍÌü!p(lÖí°>ÃÚ.!)AAí°ÃÔ]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ÍýÁÑáãëå!@BÿÉã ÿ Ó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> Í&ý!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ÑÁ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ÍðüÌ%aA:µ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.Èþ,Âÿ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#"BB·íBÀÃ_*B¯2vBwÕyBíR}íSB*½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± ÁÅÅÕÍÙ\SAVEBLOADBRUNCLOSEMON 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ÍÁ[:µAA!©AÍÞü7È>HÍÆ[>HÍÁ[:µAA!©AÍÞü7ÈÃé^Í[ÐÍD[Ð>AÍÆ[:µAA!õAÍÌü7È>HÍÆ[:µAA!õAÍÌü7È©A!Aí°>aÍÆ[>AÍÁ[:µAA!©AÍÞü7È>hÍÆ[>hÍÁ[:µAA!©AÍÞü7ÈÃé^æ7õÍ[ÁÐÅÍD[ÁÐÅ>AÍÆ[!õAA:µAÍÌüÊ×P>HÍÆ[!õAA:µAÍÌüÂé^:BGñËX xË/2B!õAA:µAÍÏü7ÈÃé^L!AÍÍÀüÂé^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ÍýÑÁË…ËË•z0í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þ(,þ((þ(þ(þ(%þ(ðÃ!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ÙÃüÂé^:µAAÍíüÁÂé^Íÿ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ÍÆ[:µAA!õAÍÌü(>HÍÆ[:µAA!õAÍÌü ?>aÍÁ[:µA!©AÍáü(>hÍÁ[:µA!©AÍáü!AÍµ[~õ!©AÍµ[ñö w:µAA!©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>>>>$>>>>>>>>> >!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Áã(##Øá:µAAÍíüÃaáyõÍ?b0ñõÍOaÊé`òé`ñîèæÀÊ÷`0Íô\ÍÙ\ ø:¶AÍÃü:¶AGÍÿa!‰C"E?ñõÍÃüÂé^:µAí[’BÍíü*’B"”B>AÍÆ[>AÍS\ÁÍÿa!/"I?,!‰C"E?!RC"K?!/"I?ñõÍ ÁÉ: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·ii•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{j00315IF x$="4" THEN 1300320IF x$="5" THEN 1400325IF x$="6" THEN 1500330IF x$="7" THEN 1600335IF x$="8" THEN 1700340IF x$="9" THEN 2030345IF x$="0" THEN 1900350HOME:? "PLEASE PRESS 1,2,3,4,5,6,7,8,9 or 0"355? "      - PRESS ANY KEY":GET a$:GOTO 101000POKE 17115, 22:TEXT:GOTO 20001100POKE 17115, 26:TEXT:GOTO 20001200POKE 17115, 18:TEXT:GOTO 20001300POKE 17115, 31:TEXT:GOTO 20001400POKE 17115, 241:TEXT:GOTO 20001500POKE 17115, 246:TEXT:GOTO 20001600POKE 17115, 244:TEXT:GOTO 20001700POKE 17115,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR "; i; " IS "; 135INPUT "   "; a(i)140NEXT150FOR a1=1 TO zz-1160FOR a2=a1+1 TO zz170IF a(a1)<a(a2) THEN 210175HOME180 t=a(a1)190 a(a1)=a(a2)199HOME:?:?200 a(a2)=t210NEXT220NEXT230FOR j=1 TO zz240? "   "; a(j); 250NEXT255?:?:?260ENDÿÿÿÿ…		Whc3aÿÿÿÿÿÿÿŽ’Whc3Aÿÿÿÿÿÿÿ™uWBLOCKS LEFT¤[3REM    ROOMHEAT by G.L. Vrancks 19885HOME:?:?10? "BTU REQUIRED TO HEAT A ROOM":?20INPUT "LENGTH in feet "; l30INPUT "WIDTH in feet "; w40INPUT "HEIGTH in feet "; h50INPUT "OUTSIDE DESIGN TEMATURE "; o60INPUT "INSIDE TEMPATURE  "; i70 z=(i-o)*l*w*h*.133*.875?:?:?80? "IT WOULD REQUIRE  "; INT(z); " OUTPUT"90? "BTU's TO HEAT THIS ROOM "100?:? "PRESS ANY KEY "110GET zz$:HOME:END TO BASIC"120? "'0'= RETURN TO MENU "200GET x$:HOME300IF x$="1" THEN 1000305IF x$="2" THEN 1100310IF x$="3" THEN 12j°jjj£jjj½jÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÅåÕ!·l9-í°!kl¬Lí°Í¬ÑáÁ:oý2µAÍÌüÊA!;ÍN/Í`/Í`/!älÍN/Í`/ÃAÉÿþÐ Éÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ10REM    NUMERICAL  by Jerry Vrancks11REM   Puts whole numbers in numerical order12REM   50 to 100 numbers will fit on screen13REM   It will do decimals if number does'nt end in 014REM   Enter numbers in any order15REM    If number is over 9 digits you will get a  E error 16REM   Numbers go from left to right17REM   Part of the right most number may be on the next line50HOME:?:?60CLEAR70? " HOW MANY NUMBERS DO YOU WISH":?80INPUT " TO ENTER "; zz:HOME:?:?110DIM a(zz)120FOR i=1 TO zz130? " NUMBEÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ50REM    PLOTSIZE by G.L. Vrancks  198951REM     figures sq. & acreage for a given lot 52REM     give length & width in feet only100HOME:POKE 17115, 244:TEXT110?:?200? "    LAND AREA":?:?300? "WHAT IS THE LAND LENGTH "310INPUT "IN FEET  "; ll:?400? "WHAT IS IT's WIDTH"410INPUT "IN FEET  "; lw:?448REM    square feet450 sf=ll*lw458REM     acreage460 la=sf/43560500?:?510? "A LOT "; ll; " FEET LONG":?520? "AND "; lw; " FEET WIDE":?600?610? "HAS AN AREA OF"620? sf; " SQ. FT. "630? "    or"6416953, 95:POKE 17059, 0:POKE 17115, 240:POKE 17126, 15:TEXT:END8910VTAB v:HTAB h-1:? " "; pn$(1+INT((h/17)+(v-3)*2)); :RETURN8920VTAB v:HTAB h-1:INVERSE:? " "; pn$(1+INT((h/17)+(v-3)*2)); :NORMAL:RETURN9000DATA            A,HEATORCOOL ,A,PRINTCATLG,A,ROOMAC  ,A,DATASHEET ,A,KWHCOST  ,A,AIRCOST ,A,CEMENTNEED  9010DATA                  A,ROOMHEAT   ,A,THI   ,A,DRIPDRIP  ,A,VOLUME,A,NUMERICAL    ,A,THERMCOST,A,BURNWOOD2 9020DATA                     A,LANDSIZE ,A,INSULATION,A,WALKING,A,SHEDHEAT,A,EASYCOOL,300POKE 16149, 255:POKE 16150, 255:POKE 16953, 01000 pn=20:DIM pa$(36), pn$(36):FOR i=1 TO pn:READ pa$(i), pn$(i)1012 l=LEN(pn$(i)):IF l<11 THEN  pn$(i)=pn$(i)+" ":GOTO 10121014NEXT:POKE 17059, 4:POKE 17115, 244:POKE 17126, 161:TEXT1030HTAB 2:INVERSE:? " * * J E R R Y'S   T W O * * "; 1040VTAB 22:HTAB 4:? " * * * *  1990   * * * * ":NORMAL1050? " USE ARROW KEYS, THEN <RETURN>     PRESS <ESCAPE> TO ABORT"; 1100 v=3: h=4:FOR i=1 TO pn:VTAB v:HTAB h:? pn$(i); :IF h=4 THEN  h=17:NEXT1130 v=v+1: h=4:NEXT16953, 95:POKE 17059, 0:POKE 17115, 240:POKE 17126, 15:TEXT:END8910VTAB v:HTAB h-1:? " "; pn$(1+INT((h/17)+(v-3)*2)); :RETURN8920VTAB v:HTAB h-1:INVERSE:? " "; pn$(1+INT((h/17)+(v-3)*2)); :NORMAL:RETURN9000DATA            A,HEATORCOOL ,A,PRINTCATLG,A,ROOMAC  ,A,DATASHEET ,A,KWHCOST  ,A,AIRCOST ,A,CEMENTNEED  9010DATA                  A,ROOMHEAT   ,A,THI   ,A,DRIPDRIP  ,A,VOLUME,A,NUMERICAL    ,A,THERMCOST,A,BURNWOOD2 9020DATA                     A,LANDSIZE ,A,INSULATION,A,WALKING,A,SHEDHEAT,A,EASYCOOL,T(i/17)=i/17):GOSUB 8920:GOTO 12301310IF p=163 AND h=17 THEN GOSUB 8910: h=4:GOSUB 89201320IF p=161 AND h=4 THEN GOSUB 8910: h=17:GOSUB 89201330IF p>163 THEN ? CHR$(7); :GOTO 12001390GOTO 12305000 pa=1+INT((h/17)+(v-3)*2)5002POKE 17059, 0:POKE 17115, 240:POKE 17126, 15:POKE 16953, 955004HOME:VTAB 5:HTAB 4:? "LOADING "; pn$(pa):VTAB 18:HTAB 14:FLASH:? " Please Wait..."; :NORMAL5006VTAB 23:HTAB 1:? CHR$(4); 5010IF pa$(pa)="A" THEN ? "run "; pn$(pa)5020IF pa$(pa)="H" THEN ? "brun "; pn$(pa)8900POKE 0? la; " ACRES ":?:?700? "PRESS ANY KEY"710GET z$715REM     changes screen color720POKE 17115, 240:TEXT:END 1700340IF x$="9" THEN 2030345IF x$="0" THEN 1900350HOME:? "PLEASE PRESS 1,2,3,4,5,6,7,8,9 or 0"355? "      - PRESS ANY KEY":GET a$:GOTO 101000POKE 17115, 22:TEXT:GOTO 20001100POKE 17115, 26:TEXT:GOTO 20001200POKE 17115, 18:TEXT:GOTO 20001300POKE 17115, 31:TEXT:GOTO 20001400POKE 17115, 241:TEXT:GOTO 20001500POKE 17115, 246:TEXT:GOTO 20001600POKE 17115, 244:TEXT:GOTO 20001700POKE 17115,A,PULLYSPEED   9030DATA              A,ppppp,A,eeeeeeeee,A,bbbbbbbb910: h=4:GOSUB 89201320IF p=161 AND h=4 THEN GOSUB 8910: h=17:GOSUB 89201330IF p>163 THEN ? CHR$(7); :GOTO 12001390GOTO 12305000 pa=1+INT((h/17)+(v-3)*2)5002POKE 17059, 0:POKE 17115, 240:POKE 17126, 15:POKE 16953, 955004HOME:VTAB 5:HTAB 4:? "LOADING "; pn$(pa):VTAB 18:HTAB 14:FLASH:? " Please Wait..."; :NORMAL5006VTAB 23:HTAB 1:? CHR$(4); 5010IF pa$(pa)="A" THEN ? "run "; pn$(pa)5020IF pa$(pa)="H" THEN ? "brun "; pn$(pa)8900POKE 1200 h=4: v=3:GOSUB 8920:POKE 64885, 01230 p=PEEK(64885):IF p=0 THEN 12301235POKE 64885, 0:IF p=128 THEN GOSUB 8910:GOTO 12001250IF p=3 OR p=27 THEN 89001260IF p=13 THEN 50001270IF p>159 THEN 12851280IF p<160 THEN ? CHR$(7); :GOSUB 8910:GOTO 12001285IF p=162 AND v>=2+pn/2 THEN GOSUB 8910: v=3: h=17:GOSUB 8920:GOTO 12301290IF p=162 AND v<2+pn/2 THEN GOSUB 8910: v=v+1:GOSUB 89201300IF p=160 AND v>3 THEN GOSUB 8910: v=v-1:GOSUB 8920:GOTO 12301305IF p=160 AND v=3 THEN GOSUB 8910: v=2+pn/2: h=4+13*(IN25REM    THI by G.L. Vrancks  198926REM    THI is the temerature humidity index27REM    enter temperature & humidity28REM    most people are uncomfortable  above 78 to 80%48REM    screen color50POKE 17115, 244:TEXT58REM    cursor shape60POKE 16953, 19190HOME:?:?100INPUT "ENTER THE RELATIVE HUMIDITY "; h:?:?110IF h>94 THEN  a=0120IF h>89 AND h<95 THEN  a=2130IF h>79 AND h<90 THEN  a=4140IF h>69 AND h<80 THEN  a=6150IF h>59 AND h<70 THEN  a=10160IF h<60 THEN  a=14170INPUT "ENTER TEMPERATURE (i "; bc$:?650? " ARE WINDOWS & DOORS (L)OOSE"660? " (A)VERAGE OR (T)IGHT"670INPUT " CONSTRUCTION "; zz$:?700IF a$="L" OR a$="l" THEN GOSUB 5000710IF ss2=2 GOTO 6000720? " WHAT IS THE INSIDE"728REM             use decimal form                 730INPUT " WALL HEIGTH "; wh:?735IF a$="L" OR a$="l" GOTO 770738REM            use decimal form  45.5 for 45 ft 6 in, etc.740? " WHAT IS THE HOUSE OUTSIDE"748REM             use decimal form  25.5 for 25 ft 6 in, etc. 750INPUT " LENGTH "; hl:?758REM        10REM            HEATORCOOL by G.L. Vrancks 1990  12REM           Calculates the heating and/or cooling14REM           Requirement of a house16REM           Will also figure BTU's saved by 18REM           By adding more insulation20REM           Run DATASHEET first for a print-out22REM           Of information needed to run24REM           This program26REM           Read docHC via WP186REM           sets screen color to blue190POKE 17115, 244:POKE 17059, 5:TEXT198?:?200? " HOUSE HEATING AND COOL"910INPUT " in inches "; fi:?1000? " DO YOU WANT THIS CALCULATION"1010? " FOR 'C' = COOLING ONLY"1020? "     'H' = HEATING ONLY"1030? "     'B' = BOTH HEAT & COOL":?1040INPUT ch$:HOME1098REM           figures heat load1100IF ch$="H" OR ch$="h" THEN GOSUB 70001108REM           figures cooling load1110IF ch$="C" OR ch$="c" THEN GOSUB 80001118REM           figures both heat & cooling1120IF ch$="B" OR ch$="b" THEN GOSUB 70001130IF ch$="B" OR ch$="b" THEN GOSUB 80002186REM           figures cubic fTASHEET410? CHR$(4); "run DATASHEET"500HOME:?:?:? " TYPE IN THE INFORMATION"510? " THEN PRESS <RETURN>":?:?520? " IS THE HOUSE  L SHAPED = 'L'>"530? " OR SQUARE/RECTANGLE ='S'>":?540INPUT a$:?550INPUT " IS IT 1 OR 2 STORIES "; ss2:?570? " WHAT TYPE OF FLOOR":?:?580? "  B = FLOOR OVER BASEMENT"590? "  C = FLOOR OVER CRAWL SPACE"600? "  S = SLAB FLOOR"610INPUT bb$:HOME:?:?620IF bb$="S" OR bb$="s" OR bb$="C" OR bb$="c" GOTO 650630INPUT " IS BASEMENT HEATED y/n "; bh$640INPUT " and/or COOLED  y/nn F) "; t180 th=.8*t+15-a:?:?190? "THE TEMPERATURE HUMIDITY INDEX":FLASH200? " IS "; th:NORMAL:?:?202? " IF YOU HAVE A RESPIRATORY"203? " PROBLEM AND THE THI IS 80 OR"204? " ABOVE, STAY INSIDE":?:?210? "PRESS RETURN TO RERUN"220?:? " OR  s  TO STOP "225GET z$230IF z$="s" OR z$="S" GOTO 250240GOTO 90250POKE 16953, 95:POKE 17115, 240:TEXT300END      use decimal form                                760INPUT " WHAT IS ITS WIDTH "; hw:?770? " WINDOW & DOOR AREA FACING"780? " SOUTH & WEST IN SQ. FT."790INPUT gs:?800? " WINDOW & DOOR AREA FACING"810? " NORTH & EAST IN SQ. FT."820INPUT gn:?848REM           use decimal form  8.5 for 8 1/2 in.; etc.850? " CEILING INSULATION"860INPUT " IN INCHES "; ci:?868REM           use decimal form 870? " WALL INSULATION"880INPUT " IN INCHES "; wi:?890? " CRAWL SPACE - SLAB or"900? " BASEMENT INSULATION ING"210? "         CALCULATION":?:?220? " YOU NEED TO KNOW CERTAIN"230? " INFORMATION ABOUT THE HOUSE"240? " BEFORE RUNNING THIS PROGRAM":?250? " RUN 'DATASHEET' FIRST, IT IS"260? " A LISTING OF ALL THE"270? " INFORMATION YOU'LL NEED":?280? " PRESS 1 TO CONTINUE":?290? "       2 TO STOP":?300? "       3 to RUN 'DATASHEET'":?310? " NOTE: 'DATASHEET' MUST BE ON"320? "        THIS MEDIA":?330GET x:HOME340ON x GOTO 500, 350, 400350HOME:END400HOME:?:?:? " PLEASE STAND BY"408REM           runs DAt., sq. ft., glass & door area & wall area2190IF ss2=2 THEN  wh=f1+f2+.82200 x=3.14: sf=hl*hw2210IF a$="L" OR a$="l" THEN  sf=(s1*s6)+(s3*s4)2220 os=(hl+hw)*22230IF a$="L" OR a$="l" THEN  os=s1+s2+s3+s4+s5+s62240 cf=sf*wh2250IF ss2=2 THEN  cf=wh*sf2260 gd=gs+gn2270 wa=wh*os-gd2280IF ss2=2 THEN  wa=wh*os-gd2288REM           temperature differance between inside & outside2290 hz=ht-wd: cz=sd-sh2318REM           air infiltration2320IF zz$="T" OR zz$="t" THEN  hi=cf*.016*hz2330IF zz$="A" OR zz$="R bb$="c" THEN  fh=(1/(fi*x+2.83))*sf*td2840IF bb$="S" OR bb$="s" THEN  fh=(1/(f1*x+1))*os*hz*.32*2+10002850 ba=(1/(fi*x+3.19))*os*2*hz2860 bx=hz*.4: bz=hz*.52870 bb=(1/(fi*x+3.19))*os*5.5*bx2880 bf=bz*.313*sf2889IF bb$="B" OR bb$="b" THEN  fh=ba+bb+bf2900IF bh$="N" OR bh$="n" THEN  fh=fh*.22908REM           wall load (heat)2910 wx=(1/wr)*wa*hz2918REM           glass load (heat)2920 gh=gd*hz*.62928REM           total heating load2930 th=hi+gh+wx+ch+fh2940HOME:?:?2950? " THE TOTAL HEATING LOADrl-sh2468REM           ceiling load (cooling)2470 cu=(1/(ci*x+1.09))*sf*ct2478REM           floor, basement, slab load (cooling)2480 ft=sd-10-sh2490 vv=(os*14)-(fi*150)2500IF bb$="C" OR bb$="c" THEN  fu=(1/(fi*x+2.83))*sf*ft2510IF bb$="S" OR bb$="s" THEN  fu=(1/(fi*x+1))*os*cz*.32*22520IF bb$="B" OR bb$="b" THEN  fu=(1/(fi*x+2.51))*cz*os*5.5+vv2530IF bc$="N" OR bc$="n" THEN  fu=fu*.12538REM           window sun load2540 pp=gs*402550IF v$="Y" OR v$="y" THEN  pp=pp*.32560 gu=gd*.56*cz+pp2568REM D PROPERLY":?5025? " SIDE 1 CAN BE FACEING ANY      DIRECTION, BUT THEY MUST BE    NUMBERED GOING CLOCKWISE"5027?:?:? "   PRESS ANY KEY"5028REM           HGR screen to blue (I LIKE BLUE)5030POKE 25471, 20:GET w$5038REM           leyout for  L  shaped house5040TEXT:HGR:HCOLOR =35042HPLOT 50, 40 TO 180, 40 TO 180, 120 TO 110, 120 TO 110, 80 TO 50, 80 TO 50, 405044HPLOT 110, 20 TO 110, 305046HPLOT 150, 20 TO 200, 20 TO 200, 50 TO 205, 40 TO 195, 40 TO 200, 505048HPLOT 190, 70 TO 190, 805050HPLOT 195ERATURE"2710? " IS "; sd; " WOULD BE ":INVERSE:?2720? "   "; INT(tc):NORMAL:?:? "     BTU's PER HOUR":?:?2740? "      PRESS ANY KEY":?:?2750GET p$2755IF ch$="B" OR ch$="b" GOTO 28102760? " DO YOU WANT A PRINT OUT OF"2770? " THIS CALCULATION"2780INPUT "   Y/N "; q$2790IF q$="Y" OR q$="y" GOTO 90002800HOME:GOTO 96002808REM           ceiling load (heating)2810 ch=(1/(ci*x+1.09))*sf*hz2818REM           floor, basement, slab load (heat)2820 td=ht-(wd+30)2825IF wd>19 THEN  td=ht-wd2830IF bb$="C" Oa" THEN  hi=cf*.021*hz2340IF zz$="L" OR zz$="l" THEN  hi=cf*.026*hz2350IF zz$="T" OR zz$="t" THEN  ai=cf*.021*cz2360IF zz$="A" OR zz$="a" THEN  ai=cf*.029*cz2370IF zz$="L" OR zz$="l" THEN  ai=cf*.037*cz2378REM           roof sun load2380IF r$="D" OR r$="d" THEN  rl=502390IF r$="M" OR r$="m" THEN  rl=402400IF r$="L" OR r$="l" THEN  rl=302408REM           wall sun load2410IF s$="D" OR r$="d" THEN  wl=202420IF s$="M" OR r$="m" THEN  wl=152430IF s$="L" OR r$="l" THEN  wl=102440 ta=wa+gd2450 ct=sd+"2960? " FOR THIS HOUSE TO MAINTAIN"2970? " A TEMPERATURE OF "; ht2980? " WHEN ITS "; wd; " OUTSIDE"2990? " WILL REQUIRE ":INVERSE:?3000? "   "; INT(th):NORMAL:?:? " (output) BTU's FROM THE HEATING SYSTEM":?:?3020? " DO YOU WANT A PRINT OUT OF"3030? " THIS CALCULATION  Y/N "3040INPUT t$3050IF t$="Y" OR t$="y" GOTO 90003060HOME:GOTO 96005000? " USE THE FOLLOWING LAYOUT"5005? " WHEN GIVING WALL LENGTHS":?5010? " IT DOESN'T MATTER WHAT THE"5015? " LENGTHS ARE AS LONG AS THE"5020? " LAYOUT IS USE          wall load2570 wr=wi*x+4.072580 sl=(sd+wl)-sh: wq=1/wr2590 ws=(ta*.5-gs)*wq*sl2600 wn=(ta*.5-gn)*wq*cz2610 wu=ws+wn2618REM           people & electrical load2620 ol=oo*400: el=eu*3.42628REM           total cooling load2630 ca=ol+ai+wu+gu+fu+cu2640 lh=ca*.122650 tc=ca+el+lh2658REM           goes to heating2660IF ch$="H" OR ch$="h" GOTO 28102665HOME:?:?2670? " THE TOTAL COOLING LOAD FOR"2680? " THIS HOUSE TO MAINTAIN A"2690? " INSIDE TEMPERATURE OF "; sh2700? " WHEN THE OUTSIDE TEMP, 70 TO 195, 805052HPLOT 130, 130 TO 130, 1405054HPLOT 135, 130 TO 135, 1405056HPLOT 140, 130 TO 140, 1405058HPLOT 115, 90 TO 115, 1005060HPLOT 120, 90 TO 123, 100 TO 126, 905062HPLOT 70, 90 TO 73, 100 TO 76, 905064HPLOT 30, 60 TO 33, 70 TO 36, 605066HPLOT 41, 60 TO 41, 705150? " PRESS ANY KEY TO GIVE OUTSIDE"5152? " WALL LENGTHS"5158REM           HGR screen to default5160GET z$:POKE 25471, 17:TEXT5170INPUT " LENGTH OF SIDE #1 "; s1:?5180INPUT " LENGTH OF SIDE #2 "; s2:?5190INPUT " LENGTH OF INT(el):?9130IF ch$="B" OR ch$="b" GOTO 92009140? " THIS CALCULATION IS BASED ON YOUR INPUT DATA":?9150? " COOLING SYSTEMS SHOULD BE DESIGNED BY SPECIALEST":?9160PR #0:HOME:GOTO 96009198REM           PRINTS heaing calculation9200? " THE HEATING LOAD IS "9210? "    "; INT(th); " (output) BTU's PER HOUR":?9220? " THE BREAKDOWN IS AS FOLLOWS":?9230? " AIR INFILTRATION ", INT(hi)9240? " WINDOWS & DOORS ", INT(gh)9250? " WALLS          ", INT(wx)9260? " CEILING         ", INT(ch)9270? " FLOOR or BASCOND FLOOR WALL HEIGTH "; f2:?6040GOTO 7356998REM           house & outside temperatures7000HOME:? " WHAT IS YOUR LOCO WINTER"7010INPUT " OUTSIDE DESIGN TEMPERATURE "; wd:?7020? " AT WHAT TEMPERATURE DO YOU     WANT"7030? " TO KEEP THE HOUSE IN THE"7040INPUT " WINTER "; ht:?7050RETURN8000? " WHAT IS YOUR LOCO SUMMER"8010? " OUTSIDE DESIGN TEMPERATURE"8020INPUT sd8030? " WHAT TEMPERATURE DO YOU WANT   TO"8040? " KEEP THE HOUSE IN THE"8048REM           cooling inputs8050INPUT " SUMMER "; sh:?8HES"10030INPUT " WOULD YOU LIKE TO ADD "; zc:?10040? " THE WALLS HAVE "; wi; " INCHES"10050? " OF INSULATION,HOW MANY INSHES"10060INPUT " WOULD YOU ADD "; ww:?10070? " THE FLOOR or BASEMENT HAS "; fi10080? " INCHES OF INSULATION HOW"10090? " MANY INCHES WOULD ADD"10100INPUT ff:?:?10110? " DO YOU WANT A PRINT-OUT Y/N"10120INPUT xz$10130IF xz$="Y" OR xz$="y" THEN PR #110140HOME10150? " IF YOU ADD "; zc; " INCHES TO"10160? " THE CEILING AND "; ww; " IN"10170? " THE WALLS AND "; ff; " TO THE"101only9010IF ch$="H" OR ch$="h" GOTO 92009018REM           PRINTS cooling calculation9020? " THE COOLING LOAD IS"9028REM           goto HEATING print-out9030? "    "; INT(tc); " BTU's PER HOUR":?9040? " THE BREAKDOWN IS AS FOLLOWS":?9050? " OCCUPANT LOAD    ", ol9060? " AIR INFILTRATION    ", INT(ai)9070? " WALLS           ", INT(wu)9080? " WINDOWS & DOORS ", INT(gu)9090? " FLOOR or BASEMENT ", INT(fu)9100? " CEILING         ", INT(cu)9110? " LATENT HEAT     ", INT(lh)9120? " ELECTRICAL LOAD ", SIDE #3 "; s3:?5200INPUT " LENGTH OF SIDE #4 "; s4:?5210INPUT " LENGTH OF SIDE #5 "; s5:?5220INPUT " LENGTH OF SIDE #6 "; s6:?5240IF s3+s5=s1 AND s4+s6=s2 GOTO 53005250HOME:?:?:?5260? " YOU DID NOT USE THE LAYOUT":?5270? " PROPERLY    ' PRESS ANY KEY'":?5280? " TO REDO THE WALL LENGTHS"5288REM           reruns wall lengths5290GET y$:HOME:GOTO 50005300RETURN5998REM           2 story house wall heigths          6000? " WHAT IS THE FIRST FLOOR"6010INPUT " INSIDE WALL HEIGTH "; f1:?6020INPUT " SEEMENT ", INT(fh):?9280? " THIS CALCULATION IS BASED ON YOUR INPUT DATA":?9290? " HEATING and/or COOLING SYSTEMS SHOULD BE DESIGNED BY SPICIALEST":?9300?:PR #0:HOME:?:?9600? " DO YOU WANT TO SEE WHAT"9610? " SAVINGS COULD BE ACHIEVED"9620? " BY ADDING MORE , WALL "9630? " CEILING or FLOOR INSULATION"9640INPUT "  Y/N  "; mi$9650IF mi$="Y" OR mi$="y" GOTO 100009660GOTO 1100010000HOME:?:?10008REM           added insulation10010? " THE CEILING HAS "; ci; " INCHES"10020? " OF INSULATION,HOW MANY INC060? " HOW MANY PEOPLE OCCUPY THE "8070INPUT " HOUSE "; oo:?8080? " WHAT IS THE AVERAGE"8090? " ELECTRICAL USAGE IN WATTS"8100INPUT " PER HOUR "; eu:?8110? " ARE THE SOUTH & WEST WINDOWS"8120INPUT " COVERED BY AWNINGS Y/N "; v$:?8130? " IS THE ROOF (D)ARK - (M)EDIUM"8140INPUT " OR (L)IGHT IN COLOR "; r$:?8150? " IS THE HOUSE SIDING (D)ARK "8160? "(M)EDIUM OR (L)IGHT IN COLOR"8170INPUT s$:?8180RETURN9000PR #1:?9005? " HOUSE HEATING and/or COOLING REQUIREMENTS":?9008REM           goto for heat 80? " FLOOR or BASEMENT":?10200 z1=ci+zc: z2=wi+ww: z3=fi+ff10210 c1=z1*x+1.09: w1=z2*x+4.07: f3=z3*x+2.83: f8=z3*x+1: b1=z3*x+2.5110216REM           new wall, basement or floor10218REM           and ceiling load10220 c2=(1/c1)*sf*ct: c3=(1/c1)*sf*hz10230 cp=cu-c2: co=ch-c310240 w5=1/w1: w4=(ta*.5-gs)*w5*sl10250 w3=(ta*.5-gn)*w5*cz: w2=w4+w310260 wb=wu-w2: w6=w5*wa*hz: wo=wx-w610270 ee=oa*14-(z3*150): f9=(1/b1)*os*cz*5.5+ee10280 b2=(1/b1)*os*2*hz: b3=(1/b1)*os*5.5*bx10290 fc=b2+b3+bf10300 f4=(1        screen to default11000POKE 17115, 240:POKE 17059, 0:TEXT:END10010520IF ch$="C" OR ch$="c" GOTO 1056010540? " * A SAVINGS OF $ "; INT(h6+.5)/10010550? " FOR EVERY $ 100.00 YOU NOW SPEND ON HEATING":?10555IF ch$="H" OR ch$="h" GOTO 1058010560? " * A SAVINGS OF $ "; INT(c6+.5)/10010570? " FOR EVERY $ 100.00 YOU NOW SPEND ON COOLING":?10580IF xz$="N" OR xz$="n" GOTO 1071010585? " THIS CALCULATION IS FOR A"10590IF a$="S" OR a$="s" THEN ? "SQUARE/RECTANGLE "; 10595IF a$="L" OR a$="l" THEN ? "'OTO 1045010438REM           PRINTS new BTU required10440? "  *  THE HEATING BTU's WOULD BE ", INT(zz):?10445IF ch$="H" OR ch$="h" GOTO 1047010450? "  *  THE COOLING BTU's WOULD BE ", INT(xx):?10460IF ch$="C" OR ch$="c" GOTO 1047510470? " THE BTU SAVINGS FOR HEATING WOULD BE   "; INT(x1):?10472IF ch$="H" OR ch$="h" GOTO 1048010475? " THE BTU SAVINGS FOR COOLING WOULD BE   "; INT(x2):?10476IF ch$="C" OR ch$="c" GOTO 1050010478REM           money saved10480 h2=x1/th: h4=h2*10010490 h6=h4*10010495Iq. or Rectangle:Width_____Length______ (B)"9090? "L shaped(use layout below) (B)"9100? "Side 1___Side 2___Side 3___Side 4___Side 5___Side 6___"9110? "No. of stories:1__or 2__"9112? "Is roof Light,Medium or Dark in color______ (C)"9115? "Is house color Light - Medium or Dark___ (C)"9120? "Inside wall heigth: 1st. floor___,2nd. floor___ (B)"9130? "Wall insulation_____in. (B)"9140? "Ceiling insulation_____in. (B)"9150? "Floor insulation_____in. (B)"9160? "Window & door area,South & West ______sq. ft.L' SHAPED"; 10600IF ss2=1 THEN ? " SINGLE STORY HOUSE"; 10605IF ss2=2 THEN ? " TWO STORY HOUSE"; 10610IF bh$="Y" OR bh$="y" THEN ? " with HEATED"; 10615IF bh$="N" OR bh$="n" THEN ? " with UNHEATED"; 10620IF bc$="Y" OR bc$="y" THEN ? " and/or COOLED BASEMENT"; 10625IF bc$="N" OR bc$="n" THEN ? " and/or UNCOOLED BASEMENT"; 10630IF bb$="C" OR bb$="c" THEN ? " with a CRAWL SPACE"10635IF bb$="S" OR bb$="s" THEN ? " with a SLAB FLOOR"10700PR #0:HOME:?:?10710? "     PRESS ANY KEY"10730GET q$10998REM   /f3)*ft*sf: f5=(1/f3)*sf*td10310 fv=fu-f4: fo=fh-f510320 fq=fu-f9: fz=fh-fc10330 f10=(1/f8)*os*cz*.32*2: fb=(1/f8)*os*hz*.32+100010340 fp=fu-f10: fa=fh-fb10350IF bb$="C" OR bb$="c" THEN  xx=tc-(cp+wb+fv)10360IF bb$="B" OR bb$="b" THEN  xx=tc-(cp+wb+fq)10370IF bb$="S" OR bb$="s" THEN  xx=tc-(cp+wb+fp)10380IF bb$="C" OR bb$="c" THEN  zz=th-(co+wo+fo)10390IF bb$="B" OR bb$="b" THEN  zz=th-(co+wo+fz)10400IF bb$="S" OR bb$="s" THEN  zz=th-(co+wo+fa)10410 x1=th-zz: x2=tc-xx10420IF ch$="C" OR ch$="c" G4999HOME:?:?5000? " PUT PAPER IN THE PRINTER":?5010? "PRESS ANY KEY TO GET A "5015? "PRINT-OUT OF 'DATASHEET'"5030GET q$:HOME8999HOME:PR #19000? " HOUSE HEATING & COOLING ANALYSIS INPUT FORM"9005? " USE WITH HEATCOOL - COOLONLY - HEATONLY - HEATORCOOL"9010?:?:?9030? "  NAME:____________________________ DATE:_____________":?:?9040? "***":?9050? "Type of House: SQ./Rectangle or  L  Shaped:____ (B)"9060? "Type of floor:Slab,Crawl space,Basement (B)"9070? "Is basement heated __: cooled:__"9080? "SF ch$="H" OR ch$="h" GOTO 1054010500 c2=x2/tc: c4=c2*10010510 c6=c4*10010520IF ch$="C" OR ch$="c" GOTO 1056010540? " * A SAVINGS OF $ "; INT(h6+.5)/10010550? " FOR EVERY $ 100.00 YOU NOW SPEND ON HEATING":?10555IF ch$="H" OR ch$="h" GOTO 1058010560? " * A SAVINGS OF $ "; INT(c6+.5)/10010570? " FOR EVERY $ 100.00 YOU NOW SPEND ON COOLING":?10580IF xz$="N" OR xz$="n" GOTO 1071010585? " THIS CALCULATION IS FOR A"10590IF a$="S" OR a$="s" THEN ? "SQUARE/RECTANGLE "; 10595IF a$="L" OR a$="l" THEN ? "' (B)"9170? "Window & door area,North & East ______sq. ft. (B)"9171? "Do the south & west windows have awnings or shaded all day ___ (C)"9175? "Are doors & windows Tight - Average or Loose construction ____ (B)"9180? "No. of occupants:___ (C)"9190? "Ave. electrical usage (Watts per hr.)______ (C)"9200? "Outside design temperature:Winter______Summer______ (B)"9203? " Desired inside house temp:Winter_____Summer_____ (B)"9210?9220? "***"9230? "Layout for L shaped house; sides can be any length as long235? " 7 = #2 FUEL OIL"240? " 8 = COAL"245? " 9 = WOOD":?260INPUT "    "; xx:ON xx GOTO 300, 310, 320, 330, 340, 350, 360, 370, 380270REM        BTU,s per fuel unit300 bt=102500: v$="NAT.GAS":GOTO 400310 bt=91000: v$="LP GAS":GOTO 400320 bt=21000: v$="LP GAS":GOTO 400330 bt=3414: v$=" ELECTRIC HEAT ":GOTO 400339REM        heatpump figured at 150%340 bt=5121: v$="HEATPUMP":GOTO 400350 bt=135000: v$=" KEROSENE ":GOTO 400360 bt=138500: v$=" #2 FUEL OIL ":GOTO 400370 bt=27000000: v$="COAL ":GOTO 40 SIDE 3":?9410? "(B) = NEEDED FOR HEATING and/or COOLING"9420? "(C) = NEEDED FOR COOLING"9490PR #09500HOME:?:?9530? "   PRESS ANY KEY"9540GET b$10000HOME:END Tight - Average or Loose construction ____ (B)"9180? "No. of occupants:___ (C)"9190? "Ave. electrical usage (Watts per hr.)______ (C)"9200? "Outside design temperature:Winter______Summer______ (B)"9203? " Desired inside house temp:Winter_____Summer_____ (B)"9210?9220? "***"9230? "Layout for L shaped house; sides can be any length as long10.9 cents =  .109460REM        $ 1.20 = 1.20500?:? " COST PER FUEL UNIT ":INPUT "   "; uc510 tc=uc/bt519REM          rounds off tc to 3 points520 tc=tc*1000: tc=INT(tc): tc=tc/1000600HOME:?:?620? " AN INPUT THERM OF  "; v$630? " AT A UNIT PRICE OF $ "; uc640INVERSE:? "      COST $ "; tc:NORMAL:?700REM       output therm cost800? " IF YOU ARE USING THIS FOR A    COMPARABLE FUEL COST YOU MUST  CONSIDER THE HEATING UNITS     EFFICIENCY RATING":?:?810?:? " IF YOU KNOW THE EFFICIENCY"820? " OF THE 50REM        THERMCOST by G.L. VRANCKS  NOV. 198951REM         Use it to compare heating cost    52REM        of different type of fuels53REM        YOU must know fuel unit cost54REM          a THERM is 100,000 input BTU's80POKE 17115, 244:POKE 17059, 4:TEXT100HOME:?:?130? " COST OF A HEATING THERM":?:?135? " A THERM IS 100,000 BTU's":?:?200? "TYPE OF HEATING FUEL":?205? " 1 = NAT. GAS"210? " 2 = LP GAS  gal."215? " 3 = LP GAS  lb."220? " 4 = ELECTRIC"225? " 5 = HEATPUMP"230? " 6 = KEROSENE" s3+s5 = s1 and s4+s6 = s2; number clockwise":?9240?9250? "         --------->               Additional INFO "9260? "   ___SIDE_1_____ "9270? " S[              ]"9280? " I[      L       ]"9290? " D[    SHAPED    ]S"9300? " E[    HOUSE     ]I"9310? "  [              ]D"9320? " 6[              ]E"9330? "  [              ]"9340? "  [______        ]2"9350? " SIDE 5  [       ]"9360? "         [       ]"9370? "    SIDE [4      ]"9380? "         [       ]"9390? "         [_______]"9400? "         0380 bt=17000000: v$=" WOOD ":?399REM        THERMS per unit of fuel400 bt=bt/100000450REM         USE THESE FUEL UNITS451REM         nat.gas = ccf, lp = gal. or lb. (however you buy it)452REM        electric or heatpump = kwh  1000 watts453REM         oil = gal., coal = ton454REM        and wood = cord455REM         all fuels figured at 100% (input)456REM        except heatpump 150%457REM        to figure the cost of heater output458REM         cost * efficiency %459REM        10 cents = .10   s3+s5 = s1 and s4+s6 = s2; number clockwise":?9240?9250? "         --------->               Additional INFO "9260? "   ___SIDE_1_____ "9270? " S[              ]"9280? " I[      L       ]"9290? " D[    SHAPED    ]S"9300? " E[    HOUSE     ]I"9310? "  [              ]D"9320? " 6[              ]E"9330? "  [              ]"9340? "  [______        ]2"9350? " SIDE 5  [       ]"9360? "         [       ]"9370? "    SIDE [4      ]"9380? "         [       ]"9390? "         [_______]"9400? "         HEATING SYSTEM"830? " TYPE IT IN & PRESS <RETURN>"840? " OTHER WISE PRESS '0'"850INPUT er860IF er=0 THEN 1000870 er=(100-er)/100880 op=tc*er885 ob=tc*(1+er)+op890HOME:? " YOUR HEATING SYSTEMS OUTPUT"900? " THERM COST IS $0"; ob:?:?:?1000? " PRESS KEY  C  TO FIGURE A      DIFFERENT FUEL ":?1010? " OR ANY OTHER KEY TO STOP"1020GET p$1030IF p$="C" OR p$="c" GOTO 1001040POKE 17115, 240:POKE 17059, 0:TEXT1050HOME:ENDf heater output458REM         cost * efficiency %459REM        10 cents = .10   YARDS ":?2330IF a$="F" OR a$="f" GOTO 40002340? " PLUSE THE SLABS "; sy; " YARDS":?3000 ty=fy+sy:?3010? " THE TOTAL CUBIC YARDS"3020? " REQUIRED FOR THIS JOB"3030? " IS "; ty:NORMAL:?:?3040? "      PRESS ANY KEY"3990REM    screen to defauld4000GET x$:POKE 17115, 240:POKE 17126, 33:TEXT:NORMAL:ENDs1200 sy=tw*tl*di*100/46656:INVERSE1202 sy=INT(sy)/1001210? "THIS SIZE SLAB REQUIRES":?1220? sy; " CUBIC YARDS":NORMAL:?1300IF a$="S" OR a$="s" GOTO 40002000? "   FOOTING DIMENSIONS":?2010? " THE O20REM     CEMENTNEED  by JERRY VRANCKS22REM    enter feet and or inches at prompts24REM    will do FOOTINGS and or SLABS26REM    gives volume in cubic yards89REM     screen color90CLEAR:POKE 17115, 244:POKE 17126, 11:TEXT100?:?:INVERSE110? "       CONCRETE OR CEMENT    "120? "        NEEDED FOR A JOB     ":NORMAL:?:?130? " IS JOB A (F)OOTING - (S)LAB "140INPUT "OR (B)OTH "; a$:HOME:?:?150IF a$="S" OR a$="s" GOTO 1000160IF a$="F" OR a$="f" GOTO 2000200? " SLAB AND FOOTING DIMENSION":?1000? "   ROOF (M)ETAL OR"2130INPUT " (W)OOD "; rm$:HOME:?:?2200INPUT " ARE THE WALLS INSULATED y/n "; wi$:?2210IF wi$="Y" OR wi$="y" THEN GOSUB 90002300? " IS THE CEILING OR ROOF"2310INPUT " INSULATED  y/n "; ci$:?2320IF ci$="Y" OR ci$="y" THEN GOSUB 91002400? " WHAT IS THE MINIMUM"2410? " TEMERATURE YOU WANT TO"2420INPUT " KEEP THE BLDG. "; mt:?2500? " AT WHAT OUTSISE TEMERATURE"2510? " DO YOU WANT TO KEEP THIS"2520INPUT " INSIDE TEMERATURE "; ot:HOME:?:?2900 x=3.142910 td=mt-ot2920 sf=bw*bl2930 qf=UTSIDE LENGTH IS ":?2020INPUT " FEET "; fl:?2030INPUT " INCHES "; fi:?2050? " THE OUTSIDE WIDTH IS":?2060INPUT " FEET "; ff:?2070INPUT " INCHES "; af:?2090? " WALL THICKNESS IN":?2100INPUT " INCHES "; ti:?2110? " FOOTING DEPTH IN":?2120INPUT " INCHES "; fd:HOME:?:?2190REM    FOOTING rounded off to 2 points2200 lf=fl*12+fi2210 fw=ff*12+af2215 zz=(fw-(ti*2))*ti*fd*22220 xx=lf*ti*fd*22230 fy=(xx+zz)*100/466562240 fy=INT(fy)/1002290INVERSE2300? " THIS SIZE FOOTING REQUIRES":?2310? fy; " CUBIC10.9 cents =  .109460REM        $ 1.20 = 1.20500?:? " COST PER FUEL UNIT ":INPUT "   "; uc510 tc=uc/bt519REM          rounds off tc to 3 points520 tc=tc*1000: tc=INT(tc): tc=tc/1000600HOME:?:?620? " AN INPUT THERM OF  "; v$630? " AT A UNIT PRICE OF $ "; uc640INVERSE:? "      COST $ "; tc:NORMAL:?700REM       output therm cost800? " IF YOU ARE USING THIS FOR A    COMPARABLE FUEL COST YOU MUST  CONSIDER THE HEATING UNITS     EFFICIENCY RATING":?:?810?:? " IF YOU KNOW THE EFFICIENCY"820? " OF THE 900REM     SHEDHEAT by JERRY VRANCKS 1989902REM    use for pole barns, garage, etc.1000POKE 17115, 244:POKE 17126, 11:TEXT:?:?1010INVERSE:? "           SHED  HEAT        ":NORMAL:?1900REM     use 12.6 for 12' 6'' etc.   2000INPUT " IT's WIDTH in feet  "; bw:?2010INPUT " IT's LENGTH in feet  "; bl:?2020INPUT " THE WALL HEIGTH in feet "; wh:?2050? " IS THE ROOF AREA CLOSED OFF"2060INPUT " AT THE CEILING RAFTERS y/n "; cr$:?2100? " ARE THE WALLS (M)ETAL OR"2110INPUT " (W)OOD "; wm$:?2120? " IS THE   SLAB DIMENSIONS":?1010? " IT'S WIDTH IS":?1020INPUT " FEET "; wf:?1030INPUT " INCHES "; wi:?1050 tw=wf*12+wi1060? " IT'S LENGTH IS":?1070INPUT " FEET "; lf:?1080INPUT " INCHES "; li:?1090 tl=lf*12+li1100? " IT'S DEPTH IS":?1110INPUT " INCHES "; di:HOME:?:?1190REM     SLAB rounded off to 2 points1200 sy=tw*tl*di*100/46656:INVERSE1202 sy=INT(sy)/1001210? "THIS SIZE SLAB REQUIRES":?1220? sy; " CUBIC YARDS":NORMAL:?1300IF a$="S" OR a$="s" GOTO 40002000? "   FOOTING DIMENSIONS":?2010? " THE Osf*wh*.04*td2940 wa=(bl+bw)*2*wh2960 wx=(1/(wu*x+1.8))*wa*td2970IF wm$="M" OR wm$="m" THEN  wx=(1/(wu*x+.6))*wa*td2980 rx=(1/(cu*x+1.8))*sf*td2990IF rm$="M" OR rm$="m" THEN  rx=(1/(cu*x+.6))*sf*td3010 fx=sf*td*.3133020 hx=wx+rx+fx+qf3040IF cr$="N" OR cr$="n" THEN  hx=hx*1.35000HOME:?:?5010? " FOR THIS TYPE AND SIZE"5020? " BUILDING , IT REQUIERS":?5030INVERSE5040? "    "; INT(hx); " BTU'S (output)":?5050? "TO MAINTAIN A TEMPERATURE OF ":?5060? mt; " WHEN THE OUTSIDE TEMPERATURE":?5070? "  ISHOW MANY PEOPLE OCCUPY THE     HOUSE "; n:?400 wh=w*5410 gh=g*35420 rh=r*12430 nh=n*400: i=r*2.2440 bt=wh+gh+rh+nh+i500HOME:?:?510? " THE AVERAGE COOLING LOAD FOR ":?520? " THIS SIZE HOUSE IS ROUGHLY":?530? "     "; bt; " BTU's PER HOUR":?:?600? " * THIS IS AN AVERAGE EASTEMENT":?610? " IT DOES NOT TAKE INTO":?620? " CONSIDERATION , MORE OR LESS":?630? " INSULATION , HIGH ELECTRICAL   USAGE OR HIGH SUN LOAD , 2nd.  STORY , BASEMENT,ETC.":?640? " COOLING SYSTEMS SHOULD BE      SIZED BY AN EXPER50REM    EASYCOOL by G.L. Vrancks 1989    51REM     you need to know sq. ft.52REM    total door & window area (sq. ft.)53REM    outside wall area in sq. ft. - glass & door area 54REM    number of people living in house100HOME:?:?110? " * HOME COOLING EASTEMENT ":?:?:?200? " WHAT IS THE SQUARE FEET":?210INPUT " OF THE HOUSE "; r:?220? " WHAT IS THE TOTAL WINDOW and   DOOR AREA IN"230INPUT "SQ. FEET "; g:?240? " WHAT IS THE EXTERIOR WALL ":?250INPUT " AREA,LESS GLASS & DOOR AREA "; w:?300INPUT " 160INPUT "BILLING DAYS    "; c:?170 wu=(b/c/24)*1000180 ec=a/b190HOME:?:?:?200? "FOR THE MONTH of  "; d$:?210? "YOU USED an AVERAGE of":?215? "       "; wu:?220? "WATTS of ELECTRICITY per hour":?:?240? " THE KILOWATT COST was ":?250? ec; " cents per hour":?:?260? " PRESS KEY  (S)  to STOP":?270? "or KEY  (c)  to CONTINUE":?280GET x$290IF x$="S" OR x$="s" THEN POKE 17115, 240:TEXT:END300HOME:?:?310? "You can use this program to    find out how much an electric   appliance cost to run for one hT":?700? "    PRESS ANY KEY"710GET z$720HOME:END you need to know sq. ft.52REM    total door & window area (sq. ft.)53REM    outside wall area in sq. ft. - glass & door area 54REM    number of people living in house100HOME:?:?110? " * HOME COOLING EASTEMENT ":?:?:?200? " WHAT IS THE SQUARE FEET":?210INPUT " OF THE HOUSE "; r:?220? " WHAT IS THE TOTAL WINDOW and   DOOR AREA IN"230INPUT "SQ. FEET "; g:?240? " WHAT IS THE EXTERIOR WALL ":?250INPUT " AREA,LESS GLASS & DOOR AREA "; w:?300INPUT "   "; ot; " DEGREES F.    ":NORMAL:?:?6000? " THIS IS A ROUGH ESTEMENT ONLY":?:?6010? " PRESS ANY KEY"6020GET zz$6030POKE 17115, 240:POKE 17126, 33:TEXT:END9000? " HOW MANY INCHES OF WALL "9010INPUT " INSULATION "; wu:?:RETURN9100? " HOW MANY INCHES OF ROOF OR"9110INPUT " CEILING INSULATION "; cu:?:RETURN2420INPUT " KEEP THE BLDG. "; mt:?2500? " AT WHAT OUTSISE TEMERATURE"2510? " DO YOU WANT TO KEEP THIS"2520INPUT " INSIDE TEMERATURE "; ot:HOME:?:?2900 x=3.142910 td=mt-ot2920 sf=bw*bl2930 qf=50REM   KWHCOST by JERRY VRANCKS 198852REM   Use the information on your 54REM   electric bill to find the kilowatt cost 56REM   And watts used per hour58REM   Also the cost of running an appliance100POKE 17115, 144:TEXT110?:?:?115HOME:INVERSE:? "******************************":NORMAL:?120? " KWH & ELECTRIC APPLIANCE COST":INVERSE:?125? "******************************":NORMAL130?:?:INPUT "FOR THE MONTH OF  "; d$:?140INPUT "THE ELECTRICAL COST WAS  "; a:?150INPUT "KWH of ELECTRICITY used  "; b:?HOW MANY PEOPLE OCCUPY THE     HOUSE "; n:?400 wh=w*5410 gh=g*35420 rh=r*12430 nh=n*400: i=r*2.2440 bt=wh+gh+rh+nh+i500HOME:?:?510? " THE AVERAGE COOLING LOAD FOR ":?520? " THIS SIZE HOUSE IS ROUGHLY":?530? "     "; bt; " BTU's PER HOUR":?:?600? " * THIS IS AN AVERAGE EASTEMENT":?610? " IT DOES NOT TAKE INTO":?620? " CONSIDERATION , MORE OR LESS":?630? " INSULATION , HIGH ELECTRICAL   USAGE OR HIGH SUN LOAD , 2nd.  STORY , BASEMENT,ETC.":?640? " COOLING SYSTEMS SHOULD BE      SIZED BY AN EXPERour":?350? "TV's,WATER HEATER,DRIER,WASHER,AIR CONDITIONER,HAIR DRIER,even a LIGHT BULB":?360? "You  MUST know the WATTAGE of  the appliance  or  BOTH the    VOLTAGE & AMPS":?420? "PRESS key (C) to CONTINUE":?430? "or (S) to STOP":?440GET z$:HOME:?:?450IF z$="S" OR z$="s" THEN POKE 17115, 240:TEXT:END500? "PRESS 0 if WATTAGE is UNKNOWEN":?510INPUT "APPLYANCE WATTAGE is  "; aw520 ac=(aw/1000)*ec525IF aw>0 GOTO 1000535?:? "YOU MUST KNOW BOTH THE VOLTS   AND AMPS":?540INPUT "THE VOLTAGE is  "; av:?AGE is "; cv:? cv512INPUT "(optional) UNIT BTU's is "; bb:? bb520INPUT "THE AMP  DRAW IS "; ca:? ca530INPUT "ELECTRICAL KWH COST IS $0"; kc:? kc:?540 kw=cv*ca/1000545 ac=kw*kc:HOME:?:?550? "THE CONTINUOUS RUNNING OF THIS      "; bb:?555? "BTU WINDOW UNIT FOR ONE HOUR   IS $0."; ac990?:? "  PRESS ANY KEY"1000GET x$:HOME:END OR b$="Q" THEN 990220HOME:?:? " COST OF RUNNING AN AIR         CONDITIONER":?300INPUT "IS it a (c)entral or (w)indow    unit  "; tu$:?310IF tu$="w" OR tu$="W" THEN 500340?:?10REM   AIRCOST by Jerry Vrancks 198812REM   Use name tag data to find the cost of running an air conditioner50HOME:? "THE COST OF RUNNING AN AIR     CONDITIONER":?60? "DO YOU WISH INSTRUCTIONS (y)es or (n)":?70GET c$80IF c$="N" OR c$="n" THEN 220100HOME110? "YOU MUST KNOW THE FOLLOWING":?120? "(A) AIR CONDITIONER VOLTAGE"130? "(B) KWH ELECTRICAL COST"140? "(C) AIR CONDITIONER AMP DRAW "150? "(D) IS A/C A WINDOW or CENTRAL UNIT"155? "(E) FURNACE BLOWER MOTOR AMPS     (if it is a central unit)":?CY OF YOUR HEATING SYSTEM & THE WOOD-BURNER":?:?290? " I ADVISE YOU READ AND PRINT    docBURN VIA  WP":?300NORMAL310? " PRESS LETTER A TO ABORT OR ANY OTHER KEY TO CONTINUE "320GET a$:HOME350IF a$="A" OR a$="a" GOTO 2500400?:? " TYPE IN THE INFORMATION AND    PRESS RETURN":?500? " WHAT WAS LAST YEARS HEATING"510INPUT " FUEL COST "; fc:?540? " NUMBER OF FUEL UNITS USED FOR"550INPUT " HEATING LAST YEAR "; fu:?560? " WHAT IS YOUR PRESENT HEATING   FUEL":?562? " PRESS CORRESPONDING NUMBER":?565? "  "CENTRAL AIR CONDITIONER":?345INPUT "(optional) UNIT BTU's is "; bb:? bb350INPUT "CONDENSER UNIT VOLTAGE IS "; cv:? cv360INPUT "CONDENSER  AMP  DRAW IS "; ca:? ca370INPUT "FURNACE BLOWER MOTOR AMP  DRAW IS  "; ba:? ba375INPUT "ELECTRICAL KWH COST IS $0"; kc:? kc380 fa=ba*115385 tc=ca*cv390 kw=(fa+tc)/1000395 ac=kw*kc:HOME400? "THE CONTINUOUS RUNNING OF THIS "; "     "; bb:?410? "BTU CENTRAL UNIT FOR ONE HOUR  IS $0"; ac450GOTO 990500?:? "WINDOW AIR CONDITIONER":?510INPUT "AIR CONDITIONER VOLT550INPUT "THE AMPERAGE is "; aa:?560 ac=(aa*av/1000)*ec1000 pd=ac*241005HOME:?:?1010? "THE COST OF RUNNING THIS":?1020? "APPLIANCE for one CONTINOUS":?1030? "HOUR is  $0"; ac:?:?1040? "THIS WOULD BE $0"; pd; "       PER DAY":?:?1050? "TO stop = (S)":?1060? "TO DO ANOTHER APPLIANCE = (C)":?1080GET p$:HOME1090IF p$="S" OR p$="s" THEN POKE 17115, 240:TEXT:END1100GOTO 5005, 240:TEXT:END300HOME:?:?310? "You can use this program to    find out how much an electric   appliance cost to run for one h50REM             WOOD BURNING PROGRAM 51REM            BY G.L. VRANCKS  198952REM            FIGURES IF A WOOD-BURNER53REM            SAVES YOU MONEY ON YOUR HEATING BILL99REM          changes screen color100HOME:POKE 17115, 244:POKE 17126, 22:POKE 17059, 4:TEXT140INVERSE150?:? "    * WOOD HEATING COST *     ":?:?200? " YOU MUST KNOW THE COST OF LAST YEARS HEATING BILL":?210? " THE TYPE OF FUEL PRESENTLY     USED FOR HEATING":?220? " HOW MANY FUEL UNITS YOU USED   LAST YEAR":?230? " THE EFFICIEN160? "Press any letter key for more  instructions":?170GET a$:HOME180? "Get the voltage and amp  draw"182? "from the A/c name tag":?190? "If the A/C is central air , get the blower motor amp  draw from the motor name tag ":?200? "SO IF YOU ARE READY PRESS        KEY (c) TO CONTINUE OR (q)   TO STOP ":?210GET b$:HOME:IF b$="q" OR b$="Q" THEN 990220HOME:?:? " COST OF RUNNING AN AIR         CONDITIONER":?300INPUT "IS it a (c)entral or (w)indow    unit  "; tu$:?310IF tu$="w" OR tu$="W" THEN 500340?:?1 = NAT. GAS    2 = L.P. GAS":?567? " 3 = ELECTRIC    4 = HEATPUMP":?570? " 5 = COAL        6 = #2 OIL":?575INPUT tf577REM      BTU of present heating fuel578ON tf GOTO 580, 582, 584, 586, 588, 590580 bu=102500:GOTO 595582 bu=91000:GOTO 595584 bu=3414:GOTO 595586 bu=3414:GOTO 595588 bu=27000000:GOTO 595590 bu=138000:GOTO 595592INPUT bu595HOME:?:?600? " WHAT IS THE EFFICIENCY OF "605REM      electric is 100% & heatpump is 100-150% depending on clement610INPUT " YOUR HEATING SYSTEM "; se:?620 #0:?:?3030? " PRESS KEY S TO STOP OR ANY     OTHER KEY TO RERUN PROGRAM"3040? " USING DIFFERENT VALUES":GET z$:HOME3050IF z$="S" OR z$="s" GOTO 25003060GOTO 500o=co*100: co=INT(co): co=co/1001040? " YOU WILL NEED TO BURN "; co1050? " CORDS OF "; w$; " AT $ "; cc1060? " PER CORD TO REPLACE "; ph*100; " %"1070? " OF YOUR PRESENT HEATING SYSTEM OUT-PUT":?1075 wc=co*cc*100: wc=INT(wc): wc=wc/1001080? " THE TOTAL COST OF THE WOOD"1083? " WOULD BE $ "; wc:?1085 as=as*100: as=INT(as): as=as/1001090IEFFICIENCY OF THE WOOD-BURNER":?760INPUT we800? " WHAT WAS OR WILL BE THE COST   OF THE WOOD-BURNER,IT's        INSTULLATION & ANY RELATED     EQUIPMENT":?820INPUT cw850? " THE COST FOR ONE CORD OF      "; w$; 860INPUT " IS $ "; cc:HOME890REM       calculates for cost or savings900 f1=fu*(se/100)*bu: f2=wb*(we/100)910 co=f1/f2: wc=co*cc*ph: f3=fc*ph920 as=f3-wc: pb=cw/as1000? " WOULD YOU LIKE A PRINT-OUT OF  THIS CALCULATION Y/N, IF YES"1010? " PUT PAPER IN PRINTER BEFORE    PRESSING  Y":GET o$:HR #1115? "  THIS IS A CATALOG OF ` "; aa$; " `":?116? "DATE "; v$:?:?117ON x GOTO 120, 125119REM   change d1 & d2 for dick drives120? b$; "catalog,d1":PR #1:GOTO 130124REM    delete line 125 for just one drive125? b$; "catalog,d2":PR #1:?130?:?:HOME:PR #0140?:?:? " REMOVE TAPE,INSERT NEXT TAPE"145?:? " PRESS ANY LETTER KEY & RETURN":?150? "     OR":?160? " TYPE  NEW  AND PRESS RETURN"170INPUT z$:HOME180IF z$="NEW" OR z$="new" THEN HOME:POKE 17115, 240:TEXT:NEW190HOME:?:?:GOTO 50200PR #0:HOMEF wc>f3 GOTO 30002000? " THIS REPRESENTS A SAVINGS OF  $"; as; " PER YEAR":?2020? " IF FUEL COST & CONSUMPTOIN STAY CONSTANT , THE WOOD-BURNER"2025 pb=pb*10: pb=INT(pb): pb=pb/102030? " WILL PAY FOR IT'S SELF IN "; pb; " YEARS":PR #0:?:?2040? "   PRESS ANY KEY":GET v$2500POKE 17115, 240:POKE 17126, 15:POKE 17059, 0:TEXT:END3000?:? " THE COST OF BURNING WOOD IS $ "; ABS(as); " GREATER THEN YOUR PRESENT"3010? " FUEL COST, THEREFORE THE"3012? " WOOD-BURNER WOULD NEVER PAY"3015? " FOR ITS SELF"3020PRREM          use whole number630? " PERCENTAGE OF YOUR SYSTEMS     OUTPUT YOU WANT THE "640INPUT " WOOD-BURNER TO DELIVER "; ph: ph=ph/100:HOME650? " WHAT KIND OF WOOD WILL YOU BE  BURNING":?660? " 1 = HARDWOOD":? " 2 = SOFTWOOD":? " 3 = MIXED WOODS":?670INPUT x:HOME:ON x GOTO 700, 710, 720699REM            btu's produced by burning a cord of wood700 wb=19000000: w$="HARDWOOD":GOTO 750710 wb=15000000: w$="SOFTWOOD":GOTO 750720 wb=17000000: w$="MIXED WOODS":?749REM          use whole number750? " 10REM    PRINTCATLG  198911REM    prints the tapes catalog12REM    using drives D1 and/or D213REM    will do one tape after the next 14REM    without rerunning the program15CLEAR:POKE 17115, 244:POKE 17059, 4:TEXT20ONERR  GOTO 200:?:?25? "   TAPE CATALOG PRINTOUT":?:?30?:? "   PUT PAPER IN PRINTER":?:?50?:?:? " WHAT IS THE TAPE'S NAME"55INPUT " OR NUMBER  "; aa$:?57INPUT " DATE "; v$:?60? " INSERT TAPE IN DRIVE #1 or #2 ":?70? "  1 = D1":? "  2 = D2 ":?80INPUT "    "; x:HOME:?110 b$=CHR$(4):POME1020IF o$="Y" OR o$="y" THEN PR #11030? "     WOOD-BURNING CALCULATION":?1034REM             1035,1075,1085 & 2025 round off numbers to one or two points1035 co=co*100: co=INT(co): co=co/1001040? " YOU WILL NEED TO BURN "; co1050? " CORDS OF "; w$; " AT $ "; cc1060? " PER CORD TO REPLACE "; ph*100; " %"1070? " OF YOUR PRESENT HEATING SYSTEM OUT-PUT":?1075 wc=co*cc*100: wc=INT(wc): wc=wc/1001080? " THE TOTAL COST OF THE WOOD"1083? " WOULD BE $ "; wc:?1085 as=as*100: as=INT(as): as=as/1001090I:?:?:?205POKE 17115, 240:POKE 17059, 0:TEXT210? " THERE IS AN I/O ERROR":?220? " CHECK DRIVES AND TYPE 'RUN' ":?230? " THEN PRESS <RETURN>":?:?235? "   OR TYPE in 'NEW' to RETURN   to BASIC"240CLEAR:END9, 4:TEXT20ONERR  GOTO 200:?:?25? "   TAPE CATALOG PRINTOUT":?:?30?:? "   PUT PAPER IN PRINTER":?:?50?:?:? " WHAT IS THE TAPE'S NAME"55INPUT " OR NUMBER  "; aa$:?57INPUT " DATE "; v$:?60? " INSERT TAPE IN DRIVE #1 or #2 ":?70? "  1 = D1":? "  2 = D2 ":?80INPUT "    "; x:HOME:?110 b$=CHR$(4):P63360/aa320 ac=aa*60/63360400HOME:?:?410? " IF YOU WALKED AT THIS PACE":?420? " IT WOULD TAKE YOU "; ab430? " MINUTES TO WALK ONE MILE":?500? "         OR ":?510? " HOW MANY MILES DO YOU WANT"520? " TO WALK AT THIS"530INPUT " PACE ? "; hm:?600 mw=63360*hm/aa/60620 mv=mw*60700HOME:?:?710? " IT WOULD TAKE YOU "; mw720? " HOURS OR "; INT(mv); " MINUTES TO WALK "; hm; " MILES":?800INVERSE:? " OH ! YOUR POOR FEET ":NORMAL:?810? " PRESS KEY (c) TO RERUN"820? " OR ANY OTHER KEY TO QUIT":?900GET x50REM    WALKING by JERRY VRANCKS  198855REM    just measure and count your stride60REM    in inches and one minute65REM    and enter info100CLEAR:POKE 17115, 244:TEXT:?110? " WALKING IS GOOD":INVERSE120? "    EXERCISE    ":NORMAL:?140? "HOW FAR CAN YOU WALK IN "150? "A GIVEN TIME ?":?160? " NOTE: YOUR STRIDE MAY INCREASE"170? "AS YOUR PACE QUICKENS":?180? " YOUR AVERAGE WALKING STRIDE"190INPUT "IN INCHES IS  "; si:?200? " NUMBER OF STRIDES PER"210INPUT "MINUTE IS  "; ns:?300 aa=si*ns310 ab= cq$="q" OR cq$="Q" GOTO 500200? "WHAT IS THE DIAMATER OF"210INPUT "CYLINDER in INCHES "; cd:?220? "WHAT IS IT's LEINGTH or HEIGTH"230INPUT "in INCHES "; ch:HOME:?:?290 ci=cd/2300 cq=3.1416*ci*ci*ch310 gl=cq/231350? "A CYLINDER "; cd; " inches in":?360? "DIAMATER and "; ch; " LONG or":?370? "HIGH has a VOLUME of "; cq:?372? "CUBIC INCHES and will hold":?380? gl; " GALS. of LIQUID":?:?400GOTO 1000500? "    CUBE":?505INPUT "WHAT is IT's WIDTH in inches "; cw:?510INPUT "IT's LENGTH in inches ";$910IF x$="C" OR x$="c" GOTO 100920FLASH:? "   HAVE A NICE DAY   ":NORMAL930FOR i=1 TO 2000:NEXT940HOME:POKE 17115, 240:TEXT:ENDter info100CLEAR:POKE 17115, 244:TEXT:?110? " WALKING IS GOOD":INVERSE120? "    EXERCISE    ":NORMAL:?140? "HOW FAR CAN YOU WALK IN "150? "A GIVEN TIME ?":?160? " NOTE: YOUR STRIDE MAY INCREASE"170? "AS YOUR PACE QUICKENS":?180? " YOUR AVERAGE WALKING STRIDE"190INPUT "IN INCHES IS  "; si:?200? " NUMBER OF STRIDES PER"210INPUT "MINUTE IS  "; ns:?300 aa=si*ns310 ab=R #1115? "  THIS IS A CATALOG OF ` "; aa$; " `":?116? "DATE "; v$:?:?117ON x GOTO 120, 125119REM   change d1 & d2 for dick drives120? b$; "catalog,d1":PR #1:GOTO 130124REM    delete line 125 for just one drive125? b$; "catalog,d2":PR #1:?130?:?:HOME:PR #0140?:?:? " REMOVE TAPE,INSERT NEXT TAPE"145?:? " PRESS ANY LETTER KEY & RETURN":?150? "     OR":?160? " TYPE  NEW  AND PRESS RETURN"170INPUT z$:HOME180IF z$="NEW" OR z$="new" THEN HOME:POKE 17115, 240:TEXT:NEW190HOME:?:?:GOTO 50200PR #0:HOME50REM   VOLUME by JERRY VRANCKS 198855REM   enter the container size in inches60REM   follow program instructions100POKE 17115, 244:TEXT:?:?110? "VOLUME of a given size "120? "        CONTAINER":?:?125? "Give all dimentions in inches"130? "and tens - 3ft. 5 1/4 in."135? "would be 41.25 inches":?140? "If the container has rounded "145? "edges , the volume will be"150? "less then the given amount"165CLEAR:?:?170? "Is container a cylinder (c) "175? "or cube shaped (q) ?"180GET cq$:HOME:?:?185IF63360/aa320 ac=aa*60/63360400HOME:?:?410? " IF YOU WALKED AT THIS PACE":?420? " IT WOULD TAKE YOU "; ab430? " MINUTES TO WALK ONE MILE":?500? "         OR ":?510? " HOW MANY MILES DO YOU WANT"520? " TO WALK AT THIS"530INPUT " PACE ? "; hm:?600 mw=63360*hm/aa/60620 mv=mw*60700HOME:?:?710? " IT WOULD TAKE YOU "; mw720? " HOURS OR "; INT(mv); " MINUTES TO WALK "; hm; " MILES":?800INVERSE:? " OH ! YOUR POOR FEET ":NORMAL:?810? " PRESS KEY (c) TO RERUN"820? " OR ANY OTHER KEY TO QUIT":?900GET x cl:?520INPUT "IT's HEIGTH in inches "; ch:?590 cq=cw*ch*cl600 gl=cq/231:HOME:?:?610? "A CONTAINER that is "; cw:?620? "WIDE by "; cl; " LONG and":?630? ch; " HIGH will hold "; gl; " GALS.":?640? "of LIQUID and have a VOLUME of ":?650? cq; " CUBIC inches":?:?:?660GOTO 10001000? "PRESS (c) to continue  OR"1010? "(s) to stop & return to BASIC"1020GET xx$:HOME1030IF xx$="c" OR xx$="C" GOTO 1651040?:?:?:?:FLASH1050? "     HAVE A NICE DAY         ":NORMAL1055FOR i=1 TO 8000:NEXT:FLASH1060POKE 17IC"5010INPUT "FOOT  "; cc:?5020? "    AND/OR":?5030? "THE COST per SQ. ":?5040INPUT "FOOT  "; cs:?6000 tc=cc*qf6010 ts=cs*sf6050IF z$="P" OR z$="p" THEN PR #16100? "THE TOTAL COST OF THE BAG"6110? "INSULATION is    $"; tc:?:?6500? "AND THE BLANKET INSULATION ":?6510? "WOULD COST     $"; ts:?:?6530PR #07000? "PRESS ANY KEY TO"7010? "RETURN TO BASIC"7100GET a$:HOME:?:?:?:?:?7110INVERSE:? "     HAVE A NICE DAY         "7120FOR i=1 TO 5000:NEXT:NORMAL7130POKE 17115, 240:TEXT:HOME:ENDF INSULAT50REM     INSULATION by G.L. Vrancks  198951REM    you need to know52REM     length & width of house53REM     ceiling rafter center line in inches54REM     inches to be added in ceiling55REM    opptional cost per cubif ft. or sq. ft. of insulation56REM     if you know both  use as a comparable cost100HOME:POKE 17115, 144:TEXT200? " CEILING INSULATION REQUIRED":?:?:?210? " IN CUBIC FEET OF BAG           INSULATION":?220? "OR SQ. FT. OF BLANKET"221? "INSULATION":?:?300? "HOUSE LENGTH in FEET & INCure may require a"130? "larger or smaller capacity unit":?140PR #0:HOME150? "TYPE in the following information":?180PR #1200INPUT "ROOM LENGTH "; rl:? rl:?220INPUT "ROOM WIDTH "; rw:? rw:?230INPUT "WALL HEIGTH "; rh:? rh:?300 qf=rl*rw*rh310 do=qf*4.4: dc=qf*3.8312 sf=rl*rw320? "Room SQ. FT. is  "; sf330? "Room CU. FT. is  "; qf:?350? "It will require a  "; dc360? "BTU A/C unit with door closed"370? "OR "; do; "  BTU's"380? "if the room has an open doorway":?:?390? "This size unit will keep ION"2020? "FOR THE ADDED DEPTH OF "; ii; " INCHES"2030? "        OR"2040? INT(sf); "  SQ. FT. OF "; ii; " IN. BLANKET":?2050? "INSULATION ":?2500? "THE INSULATION REQUIRED IS"2510? "ROUNDED OFF TO A WHOLE NUMBER ":?3000? "IF YOU KNOW THE COST OF THE"3010? "INSULATION PRESS KEY (C)"3020? "TO CONTINUE, NO PRINT-OUT":?3040? "PRESS (P) TO CONTINUE w/ A     PRINT-OUT":?3050? " PRESS (S) TO STOP"4000GET z$4010IF z$="S" OR z$="s" THEN POKE 17115, 240:TEXT:END4999HOME5000?:? "WHAT IS THE COST per CUB115, 240:TEXT:END" GOTO 500200? "WHAT IS THE DIAMATER OF"210INPUT "CYLINDER in INCHES "; cd:?220? "WHAT IS IT's LEINGTH or HEIGTH"230INPUT "in INCHES "; ch:HOME:?:?290 ci=cd/2300 cq=3.1416*ci*ci*ch310 gl=cq/231350? "A CYLINDER "; cd; " inches in":?360? "DIAMATER and "; ch; " LONG or":?370? "HIGH has a VOLUME of "; cq:?372? "CUBIC INCHES and will hold":?380? gl; " GALS. of LIQUID":?:?400GOTO 1000500? "    CUBE":?505INPUT "WHAT is IT's WIDTH in inches "; cw:?510INPUT "IT's LENGTH in inches ";20REM   ROOMAC by Jerry Vrancks 198822REM   enter room size in feet24REM   use the print-out to select the 26REM   best size window A/C unit for the room50HOME:?:?:CLEAR60? "This printout will provide"70? "you with an approximation"80? "of the COOLING requirements"90? "for a given size room":?95? "** PUT PAPER IN THE PRINTER":?96? "PRESS any letter key"97? "to continue":GET z$:HOME100PR #1:? "ROOM AIR CONDITIONER"101? "size selection guide":?110? "Loco climatic conditions"120? "and room exposHES":?310INPUT "FEET  "; lf:?320INPUT "INCHES  "; li:?:?400? "HOUSE WIDTH in FEET & INCHES":?410INPUT "FEET  "; wf:?420INPUT "INCHES  "; wi:?:?450? "HOW MANY INCHES ARE THE"460INPUT "CEILING RAFTERS ON CENTER "; cr:?500? "ADDED INSULATION IN INCHES"510?520INPUT "INCHES  "; ii:?:?800 hl=lf*12+li810 hw=wf*12+wi820 ns=(hl/cr-1)*1.5830 qf=(hl-ns)*hw*ii/1728900 sf=(hl-ns)*hw/1441000? "PRESS ANY KEY FOR RESULTS":GET x$:HOME2000?:? "THIS HOUSE WOULD REQUIRE":?2010? INT(qf); " CUBIC FT. OF INSULATthe room 15 to 17 degrees cooler then the outside      temerature":?:?700? "Air Conditioner Capacity should be sized by SPECILIS":?720PR #0:HOME:?:?:?730? "Press letter key (c) to redo the room calculation":?732? "OR letter key (s) to stop":?:?:?735? "       KEEP COOL"740GET a$750IF a$="c" OR a$="C" GOTO 50760HOME:ENDPRINTER":?96? "PRESS any letter key"97? "to continue":GET z$:HOME100PR #1:? "ROOM AIR CONDITIONER"101? "size selection guide":?110? "Loco climatic conditions"120? "and room exposHIS DRIPPING FAUCET USES "; INT(gd); "     GALS. per DAY"210? "         OR"220? INT(gw); " PER WEEK"230? "       AND"240? INT(gy); " GALS. IN ONE YEAR":?250? "IF THIS LEAKING FAUCET IS HOT   WATER,IT REQUIRES "260? INT(ec); " WATTS OF ELECTRICITY     per YEAR TO HEAT IT"270? "          OR"280? INT(gc); " CUBIC FEET OF NAT. GAS ":INVERSE:?290? " ** FIX THAT DRIPPING FAUCET ":NORMAL295?:?:? "   PRESS ANY KEY"300GET zz$:POKE 17115, 240:TEXT310HOME:ENDÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ50REM    PULLYSPEED by G.L. Vrancks  198951REM    must know pully sizes52REM    and motor RPM53REM    give pully size in inches  3.5 not 3 1/2100HOME:INVERSE:?:?105? " SHEAVE or PULLY SPEED ":?:?:NORMAL110?:? "PUMPS,BLOWERS,FANS,":?120? "ANYTHING BELT DRIVEN":?130INPUT "MOTOR RPM is "; mr:?140INPUT "MOTOR PULLY OUTSIDE DIAMETER "; mp:?150INPUT "DRIVEN PULLY OUTSIDE DIAMETER  "; dp:?160 ms=mp*3.1416*mr170 ps=dp*3.1416180 ds=ms/ps190HOME:?:?:?:?200? "THE DRIVEN SHEAVE or PULLY":?210? "  RPM ISPERAGE - OHMS"270? " OR WATTAGE":?280? " ENTER 0 IF THE FACTOR IS"290? " UNKNOWN":?:?300? "     PRESS ANY KEY"305GET tt$310HOME:?:?320INPUT " WHAT IS THE VOLTAGE "; v:?330INPUT " WHAT IS THE WATTAGE "; w:?340INPUT " WHAT IS THE AMPERAGE "; a:?350INPUT " WHAT ARE THE OHMS "; o:?390REM    uses divide by zero error to make sure392REM    two of the factors had input values given400 e=o/(a+w+v): e=a/(o+w+v): e=w/(o+v+a): e=v/(a+w+o)490REM    gosub for calculation depending on input500IF v=0 AND o=20REM   DRIPDRIP  Jerry Vrancks 198925REM    just count the drips for one minute30REM    and enter the number100CLEAR:HOME110POKE 17115, 244:TEXT115REM    FIGURES GALS. & ENERGY USED120INPUT "HOW MANY DROPS per MINUTE "; dm:?129REM   average drops per gal.130 dg=11776139REM   gal. per day,week,year140 gd=dm*60*24/dg150 gw=gd*7160 gy=gd*365169REM   energy used to heat the water170 ec=gy*8.35*100/3.4180 gc=gy*8.35*100/1000190REM    GALS. & ENERGY ROUNDED 191REM    OFF TO WHOLE NUMBERS200? "Ture may require a"130? "larger or smaller capacity unit":?140PR #0:HOME150? "TYPE in the following information":?180PR #1200INPUT "ROOM LENGTH "; rl:? rl:?220INPUT "ROOM WIDTH "; rw:? rw:?230INPUT "WALL HEIGTH "; rh:? rh:?300 qf=rl*rw*rh310 do=qf*4.4: dc=qf*3.8312 sf=rl*rw320? "Room SQ. FT. is  "; sf330? "Room CU. FT. is  "; qf:?350? "It will require a  "; dc360? "BTU A/C unit with door closed"370? "OR "; do; "  BTU's"380? "if the room has an open doorway":?:?390? "This size unit will keep 10REM    OHMSLAW by Jerry Vrancks 199012REM   ohms law is the formula used14REM   to calculate electrical factors when any 2 of the 4 are known16REM   the factors are18REM   volts, amps, watts & ohms20REM   need to know 2 of the 4 to find the others100ONERR  GOTO 1000148REM   clears ram & screen150CLEAR:HOME:?:?200? " OHMS LAW CALCULATOR":?:?210? " FINDS THE UNKNOWN"220? " ELECTRICAL FACTER":?230? " ENTER ONLY TWO OF THE"240? " FOLLOWING FACTORS TO FIND"250? " THE OTHERS":?260? " VOLTAGE - AM  "; ds:?220? " Worn pully or belts will have"230? "an effect on the RPM":?300? "PRESS (S) to STOP"310? "       or"320? "(R) to RERUN"330GET x$340IF x$="S" OR x$="s" THEN CLEAR:HOME:END350CLEAR:HOME:GOTO 100 "      - PRESS ANY KEY":GET a$:GOTO 101000POKE 17115, 22:TEXT:GOTO 20001100POKE 17115, 26:TEXT:GOTO 20001200POKE 17115, 18:TEXT:GOTO 20001300POKE 17115, 31:TEXT:GOTO 20001400POKE 17115, 241:TEXT:GOTO 20001500POKE 17115, 246:TEXT:GOTO 20001600POKE 17115, 244:TEXT:GOTO 20001700POKE 17115,0 THEN GOSUB 2000510IF v=0 AND w=0 THEN GOSUB 2100520IF v=0 AND a=0 THEN GOSUB 2200530IF a=0 AND w=0 THEN GOSUB 2300540IF a=0 AND o=0 THEN GOSUB 2400550IF w=0 AND o=0 THEN GOSUB 2500600HOME:?:?610? " THE ELECTRICAL FACTORS"620? " FOR THIS DEVICE ARE":?:?640REM    prints factors to screen650? " VOLTAGE "; v:?660? " WATTAGE "; w:?670? " AMPERAGE "; a:?680? " OHMS "; o:?:?690? " PRESS LETTER KEY 'C' TO REDO"700? " THE ELECTRICAL FACTORS OR ANY"705REM     stops program or reruns it  710? " OTHE, 430, 440, 450, 460, 470, 480, 490400HOME:NEW410? CHR$(4); " run HEATORCOOL"420? CHR$(4); " run DATASHEET"430? CHR$(4); " run BURNWOOD2"440? CHR$(4); " run THERMCOST"450? CHR$(4); " run KWHCOST"460? CHR$(4); " run ROOMHEAT"470? CHR$(4); " run ROOMAC"480? CHR$(4); " run SHEDHEAT"490? CHR$(4); " run EASYCOOL"5 wc=wc*100: wc=INT(wc): wc=wc/1001080? " THE TOTAL COST OF THE WOOD"1083? " WOULD BE $ "; wc:?1085 as=as*100: as=INT(as): as=as/1001090IF wc>f3 GOTO 30002000? " THIS REPRESENTS A SAVINGS): a=SQR(w/o):RETURN2300 a=v/o: w=(v*v)/o:RETURN2400 a=w/v: o=(v*v)/w:RETURN2500 w=v*a: o=v/a:RETURNTHEN GOSUB 2300540IF a=0 AND o=0 THEN GOSUB 2400550IF w=0 AND o=0 THEN GOSUB 2500600HOME:?:?610? " THE ELECTRICAL FACTORS"620? " FOR THIS DEVICE ARE":?:?640REM    prints factors to screen650? " VOLTAGE "; v:?660? " WATTAGE "; w:?670? " AMPERAGE "; a:?680? " OHMS "; o:?:?690? " PRESS LETTER KEY 'C' TO REDO"700? " THE ELECTRICAL FACTORS OR ANY"705REM     stops program or reruns it  710? " OTHElso fast load        (BSAVE) to cut down the load time.DATASHEET - A print-out of the information needed to run     HEATORCOOL.THERMCOST - Calculates the cost of one heating therm         (100,000 BTU's) for different types of heating fuels. Can    also be used for a comparison fuel cost. You need to know    the cost per fuel unit. Oil = gal.;Nat. gas = CCF;           Electricity = KWH; etc. See what savengs could be achieved   by a more efficient heating system. Read REM statements.CEMENTNEED - Calcu100HOME:?110POKE 17115, 244:POKE 17059, 4:TEXT120? "  PRESS CORRESPONDING NUMBER"130? "  TO RUN PROGRAM or ABORT":?140INVERSE200? " 1 = ABORT    ":?210? " 2 = HEATORCOOL":?220? " 3 = DATASHEET ":?230? " 4 = BURNWOOD2 ":?240? " 5 = THERMCOST ":?250? " 6 = KWHCOST   ":?260? " 7 = ROOMHEAT  ":?270? " 8 = ROOMAC    ":?280? " 9 = SHEDHEAT  ":?290? "10 = EASYCOOL  ":?300INPUT xx:HOME310POKE 17115, 240:POKE 17059, 0:TEXT:?:?:?320? "       PLEASE STAND BY        ":NORMAL330ON xx GOTO 400, 410, 420R KEY TO STOP"720GET zz$730IF zz$="C" OR zz$="c" GOTO 100740HOME:END990REM    tells if there was an erroe1000CLEAR:HOME:?:?1010? " YOU DID NOT ENTER VALUES FOR"1020? " TWO OF THE FACTORS OR THERE"1030? " WAS SOME OTHER TYPE ERROR":?1040? " PRESS KEY 'S' TO STOP OR ANY"1050? " OTHER TO REDO THE FACTORS":?1088REM   stops or reruns pragram1090GET vv$1100IF vv$=" S " OR vv$="s" GOTO 7401110GOTO 3101998REM    calculates factors2000 v=w/a: o=w/(a*a):RETURN2100 v=a*o: w=a*a*o:RETURN2200 v=SQR(w*ox	Erams.HEATORCOOL - Calculates the heating and/or cooling load of a house. Read docHorC, also read REM statements.Remove REM     statements to shorten progrsm. You can alsoReadme1st     Documentation of files on this tape. Also catalog tape  for other programs.HEATORCOOL - Calculates the heating and/or cooling load of a house. Read docHorC, also read REM statements.Remove REM     statements to shorten progrsm. You can aR KEY TO STOP"720GET zz$730IF zz$="C" OR zz$="c" GOTO 100740HOME:END990REM    tells if there was an erroe1000CLEAR:HOME:?:?1010? " YOU DID NOT ENTER VALUES FOR"1020? " TWO OF THE FACTORS OR THERE"1030? " WAS SOME OTHER TYPE ERROR":?1040? " PRESS KEY 'S' TO STOP OR ANY"1050? " OTHER TO REDO THE FACTORS":?1088REM   stops or reruns pragram1090GET vv$1100IF vv$=" S " OR vv$="s" GOTO 7401110GOTO 3101998REM    calculates factors2000 v=w/a: o=w/(a*a):RETURN2100 v=a*o: w=a*a*o:RETURN2200 v=SQR(w*olates how much cement or concrete is need  for a slab and/or footing. Read REM statements.NUMERICAL - Puts whole numbers in numerical order. Read REM  statements.KWHCOST - Use the information form your electric bill to     find the cost per kilowatt (KW = 1000 watts). It will also   tell what an electrical appliance cost to run for one hour   or day, but you must know the watts or both the voltage and  amperage of the appliance.EASYCOOL - Calculates the cooling load for a house with      little input r program instructions.LANDSIZE - Enter land or lot size to find the area in SQ.    Ft. and ACRESVOLUME - Gives the volume of a given size container.         Cylinder or cubed in shape. Use inches only when giving      container size. 1 ft. 3 in. x 6 1/4 in. would be 15 x 6.25PRINTCATLG - Just another tape catalog print-out. Select the drive, no need to rerun program for each tape. Switche back  and forth between drives. Can be modified for disk drives.HELLO2 - A simple easy to modify menu program.PEED - Tells what RPM a belt drived divice is running. Pumps, fans, blower,etc.Read REM statements.THI - Temperature Humidity IndexEnter temperature and humidity. People with respiratory      problems should stay indoors when it's 80 or above.INSULATION - How much bag or roll insulation is needed to    insulate an attic.DRIPDRIP - Just how much is that dripping faucet costing?    Count the drips for one minute and find out.BURNWOOD2 - Will burning wood save money on heating cost?    Read docBURN fo     information needed to run HEATORCOOL   HEATORCOOL will ask for the LOCO summer and/or winter     design temperature for your area. In northern Il. and IN. it is -10 winter and 95 summer. designtemp has other loco       design temeratures or contact a loco heating or cooling      contractor in your area.You need to know the average watts of electricity used per   hour. A good way to do this is take your April or May        electric bill, see how many KWH of electricity was used.     Take the KWH * 10OHMSLAW - Figures all factors of electricity when only two   are known. Read the REM statements.Follow the program instructions.Enter temperature and humidity. People with respiratory      problems should stay indoors when it's 80 or above.INSULATION - How much bag or roll insulation is needed to    insulate an attic.DRIPDRIP - Just how much is that dripping faucet costing?    Count the drips for one minute and find out.BURNWOOD2 - Will burning wood save money on heating cost?    Read docBURN foon your part. A rough estimation.  ROOMAC - Calculates what size window air conditioner is      needed for a given size room.ROOMHEAT - Heating requirements for a large room or area.    Rough estimation.WALKING - If you know the length of your stride and how many per minute, it will tell you how far you could walk in a     given time.      AIRCOST - Use the information from the air conditioner  name tag to find it's operational cost. Centeral or window   units. You need to know the KWH cost.PULLYSx	Eling requirements of a house. At this time it will not calculate a TRI or BI level home. You should run         DATASHEET first to get a printout of all required               docHorC   HEATORCOOL is designed to give the approximate heating    and/or cooling requirements of a house. At this time it will not calculate a TRI or BI level home. You should run         DATASHEET first to get a printout of all required       r program instructions.LANDSIZE - Enter land or lot size to find the area in SQ.    Ft. and ACRESVOLUME - Gives the volume of a given size container.         Cylinder or cubed in shape. Use inches only when giving      container size. 1 ft. 3 in. x 6 1/4 in. would be 15 x 6.25PRINTCATLG - Just another tape catalog print-out. Select the drive, no need to rerun program for each tape. Switche back  and forth between drives. Can be modified for disk drives.HELLO2 - A simple easy to modify menu program.00 / it by the days then / 24 hrs.EXAMPLE: 864 KW * 1000 watts / 30 days / 24 hours = 1200     watts used per hr. Or KWHCOST will figure it for you.Use lower or upper case letters when entering input.  Make   sure there is paper in the printer before selecting the      print option. It will printout on a single 8 1/2 X 11 sheet  of paper. Use sq. ft. for glass and door area. Use decimal form, 3.5  for 3 1/2 inches, 45.3 for 45 ft. 4 in. HEATORCOOL will also tell what savings could be achieved by addingear.     Efficiency rating of your   furnace and the efficiency of the     wood-burner you have or plan to install.     What % of your present heaters output you want the wood-burner to previde.     What kind of wood you will be burning & it's cost per cord.You must know what the wood-burner cost or will cost,cost of           instulation and the cost of any related equipment ( chain-saw, ax, log spliter, etc. ) to get a proper payback. If burning wood cost more     then your present heating system it wshorten the program by two blocks     To put all the heat loses or gains in HEATORCOOL would  make it incredibly long, therefore it has a plus or minus    factor of 10%.                 Jerry Vrancks  1990e   sure there is paper in the printer before selecting the      print option. It will printout on a single 8 1/2 X 11 sheet  of paper. Use sq. ft. for glass and door area. Use decimal form, 3.5  for 3 1/2 inches, 45.3 for 45 ft. 4 in. HEATORCOOL will also tell what savings could be achieved by addingIL old                    50 - 70%LP or Nat. Gas old         60 - 80%LP or Nat. Gas new         70 - 85%LP or Gas  Hi-efficient    80 - 90%Electric                      100%Heat pump                150 - 200%Coal old                   50 - 60%Coal new hi-eff.           60 - 75%Average wood-burner efficiency ratingsModern or open front fireplace  50%Wood stove or furnace  old 50   60%Wood stove or furnace hi-eff    75%Closed front damper controled fireplace  60 -70%These are ONLY averages, chxIrt before        running BURNWOOD2. You will need to know the following.     What you spent for heating last year.     How many fuel units you used for heating last year     BURNWOOD2  DOCUMENTATION           You will need to do some resurch on your part before        running BURNWOOD2. You will need to know the following.     What you spent for heating last year.     How many fuel units you used for heating last y more           insulation.     Basement insulation means wall insulation, slab         insulation means outside slab perimeter insulation at or     below ground level, crawl space insulation means under the   floor insulation inside the crawl space.           I hope this will help in selecting a heating or    cooling unitDATASHEET; KWHCOST & designtemp will give you information    needed to run HEATORCOOL. You should also read the REM       statements in HEATORCOOL.Removing the REM statements will    ill tell you how much it cost. If the wood is free even the most inefficent wood-burner will pay for     it's self.  FUEL TYPE      FUEL UNIT      BTU#2 fuel oil    gal.         138,700nat. gas       CCF or 100cf 102,500LP gas         gal.          91,000Electricity    KWH or 1000w   3,414Coal           ton       27,000,000Heatpump       KWH            3,414#1 fuel oil    gal.         135,700The following are some average furnace or boiler efficiency ratings.OIL new Hi-efficiency      80 - 85%O more           insulation.     Basement insulation means wall insulation, slab         insulation means outside slab perimeter insulation at or     below ground level, crawl space insulation means under the   floor insulation inside the crawl space.           I hope this will help in selecting a heating or    cooling unitDATASHEET; KWHCOST & designtemp will give you information    needed to run HEATORCOOL. You should also read the REM       statements in HEATORCOOL.Removing the REM statements will    eck name plate or call manufacture for      efficiency ratings.inefficent wood-burner will pay for     it's self.  FUEL TYPE      FUEL UNIT      BTU#2 fuel oil    gal.         138,700nat. gas       CCF or 100cf 102,500LP gas         gal.          91,000Electricity    KWH or 1000w   3,414Coal           ton       27,000,000Heatpump       KWH            3,414#1 fuel oil    gal.         135,700The following are some average furnace or boiler efficiency ratings.OIL new Hi-efficiency      80 - 85%Ohhhhhï¿ï¿ï¿¿¿ï¿ï¿ï¿ï¿ï¿ï¿ï¿ïï¿ï¿ï¿ïï¿ï¿ï¿¿ïï¿¿ïï¿ï¿ï¿ï¿¿ï¿ïï¿ï¿ï¿¿ï¿ï¿¿ïïï¿ï¿ï¿ï¿¿ï¿ïï¿ï¿¿ïï¿ïï¿ïï¿¿¿ïï¿ï¿ïï¿ï¿¿ïï¿¿ï¿ïï¿ï¿kkžš›ššžššššžšžššžš›®›¿oÏhhhhhhhhhhhhhhooï¿ï¿¿¿ï¿ï¿¿ïï¿¿ïïïïï¿ï¿ï¿ï¿¿ï¿ïOï¿ï¿ïï¿ï¿¿ï¿ï¿ïï¿ïïï¿ï¿ïïï¿ïïï¿ïï¿ïïï¿¿ï¿ï¿ï¿¿ïï¿ï¿¿¿ï¿¿ï¯š›š¿Ÿšš››Ÿšš›šš›ššžšš›š›šš››¿¿¾k¿¿¿¿¿¿¿hhhoolk¿¿ïï¿¿¿¿ï¿hhhhhhhhhhh¿ooh¿¿ïï¿o¿¿ï¿ï¿ï¿¿¿¿ï¿ï¿ï¿¿ï¿¿ïï¿????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????¿ï¿ï¿ï¿¿¿¿¿¿¿¿¿h¿hhhhhhhhhhhhhhhkohhhhhï¿ïo¿ï¿ï¿ï¿ïï¿ï¿¿ïïïïïïïïïïïïïïïïïïïïïï¿ïïï¿ïïïÏïïïïï¿ï¿ï¿ï¿ïï¿ï¿¿ïï¿ï¿ï¿ï¿ï¿¿ï¿ïïïï¿¿ï¿¿ïïoïï¿¾ï[ï¿ïï¿ï¿ï¾ï¾¿¾¿¾¿ï¾ï¿¾ï¾ïï¿¾¿¾¿¾¿¿¿¾¿ï¿¾¿koooooohh½ï¿ïÏ¿¿ïO¿¿ïïï¿ïïïïïïïïïïïn¿Oï¿ïïï¿ï¿¿¿ï¿ïïï¿ï¿ï¿ï¿ïï¿ï¿ï¿ï¿ï¿ïï¿ï¿¿¾¿¾¿¾ïï¿¾¿ï¿¾¿¾ïïï¿¾_ï¿¾ï¿ïï¿¾ï¾ï¾¿¾¿¾¿¾ïï¾ï¾ï½ohhhhhhhhhhhhhhoooo¿¿ïhhhhh????????????????????????????????????????¿ï¿ïï¿ïï¿¿ï¿KO›š›ššš¿¿ß¿ï¿¿¿ï¿¿¿¿ï¿¿¿ï¿ookoohhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????;??¿ï¿¿šš›ššžššš››šžš›››«š¿ï¿¿¿ï¿¿¿¿¿¿ï¿¿hkhhhhhhhhhhhhhhhhhhhIL old                    50 - 70%LP or Nat. Gas old         60 - 80%LP or Nat. Gas new         70 - 85%LP or Gas  Hi-efficient    80 - 90%Electric                      100%Heat pump                150 - 200%Coal old                   50 - 60%Coal new hi-eff.           60 - 75%Average wood-burner efficiency ratingsModern or open front fireplace  50%Wood stove or furnace  old 50   60%Wood stove or furnace hi-eff    75%Closed front damper controled fireplace  60 -70%These are ONLY averages, ch¿¿ÏïïïKïOï_Oïïï¿ïïïï¿ïï¿ï¿ïïïïïï¿ï¿ï¿ï¿ïï¿¿ïÏO¿¾¿¾ï¿ï¿¾¿ï¿ï¿¾¿¾¿ï¿¾¿¾ï¾¿ïï¾ï¾ïï¾¿^ï¿ï¿ïï¼ïïïïïïï¾ïï[ïï¿ï¿ïï_ïOïïïïïïïïïOï¿¿ïï¿¿ï¿ïï¿¿ïï¿ï¿ï¿ï¿ï¿ï¿ïïïï¿ï¿ï¿ïï¾ï¿ï¿¾¿ï¿ï¿¾¾ï¾ï¾ï¾ï¾¿ï¿¾¿¾ï¿ï¿ïïï¾¿¿¿ï¿¿¿¿ï¿¿¿¿¿ïï¿??????????????????????;?¿¿¿¿¿¿¿¿¿ï¿¿¿ï¿¿ï¿¿¿¿¿ï¿¿ï¿¿¿¿ï¿¿¿¿hhhhhhhhhhhhhhhhï¿ï¿k????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????>??;????¿¿¿¿¿ï¿¿ï¿¿¿ï¿¿ï¿¿¿¿¿¿ï¿¿¿oohhhhhhhhhhhhhhhhhhhhhhhhhhï¿ï¿ïï¿¿ïïï¿ïïïïïïïï[oïl¿¿ï¿ï¿¿ïï¿ï¿kï¿¾ïï¾¿¾¿ï¾ï¿¾ï¿ïï¾¿ï¿¾¿¾¿ï¿¾¿¾¿ï¿¾¾ïï¾¿ï¿ï¾¿¾¿¾¿¿ïï¾ï¾¿[oohhhhhhhhhhhhhhhhhhhhhh¿¿OOï¿¿ïïïïï¿ï¿ïïKï¿¿¿¿ï¿ï¿ïï¿¾ï¾¿ï¿¿ï¿ï¿ï¿¾¿¾¿¾¿¾¿¾¿¾¿¾¿¾¿¾¿¾¿¾¿¾¿¾¾ï¾¿¾¿¿ï¿ïkïKï¾ohhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh)Ö(E)| þbhxh`ðxÌÌÌx`ül`ð0xÌÌüÌÌøÌÌÌÌÌø0xÌÌüÌÌ‚Æîº’’‚xÌÀÀÀÌxxÌÌÌÌÌxÆæöÞÎÆÆ0p0000üxÌ8Ìx8l00Y÷¶]ö¿ëþ»í}ºí}ºmi¶÷]þ·I·``€ €5
u–j¶Z­¥T«µ•*µJ5ÕZUZ¥P­R©V«Õ*?ðHl²àzx`øèøxXxR‰$R¥H’¡¨D«€àà@T•BªÀðð`    (0›ï}ºí»·Y¾öÛ¿¶}}ÚmíÒï–¾M¾·ëö¿[ïÓïmº}o¶ö]¶¶ë·ÿkí’í}šmo—÷k÷¾íö¾I›mo›}ïÖ·[¾öë·¾M}ºÿí–ýÚ¶ï¿¶[¿¾ÙíÖoíÞí}ÚöÉ¶÷É÷¶Ûíºým¶ïm·÷Ëö¿Ýö¿]}—}o÷mm’¶O··Iö¿K‡ŸŸiÿÏ°´ÐÀÀÀEð>¾>Z¥Z-…€àà©V©UUªUª]¢]%ÚUj­‘H¶P˜œìä||D‘$	R$Iª¤
PE(B 
Rˆ%P…(Joï¿ï¿ï¿ï¿Oïï¿Oïï¿ïïïïïïïïïïïoïïïoï_ïOïïï¿¿¿¿ï¿¿¾¿¾ïï¿ï¿¾ï¾ïï¿ï¿¾ï¾ï¾ïïï¿ï¿¾ï¿ï¾¿¾¿¾¿ï¿ï¿ïï¿¿¿Ïkï¿¿¿ï¿¿¿¿¿ï¿¿¿ï¿¿¿ï¿¿¿ï¿¿¿¿¿¿¿¿ï¿¿¿¿¿¿¿ï¿¿¿ïï¿ï¿ï¿ï¿ï¿OO_¿ïïïïïïïï¿ïïïïï¿Oï¿ïïïï¿¿ï¿¿ï¿¿¿¿ïooïï¾ïßl¿¿¿¿¿ï¿¿ï¿¿¿ï¿¿¿ï¿¿¿¿ïï¿¿¿¿¿¿¿¿ï¿¿¿¿ï¿¿¿ï¿¿¢A”"øD@p@DøJ¥(†RY¤V¥ªDªªDQ,’I¤¨Y¤’IU"•I’U U
u•Uz‰$RJ$T"ªÔUˆª©Dªª÷	ªDZ¥¥J©DªJ¤[T*’I$ªE¹…R©¢J)D3ÞB”ST‰T”Bªé¢I‘ªDR)DUxX`ýÃÃ9(8x~~xxY<,<4ðpÀÕª­ªª¥ªªUªUªªUªªôWð3¿?ÿÜ<<<ÿàà^xà||§gg{CÀ	"ÀÀÀà$	¢A*EH¢üü<øDDDDDøR	T¢]BTªî‘$ÿ¾þpjjhðÀ@00º€€ÀøQ$“*€¥RªUÿÿ)¤ªA>øøªUH’I¥PŠ%©T%Hˆf)D)Dª“H%/ V	*U¢]¥Î¨FX¦Rê*``xxüü‡yÿÁð"ÝÀ??ààxúø?þI¦ÚU*UT«Tª«TªUþ¤~~m}``àð``,ü¦‡…‡äzx{ûçã‡À	6+,4à9????¾>€”€ððÀ¿¿0xÌÌüÌÌ`ül`ð8d|`<ÌÌÌx00xxÌÌÌxÌÌÌÌvxÌÌÌxxllll0x004à``xllì8d|`<8<8<|Àxø0x0048l00JµI’$ZÿJURþà”tàà€ÿðÂ)þP$J‘ªàøüüXRª•@?ÀðR­R	ªDª‘RªUªµJI”SªzI$RÄdTLDDÄmºým’}oÿ¶Ýþ¶[ö¶]ÿ¶ÿm×íï·¶Y·ö]¶ÿ{ýÚ}ÿÛïmº··ök¶÷ÉýÚm·ï–·[¶ÿY¶¾im›}m×í}²ÿmö¿[¿þko³}íò}ïÛ¾o¶¾Íþ¶[}·}ýÚí}ß¶ßÿ¶ë÷¾]ï“omº}ïÖ÷k¶ÿí¶ÿëm’}o²}m’þéö¶]¾·[¢UˆUª<0pp@€CË½Â½¥þúh•jª€
à|€²D‘)Àð$‚)D¤H€-`````üü ˆPJ$Àààø¤•J©¥RŠ$R¿¿ï¿OO¾ïïï¿ïïïïïïïïïïïïïï¿¿_ïO¿ï¿¿¿¿ïÏï¿ïï¾¿¾¿ï¾¿¾¿¾¿¾¿¾¿¾¿¾¿¾¿¾¿¾¿¾¿¾¿¿¾ïï¾¿¾ï¾¿¾¿¾ï¿ïïïohhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhk¿ï¿¿ï¿ï¿OOïÏïïïïïïïïïïïïïï_ïOÏ_¿¿¿¿ï¿¾ï¾¿¾¿¾¿¿¾¿¾ï¾ïï¿¾¿¾¿¾¿ï¿¾¿ï¿¾¿¾ï¿ï¿¾¿¾¿¾¿ïï¾ïï¼o¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿oko€*D¨| <ØpÌÌÌÌv8<ÌÌÌ|x00`xÌ8`ÄüxÌÜüìÌxxÌÜüìÌx0p0000üK¶þé¾·[þ»}íÓomºmI·öI¶÷Éö’míÚmÖïmö¾Y¶·IöKT’UU*¥¨èyæx`gg™P4,ŒŒËÀpü¼Ð¹xéùñ¥:€ €`pV©–j«T«Uï5•H·©U*4T	"!
”Y Š%H"…P
¡E(’PŠ!J¤
`@@@@Dø}ßmíÒmï’÷yþ¶ë÷·Im¶ýmº}}š¿é¶ö]¶÷KoÚí×ï}¶·I÷¶iö·Éo·}oóým’ÿi¶·[÷¶ïmÒí}²}ïÒ¶éö¾Ù¾·[oÓïm·ïmÖ¾Mö¾mö¿Íí’ïï—}o·¶éöþi¾¶k}ºíï“ïmº¶]¾¶I··éU
ôÿÏøÈø	`h`````à40<<,Îi¶•ê•ªªæ5Šê*Õªò¨ü*
ÀÀÀð°Õj*ÕR­öúD¨T
@
ÀÀðð?<”B”I"R$D‘JEJ‘¡Iïï¿ï¿¿ï¿¿ïï¿ïï¿ï¿ï¿Oï¿ïOOOïïïïïïïïïïKïO_lï¿ïïïïï¿ï¿ï¿ïïïVVhhlhhhlhhhhhhlïï¿ï¿¿ï¿¿¿ï¿ïïï¿ïï¿ïïïï¿¿¿O¿¿ïïïïïï_ïïï¿ïïï¿ï¿ï¿¿ïï¿ïK¿¿ï¿¿h¿hhhhhhhhhhhhhhhhhhhhhhlÀÀÀ?00000ððÑ800000ú˜xxxxxXh”¢ðððÀÐÀÀ0~`œ@óðó0Àÿÿhxèÿ ààÙÿÐ¬P¤Àà ÀÀÀÀÀô
¡\¥¨R‰$I$ªA*Å(—H’EzŠÿ@<<00Ðþ«$µªÿÐ~%«þ€Àð?ÿþÌÎÀÀú€‹}Š«!k½¢¶‰•Ý*ÕÕª¾Uººxøÿÿ§àã"<ðð?¿üúß§çÿþà``ÿç"T‹$üøDDx@@Àð°ðð°ð000000000xxxxxx``Ó ¬£œcþþôGA\xxxhþ«B£ ÐÀððÃÃ0øøàààà &©ªUª•Ò-ÀÀÀÀ
2
²ˆn¡\…P–”¢ÊQ-’HQŒ¥R*D¨xxxüÌü???3¶[ö>+>5‹Ÿµïþ§%mã¼üTÀ@ÀÀÐÀðð"%-ªjU×ª„Wý«¡kªoõ?Ûmªlí§çœø à€àO?ðÏÁ?ÀÀ@@ÀªU«T«Uª<,<,J%UJµJ$­R	ä*…p•ø$R,ŒƒCCR<<<,ÂJÂxŠ@ÿðÿððÀððÀuŠj•T«¤[€ÿððð¯ÕààèèÑ
ÀÀÀÀÀÀªP•DR‰$ü¿ÿÿÿZÿÿÀÿÿççç§þþÚ[ÿÿÀ*Uÿÿ¤	Uÿÿþ¨àôð €U??ðÿÿþþùÿUªÿ÷[þÿUþÿW»îÿÿÿÿÕ{»ëý€åáÿààààüÿüxÌ8`ÄüR	ä*’mR	J$ªQŠP
å¨ò K”"0< Póñ==<ÎÊÎ‡€áá`iâðô`ð=ðüÀ$S,M2ààü_‚ÿ?ððøáþÀ>ø˜˜)”J"]"TS(`€ €€€€/À@Àððð€ ]¥€ôðÐ¢ÁÀÿ/ 
Q
€ÿþ¥PRÿª¥¤	PÀÀÑTU›çúzüDµíÿJÿÿÿ{çß_þøÿÿà€€€êþ<J$"| <<(>
xxx€€€?ÿþÿ%€  JUR*«¤TT/-¿?ÿÿÿÿ€ÿ àããçÿÿUÿÀþþþÇù¿$ªJ$€€áõ¥ª€?ðÆ>à€€€€€€ï!R­]Ý—*jÕU«~ßUµußuµôøNEjððÀÁÀùA$¥ZZÖÚUAj%­ÓUº~ªª¬xà€€€"¤JB”!ŠP
¡ 
QŠ$Q
ÀÀÀÀÀÀÀÀˆˆˆˆˆˆ|†?@ ‹ÿüÿúzèúÿ*UJi†ƒPðòÐÿ ÿÿ¢ãøúìò?ÿî~«ßûþïíùéŸ÷ï÷¯@À-)k~à à €ý«¨ª«·ý«rßuÞ÷»îJ»‘«	­ ª-"¦U ªBU	«‚«)mDÚªªZUTý¯Ük´·??ðÀÐÀ0?R„)’D¥¢TT‰¢	¤¨E% J¤H’$´@”@ÀÀð,<,J%UJµJ$­R	ä*…p•ø$R,ŒƒCCR<<<,ÂJÂxŠ@ÿðÿððÀððÀuŠj•T«¤[€ÿððð¯ÕààèèÑ
ÀÀÀÀÀÀªP•DR‰$ü¿ÿÿÿZÿÿÀÿÿççç§þþÚ[ÿÿÀ*Uÿÿ¤	Uÿÿþ¨àôð €U??ðÿÿþþùÿUªÿ÷[þÿUþÿW»îÿÿÿÿÕ{»ëý€åáÿààààüÿüxÌ8`ÄüR	ä*’mR	J$ªQŠP
å¨ò K”"0< Póñ==<ÎÊÎ‡€áá`iâðô`ð=ðüÀ$S,M2ààü_‚ÿ?ððøáþÀ>ø˜˜)”J"]"TS(`€ €€€€/À@Àððð€ ]¥€ôðÐ¢ÁÀÿ/ 
Q
€ÿþ¥PRÿª¥¤	PÀÀÑTU›çúzüDµíÿJÿÿÿ{çß_þøÿÿà€€€êþ<ððü/R)J¥*‘U"8
‡…¡0<¼¼¼Ï?À6PàÈÿþdƒüüR©UŠµª•R@àøüìüÿüðü@ÑH€€à à`x0<<²ÚK5*	FÁxÙ êŠ6?0ÿUUµªÕ7Õ*jªªUª•ÿíJUÿ>	+Bk"Vú¯ø~¯‚`ð|ÿ @@@
%ªW¨§Y®Ól•jªUªUUªêªUªUUªV»ÅzŠUR­ªUº§ºJ%Ú	­R	ô
á*´¤Rá¡áàxhxÃËCspp04CAÂÀÐÀððþÿ€~ààü€€üà©ªUª•ªUªú`€z„ÿÿ_ÿÀÿ6J:
ÀÀàxxXÀ8¤Td*ÿÿT«©Tùù?÷úõÿËÿÕ[þþù¡ÿÿçæÀÇðÿªµÿ	¬ÿªÿÿÿû®·ýþàà€€àà àµŠw™n¢]€U’mªU¤[UªUªU®PUªUªÕ{ÿU¶Z¥ZUøm’mU«T«?€@`    (00000000008888888`````aaaœ¢­²j£¬S¬þ¾ÀT«TªEZ%Z_@¾tðÍµŠuÿÿÀXV©Vÿÿà¢šI´€€%#**	UˆU¢ZJ!œU¢ÈU¢UÉUþT"‰@ Tê(óðððÀÀÀð¸ø(øßu*€à xTül´þÜô\°ðð°ð°ððºªjkVB×UUUÿUUUU¿j$UUI[@ú
_ë= k_<33? 
¿ÀÀÀÞÿþ!Tˆ@øøø¼,,ðÀ)xˆ€€€ˆp04<<<4<<8888(8(8`axxxxxx€€ÿÿà€ìÕªUJµ=¿?ÿþþ øoZ$*'%E¨ªA*”I~‚T"ªªT£”K¤Ì"ø```:‰«"¶ªµ®	[î»AÕÑ´Ö}T€À@@p4ðÐðÐððÐðý¯*UÿÚWý]Uwjj­„­ZP©VVUu¾þxàà€€€€P
Q²‰D)TŠ J%Hþþþþ„w=ðÀR)J¥*‘U"8
‡…¡0<¼¼¼Ï?À6PàÈÿþdƒüüR©UŠµª•R@àøüìüÿüðü@ÑH€€à à`x0<<²ÚK5*	FÁxÙ êŠ6?0ÿUUµªÕ7Õ*jªªUª•ÿíJUÿ>	+Bk"Vú¯ø~¯‚`ð|ÿ @@@
%ªW¨§Y®Ól•jªUªUUªêªUªUUªV»ÅzŠUR­ªUº§ºJ%Ú	­R	ô
á*´¤Rá¡áàxhxÃËCspp04CAÂÀÐÀððþÿ€~ààü€€üà©ªUª•ªUªú`€z„ÿÿ_ÿÀÿ6J:
ÀÀàxxXÀ8¤Td*ÿÿT«©Tùù?÷úõÿËÿÕ[þþù¡ÿÿçæÀÇðÿªµÿ	¬ÿªÿÿÿû®·ýþàà€€àà àµŠw™n¢]€U’mªU¤[UªUªU®PUªUªÕ{ÿU¶Z¥ZUøm’mU«T«ðÐðððøDDxPHÆðP¬GÇÇÁÁÁÁÑ‡‡†‡…ááa¯€€€ƒƒƒÀþÿBþ€èõ
j•UªT«TªETUª_x‚@ýÿ_ÿÀLÀôôð§?¹????;ç÷]»ûmù%-*À@À€ €àà à€ö¿Ý«[[«ªjj‚V·ªHÚº(jB×	«€©"·UU•«TUoTUUU«*U´òâT?ððÀÀÀðJ •B(… "H’$I‚(¥P…(¨B¡
¤I"” J$DJððððððððøD@p@DøDTôÂ(—ðÐðð0888aahixÀÀ@@pPppÿÀ??¾/à€€€ÿÿ©UªUŠ€€UJªUªU¢­àÿøýÿààüÀÀüÀ½?ÿáá
(T@ÀÀÀÀðÐðùH®€€ €à```*ªjíU	«U eEU]ª[j U	[HÚ­«ýWR÷…û^ïz"k!kÕÛö+kª²ýÿoÀÿÿÿÀÀÀÀÿøø©UÿÿªªUjÿÿªªUêÿ n©àþ¨UðððlkOO_ÏKO¿KïNOO¿¿¿ï[nl¿¿ï¿¿_oOoo‹¿ï¿ohï¿ïohkkoooŽo¼ßoloooooolooOKOOOK¿[k_¿o‰h¿¿oŸ¿¿ïo‹o¿¿ï¿oŠhß¿¿¿hŠh(oooo¿¿¿ooooooolohxggkoooxoo&ohoooo¿ho¿¿hk¿¿¿¿k¿¿¿ï¿¿ïï_[O¿¿ï_KOG_KKNN^^^k_[OK^_¯¿___ï¿¿ï¿ïO_¿¿ï¿ï¿_ßï¿ï¿ï_ïïïïï[KENOOOO¿¿¿¿¿ï¿Ÿ¿¿¿ï¿ïo¿¿ïï‹‹y¿¿ïoo__¿¿¿ïxg¿¿¿ïïß¿¿ï¿ï¿¿¿ï¿ï¿ï¿¿ï¿¿ï¿ï¿ï¿ï¿ï¿ïïï¿ï¿ïïO[ï¿¿ï_ONKOO[ßß½ßßooHOOo¿¿‹oooohoŸh‹ooo[+ooolooO›on&kook6okoOo‰hhooï¿kïxŽ¿&ÏÏ¼o_¿oooo/ß¿lllÍhÏ.Ÿnllll‹Ï^ÞgYl¼%[___?_¿___¿O‹ß_Ž{?O_VkßßœOOoo¿¿¿hoooooo_olooŒliœlœ‹o‹Ïj«oooo››onnlok¯ŒlojjNŽoœolilh‹koo‹on‰Œ__4ïŸno__¿Œ›{_5¿oo^}WïW}¿¿?h[[?¿Ÿl‹Ž5_¿¿ohhVVoÏoŽi_ßhoxxx_O?hollïooÏlooolooÏŸÏokkkknœ¯ßßkoo.nnkï_ookg¿ŒhhNnKohh‹‹‹kKïooxlŒ&o.ÏÏoÍiœl‰&oœoœoloœo6k66n/‰ßoo.Îkni&nn)6¿5_?[_{[oooOK_¿Hon‹ááááááááo‹¿ïßookookß½oooŒVoONEÞNHOo¿¿‹Ko¬ŒkoooooÞ¼½okkkkkkÍ‰ooookooonoÏokooooookÏŸnknoÏookoVooÏlœoŸ½ššßoš¬¬on¬›¯_Eï_HOook¿LßÎŸšjkŸk[ŠhooooookkkkkŸÏoooooošljZll6ook&ok¬¬šlš6o¬šjji6¼hjoošo‹oooo¿¿¿ŸïŸ½_Kï¿ï_KKOokÏoo¼ikoohhkhhh‰‹o_‹nok_onoÏooÏlÍollœooÏßk&k&›œ¯oooonlßŽÞ‹okkoVnoßOO¿¿¿ßomoßoooßßo‹o‹ooh‹‹ohkoßoooolVlh‹[o½nF6khhho6ooÏo8lÍ&o+ÏÏolllÍllllknokÏ¼oooo>Ï¼Ÿon&joo/oœo\gk^O_¿?{_?o[_{?NNïNOOKOO¿_KO¿¿ï¿ï¿ï¿ï¿ï¿ï¿ï¿¿ï¿¿ïï¿ïï¿ïï¿¿ïï¿ï¿¿ï¿ïï¿ï¿ï¿ï¿¿ï¿¿KO¿ï¿ï¿ï¿ï¿ïï¿ï¿ï¿ï¿¿ï¿ï_[¿ï_ï[ïKKNO¿¿ï¿_¿¿¿¿ï¿ï¿¿¿¿ïï¿¿okooxoO¼ooooOOO‹oo½[iÍi-ll6‹jÏÏ‹¿Šojonl<llÍ¿YkVlooŸ_ïKhh‹Ž‹hiŽXhi‹$nhhohElhhoŸyhhooohhj_‰Ž‰šYoOOo¿¿‹o¼OŸ¿Kï‹½½‹Ïookk¼œ½ooog6oo_W_VooŸ›n_{_gooogV}V_ookglnlooll_^knoo_¼Ïß|_oß¼okn½žïlÏHOOokok‰o‰Žo›ßi‹lo/ÏïoœooÏ¼oÏïklllhÏkolliliÏÏnllj&N[_WN_>\¿ï?_O?o_{4?Hooh¿ooŒŒnooookoo‹hooßoooloooŒonloOkoŒlœn‹oIkž_nko¿Kg+Ï_[?//ßï5¿¿¼¼^W5¿¿5W}¿¿OK5?¿¿¿K_¿¿ßŸ_[__¿¿›oo‹ßïOoooookookoŒkooooooh½_ooÿªÿï}øD@p@Døßöÿ¿ëÿý¯÷¾ÿkþ×ýý÷Ïþþ¶ÿÿë??5?×ÿWþ¿÷Þ÷Þªÿ÷½ÿß÷ýùøðøùøðð??þøÕÿÛ¿??¿¿ðú7ððññ]ÿ@ðªwö8øøøÁÿøÐ:97÷ÈÈ‡»nªý0¹7ÁÍ.ÉÆ1@Að8ùZøú?÷*ùùþþõÀùþ>>ÈÇÀù/ÑiP?ö÷T?ÏÇÇø@UUõÀJÀ?ùÀ/ŽøÇõ¿ûÞÿÿ_ù¹ÿßõßÿVÿßõÿ×øDDDDDøÿ¶ùùß÷þÇÏÿöÖ?ð¾ð*ÿèºùñ9ªÿ½ïÿ:ïýÿ÷¾û¿þë¿¿ïúÿ÷­ÿþøøøøøùøøðÀ þ¿?Õ¿Ú¿>®ññññññ1ñ!


	>¨Æ9þE0ð1111111ñFÆVFFÁ00°0000ÇÇÆÀÁÀ÷ñ.Æ1ÏÎÏ?0þ16øøÀ¸Høø@‚8ÇþÆ>ÖðððÏø(ö^øø.öðð).õÀ8þþùøðð	6°°«ÿÝ÷ÿ½÷ÿû~ïÿ{ÿOÿú¯ï|ÄàxŒø8d|`<8d|`<ÌÌÌ|xxÌÌÌxÌÌÌÌvx|Ìv8<8<8<xllllxÌÀÀÀÌx8<8d|`<ÌÌÌx08d|`<8<x|Ìvxllll|ÌÌÌv0000008d|`<à``xllì8l00ÄdTLDDÄÈðÿîÿ¿õþ>'Ïÿë@?¿÷ý_ÿîÿÛÿ~×ÿí±þÿý¯þ[ÿÿÿkÿÿªÿ?÷ÇÇ÷ÿÞ÷oû~ïÿõ¿þõÿ»ÿÞqñ¯_û¯ÿûßþÇù_õ÷]ÿÿøðððððöñ	UªUÉ8þ Tª6ÈùÀ/û_ýwß}÷Uÿö]þøøñÀðÀ
%@6ˆªE*É*:ð:ðÁÙ¹
:>?ÇÇ±8:>ï}??ÿ{ÏÏýWññ_þwßý÷ý÷¾ÿïºÿÿ~÷ßúÿ­ÿñÿù±ùÞ÷ÿ½ÿý¯ÿû¯ÿ»ÿÿ}'?>`    (0ÿÿÏÿ/7ÿÍOùÏùù¿öÿ¿ëÿõßÇõÿUÿµÿõûoññùÿú>÷÷ññÿþþ*øðøøFðþèÈ%TðÀÁÁÀUpªþ÷ª@´KùÔÏðÇÏÁÁùñÿUÿ,ðø/8¹81?99ù00ðOð°þÐÀÐøÐðþ0ÀÏ0ÏÏÖÇÇÇ÷88?(ñ
??
øÏøÏþú880E5ùðøU*ùðUªUÀ*ªT€õªÉ?A/ûþ¿÷ø>+?÷¿ýoxˆ€€€ˆpG7øøøøùùGÿ?±??ÿõ?÷Þ÷ß_û¿îÿOúÐðÊúø~pÀþúJþÈðÆÆ*AµJ%¨¢ZI$ªTªR©Y¤§ñ‡ï_Ñÿêÿÿõ¿Áþððð¿ïùøÐTÀÀ_ ªEÊ5ªAªÔ+T/?ÉRª%÷÷Áh•ªR?×À*UªU@À1ŠTR	µJ!”K¨­R	ê*„ªQJ *•¢Y…R¥P•JP$T«)¤55)	?¿ûÿÿúïýÿ^÷ÿýßÿþ«ÿ÷¿ÿíÿYÿ¿îû| ÿýßÿõßûÿ÷ÿ½÷þ_ûÿÿûoÿû¿Îúþú:úúþ«ÀÀ?ÀÁ7??øðøøùùøùðÀ0¿?Õ¿¿?Õ?þWþþððÏ8>>9‚?Xþ°ð7Ï870Á°ñÑ1ñª€9Ï‚þþÇ.ÏÏÏ077þ>ÉÏ*¾?>Ï ÐðÈ‚ð7ù°ÏÏÏÏòøÁõ_µ¥÷76øWú­÷ÈÎ5ðµÐ70ÀD(ðÀ88¶ðÀÀøÇÇ(Ð07Áð0~Û/?Á¿ÿjÿÿ­ÿ/ý¯ÿÛþÿkþÿ_úÿ¿èøø`@@@@DøÚÿßññßýÿ¯ýîÿ{ßý'Ïû¯ÿúoþÖù~ëÿ¶ÿ>>>?ðþ«ýjÿùxðùøøøø>>øøÀ*(¾þ¾¹ù¹þ¾!Ï÷ñøøÈÈù7Ï?À*ø¸Ïuª«©09ðÀù÷÷öø©ÁA?5þ¦þÇÇþ¥€0ùQþWVU)ùþ9ÇÇÀ@ÀÁ8þþÇEþ@¸¸00À*¾.¯?¥?>ÀÀñ0ÈØ9ÖÀ?Hð°ÀÇþþñH0øø??¿Ú?ÿ®ù÷~ÿ·ý¹éÿok¯ŠšŠ¼ïinljnlllÞolilil‹‹oIIoo‹Xohoh‹nŽo‰o_hoh?hok‰&holhhh‹Ž‹nhŸhŽ‹‰OOoooOoookkoloooonnœn¯llilllkkkÏÏÏ//¼Ïk/¼ÏoœooyVY¿œ_Vo[¯ÏN[_goElilll&¼xxVWooo›ooš__ÎÏoOoxooookoooÏ¼ÏÎoOFþû_þ÷þúùð/ñ°ñ¿ÿÏÏÿþ÷ÏùÏþÛ¿÷ý¿öÿ¿ööÿ_øú¯úß·ÿý.>ûÿÝðøøøùðùùøøð¿¿?Õ¿×¿Ýññññöððð	IÑÇÇÇñ0>0°ùùñÇÏÏÏÊ¹ÖFÆFÆ001.8¾8?ÆÆþø077Æ95ÇÑÉÍFF62¶¸ø¶2611Î9?Î±±ÎÎÖ6>ÆÖÆðÐøøøþv)	=öõÀÀ99Æ0òõñ660òûþþ?µ?õÿÀÐÐú¯ÿÚÿhßý÷¿ý÷??øDDx@@ÀFþù¯ðûÏþ·ùùÏýþþ­ÿÿ«ÿë??êÿ÷_ýÏý÷¿ý_ÿµÿ÷ÿ]ÿ¶÷÷÷øðøøøøøù?þøðÀÀ?¿¿¿¿¿?òððñð	xð*51þ0È ÈÈ÷€ùñÇÏÁÁùñFÆFÆFF89¨>8((	?ðñ>1?0>ÁÎUûVÏ11Uîø8ÏÉ060ûùõû)6Æú0ùÁÇ ?/¸ÀÆ¿NúÇFÇ8D÷6ñFÄÏ°±HÏøú÷ÏÏÏÀ@Õ@? ^@ïÿ5| þþÕÿÖÿïº?>÷ÿÛÿÿ«ªÿÇÇ÷zßú¿ÿëõ¿ú¾ÿUûnùñÁÁõ_õðøþþÿ}¡kÿvOÿÚÿú¿Ê­ÇÇúÿ½ïÿ{Uÿ¯ýwÿ=7þ¦þþøøxøðÏ>0
?/?¾þv€ð¿?ùþþþÿAÀÂÀÀ660?/ÉÉUµ66Uþ«ÁÑÆÆ	‚þ89ÇÆ	ññ±ÏÇG9ŽðÐ0ðùù7ÀÀ_ÿú>?Ïjÿ7ß}÷~ÿñùÿ÷]ÿÿÕïÿõ¿úï}ÿïÿyññßþ÷ÿï½ÿï½ÿî`    (0ÿýß???úþßþõQñÿ¾ÿ»îÿÿªÿÕýëþþþ§ùùÀþþ??þ>777Ç÷þ>>9ø>>8øÿÞ??ª¿¿¿þÞ÷ÿ»ÿ?5ß{þþùñøð?+ùøÎ÷ÇøúñÇ÷ÏºÀÒ€./Áñ™øþÏÁ-@È		ÐÁ8û+ÀÏÏþ«uQõ¯õþÆFÏÇÎ5ÊÊÇøè.Å..H:>(8Mð.ñ021601À@ÐA)ùW~Ë?G1?Ï÷¿ý×þoÖþ×ëÿö¿ý¯ýwÿÚÿ¿ùñ?Ïþÿ| ùñÇ§??ûÿõÿÿÛÿ~×ÿý÷_ý÷¿ýoú¯ýßÿuÿßÿÇ×ûVÿ¿ðþÿ{ïÿûÿ/øÿWý_ÿ>ÿßú÷È9ÿÿÖÿÿÿë¿øøúWûÿÿÕ?»?ÿkþöxþÖÿÀÀK@À@pÚUªU€UŠ©*‘T‹T"UˆJ¤Z¥N¢ªT‰R$Õ*€P•Je”"•@	U¢Uˆ¥íUª"ÀFê U
¤R¡Ê)”¥RJ¥™U"@>À(JO>>/¶1ÿùÇ/;ÿßõúïûßõùñOÿÿÛ~ÿ×ýï¿þé¹ÿ~kþÿ×ýÿ·ÿˆˆˆˆˆˆ|þ TH—ÀÛÿý×???*÷ñ~ÿWþ×ÿ{ÿþþøðÀÀ*J¥RˆªUªU«T$:ð?ÁÑÀÎÊÑÏ{???Çý_þ÷_þøøë¾÷ÿ½÷þ¿ÆÇÇÇ}ÿ¯ý|ÄàxŒø8d|`<x|Ìv|ÀxøxÌÌÌxxllll00 |Àxø|ÄÀÀÜÌ|`ül`ð8d|`<8d|`<0x0048<xllllvÌÌ|x|ÇÎ5ÀÀø~¨þÀÁ9G=Î5*?5Õþ5ÂùWùUª©Ï?>Ï66ùøøÏ0 ÁÏÏ Çñ9ÏÏÏñÆÏÏPðÁ@ÉÉø;ùÀùùþ6?÷øÚ!?÷ùþù@>À
þþééý????+?ßõïõÿÏÏÏþõß{ÿßõÿ¾ÿñùÿ÷]ÿÿ[ÿþúVþ¯ûþ[ÿ=ßýwÿÿÕÿ{ïûÞÿwÞûoýÿø¾ÿïû¿þë?ëý¯ÿ×þÞwÿÝwÿÞûøøÈ@ÈÈÈÉ??ùÏöø¯øøùWùÇ
)ðUîUî[<lÌþðÎ111u0ðÐ7?°øøÞ6ñ*ñññÁþúpþºÏÀÐÀ1î Î/>??ð°ÏðªÿÕÀÀÿ???ÆùÀÁÆÀÀ*(ÆÉP¤Á7Ç7ÿ[ÿêÿíÿ[ÿÿÕÿÖÿ÷_ýÿ]ÿßûªÿ×}ÿ×íÿ½ïÿzß}÷Ýößÿõ¿ûþ÷÷Çuÿÿú¯úïýÖ6ÿÿë¿ýï¾ï¾ÇÇ×~×ýîÿþWþÿÖÿÏÀÀ@þøøÈõÇ?ý¯ÿUÿ{ßOðOHH?@Á×øøùðv‡ù0ðñÀ÷ùþþþ>?ÁñÀÀØÈøú÷þ7ðÈþUþþ>I÷ñÐª÷š¸ÇÀñ_ê^¥í>ÁÇÇºWý9ð?!9?4IÆ0ÁÁ??»þïû¿~×?ÿ?5?Õÿßõÿÿíý×îþ¿÷ÿ»îÿÿÿOûÞ÷ÿÿþUÿ«þß÷÷???Õÿ»ÿõ¿ûïûß~êÿvßùÙÿÀÐÐÐÐÐÐÐþp?9?õ¿ÚßÿËÉÏ??>øÈHÇÇ	ùø_õú¯ÿþ«þþùñ?Ï-Ç÷ÉþÎÎþ97Ç½(øøù÷wU÷)ö9õ_ª€ðð÷Oð0·±øþþÎ÷÷Æ ÅðÀ		À~ð.>7ðUª
/ùøúùVðB0 V@^À*ÀÀÅÅÀ/€@.‚Æîº’’‚8<0x004xÌÀÌxà``xllì8d|`<8<8<þþøððð¿¶?;//¿?ÈÈÈIÏOþþ??ø÷ÇÇøøøðöÏÏÏùù¸þÞ9µùùÉttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttNNNN4G^OOOOOO~onnoïï^g~{>~~ttttttttttttttttttttttttttttttttLLLOONNOLLOONï~>~~~~~>5}>WN4~}NG}ZMNLnN~~ï>~>ï~~~>Gï~>~W>~~>~~>^^~>~~5^ÑÅÀÀv‡ù0ðñÀ÷ùþþþ>?ÁñÀÀØÈøú÷þ7ðÈþUþþ>I÷ñÐª÷š¸ÇÀñ_ê^¥í>ÁÇÇºWý9ð?!9?4IÆ0ÁÁ??»þïû¿~×?ÿ?5?Õÿßõÿÿíý×îþ¿÷ÿ»îÿÿÿOûÞ÷ÿÿþUÿ«þß÷÷???Õÿ»ÿõ¿ûïûß~êÿvßùÙÿÀÐÐÐÐÐÐÐþp?9?õ¿ÚßÿËÉÏ??>øÈHÇÇ	ùø_õú¯ÿþ«þþùñ?Ï-Ç÷ÉþÎÎþ97Ç½(øøù÷wU÷)ö9õ_ª€ðð÷Oð0·±øþþÎ÷÷Æ ÅðÀ		À~ð.>7ðUª
/ùøúùVðB0 V@^À*ÀÀÅÅÀ/€@.‚Æîº’’‚8<0x004xÌÀÌxà``xllì8d|`<8<8<þþøððð¿¶?;//¿?ÈÈÈIÏOþþ??ø÷ÇÇøøøðöÏÏÏùù¸þÞ9µùùÉÀxøøDDxPHÆIÈø´÷ññÿßê¿þþ.ù
ÀÀ]7ø¯õU>9ÀU÷6þWÁÑÇ0±1±ÑÁñð ÇÏÏÑÑøÐÎ
/???9ð@@÷~¿Æ×?/ßÿÖÿÅ÷ªúÿ¯ýwÞÿ÷ÇÅ×nûÿ®ÿÿ­ÿß÷þ¾êõ¿õ¿ú?:?÷·÷ÿµÿû¯oý×þïûî¾ù÷Þûÿ_ÿßõÿ·úxØÿWþ¿ïúÿß¯ú¯ý÷Áÿ¯úßý÷_ý¶ÿÿ×ú×øÏðßzÿßjßÿ÷¿øøøþwßýwßý×ëÿ¾÷ß}÷ßOûß÷ý_ý×ÿoýÿ_øøøD@p@DøHÇ8ÆvÅÀÎö*Ï0Áðøø¯ÐÀÏÏwÿU©òðþ©þUþ*þY¸É¶ÈG8
ññ>9ÇEÑ9È=5*Ï9ððøp0`ßõÏ??½ÿúþ¯ûÞoüff|lfæxÌÌÌxxllllÿÿ_õÿ¿ë~ûÿ[ÿ¯úßÿëÿ~ëÿ¾ëùþøøðððð¨ñÀððð89øøððððñ.???ø÷ÿuÿÕÿï½÷ïyññ¿þÛÿø¯ÿlkttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttOEONïïÎ>~>~N$=GnttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttEOOOOONOÎï~.ïÞïN~67~~>ÞGG=~~NÞttttttttttttttttttttttttttttttttttttttttttttttttttttttttÇÎ5ÀÀø~¨þÀÁ9G=Î5*?5Õþ5ÂùWùUª©Ï?>Ï66ùøøÏ0 ÁÏÏ Çñ9ÏÏÏñÆÏÏPðÁ@ÉÉø;ùÀùùþ6?÷øÚ!?÷ùþù@>À
þþééý????+?ßõïõÿÏÏÏþõß{ÿßõÿ¾ÿñùÿ÷]ÿÿ[ÿþúVþ¯ûþ[ÿ=ßýwÿÿÕÿ{ïûÞÿwÞûoýÿø¾ÿïû¿þë?ëý¯ÿ×þÞwÿÝwÿÞûøøÈ@ÈÈÈÉ??ùÏöø¯øøùWùÇ
)ðUîUî[<lÌþðÎ111u0ðÐ7?°øøÞ6ñ*ñññÁþúpþºÏÀÐÀ1î Î/>??ð°ÏðªÿÕÀÀÿ???ÆùÀÁÆÀÀ*(ÆÉP¤Á7Ç7ÿ[ÿêÿíÿ[ÿÿÕÿÖÿ÷_ýÿ]ÿßûªÿ×}ÿ×íÿ½ïÿzß}÷Ýößÿõ¿ûþ÷÷Çuÿÿú¯úïýÖ6ÿÿë¿ýï¾ï¾ÇÇ×~×ýîÿþWþÿÖÿÏÀÀ@þøøÈõÇ?ý¯ÿUÿ{ßOðOHH?@ÁONO~NN4N=LONï~O~~¾~^^~=W^5~4J^=WYLNïNNï¾~~~~~¾~~~¾>~~{~~Þ~>~]55=5^=}NÞ5W=5NN555N=Nï~ïïïï~>~~~ï~>~>~N~{~>~~>~>~~~NïNï>~~>~~;~%=W=GÞNß74nW5Í~~N{~~?G>~~~>~~5WN;~~ï~J^ï¾~~~~~~ïïï{~~¾~~~>~=WÞï?555=W=]5~W5^5=W55=^ÞNNïï~~>~>ï~~7^o®~>~~~~~~~>~~N~~ï~~>~>~~>^~NÎï~~5~~>~N~~~>7>~>~~®ï~oonnnnkhok®®®®hknnnïïïoïïnnnonj¯j*oïnkkjok&®¯n‹Žk5œnßÞnnnŸnonnnïnïooïïnïïïk~Þ~ï~onnnnnnkk‹oï6jk66&nnŽiNßÞïïkIÞnkïj~¾~>~~¾¾ïGNNNïïï¾¾&ïlï$>ïn~¾~>N~>>~4}^=W4~ï~>~~>~~¾~~~~¾~ïnï~ïï~>~Þ^~ÞgÎ46ÏÏŽ8nÎÎÎÏonïïkßïïï¼&œ6>~~>~gïï~>~>NN>~ï5Þ4G>~~~¾~_ï7~ïïNNNïN^~>~ï~~{^~~{~~~>~>~^~4Î5L%4%G4~N>~~N~N¾ï~¾~~~~{~~NïnNïïï~>~>~>W>^nnnoÎonnonoŠ+5ÎïÎÎk+kÞÎÞïÎnnkoÎnnngnon>~~~N4~~ï~~~~~4~~~ï~~>~>~¾ï>~~{~~~7~~nïïkjkjjkjKNnïN~~~~~.ïïïœ‹onNßok^5ïï~ï~~~ï~~>ï>ï~NïkkŠnnï~~~~~¾ïïïgŽno~~5~?~~~~~~7~~~{~~77~~>7~~~~~{~7ï~ï~~~{gNïï[Þ~~¾ÞW~Þï¾YïÞG\\WLïï$n>445~okkk‹kNG^L5}g4|}&kgnn~NNïooolkoŽ?nnïlnni‰ŠnnnŽÏjnnnï6n&‰hoo~gW5ÍWÍ^\$55W^%\5^^nnoonkkoŠ‹‹k‹ïknnnnïnnnnnkjk8œï‹ookkŠk‹.ÎÎÏï>^~~~~ï~~{~~~{Nïn}ï>ÞN45^g>G>~{N~ÞïN7~~7O~~>Þ~ïN>~~¾ï~7¾~~ï~ï~~¾~~¾~~7~>~>W>~?N~4~]}=G=55_5}4N^^Þ~~~ï~~>~~^WNooooh6}gngï~>~~~>~>ï~~N4~{~~~~~>~~>N{Þ~ï[NÎ>>n%^~ïL5~~>~~>~ï>ï~~{~~~~^~gn>~^^n}G4g~}~~Þ4Gy^Gï{>~~7ß~6~~77¿W~~ï7~4}_~¾~g~¾ïï¾~~~¾~7~~ï=NW>~~4~G~N~ïïï~>^~^^W[OKÏŽ‹k¿Ï‹½k~{N¼44ï~~~~~>~ï~~~>~>~~^N~NŠ(ŠŠ‹kj®®k®onï~ïïïïïoonk(nnnnïÎNïnnnnnŠŠjŠ‹kk6&kkhn½K[½KNŽ¯®®Žnnnïïïï~nnïïïïkkkjkkjïïïnnïïoœOïno)¼kh~?ÞŸÞ^Þ~¾^^^¾ïNNNïïïï~~>~ïÞG4N4GÎ4G4^6~¾~~~~~~~~~~~¾ï~~>~~ÎW5-N54G4Ng.N~N4G4Wïï>~~~>ï4~~~~{>ïï~~>~>~>~>ÞN_ooooŒïoonïhoooo~>~~~>~ïïïN~¾~ÞNï7Þ$WLï~~~J$%$ïïïïNNN~~ï~>~ï~~N~4N44kOkk‹>~4G44Wï~~~~>~4~N~^~4ÎW6-gŠkF$4~4ÎG4N~~~>~ï~Þ>~^_~ï~~¾GNOoonohïŽŽnnïnnïïnonnonïïnoŽoïoïïonnonïžnnnïoonnnonnno~>~~>~NÞ^W4ÎW4-\GL\WL%GG\\¾øÌÌøÌÌø8d|`<|Àxø0x004ÆÆÆÖþîÆ8<|Àxøà``xllì8d|`<|Àxø0x004xÌÌÌxx|Ìv8<8<ðÈ€þüà€_þ ÿªÕ`(øüff|lfæ8<xÌÀÌxà``xllìx|Ìvxllll|ÌÌÌvÄdTLDDÄ60x00xxÌÌÌx`ül`ð0x004à``xllì8d|`<60x00x8d|`<|Àxø0x0048<ÌÌÌx08d|`<þþþþþþþþ€ÿ€€þü4xÕ’í»íp†küS«%\þbhxh`ð`ül`ðx|ÌvxllllxÌÀÌx8d|`<|Àxø`    (0€À€@üÏ {þïê7 àWü8€ˆh°€€€€` þàÜ>Ò®«M7pp˜DüÈàüð¯HGDû?vþ¦ÙUë½þÂtû­×²&fïªewgggçY!{?¿øÐg˜ÿÝ*€7€@Äÿÿ,0 pû?@†øü¿œãy™øª	Rû³@œ¦µ¼¾Ð à–è<ÖÀÿã·T0RRª÷ñcgUxˆ€€€ˆpþþþþ @@@ Ø€@û áž›øwä”`?‡  èààèZ`ròXÞ“I‰Àï˜@ `x
;øüŽ.Ð<]\Ž{£US‹üÞµ$Á¸œƒ@À@¸NÀþtHæì,+o/ÈËÏÍÏïÿQ	Qïþdö}Ö»¹ùÀïÏoÈ¿åîûmèžegó;€êþ€ÀÀÀOûú¾ªªH„ÀÀ ððàò£À¸Ö»Ö½@´/?ªWUªQ^¢U¥ªUUª| øøà€a¿ '+pïøð€_€€€Gü“ýÕ  —ôhÂóÔà[øðÀ?8à¤„?êßÿ‹À41õÁøðŠ*Q0d~'° @€Ý€ýûý	ú½Õnªÿ€>v*¤Ð¸À€( €`@@@@DøøÀ¯ðà
>w„å7T:àx0þ€}àLƒ'€ç8&Þ•æø8Ðö€Üðî\`û‹0€÷þ¿Ô0Þý×€Àóxð‘ïüªï ïâùë(úàð @@€[þ
ötu0¹€Àà Ø¨¶
-€àPð°X*üP¨½Q®SŸŒ@ÊP
€€@*€Àw>øDDxPHÆüèÐ àà  ÄÇÅÜ€_ •þç~2R*R*²J²J~JÎ

#ûûûûÿ÷[¸E2ªU*•Rªë¤ªI¬R(¦iË(‹0«LðððàààÀ€ÿ?@À·H<?¿??,?*?,ØØØÜÚØØÙßÀpÌnnjnfffnøøøøøûùš!E%ÕØá…Uû)ù!.y††††††††p`à`````R˜@œ”Zîê®ênênjI!	!=¼«üüüüüá'È'g//6<,<4<,8øD@p@Dø€ï¾@Jéð¬RªTÿO
ã{üÓÁƒt· ¤)V÷zvV‰l’Ý#Ü€§œPðàBGQŽø¿#$P6ÓéàíðàÀà~@€€?€Ö)²ã£¢ÜðàÀÀ€€€*?6??ÜØØØØÝØØPÀ^%fff¦fffd¨
ø¨ø¸•è	è¨Ù’ç¼ß\Ûš††–†††††`p`àhcdd˜ˆ)@nnFü‡€ä¿	AA’‘QüüÜüüüüÜ42}Ïüp74 ÿ€Å`p^öï7À?€T’úUÕ‚?Õ¸À)xìïÏ8×\“ü€€€€€€€ ¤v&Dë€€_þ~1Žõ55x—à€€€€~Az|§›nîþîÈH+ÎñÉ/1P¸Ìv]€À ÿ€À þóþ|@¢]k-7
Š†€ÿì?«ÿTüªªøDDx@@Àûþ @?€€€ýå<Àü¶
;øt…„2ÉÉÉ€@À@`€°À€û"Î|à} ¯@€€þ7*Ô.o_®Hi¬EeUU7$€°‚‚ƒ°B½@DBD@@@@ÝÔÉÊKéÈ€sQéhX™9ð¸¤¼@ß¯U€€`°5ýí‚ƒÇïÕê?à€€U]ü| |Àxø8d|`<x|Ìv|ÀxøxÌÌÌxxllll000000üðà€€à€þþþþþþ;?8a€Rü¸àÀ€p°@E:xÌÀÀÀÌx8<8d|`<8d|`<`    (0ýûûþø Ð€÷ßþþð€_=‚ðô ¿¯ð?a­P÷¢`¢¡$¢¤¨ðà€@€ýá>ëÛ?šQª]âµÔkJ€ˆ @}UªUªª| þû@	 8` ^õûò
•ÿ«ëàçà ^@âžüÿæàD²fšeàø~èøŸ€ìð~A¤€]¢ÛP«$Š’ðÈêàð@@€,*-o*? ö¿ÀÀß×ØØ«ÿÿÿPyàììjn/íIUE†T{ià T_þúøüpßÛUWŸ ÿàÿm¶ÿ*ñ²óÓðóò
¾À ¸¬ƒG×Œ‹|<E¥J#ÌÌª¯WL³ûûˆˆˆˆˆˆ|Y–‡‡ç‡_€€ƒ†‚Æü³‹S+RRªJýúöâFf¾¾ÿxxhxx×ü*¥T«E2Jˆj¤UE¨Ue”eŠe2Šààààððàðû,??>???,ØØÙÚØÐÙØSÂ×¸ö>Àjnnnjnnjý¨û¨úØø¨uEvÚíw­÷[í&&††††Uh```ø€ÿ„ƒ	
îjîªîê®«ƒRSA<¼¾><<=<ÌÎÀÀÁÁØÁûø@øD@p@Dø€`aþà`À€çø8Ÿ×þ~òùXR¯i°çh€µUªª€1gÀ à¿q8ÀûÌÙ€¿@û‡–w6Õúªþ©Vëã Óü?ÑòÕøÐ À€@€þ?Q	)Ù)¹9yy{z‡_?ÀàÀÀÄì€ÀàP¨ü¬úØ@÷¾ªV]2@0/5:­ÛB! €ý€ )€€Ñ7ªÕ€àøDDDDDøþÀþ~àŽ??«møâøüø£@QþZ7$Ÿ—›¿g¾õ×¾ý–”ÁZ?Öiêù€Àm©kï-ë1e@÷Û;®«ôÿø¯õ*þ'":ì `@þùé9€Z{[zzX*@@@Ææªîîì2Þ €/S`i€€@à	þŸbÃq¿Ê$0 Ø0°pPõç“¬ØðÉ€€>> >xyhhHHH÷T³£“‘‘˜0ÈÀ  €€_ßß 5ðþþþ Ààz†øààa!3	‹%a²“±	üÚ§Ë1ÀÀàððød›¢¢Ò ðø€€€€@»????ØØØØØØØØRPÐPÑ•‘Pdffffffnø¡#Å*Ë(Ø%U—–›œ«ýª††††††††fedeåegeàßTœ@ùþˆœÝÈÓ±²S“üüüüüÜüüÌ q­21A><>k³úˆ€[ü|ùÀÀ€€_$'oHJHLÌÎ/O‚ÌL-<•ÉÆEâ¹¿¿öÃLŠSáèÄòý?ÀÀàpþ?îØÙØÏþ€8H/øfdfhb`üž)gçÁ‚†7EÁvÿªö[î[Ü«††††††††egdgtæe`ô€Ã›`Ýsä„Ì²3SSüüÜü«Ý·Û0R~KþUþ‚€xyhhHHH÷T³£“‘‘˜0ÈÀ  €€_ßß 5ðþþþ Ààz†øààa!3	‹%a²“±	üÚ§Ë1ÀÀàððød›¢¢Ò ðø€€€€@»????ØØØØØØØØRPÐPÑ•‘Pdffffffnø¡#Å*Ë(Ø%U—–›œ«ýª††††††††fedeåegeàßTœ@ùþˆœÝÈÓ±²S“üüüüüÜüüÌ q­21A><>k³úˆ€[ü|ùÀÀ€€_$'oHJHLÌÎ/O‚ÌL-<•ÉÆEâ¹¿¿öÃLŠSáèÄòý?ÀÀàpþ?îØÙØÏþ€8H/øfdfhb`üž)gçÁ‚†7EÁvÿªö[î[Ü«††††††††egdgtæe`ô€Ã›`Ýsä„Ì²3SSüüÜü«Ý·Û0R~KþUþ‚C7*>/;*;7>LY°@L°@+^J[7]+J7CGC70>9>7CP°@C0QL<°@0L<J6JHK	°@L°@H<j0[0<J1LJHU°@H°@+SJX7^+7JCHC>I7B;P7;>CJC°@@L~0h<nL0<
Nd	N<pO|<ONbL0Y<dNL<0Jp<V0P<J0°@@7QGl+RG+7CL°@C°@>rE2h2>EG^
EfGE>aCr2YC>2BpB°@+fCv°@7j+C7>Q;L>;COC°@@C^0_<]0<CH^H<\H`H<	J^J°@Lv0UL°@9000REM  N&B 4/87 BSAVE fix9010? "Running BsaveFix"9100POKE 16149, 255:POKE 16150, 2559110POKE 19459, 34:POKE 19460, 2499120DATA  16601,63817,195859130FOR i=1 TO 3:READ j:POKE j, 35:POKE j+1, 249:NEXT9140DATA  16604,19558,19563,19576,195959150FOR i=1 TO 5:READ j:POKE j, 73:POKE j+1, 249:NEXT9160POKE 19566, 72:POKE 19567, 2499170POKE 21019, 119180? CHR$(13); CHR$(4); "run Holiday"ú¯õ¿………„F€€€€ÀÀ.'%úþôÀ8Cãp°øüšˆˆØpQvù~???øìV#™¡Gü1Æˆ<s?€ @hð@ úþþƒ„„h˜áž“áïwþ«ýþø¸à—†††&á````h`àÐ`nd`h``ÐÌÌÌÌÌÌÌÜC’B½×º×ºßªÿUïµÞµßü€ÕªÿøÀ;#xÌÌxÌÌxþßÀþ€ýx``ýþ0ñŽñ~?ìÐ<÷fœçøâÀ0Ã0@}=X7CÐÏ"!SñHôñìÃÁÄÄ|çŸƒEŠ­ä[ôòðòðôôüoà|þþþ‰¦¥¡r»¨ðf@ À€8Xåz€@^Õ1Â=ˆ@µ5Õº%/Ïxa™êhhoªþ€ükïøœý}PT/÷àßó¯üÓmLX	LJ\+H7I°@+7JC:C>DCD72;>7;>CL^°@LJ\+M°@7D+J7CLC78>I;@;7>CGC°@L|0Y<b°@0L<JN	JHY
Lp<WH0R0<J.L	JHS°@H°@+OJV7[+J7CAC7?>D;D;7>CLC°@<aLv°@0YL0<NZ	NOl<n<ONbN<dLv0QL0<JfJ°@@7f+`Gp+G7C)°@CE>h2b°@>2EG`	EYGE>aCb2Y>C2Bf°@B°@+b7]Cp+C7>L;D7,;7>Lp	°@L°@Jc+R7W+J7CLú¯õ¿………„F€€€€ÀÀ.'%úþôÀ8Cãp°øüšˆˆØpQvù~???øìV#™¡Gü1Æˆ<s?€ @hð@ úþþƒ„„h˜áž“áïwþ«ýþø¸à—†††&á````h`àÐ`nd`h``ÐÌÌÌÌÌÌÌÜC’B½×º×ºßªÿUïµÞµßü€ÕªÿøÀ;#xÌÌxÌÌxþßÀþ€ýx``ýþ0ñŽñ~?ìÐ<÷fœçøâÀ0Ã0@}=X7CÐÏ"!SñHôñìÃÁÄÄ|çŸƒEŠ­ä[ôòðòðôôüoà|þþþ‰¦¥¡r»¨ðf@ À€8Xåz€@^Õ1Â=ˆ@µ5Õº%/Ïxa™êhhoªþ€ükïøœý}PT/÷àßó¯ü<nO]0<<H0BO0<OLO0@<pOt0O<
NRNLj0Q<S0<LO]	°@O°@7L+WJt+7>UJ>
GNG°@@E[>WE>EQE>WJf>JJjJNf2X>VN>2N^N	Qp>R2E2Q>QQQ
Qn>b2J2>QOSO>ON`>LM	LNJh>`2F2>	J9p<j2O6\269<	Lf°@L+TJp7]+°@J7CFCCK7>>I;H7;>C	L`°@L+?J\°@7=+7JCOC7=>C;DCH;>C7CA	C°@0MLx<f°@0<J0LJH[	L~H<f0>0<JDLJHP°@H°@2_E~°@C2>EGfEdG>f2[CrEC2>BfB°@@Cz+l7r+C7O1Sd7>b;j[OS[>;78°@y@à@°y@à@°y@à@°y@à@°y@à@°yy@à@°y@à@°y@à@°y@à@°y@à@°y{@@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@ÿ0ONR	NLj0Q<S0<LO]	O°@@7L+WJt+7>UJ>
GNG°@@E[>WE>EQ	E>WJfJ>JjJ
Nf2X>VN2>N^NQp>RHS°@H°@+OJV7[+J7CAC7?>D;D;7>CLC°@@<aLv0YL0<NZNOl<n<ONbN<dLv0QL0<JfJ°@7f°@+`Gp+G7C)	°@CE>h2b°@2>EG`	EYGE>aCb2YC2>BfB°@@+b7]Cp+7C>L;D7,>;7Lp°@L°@Jc+R7W+J7CLC7*>/;*;7>LY°@L+^J[°@7]+7JCGC70>9>7CPC°@0QL<°@L0<J6JHK	°@HL<j0[°@0J1<LJHU°@H°@+SJX7^+7JCHC>IG;>K>7PCQC	CKCCJJj7JCJ^7OrCY7J
CCXJjOC7h77nJ7>d>>W	>	CYC>t>°@4vL;v°@4;	4Y;>G^4;LG4bGt;~;44[;`4;°@2~9pJ°@GLQJ92	2U9RJdLHY2J9H	°@4j;lG°@G4;4j;]Gb;4EZGE	°@Cv°@0j7f0C70bCl7[07°@EC2n9p°@292bC`9WE29EzC°@E4x;xG°@;44]7j47;v;GGv;n;EGE°@0`7p°@C7C00p7pCn0
7
2VH~2E2Q>
QQQ	Qn>b2J2>QOS	O>ON`>LM	LNJh>`2F2>J9p<j2O6\269<Lf°@L+TJp7]°@+J7CFCCK7>>I;H>;7CL`	°@L°@+?J\7=+7JCOC7=>C;DCH;7>CCA	C°@0MLx<f°@<0J0L	JH[
L~<f0>H0<JDLJHP°@H°@JS+H7O+J7CDC73>C;<;>7CLC°@@Lx<x0nL0<N`NOj<f0P0<ON^<A<°@@<TLj0KN<0L<YJ[J07<0°@@7E+>GQG+77:CM7°@>YJS+H7O+7JCDC73>C;<;>7CLC°@@Lx<x0nL0<N`NOj<f0P<0ON^<A<°@@<TLj0KN<0L<YJ[J070<°@@7E+>GQ+G77:CM7°@>Y2_E~°@C2EGf>EdG>f2[CrEC2>BfB°@@Cz+l7rC+7O1Sd7>b;j[O7S[>;6°@LX	L°@J\+H7I+7JC:C>DCD72;>7;>
CL^	°@LJ\+M°@7DJ+7	CLC78>I;@;7>CGC°@L|0Y<b°@0<JNL	JHYLp<WH0R0<J.LJÓm7p;X7;>F>7TCM7>DC;_>;>(CGC>7[;Q7;>L>7W7CSC7dC\Ej7C°@EGv7f°@;H7>JGGAG>
CAGb;GG`CG°@Ez2v°@2EEv°@E°@G7\;67>C;>7X7C\>IC	>7QG7C>C7_C^CCVCJvCZJC7C3Jc	CO~CpJCCYJlO>G>C7Z77h7>X>>b>C^CJ>p>7tG~G>a7CP>C	CYGf>S>CG7KCdGpGGbC7G°@2tE°@
E2Er
°@E°@G|7r;U7;>L>7]7CP>.C;8>7B;P7;>CJC°@@L~0h<nL0<
Nd	N<pO|<ONbL0Y<dLN0<Jp<V0P<J0°@@7QGl+R+G7CL°@C>rE°@2h2>EG^	EfGE>aCr2Y2C>Bp°@B+fCv°@7j+C7>Q;L;>COC°@@C^0_<]0<CH^H<\H`H<	J^J°@Lv0U<nL°@O]0<<H0BO0<OLO0@<pOt<0ONR	NLj0Q<S0<LO]	O°@@7L+WJt+7>UJ>
GNG°@@E[>WE>EQ	E>WJfJ>JjJ
Nf2X>VN2>N^NQp>RC°@@9h292XGb9MH	29EXEG°@@7X>RC[77	>	;Z7C>(>;CLC7`C$C-;?$CJ77	OL;Qf7CCGS]>.QO	>C7-;>.S>7SS>7C2	S;S_C>	SQp2SQ2Qn°@SrQ°@7S!;Z	7>E>;CU>;C;D>CA;C7OCUOQ>BSOOX>C>YVpVVMO>	CG[\V7V`>G[C>7bV77]>`7>>T>CU&>YC>°@7`°@O\ >]ScOSSf>7	SSI7C>PS7SX>°@2n°@QS
Q2Qx°@Q7a°@S~#;^7>I>;C]>R7>F7
>*7G
>^7>7X7>`>7`	7>^'>JT
79J>TO^O7O^	O2]Qb2QST7LS7>>\V^>>FSlV7;7S>2bQj>72	>QTZ7XSr>RT7>OQSOOb7O>]	7Q5OQ>SO°@@2VQ~>AS2Q>	NW>LJX7ENJ7>JKJ7W>GO`O	7>OP>>O°@@2V> Qn2>QSb>dVp7US7>
VSr
°@2Q>J°@Q~S2>QTY
°@@7_Sl>TT7>
OSSO7K>PO\Q)7O>QS^>°@@>2`>?QS2>7V>ZO[Q7>7V>YO7">7Y7GjHEbGE°@7SC`>S°@>;17C>GCN>;C7R;S7;>]>7!;ON;SlCM>C[OS[>7CL°@ yy@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@ÿO>	CG[\V7V`>G[C>7bV77]>`7>>T>CU&>YC>°@7`°@O\ >]ScOSSf>7	SSI7C>PS7SX>°@2n°@QS
Q2Qx°@Q7a°@S~#;^7>I>;C]>RC4C7=>GGZG>779>LCY7C>°@@<b@c
<@	@R@<`Ca<C@I@°@7Q>]°@>
7>H>7`CbC
7C@
°@C°@2REc>2E2>ECE2P2GT	G°@7]>A°@7>78>67>7K>_7	>'7]>[7>JH7G779JOS>IOOS7O2]Q^2Q>S]7^>5>7S>bVb>VSf7Y>G7S2c°@Q]°@2>QTY
°@7ZT°@Sn>R>7SOKO7N>OOX
QZ7OQSd	>°@2_°@Q>BS2Q>NbNJ^JJUJ7X>TOrO
7>OU	°@@2]>QlOÓm7P>\7°@>7T>^7
>(7B7>V>(7J7>[>>O>>Y7CX7C	>CX>%	2WEVC2>EGb>[G7NJR7>JGf>>>G2S>6Ed2>EHO°@@H7HGc>&7>CQGC7b>`CV>E0C7EGb2\E><GE>2B\B>]2[>2>V>°@@CK75>G7C>CS°@EbC2N><°@2>EG\	°@7HJdG°@>K7>JGdG2UEp><2>EHK	°@H°@7YGc>W>7CGGC7>CY>K7E4C>EGM
°@@G2ZE>:	2>°@@C[E>X>C7%7C;XS;CJ	C>7fOaO	OO>ZVtVO7VX7>[[CV7VVb>A[C>7U77a7>^>>->CPCV>S>°@4l°@;b4Lx4bGj;L4G4~;~Gx;4;X4]4;°@2Y9]°@JGLYJ922R9QJj9LHYJ2H°@@Gf4SG;RGZ4G;EUE	°@0`7`Cj°@0C70UCc7\07°@2p9pEz°@C922jCc9`E29ECE°@4vG°@;t;7`	4;M;7@c@GGz;l@f;@EG
E°@@0cCz7lC70
0a7pCh07H0`7C0>Y7°@@>7`°@@>[°@@
7>7V>P7
>27HGb>OG7>GJ7 7GGQ78>9G7GY	>G2V>GEj2E>E]2?>E2>E76>OC[	C>7CDC7L>J>CG7C7BGX>KG>7C]>X76C7><v@r@<@T@<_Cb<C	@@@°@7A>_°@	>7>L7<7>7XCPCC;7	C°@@2Q>JEp2E>ELE2K2GNG2FEPE22O2°@7]>IGl°@
>G7GU
G7D7GM°@G°@2REb>72>EE`2K>I2>E°@7M>FCK°@C7>C@C7>>8>7C;XS;CJ	C>7fOaO	OO>ZVtVO7VX7>[[CV7VVb>A[C>7U77a7>^>>->CPCV>S>°@4l°@;b4Lx4bGj;L4G4~;~Gx;4;X4]4;°@2Y9]°@JGLYJ922R9QJj9LHYJ2H°@@Gf4SG;RGZ4G;EUE	°@0`7`Cj°@0C70UCc7\07°@2p9pEz°@C922jCc9`E29ECE°@4vG°@;t;7`	4;M;7@c@GGz;l@f;@EG
E°@@0cCz7lC70
0a7pCh07H0`7C02Q>Sa°@@7f>[VpS7	>SaV°@S2_>=Q|°@2>QT[°@7hTSx°@>VS7OJO>7=>GOU
Q7QOSX°@S°@Qd2P2°@@7POPQ7
>O7>>T7>!7<>Q7+>7R>W,7>7H>N/7>7P>J7>7W
O:>DSt[|OS[	7>=°@ÿ>L7<7>7XCPCC;7	C°@@2Q>JEp2E>ELE2K2GNG2FEPE22O2°@7]>IGl°@
>G7GU
G7D7GM°@G°@2REb>72>EE`2K>I2>E°@7M>FCK°@C7>C@C7>>8>7_>>[GvH
E_>G7XE>fG7>>dCp;]G;>7f>JC7Cj>°@CE°@>l2pE2>>fBz2QB>2Ex>h2_2>E°@@G+X7^+7>ZC[7";O;7G>C;;Cn7_EEGbC;CG7H;;>AGRH
EPG7.>	>YGcE>7>UCVG>C7%>G7CU>°@C°@E>Y2ZE>2	Bd>]2EB2>>\Ef2ZE>2°@@CX	7+#+77?C	Cd>Y;T;7>C°@@H0v<0<H<RC]H@Q@	JSH<CCUHJ
HC	C`H<&<C	LzCnHC	CÓmJT°@+L7GJOf+7O7BOJ>=OQ=7>QO\>G7@>7ON?N°@<T°@L^090L<<1C>LHCL<COLWCLQ|0a<fQ0<<RQcCQ<QSCCSQh<>CKC<QOcO°@2a>UN]°@
>2N	>OJLJ>>bJbJ>°@S+n7f°@+7S7QSh>HST@>7T7DS`>R7>SQ_°@Q0f<tO~°@0O<L\<7CU@S@CL<C^<I@VLZ<@CLLZL°@@+`7YJh+J77[O~;l>c>O7;°@N>t°@2~>2N°@@+~O7bW>[;>J7TCVC7G>j;];	>	J>zGJ>7K>E>CMC7>aGp>>XCUG>C	>RC_C>°@2~>j°@2B2j>2>hEv2]2B>E
°@7b+r°@+7>T>	>]
>OjO7\OaO;M;J\>\7>J°@>dO~°@	>O
Ox7IOO>t;rO;7>7Oj>F7OQVQ>Op>Y>ONMN°@@fLz°@4Y4L@<ZL[0C	0<L<p0_Lf00<L<|Q~0<0PQSYS0Qx0=<[0<O`QO°@N~>c°@2Z	2>N>[2OJY2>J>]J`2PJ>2°@OYO7UO[>P
QE>SaO>6Q7STC>S[>BTQ^7]S>SpQ>c77&>	O^>dS7>>C7/S^7>O°@S>_2M°@Qz2Tr9jQ>9Q9j>NT>9Q°@+K7Z°@Sv+7Oj7M>f;YS;7>7RO7OhO7^Oz>|
QJ>QSx;VOT]S;>L7Sj;`T;QjS7^>>xSzQ7
>>hOaS>7X7SjO°@2d>tQS°@Q2>Nv2`>v2>NQ|>n2jQ>2°@@Op+h7n+7>Q>7f77fO>P7C]
7l>C>xCl;_;E`>Gv>UEC7GHC4C7=>GGZG>779>LCY7C>°@@<b@c
<@	@R@<`Ca<C@I@°@7Q>]°@>
7>H>7`CbC
7C@
°@C°@2REc>2E2>ECE2P2GT	G°@7]>A°@7>78>67>7K>_7	>'7]>[7>JH7G779JOS>IOOS7O2]Q^2Q>S]7^>5>7S>bVb>VSf7Y>G7S2c°@Q]°@2>QTY
°@7ZT°@Sn>R>7SOKO7N>OOX
QZ7OQSd	>°@2_°@Q>BS2Q>NbNJ^JJUJ7X>TOrO
7>OU	°@@2]>QlO[<=L<CLh°@L+H7SJf°@+7J>V	Cf>G;b>`C;>GCl7`7C7OG>f7	>	J>pG>>X
>CcJ°@C>bE2_°@
E2>Bp>j>
2`22|2B2S6vB2Ej>SB6>EB`9a9B°@+S7Z°@CR+77W;c7;>ZC>7J7	CYC>XCX>C>zCx>C°@0r<vH°@0H<<PHlCZ	CJZHJLv<C]CL<]HQ	C`LH<	C
HdClLCHC\CH\H°@CW+R°@7(+7CCS>U70778G^>C7JL>_GJ7KCX>7Gj;@CGJ+7>E>
;V;OO^+b7W7+OO>WO	>;F;+HOz7J+O77JO^O776Of7>WO>°@Nr2f>f°@2>66NNl6`6N°@@2ROj2ONr6?6N6cL`6L°@+N°@JZ7S+7J7=>S>Qr>YQ>7°@@Sp7O+9+7>YQj7HS>7QQc>SO;SQ>O;OjO°@V+b°@7n+7VJb74>[;P;7J>J`>Y7<;U;7J>Jb°@J0`L°@<l0L<Q~<QCh<QCNBBN°@+^7aO°@+7>U>7D77JO>P7	>S+b7X°@+7>577TGS>S`>FT7<;.;7>QhS°@Q<]Ht°@H<@SLt@L>WJfJ>J^	°@J>_Lx2J°@L2
Q^QNA>N+I7>+Of776;97>C2>;C7M
OCZOY>N7>OCJT°@+L7GOfJ+O77BOJ>=OQ=7>QO\>G7@>7ON?	°@N°@<TL^090L<<1C>LHCL<COLWCLQ|0a<f0Q<<RQcCQ<QSCCSQh<>CKC<QOcO°@2a>UN]°@	>2N>OJLJ>>bJb>J°@S+n7f°@+7S
7POKE 16953, 0:HGR190ONERR  GOTO 9000200CALL 27410:REM    setmid205 e%=1210GOSUB 1200:REM    play song215GOSUB 1500:REM    show PICT217GOSUB 1300:REM    next PICT218GOSUB 1700:REM    next MASK219 i=200:REM    delay val 220GOSUB 6000:REM    delay230GOSUB 1600:REM    clear pict240GOTO 215290END1100REM    load song1110? d$; "bload "; sf$(s%); ",a"; sngbuf1120 s%=s%+1:IF s%>ns% THEN  s%=11130RETURN1200POKE 27441, 0:REM    loop1210POKE 27443, sngbuf/256:REM    song address hi 1220POKE 27442, sn>Qc	>SO;SOQ>;OjO°@V+b°@7n+7VJb74>[;P;J>7J`>Y7<;UJ;7>Jb°@J0`°@L<l0L<Q~<QCh<QCNBB°@N+^7aO°@+7>U>7D77JO7t°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@°y@à@ÿSCCSQh<>CKC<QOcO°@2a>UN]°@	>2N>OJLJ>>bJb>J°@S+n7f°@+7S
71700 vm%=INT(RND(1)*nm%)+11705? d$; "bload "; vm$(vm%)1710RETURN6000REM    delay6020GOSUB 7000:IF z%<>0 THEN RETURN6025GOSUB 10200:REM    move text   6030 i=i-16040IF i>0 THEN GOTO 60206050RETURN7000 z%=PDL(13):IF z%<>15 THEN  z%=z%+128:RETURN7010 z%=PDL(7):IF z%=1 THEN  z%=163:RETURN7020 z%=PDL(9):IF z%=1 THEN  z%=161:RETURN7025IF PEEK(27444)=255 THEN GOSUB 1100:GOSUB 12007027 z%=07030RETURN8000REM    load up data   8005ONERR  GOTO 81008007 z$="Slides.DEF"8010? d$; "open "; z$8020? d$; 10LOMEM :4446015POKE 16149, 255:POKE 16150, 25520 d$=CHR$(13)+CHR$(4)25 bl$="                              "27GOSUB 10100:REM    init text30 signal%=0: f%=0: s%=1: e%=040GOSUB 8000:REM    load data50HOME:? "<A>dam or <M>idi? ":GET z$60IF z$="M" OR z$="m" THEN 10090? d$; "bload BIVID":GOTO 105100? d$; "bload BMVID"105 sngbuf=PEEK(27448)+PEEK(27449)*256107REM    PRINT "Max filesize="; 44460-sngbuf: END110GOSUB 1100:REM    load song115GOSUB 1700:REM    load MASK120GOSUB 1300:REM    load PICT125QSh>HST@>7T7DS`>R7>SQ_Q°@0f<tO~°@0O<L\<7CU@S@<CLC^<I@VLZLC<@LZL°@@+`7YJh+7J7[O~;l>c;7>O°@N°@>t2~>2	N°@@+~O7b+7>E>;V;OO^+b7W7+OO>WO>;F;+HOz7J+O77JO^O776Of>W7O>°@Nr2f>f°@2>
66NNl6`6N°@2ROj°@2ONr6?6N6cL`6L°@+N°@JZ7S+7J7=>S>Qr>YQ>7°@@Sp7O+9+7>YQj7HSQ7gbuf-PEEK(27443)*256:REM    address low 1230CALL 27419:REM    start playback1240RETURN1300 f%=f%+1:IF f%>np% THEN  f%=11305 z$=f$(f%):GOSUB 100001310RETURN1500POKE 27445, vi%(f%):REM    video effect in  1505CALL 27431:REM    show PICT1510RETURN1600 v%=f%-1:IF v%=0 THEN  v%=np%1602POKE 27445, vo%(v%)+128:REM    effect clear 1603 i=vo%(v%)1605CALL 27431:REM    clear it1610 v%=v%+1:IF v%>np% THEN  v%=11614REM    get new mask if trashed!1615IF vi%(v%)=3 AND (i=1 OR i=2) THEN GOSUB 17001620RETURNQSh>HST@>7T7DS`>R7>SQ_Q°@0f<tO~°@0O<L\<7CU@S@<CLC^<I@VLZLC<@LZL°@@+`7YJh+7J7[O~;l>c;7>O°@N°@>t2~>2	N°@@+~O7b+7>E>;V;OO^+b7W7+OO>WO>;F;+HOz7J+O77JO^O776Of>W7O>°@Nr2f>f°@2>
66NNl6`6N°@2ROj°@2ONr6?6N6cL`6L°@+N°@JZ7S+7J7=>S>Qr>YQ>7°@@Sp7O+9+7>YQj7HSQ7"read "; z$8030INPUT np%:REM    get # picts8033DIM f$(np%), vi%(np%), vo%(np%)8035FOR i=1 TO np%:INPUT f$(i), vi%(i), vo%(i):NEXT i8040INPUT nm%:REM    # masks8043DIM vm$(nm%)8045FOR i=1 TO nm%:INPUT vm$(i):NEXT8050INPUT ns%:REM    # songs8053DIM sf$(ns%)8055FOR i=1 TO ns%:INPUT sf$(i):NEXT8090? d$; "close "; z$8093CLRERR8095RETURN8100? d$; "close "; z$8105? "Error reading "; z$8110END9000REM    ERROR PROCESS9005IF e%=0 THEN 90209010CALL 27413:REM    reset NMI 9015POKE 16953, ASC("_"):TEXøüÿ
ÿïÏð| À ?ÿàÿÿþÿ€À?àÿÿÿÀ?ÿðÿÿÿ€Ààðãáàÿÿþüð`@DøÀÿÀ€ÿàð?ÿÿÿü€ÿàÀ?øüà?øððøD@p@DøÀðøDøÀüþÿÀ˜À.w{ŸÇÌƒÎÁcã3¼þ0püqxÌ4üþÿÀ˜À‡ƒ7	`ÿüà€ŽüÀCÀX`à!spÜÝÜœÜîïç11000DATA  "ADAMites at ADAMCON 12 in Toronto - July 20 - 23, 2000"11010DATA  "Jack and Jean Stone"11020DATA  "Bob and Judy Slopsema"11030DATA  "Rich and Frances Clee"11035DATA  "Dr. Rich Drushel"11040DATA  "Guy Bona III"11045DATA  "Pat and Bob Herrington"11050DATA  "Doug and Meeka Slopsema"11056DATA  "Audrey Worfold"11057DATA  "Doug Chappell"11058DATA  "Jean-Paul Gignac"11059DATA  "Peter Searle"11060DATA  "Dale Wick and Jillian Arnott"11061DATA  "Eleanor Drushel"11062DATA  "Ralph Veecock"11pÿ‡<8ósÏ‡<8ø¸<üøü¼žŸ‡Ÿ—“‘Ðð€@ÀàÀ| Àp°Œc0ð#à	gþüÀ€ÃŽÿààƒp`p°Œc0ð#à	gþüÀ€ˆ|À2<8xŽÎNnNñùÝýÀÃÎÏgÝÏÿÁçà0ð˜ˆüw?3€8øDxPHÆÀ0x<n.NŽ9ÍÑÁÎÏÇÁØÌÇGÇç÷wãJððððððððððððððððððððÀ'ÿÿàÿÿÿüÿÿøÿø?ð°PÄdTLDÄÀ ?ÿçàðøüþ?ÿÿ€Àÿÿùøüþÿ€ÿ?øüþÿ€?ÿð| À(ÿçÃþÿ€À?àÿÀ?ùðàÿ€Ààðÿ€Ààð?ÿð`  (0À ÿþÿÿÿàðøü?àÀÿÀÿ?ÿøüþÿÿïçT9020REM    PRINT "Stopped:"; z$; "?": END 9021END10000FOR i=1 TO LEN(z$):POKE 27450+i-1, ASC(MID$(z$, i, 1)):NEXT10006POKE 27450+i-1, ASC("H"):POKE 27450+i, 3:CALL 2743410007IF PEEK(27462)<>0 THEN 900010010RETURN10100REM    moving text10110READ t$:IF t$="" THEN RESTORE:READ t$10115 t$=bl$+t$+bl$10120 tn%=1: tl%=LEN(t$)-LEN(b$)10130RETURN10200IF td%>0 THEN  td%=td%-1:RETURN10203VTAB 22:HTAB 0:? MID$(t$, tn%, 30); 10205 dm%=FRE(0)10210 tn%=tn%+1:IF tn%>tl% THEN GOSUB 10100: td%=20010220RETURN8,ÇGÇç÷wsá;û‹óÎŽqpsq<Èøü>Žü1‡ƒ	`ÿüÀ€ŽüÀÀX`àøDx@ÀÀÁáa1ñð´ˆ(px7Ááa1àñðC´ˆ`  (0À<œp€ðòa€ø<ÀûÃ€>gÇ‡à8<só‡Ïà8<ðøÀàð˜œž<œp€ðòa€ø<Àxˆ€ˆpÀ€@`àÀÃ¼þÎŽ3sp8€€ÇÏ<063DATA  "Ena Greenshields"11065DATA  "Neil Wick"11070DATA  "Ron Mitchell"11080DATA  "Mike Hurst"11085DATA  "Dr. C. Murray McCullough"11086DATA  "George Koczwara"11090DATA    "" EK(27462)<>0 THEN 900010010RETURN10100REM    moving text10110READ t$:IF t$="" THEN RESTORE:READ t$10115 t$=bl$+t$+bl$10120 tn%=1: tl%=LEN(t$)-LEN(b$)10130RETURN10200IF td%>0 THEN  td%=td%-1:RETURN10203VTAB 22:HTAB 0:? MID$(t$, tn%, 30); 10205 dm%=FRE(0)10210 tn%=tn%+1:IF tn%>tl% THEN GOSUB 10100: td%=20010220RETURNÜã‰Žœçãàìæó àðø8ð…‰ðžîÎÿstps{s3?€9øD@p@DøÀøÀ<såxÎîÿîïîÎîàçìüŸûÀûßÝˆÐ?9?9€ÀÏ¹ßÝÁÇÏïw03?;€Ïœ¹8;¿;ž³ów€žs?»¸(Àáã|ÎxîîïîÎÿüþïû;{ŸÝÌÜxÐàÀ@€9ùÏÝÁw';¸ß;»;ÿðù¾ws¸8,À*sûs€¹û¿åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååårrior, powerful Wizard, or cunningcharacter you want to play... mightyUse all of ADAM to CREATE the       TUNNELS & TROLLS (d)                ÿcontrol!                            and hand controller for realistic   satellites. Use your ADAM Keyboard  interceptor jet patrols, and killer marines, antiballistic missiles,    maps and conduct the country's sub- thermonuclear war. Monitor sector   to defend the U.S.A. from all-out   WOPR computer, which challenges you You've tapped into "Joshååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååà0<.NsqÏËÓž—pðp08<.€™¹só·',NA„Ääu{Í@ÀüÜÍÉÏ×ã;þ¾Ž`@À(0p0üÀ(s{¿»ðàN~Ç‡qsÓß±!—×Òp'#!¿¸¼Ÿ¿?™ÇÁ˜Á=ýÁåùÏÆæ÷ga;ãŽÀàp$ÏgÝÏÿÁçà0ð˜ˆüw?3€8øDxPHÆÀ0x<n.NŽ9ÍÑÁÎÏÇÁØÌÇGÇç÷wãour JEOPARDY (d)                        ÿanswers done by popular survey.     most popular answers. Questions and Two or more teams compete for the   FAMILY FEUD (d)                     ÿspells to win the treasure.         using your wits, weapons, and magic Fight an assortment of uglies by    chambers in search of treasure.     uncharted hallways and hidden       the mysterious dungeon full of      game of monsters and heroes. Enter  Rogue. Escape into this role-playingWaååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååua," the    WAR GAMES (d)                       ÿtrail:  Azrael the cat!             even nastier critter is on his      birds, bats and spiders. But now an jumps, more dangerous obstacles,    mission:  he must face steeper      foreboding castle on a tricky rescueYour Smurf sets out for Gargamel's  popular ColecoVision cartridge!     A dazzling new edition of the       SUPER GAME (d)                      SMURF RESCUE IN GARGAMEL'S CASTLE   ÿ4ºH¹\¸L·`¶µ°³|²±°end of the rååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååainbow. By Synapse.     he hops. Find the pot of gold at thethe rainbow, putting colors back as stolen. Help Cedric hop his way overThe colors of the rainbow have been RAINBOW WALKER (c)                  ÿcombat. By Synapse.                 Tetragorn himself in one-to-one     prince of darkness, then fight      armies to destroy the allies of the can challenge his might. Gather yourAraknid. Only Illuminar (that's you)supreme with the dreaded legions of Tetragorn, the evil wizard, rulesåååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå