ó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Ø°°°HexyDexyAØshapetableAØmemorydumpAØ#ÂlabelSmlATØ'ArescueAEFTØ)}TESTA LEFTØ+EmastertextAØ1¸numbersAFTØ8GcartcopyAB·Ø=úWkeyinfoAFTØ?ûutilityAFTØB0labelBigATØI”ManualCopyAØKMLMODHLEFTØP_SlickCopyA·ØQñWBasicCopyAØVzÖ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|·  ehAKSpecDumpATØ[0ScrnSizeA·Ø]uWStartAõ:pB·Ø^zWcartcopy2A·Øe«WtapeeditAB·Øi:WmultigameA·ØlÁWMYAAHõ:pB·ØqWAABINHLPHB·ØvWAABINHPHB·Ø{WFVBINHPHB·Ø€íWAAHelloAB·ØuWMENUAÿÿÿÿÿØƒnWLOGOA LEFTØ†HELLOa     ŠÃWmusicHõ:pB·‹ WHELLOAApB·Ð(WHELLOAApB·(WBLOCKS LEFT“$?>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!€€>2µAÍÌü(!;ÍN/Í`/>ÃÚ.!)AAí°ÃÔ]MENUAõ: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{j"run Start"OCHARSAd‡scrncolorAÿgDWrescuearAÿjxWutilityAsAn0WutilityAAÿuWkeyinfoAAÿ|ûWStartaorAÿàWlabelBigaƒ“WlabelsBigA…”WlabelBigA‡”WHexyDexyaÿÿ‰StartayAÖWStartarA‘¾WcACKS LEFT•mastertexta–¶WBLOCKS LEFTåååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå4200130GOSUB 4300140 p1=PDL(5): p2=PDL(13)144IF p2=0 THEN 200145IF p1=0 AND p2=15 THEN 120150GOSUB 4000155IF ch=999 THEN 120160GOSUB 4100165IF er=1 THEN 120170GOSUB 4400175IF ad>sd+195 THEN ? " Error:  Out of Room!":END180 sl=ad-sd-8:GOSUB 2000190GOTO 120200HOME210? " Print Data or Quit?  (p or q)"220GET a$230IF a$="q" OR a$="Q" THEN GOTO 400250GOSUB 5000: nt=nt+1:POKE sd+201, nt:GOTO 102400? " Need Loader Subroutine? (y/n)":GET a$500IF a$="y" OR a$="Y" THEN GOSUB 5200510TEXT:? CHR$(4); 1REM    HexyDexy3HOME:CLEAR5VTAB 5:? "A Quick Numeric BASE Conversion":VTAB 1010VTAB 12:? "Use this format":VTAB 14:? " Number,  Base,  New Base "11VTAB 16:INPUT o$, ob, nb:FOR i=1 TO LEN(o$): x=ASC(MID$(o$, i, 1))-4820 x=x-7*(x>9): n=n*ob+x:NEXT: n=n+.5: l%=LOG(n)/LOG(nb):FOR i=l% TO 0 STEP -130 x%=n/nb^i: n=n-x%*nb^i: n$=n$+CHR$(48+x%+7*(x%>9))40NEXT:? o$; " (base "; ob; ")="; n$; "(base "; nb; ")   "50VTAB 20:? "Do You Want Another (y/n)?":INPUT z$:IF z$="y" OR z$="Y" THEN GOTO 365535? CHR$(4); j°jjj£jjj½jÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÅåÕ!·l9-í°!kl¬Lí°Í¬ÑáÁ:oý2µAÍÌüÊA!;ÍN/Í`/Í`/!älÍN/Í`/ÃAÉÿþÐ Éÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    Enhanced by The WIZARDÿ0HIMEM :410005HOME10 pm$="Shape Table"15FOR n=1 TO 420? CHR$(162)25NEXT n30 tb=16-INT(LEN(pm$)/2)35? TAB(tb); pm$40FOR n=1 TO 4:? CHR$(162):NEXT n41NORMAL42 d=d+1:IF d/2=INT(d/2) THEN INVERSE45FOR i=1 TO 3000:NEXT:GOSUB 850050 iv=0: r=055NORMAL:IF iv=1 THEN INVERSE65 c=070 c=c+1: r=r+180IF c=40 THEN  iv=1-iv:GOTO 5590 r=RND(-r)92NORMAL95CLEAR100POKE 49201, 0102CLEAR105GOSUB 1000:RESTORE:GOSUB 8000107 nt=PEEK(sd+201): ln=8990+nt*1000110 ad=sd+9: ch=0: p=0115 sl=0:GOSUB 2000120GOSUB åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå"run Start"1000HGR1005 x=128: y=801010HCOLOR =11015SCALE =1:ROT =01020 sd=490001025FOR n=sd TO sd+200:POKE n, 0:NEXT n1030HPLOT 0, 0 TO 255, 01035HPLOT 255, 0 TO 255, 1561040HPLOT 255, 156 TO 0, 1561045HPLOT 0, 156 TO 0, 01050RETURN2000? CHR$(160); CHR$(160); 2005? " Position:x="; x; " y="; y2010? " Size: "; sl; "Bytes"2020RETURN4000 xc=0: yc=04005 ch=9994010IF p1=1 OR p2=2 THEN  yc=-1: ch=04020IF p1=2 OR p2=6 THEN  xc=1: ch=14030IF p1=4 OR p2=8 THEN  yc=1: ch=24040IF p1=8 OR p2=4 THEN  pt=16766: tl=490008005 of=qs*2+38010 by=tl:GOSUB 81008015POKE pt, lo:POKE pt+1, hi8020POKE tl, qs8030FOR n=1 TO qs8040 by=of:GOSUB 81008050POKE tl+n*2, lo:POKE tl+n*2+1, hi8060READ a:POKE tl+of, a: of=of+18065IF a<>0 THEN 80608070NEXT n8080RETURN8100 hi=INT(by/256): lo=by-hi*2568130RETURN8500HOME:VTAB 48510? "This program will provide"8520? "the Shape Table DATA and "8530? "the Shape Loader SUBROUTINE"8540? "for SmartBasic Programs.":?8560? "Use the joystick to draw"8570? "the desired sURN4600IF PEEK(ad)>0 THEN  ad=ad+14610POKE ad, 1284620 ad=ad+1: p=0:RETURN5000PR #1:?5002? "Here is the shape table data:":?5005 n=sd+95010 ln=ln+105020? ln; "Data"; 5030FOR t=0 TO 105035IF t>0 THEN ? ","; 5040IF PEEK(n+t)=0 THEN ? "0"; :GOTO 51005050? PEEK(n+t); 5060NEXT t5070 n=n+11:?5080GOTO 50105100PR #05105?5110RETURN5200PR #1:?:?5205? "Here is the shape loader subroutine:":?5210? "8000 QS = "; nt; ":pt = 16766:tl = 41000"5215LIST 8005-81995230PR #05235HOME5240RETURN8000 qs=2:; :GOTO 3640HOME:VTAB 12:? " Enter starting address in":? " HEX. 'A-F' entries must be":? " capital letters":INPUT a$60 l=LEN(a$):IF l>4 THEN ? CHR$(7):GOTO 4070IF l=4 GOTO 11080IF l=3 THEN  a$="0"+a$90IF l=2 THEN  a$="00"+a$100IF l=1 THEN  a$="000"+a$110 m$=LEFT$(a$, 2): x=0120IF m$=h$(x) THEN GOTO 150130 x=x+1:IF x>255 THEN ? CHR$(7):GOTO 40140GOTO 120150 m=x*256: l$=RIGHT$(a$, 2): x=0160IF l$=h$(x) THEN GOTO 190170 x=x+1:IF x>255 THEN ? CHR$(7):GOTO 40180GOTO 160190 a=m+x192IF pt=1 THEN Ghapes.":?8580? "Press "; 0; " on the keypad when":? "finished."8590?:?:? "Please Prepare Printer!"8600VTAB 20:? "Do you want to Quit Now? "; :GET quit$:IF quit$="Y" OR quit$="y" THEN GOTO 86508610RETURN8650HTAB 1:? CHR$(4); "run Start"9000DATA         4,09010DATA         0NEXT t5070 n=n+11:?5080GOTO 50105100PR #05105?5110RETURN5200PR #1:?:?5205? "Here is the shape loader subroutine:":?5210? "8000 QS = "; nt; ":pt = 16766:tl = 41000"5215LIST 8005-81995230PR #05235HOME5240RETURN8000 qs=2: xc=-1: ch=34050RETURN4100 er=04105IF x+xc>254 OR x+xc<1 THEN  er=1:RETURN4110IF y+yc>155 OR y+yc<1 THEN  er=1:RETURN4115 x=x+xc: y=y+yc4120RETURN4200DRAW 1 AT x, y4205FOR t=1 TO 10:NEXT t4210RETURN4300XDRAW 1 AT x, y4305FOR t=1 TO 10:NEXT t4310RETURN4400IF PDL(7)=0 AND PDL(9)=0 THEN  ch=ch+44410IF ch>3 AND p=2 THEN  p=0: ad=ad+14420IF ch=0 THEN GOSUB 4600:GOTO 44904430 ch=ch*8^p4440 pk=PEEK(ad): pk=pk+ch4450POKE ad, pk4460 p=p+14470IF p=3 THEN  p=0: ad=ad+14475DRAW 2 AT 128, 804490RET1REM         Copyright (c) 1984 by TapeWare Technology, Inc. All rights reserved.10DIM h$(255)20FOR x=0 TO 25525READ h$(x):NEXT28HOME:HTAB 9:INVERSE:? " memorydump ":NORMAL:? " Copyright (c) by":? " TapeWare Technology, Inc."30? " All rights reserved."32VTAB 8:? " Do you want dump output sent":? " to the printer(y/n)?":GET q$34IF q$="y" OR q$="Y" THEN  pt=1:GOTO 4036?:? " (h)ex or (a)scii dump format?":GET q$:IF q$="a" OR q$="A" THEN  df=1:GOTO 4038 df=0:IF q$="h" OR q$="H" THEN GOTO 4039? CHR$(7) pt=16766: tl=490008005 of=qs*2+38010 by=tl:GOSUB 81008015POKE pt, lo:POKE pt+1, hi8020POKE tl, qs8030FOR n=1 TO qs8040 by=of:GOSUB 81008050POKE tl+n*2, lo:POKE tl+n*2+1, hi8060READ a:POKE tl+of, a: of=of+18065IF a<>0 THEN 80608070NEXT n8080RETURN8100 hi=INT(by/256): lo=by-hi*2568130RETURN8500HOME:VTAB 48510? "This program will provide"8520? "the Shape Table DATA and "8530? "the Shape Loader SUBROUTINE"8540? "for SmartBasic Programs.":?8560? "Use the joystick to draw"8570? "the desired sOTO 800195IF df=1 THEN GOTO 650200HOME:? CHR$(7); :FOR c=1 TO 22:GOSUB 250210FOR b=1 TO 8:GOSUB 260:NEXT220?:NEXT:? " escape ends-'a'=new address":? " any other key = continue"; :GET q$221IF q$=CHR$(27) THEN GOTO 1000230IF q$="a" THEN GOTO 40240GOTO 200250 q=INT(a/256):? h$(q); : w=a-(q*256):? h$(w); "  "; :RETURN260? h$(PEEK(a)); " "; : a=a+1:RETURN270IF PEEK(a)<32 GOTO 290275IF PEEK(a)>127 GOTO 290280? CHR$(PEEK(a)); : a=a+1:RETURN290? "."; : a=a+1:RETURN300GOTO 280310 a=m+x:GOTO 60320DATA$(27) THEN GOTO 1000850IF q$="a" THEN GOTO 40860GOTO 8001000 d$=CHR$(4)1010HTAB 11020? d$; "run Start"65535REM         copyright (c) 1984 by TapeWare Technology, Inc. All rights reserved.1,D2,D3,D4,D5,D6,D7,D8,D9590DATA               DA,DB,DC,DD,DE,DF600DATA               E0,E1,E2,E3,E4,E5,E6,E7,E8,E9610DATA               EA,EB,EC,ED,EE,EF620DATA               F0,F1,F2,F3,F4,F5,F6,F7,F8,F9630DATA               FA,FB,FC,FD,FE,FF650HOME:? CHR$(7); :FOR c=1 TO 22:GOSUB 250660FOR b=1 TO 24:GOSUB 2ATA               5A,5B,5C,5D,5E,5F440DATA               60,61,62,63,64,65,66,67,68,69450DATA               6A,6B,6C,6D,6E,6F460DATA               70,71,72,73,74,75,76,77,78,79470DATA               7A,7B,7C,7D,7E,7F480DATA               80,81,82,83,84,85,86,87,88,89490DATA               8A,8B,8C,8D,8E,8F500DATA               90,91,92,93,94,95,96,97,98,99510DATA               9A,9B,9C,9D,9E,9F520DATA               A0,A1,A2,A3,A4,A5,A6,A7,A8,A9530DATA               AA,AB,AC,AD,AE,AF540DATA         ase Press Any Key."280GET r$300HOME309REM     --open printer channel--310PR #1330?339REM     --print top border--340? "*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"359REM     --center and print text--360? "*"; SPC((33-LEN(i$))/2); i$; SPC(17-LEN(i$)/2); "*"379REM      --print bottom border--380? "*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"399REM     --close printer channel--400PR #0409REM     --do it again or end--410? "Do You Want To"420? "Make Another"; 430INPUT r$450IF LEFT$(r$, 1)="Y" OR LEFT$(r$, 1)=70:NEXT670?:NEXT:? " escape ends-'a'=new address":? " any other key = continue"; :GET q$680IF q$=CHR$(27) THEN GOTO 1000690IF q$="a" THEN GOTO 40700GOTO 650800HOME:VTAB 12:HTAB 2:FLASH:? " Position paper in Printer ":NORMAL:?:? " Hit any key when ready":GET q$810PR #1:?:FOR c=1 TO 48:? "     "; :GOSUB 250820FOR b=1 TO 16:GOSUB 260:NEXT: a=a-16:? "  "; :FOR b=1 TO 16:GOSUB 270:NEXT830?:NEXT:PR #0:HOME:VTAB 12:? CHR$(7); " Escape ends- 'a'=new address":? " Any other key = continue"840GET q$:IF q$=CHR                00,01,02,03,04,05,06,07,08,09330DATA                 0A,0B,0C,0D,0E,0F340DATA               10,11,12,13,14,15,16,17,18,19350DATA               1A,1B,1C,1D,1E,1F360DATA               20,21,22,23,24,25,26,27,28,29370DATA               2A,2B,2C,2D,2E,2F380DATA               30,31,32,33,34,35,36,37,38,39390DATA               3A,3B,3C,3D,3E,3F400DATA               40,41,42,43,44,45,46,47,48,49410DATA               4A,4B,4C,4D,4E,4F420DATA               50,51,52,53,54,55,56,57,58,59430D10REM     Disc Label Maker50HOME60 i$=""80? TAB(7); "Disk Lable Maker"90?100? "Please Press <Return>"110? "After Each Reply."120?130? "Do You Want Something"140? "Printed on the Label"; 150INPUT r$170IF LEFT$(r$, 1)="N" OR LEFT$(r$, 1)="n" THEN 250180?189REM        --input disc label text--190? " What Will The Label Say?"210?220? "(23 letters or fewer)"230INPUT i$239REM     --chop off extra characters--240IF LEN(i$)>23 THEN  i$=LEFT$(i$, 23)250HOME260? "When Printer Is Ready,"270? "Ple      B0,B1,B2,B3,B4,B5,B6,B7,B8,B9550DATA               BA,BB,BC,BD,BE,BF560DATA               C0,C1,C2,C3,C4,C5,C6,C7,C8,C9570DATA               CA,CB,CC,CD,CE,CF580DATA               D0,D1,D2,D3,D4,D5,D6,D7,D8,D9590DATA               DA,DB,DC,DD,DE,DF600DATA               E0,E1,E2,E3,E4,E5,E6,E7,E8,E9610DATA               EA,EB,EC,ED,EE,EF620DATA               F0,F1,F2,F3,F4,F5,F6,F7,F8,F9630DATA               FA,FB,FC,FD,FE,FF650HOME:? CHR$(7); :FOR c=1 TO 22:GOSUB 250660FOR b=1 TO 24:GOSUB 2"y" THEN 50655 d$=CHR$(4)659HTAB 1660? d$; "run Start"680ENDe Maker"90?100? "Please Press <Return>"110? "After Each Reply."120?130? "Do You Want Something"140? "Printed on the Label"; 150INPUT r$170IF LEFT$(r$, 1)="N" OR LEFT$(r$, 1)="n" THEN 250180?189REM        --input disc label text--190? " What Will The Label Say?"210?220? "(23 letters or fewer)"230INPUT i$239REM     --chop off extra characters--240IF LEN(i$)>23 THEN  i$=LEFT$(i$, 23)250HOME260? "When Printer Is Ready,"270? "Ple 50330IF d2$="d2" THEN GOTO 35065535REM               Copyright (c) 1984 by TapeWare Technology, Inc. All rights reserved.g "; f$; " ":NORMAL90? d$; "open "; f$; ",d1"100? d$; "read "; f$110FOR x=0 TO 1000120GET a$:IF a$=CHR$(13) THEN GOTO 140130 tn$=tn$+a$:GOTO 120140 ip$(x)=tn$: tn$="": jj=FRE(0):NEXT150GOTO 170160 jj=ERRNUM(0):IF jj<>5 THEN ? CHR$(7); " Unexpected Error!"; CHR$(7):? CHR$(7); " Code = "; jj:END170? d$; "close "; f$175IF f$="CHECKBOOK" AND LEN(ip$(0))<63 THEN  ip$(0)=ip$(0)+"x10DIM ip$(1000): d$=CHR$(4): d1$="d1": d2$="d1"15HOME:HTAB 12:INVERSE:? " rescue ":NORMAL:? " Copyright (c) 1984 by ":? " TapeWare Technology, Inc.":? " All rights reserved."20VTAB 6:? " Do you have two tape drives?":? " (y/n):"; CHR$(7):GET q$30IF q$="y" OR q$="Y" THEN  d2$="d2":GOTO 4035GOTO 5040?:? " Tape to be read goes in ":? " Left Hand Drive (#1)":? " Mount both tapes now."; CHR$(7)50IF d2$="d1" THEN ?:? " Mount tape to be read now"; CHR$(7)52? " Do you need a catalog(y/n)?":GET q$:IF q$<>"y" 2 = game controllers ":RETURN90VTAB 12:HTAB 2:? " 3 = special keyboard keys ":RETURN100VTAB 14:HTAB 2:? " 4 = video test ":RETURN110VTAB 16:HTAB 2:? " 5 = end ":RETURN120 d$=CHR$(4):HTAB 1122? d$; "run Start"123END130 k$(27)="ESCAPE/WP"140 k$(27)="ESCAPE/WP"150 k$(144)="WILD CARD"160 k$(152)="WILD CARD SHIFTED"170 k$(9)="TAB": k$(185)="TAB SHIFTED"180 k$(129)="'I'FUNCTION KEY"190 k$(137)="'I'FUNCTION KEY SHIFTED"200 k$(130)="'II'FUNCTION KEY"210 k$(138)="'II'FUNCTION KEY SHIFTED"220 k$(131)=xxxxxx"180HOME:CLRERR:IF d2$="d2" THEN GOTO 200190INVERSE:? CHR$(7); " Mount write tape now ":NORMAL:?:? " Hit any key when ready":GET q$:HOME200VTAB 12:HTAB 4:FLASH:? " Writing "; f$; " ":NORMAL210? d$; "open "; f$; ","; d2$220? d$; "write "; f$230FOR z=0 TO x-1240? ip$(z):NEXT250? d$; "close "; f$280HOME:VTAB 8:? CHR$(7); " File renamed as "; f$:?:? " More files to do(y/n)?":GET q$290IF q$="y" OR q$="Y" THEN GOTO 310300 d$=CHR$(4):HTAB 1:? d$; "run Start, d5"310IF d2$="d2" THEN GOTO 40320GOTOase Press Any Key."280GET r$300HOME309REM     --open printer channel--310PR #1330?339REM     --print top border--340? "*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"359REM     --center and print text--360? "*"; SPC((33-LEN(i$))/2); i$; SPC(17-LEN(i$)/2); "*"379REM      --print bottom border--380? "*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"399REM     --close printer channel--400PR #0409REM     --do it again or end--410? "Do You Want To"420? "Make Another"; 430INPUT r$450IF LEFT$(r$, 1)="Y" OR LEFT$(r$, 1)=10DIM k$(185)12HOME:? " Copyright (c) 1984 by":? " TapeWare Technology, Inc.":? " All rights reserved."20VTAB 5:HTAB 7:INVERSE:? " Functional Tests ":NORMAL30GOSUB 70:GOSUB 80:GOSUB 90:GOSUB 100:GOSUB 110:VTAB 18:? " Enter choice: "; :GET q:?40IF q<1 OR q>5 THEN ? CHR$(7):GOTO 3050? CHR$(7):INVERSE:ON q GOSUB 70, 80, 90, 100, 110:NORMAL:VTAB 18:? " O.K.(y/n)?":GET q$:IF q$<>"y" THEN GOTO 3060ON q GOSUB 470, 770, 130, 1080, 120:HOME:GOTO 2070VTAB 8:HTAB 2:? " 1 = printer ":RETURN80VTAB 10:HTAB 2:? " THEN GOTO 6055? d$; "catalog, d1"60ONERR  GOTO 16070?:INPUT " Enter filename: "; f$80HOME:VTAB 12:HTAB 4:FLASH:? " reading "; f$; " ":NORMAL90? d$; "open "; f$; ",d1"100? d$; "read "; f$110FOR x=0 TO 1000120GET a$:IF a$=CHR$(13) THEN GOTO 140130 tn$=tn$+a$:GOTO 120140 ip$(x)=tn$: tn$="": jj=FRE(0):NEXT150GOTO 170160 jj=ERRNUM(0):IF jj<>5 THEN ? CHR$(7); " Unexpected Error!"; CHR$(7):? CHR$(7); " Code = "; jj:END170? d$; "close "; f$175IF f$="CHECKBOOK" AND LEN(ip$(0))<63 THEN  ip$(0)=ip$(0)+"x"'III'FUNCTION KEY"230 k$(139)="'III'FUNCTION KEY SHIFTED"240 k$(132)="'IV'FUNCTION KEY"250 k$(140)="'IV'FUNCTION KEY SHIFTED"260 k$(133)="'V'FUNCTION KEY"270 k$(141)="'V'FUNCTION KEY SHIFTED"280 k$(134)="'VI'FUNCTION KEY"290 k$(142)="'VI'FUNCTION KEY SHIFTED"300 k$(145)="UNDO": k$(153)="UNDO SHIFTED"310 k$(8)="BACKSPACE"320 k$(146)="MOVE/COPY": k$(154)="MOVE/COPY SHIFTED"330 k$(147)="STORE/GET": k$(155)="STORE/GET SHIFTED"340 k$(150)="CLEAR": k$(158)="CLEAR SHIFTED"350 k$(148)="INSERT": k$(156 z GOTO 850, 860, 870, 880, 890, 900, 910, 920, 930, 940, 950, 960, 970, 980, 990840? " none ":GOTO 1000850? " up ":GOTO 1000860? " right ":GOTO 1000870? " up and right ":GOTO 1000880? " down ":GOTO 1000890? " down and up??? "; CHR$(7):GOTO 1000900? " down and right ":GOTO 1000910? " up, down, and right??? "; CHR$(7):GOTO 1000920? " left ":GOTO 1000930? " up and left ":GOTO 1000940? " left and right??? "; CHR$(7):GOTO 1000950? " left,right, and up??? "; CHR$(7):GOTO 1000960? " left and down ":G":GET q$480PR #1490? " ** Daisy wheel positioning **"500?:? " part I - long seeks":?510 a$="`B>F(C|A):*R@S\E^T?H/O}N!I&LmDt"520FOR x=1 TO 8530? a$; a$540NEXT x550?:?560? " part II - short seeks clockwise":?570 a$="123456789-$+#%="580FOR x=1 TO 8590? a$; a$; a$; a$:NEXT600?:?:? " part III - short seeks counterclockwise":?610 a$="=%#+$-987654321"620FOR x=1 TO 8630? a$; a$; a$; a$:NEXT640?:?:? "part IV - random":?650 a$="ThiS Is a PatTerN of chAraCterS which miXes SeEk lengths To TeSt FOr ErRVERSE:? SPC(5)1100? SPC(31)1110NORMAL1120HTAB 9:VTAB 2:? " normal video "; :VTAB 4:HTAB 11130FOR a=32 TO 127:? CHR$(a); :NEXT:?1140INVERSE:? SPC(31):NORMAL:?1150? SPC(5); :INVERSE:? SPC(4); "inverse video"; SPC(4)1160?1170NORMAL:?:INVERSE1180FOR a=32 TO 127:? CHR$(a); :NEXT:?1190?1200NORMAL:? SPC(5); :FLASH:? SPC(5); "flash video"; SPC(5); :NORMAL:?1210?:FLASH:FOR a=32 TO 127:? CHR$(a); :NEXT:NORMAL:?1220? "HIT ANY KEY TO CONTINUE:"; :GET q$1230GR:COLOR =5:FOR x=0 TO 391240VLIN 0, 39 AT x:NEX                         X"760NEXT:?:? " END":PR #0:RETURN770HOME:VTAB 12:? " (f)ront or (b)ack controller?":? " (f/b)":GET q$:IF q$="f" OR q$="F" THEN  gc=1:HOME:GOTO 800780IF q$="b" OR q$="B" THEN  gc=0:HOME:GOTO 800790? CHR$(7):GOTO 770800 x=PDL(gc): y=PDL(gc+2): z=PDL(gc+4): xx=PDL(gc+6): yy=PDL(gc+8): zz=PDL(gc+10): vv=PDL(gc+12)810VTAB 6:? " pdl("; gc; ") = "; :INVERSE:? " "; x; " "; :NORMAL:HTAB 18:? "pdl("; gc+2; ") = "; :INVERSE820? " "; y; " ":NORMAL:VTAB 3:? " Direction = "; :INVERSE830ON)="INSERT SHIFTED"360 k$(149)="PRINT": k$(157)="PRINT SHIFTED"370 k$(151)="DELETE": k$(159)="DELETE SHIFTED"380 k$(160)="UP ARROW": k$(161)="RIGHT ARROW"390 k$(162)="DOWN ARROW": k$(163)="LEFT ARROW"400 k$(128)="HOME KEY"410HOME:? "*** function key code check ***"420?:? "Enter function keys":?:? "Space bar terminates test"430GET a$440? CHR$(7); k$(ASC(a$))450IF a$<>" " THEN GOTO 430460RETURN470HOME:VTAB 12:? CHR$(7); " ** Printer Test **":?:? " Load paper into printer":? " Hit any key when readyOTO 1000970? " left,down, and up??? "; CHR$(7):GOTO 1000980? " left,down, and right??? "; CHR$(7):GOTO 1000990? " EVERYTHING!!! "; CHR$(7)1000NORMAL:VTAB 9:? " Left Trigger = "; :INVERSE:IF xx=0 THEN ? " off ":GOTO 10201010? " on "1020NORMAL:? " Right Trigger ="; :INVERSE:IF yy=0 THEN ? " off ":GOTO 10401030? " on "1040NORMAL:IF zz<>0 THEN ?:? " "; CHR$(zz); " keypad key pressed "1050IF zz=0 THEN ?:?1060IF vv=11 THEN RETURN1070GOTO 8001080INVERSE:HOME:? SPC(31)1090? SPC(5):NORMAL:? SPC(21); :INoRs."660FOR x=1 TO 8670? a$:NEXT680PR #0:HOME:? CHR$(7); " Insert paper into printer":?:? " Hit any key when ready":GET q$690PR #1:?:? " Line Feed Test"700FOR x=0 TO 50:? "=":NEXT710PR #0:HOME:? CHR$(7); " Insert paper into printer":? " Hit any key when ready.":GET q$:PR #1720?:? " Tab Test":FOR x=1 TO 8730? "X       X       X       X       X       X       X       X       X       X"740? "X               X               X               X               X"750? "X                               X      T1250COLOR =0: c=3:GOSUB 14501260COLOR =2: c=9:GOSUB 14501270COLOR =3: c=15:GOSUB 14501280COLOR =4: c=21:GOSUB 14501290COLOR =8: c=27:GOSUB 14501300COLOR =15: c=33:GOSUB 14501310? "  blk  blu  red grn  ylw  wht"1320HTAB 6:? "*** LO-RES colors ***"; 1330GET q$:TEXT1340HGR:HCOLOR =13: c=20:GOSUB 14801350HCOLOR =1: c=50:GOSUB 14801360HCOLOR =3: c=80:GOSUB 14801370HCOLOR =5: c=110:GOSUB 14801380HCOLOR =8: c=140:GOSUB 14801390HCOLOR =9: c=170:GOSUB 14801400HCOLOR =2: c=200:GOSUB 14801410HCOLOR = THEN GOTO 380370? q$; : tn%=tn%*10+VAL(q$):GOTO 360380? CHR$(7); :IF ASC(q$)<129 OR ASC(q$)>134 THEN  tn%=0:GOTO 440390ON (ASC(q$)-128) GOSUB 650, 740, 810, 840, 860, 600400IF mm=1 AND ASC(q$)<>133 THEN  tn%=0:GOTO 450410 mm=0420HTAB 1:? SPC(27); :HTAB 1:SPEED =sp%*17:IF w=70 THEN PR #1:SPEED =255430 bl=0:RETURN440 mm=1:SPEED =255450HOME:? " LOpage = "; :INVERSE:? " "; lp%; " "; :NORMAL:? " HIpage = "; :INVERSE:? " "; hp%; " ":NORMAL460?:? " Current page = "; :INVERSE:? " "; cp%; " "; :NORMAL:?410REM                 Copyright (c) 1984 by TapeWare Technology, Inc. All rights reserved.20HOME:HTAB 9:INVERSE:? " mastertext ":NORMAL:? " Copyright (c) 1984 by":? " TapeWare Technology, Inc."30? " All rights reserved.":?:?40DIM lp$(500), av%(500), fs%(500), pn%(500)50 dv$="screen": sp%=6: d$=CHR$(4)60? " Mount tape containing":? " textfile to be processed.":? " Hit any key when ready.":GET q$70?:? "Need to change drive? (y/n)?":GET q$:IF q$="y" OR q$="Y" THEN GOSUB 180:GOTO 9080GOSUB 20090 w=30: s":RETURN570GET q$:? CHR$(7); 580IF ASC(q$)>128 AND ASC(q$)<135 THEN INVERSE:ON (ASC(q$)-128) GOSUB 510, 520, 530, 540, 550, 560:GOTO 630590GOTO 610600VTAB 21:?:? " Really quit(y/n)?"; :GET q$:IF q$="y" THEN GOTO 2000610IF q$=CHR$(150) THEN ? " eliminate pause(y/n)?"; :GET q$:IF q$="y" THEN  kp%=1620GOTO 380630NORMAL:VTAB 21:GOTO 380640GOTO 440650IF tn%=0 THEN ? " Enter speed (1-15)"; :INPUT tn%:GOSUB 700660IF tn%>=1 AND tn%<=15 THEN  sp%=tn%:RETURN670? " "; :INVERSE:? " invalid - must be 1-15 "; name:"; f$210HOME:VTAB 12:HTAB 8:FLASH:? " loading "; f$; " "; :NORMAL:?:?:?220? d$; "open "; f$:? d$; "read "; f$230INPUT ""; pc240INPUT ""; sc:? CHR$(7); " there are "; pc; " pages in "; f$250GOTO 970260 qp=0: lp%=0: hp%=0270IF pn%(qp)>0 AND pn%(qp)<128 THEN  lp%=pn%(qp):GOTO 300280 qp=qp+1:IF qp<xx THEN GOTO 270290GOTO 330300FOR qq=qp+1 TO xx310IF pn%(qq)>0 THEN  hp%=pn%(qq)320NEXT330RETURN340IF PDL(11)=0 THEN RETURN350SPEED =255: tn%=0:PR #0:? " ?"; CHR$(7); 360GET q$:IF q$<"0" OR q$>"9"11: c=230:GOSUB 14801420? " ylw grn wht org brn bl vio pnk"1430HTAB 6:? "*** HI-RES colors ***"; 1440GET q$:TEXT:RETURN1450FOR x=c TO c+31460VLIN 2, 37 AT x:NEXT1470RETURN1480FOR x=c TO c+201490HPLOT x, 0 TO x, 159:NEXT1500RETURN65535REM         Copyright (c) 1984 by TapeWare Technology, Inc. All rights reserved.(5); "flash video"; SPC(5); :NORMAL:?1210?:FLASH:FOR a=32 TO 127:? CHR$(a); :NEXT:NORMAL:?1220? "HIT ANY KEY TO CONTINUE:"; :GET q$1230GR:COLOR =5:FOR x=0 TO 391240VLIN 0, 39 AT x:NEX70?:? " speed = "; :INVERSE:? " "; sp%; " "; :NORMAL:? "  "; :INVERSE:? " "; dv$; " output"480NORMAL490?:? " ============================"500FOR j=1 TO 6:ON j GOSUB 510, 520, 530, 540, 550, 560:NEXT:GOTO 570510VTAB 9:HTAB 2:? "   I = set display speed ":RETURN520VTAB 11:HTAB 2:? "  II = select new page ":RETURN530VTAB 13:HTAB 2:? " III = change output device ":RETURN540VTAB 15:HTAB 2:? "  IV = select new file ":RETURN550VTAB 17:HTAB 2:? "   V = resume ":RETURN560VTAB 19:HTAB 2:? "  VI = end program=0:HOME100HOME: jj=FRE(0):FOR x=s TO sc110GOSUB 1120: mm=0:NEXT120IF c>=sc THEN GOSUB 1130: tn%=0: q$=" ":GOTO 440130PR #0:?:FLASH:? " Loading from tape ":NORMAL140 x3=INT(x*3/4):GOSUB 920:GOSUB 700:IF w=70 THEN PR #1150GOTO 100160HOME:? "   Loading Text"; CHR$(7):?:?:? " (press escape/wp to cancel)"170? " Do you need a catalog(y/n)?"; :GET q$:IF q$<>"y" THEN GOTO 190180HOME:SPEED =255:? "Which drive? (1,2,5,6)":INPUT x$:? d$; "catalog,d"; x$190IF q$=CHR$(27) THEN RETURN200?:?:?:INPUT "enter file:NORMAL680FOR dl=0 TO 1800:NEXT:RETURN690HTAB 1:? SPC(27); :HTAB 1:RETURN700? CHR$(160); SPC(27); :HTAB 1:RETURN710 x=0720IF tn%>pn%(x) THEN  x=x+1:GOTO 720730 cp%=pn%(x):RETURN740IF tn%>0 THEN GOTO 760750? " Enter new page # "; :INPUT tn%:GOSUB 700760IF tn%>hp% OR tn%<lp% THEN INVERSE:? " page "; tn%; " not in memory! "; :NORMAL:GOTO 680770GOSUB 710: nu=1:IF ef=1 THEN  s=x780 cl$="": lw$="": cl=0: lw=0:?: x=x-1:IF mm=1 THEN RETURN790POP:IF ef=0 THEN RETURN800 ef=0:GOTO 100810? " (s)creen or (1350 lw=0:IF w=70 THEN ? "     "; 1360GOTO 12001370 lw=lw+cl:? cl$; : rt$=RIGHT$(cl$, 1):IF rt$=CHR$(46) OR rt$=CHR$(63) OR rt$=CHR$(33) THEN GOTO 13901380IF rt$=CHR$(22) THEN ?: lw=0:IF w=70 THEN ? "        "; :RETURN1390IF kp%=1 OR w=70 THEN GOTO 14101400IF w=30 AND sp%<15 AND bl=0 THEN FOR r=0 TO (875-(sp%*17)):NEXT1410RETURN1420IF tv%>=128 THEN GOSUB 1500: tv%=tv%-1281430IF tv%>=64 THEN GOSUB 1520: tv%=tv%-641440IF tv%>=32 THEN GOSUB 1530: tv%=tv%-321450IF tv%>=16 THEN GOSUB 1550: tv%=tv%-16 qq$:HTAB 1: x=x-1: bl=0: sp%=tp%:GOTO 690930IF nu=1 THEN ?: nu=0: ef=0:POP:GOTO 100940RETURN950? d$; "open "; f$960? d$; "read "; f$970 xx=0980INPUT ""; fs%(xx)990INPUT ""; pn%(xx)1000INPUT ""; av%(xx)1010GET a$1020GET a$:IF a$=CHR$(13) THEN GOTO 10401030 cv$=cv$+a$:GOTO 10201040IF LEN(cv$)>1 THEN  lp$(xx)=LEFT$(cv$, (LEN(cv$)-1)): cv$=""1050 jj=FRE(0):IF jj<3000 THEN GOTO 10901060IF pt%=0 THEN  xx=xx+1:GOTO 10801070IF pn%(xx)>=tn% THEN  pt%=01080 c=c+1:IF c<sc THEN GOTO 9801090? d$; "clos      "; f$; " -page "; pn%(x):NORMAL:?:GOSUB 3401600IF w=70 THEN ?:? "     "; 1610SPEED =sp%*17: cp%=pn%(x):RETURN2000HTAB 1:? CHR$(4); "run Start, d5"65535REM       Utility cardw=0:IF w=70 THEN ? "        "; :RETURN1390IF kp%=1 OR w=70 THEN GOTO 14101400IF w=30 AND sp%<15 AND bl=0 THEN FOR r=0 TO (875-(sp%*17)):NEXT1410RETURN1420IF tv%>=128 THEN GOSUB 1500: tv%=tv%-1281430IF tv%>=64 THEN GOSUB 1520: tv%=tv%-641440IF tv%>=32 THEN GOSUB 1530: tv%=tv%-321450IF tv%>=16 THEN GOSUB 1550: tv%=tv%-161200 k=POS(0):IF k=0 THEN GOSUB 340:HTAB 2:IF LEFT$(cl$, 1)=" " THEN  cl$=RIGHT$(cl$, cl-1)1210IF w=30 GOTO 12501220IF k<>5 THEN GOTO 12501230GOSUB 3401240IF LEFT$(cl$, 1)=" " THEN  cl$=RIGHT$(cl$, cl-1)1250IF cl+lw<w THEN GOTO 13701260 j=w-lw-11270IF j>0 THEN GOTO 13001280IF lw=0 THEN  j=w:GOTO 13201290?:GOTO 13501300IF MID$(cl$, j, 1)=" " THEN GOTO 13201310 j=j-1:GOTO 12701320 pl$=LEFT$(cl$, j):IF cl-j>0 THEN  lw$=RIGHT$(cl$, (cl-j)):GOTO 13401330 lw$="": lw=01340? pl$: cl$=lw$: cl=LEN(cl$)p)rinter?"; :GET dv$:IF dv$="s" THEN  dv$="screen": w=30:RETURN820IF dv$<>"p" THEN ? CHR$(7); :HTAB 1:GOTO 810830 dv$="printer": w=70:RETURN840?:? CHR$(7); " Really load new file(y/n)?":GET q$:IF q$<>"y" THEN GOSUB 700:RETURN850POP:CLEAR: jj=FRE(0):GOTO 40860IF ef=1 THEN GOTO 930870IF nu=1 THEN ?: nu=0:RETURN880HTAB 1:IF w=70 THEN RETURN890SPEED =255: bl=1: ss=0: zz=x: tp%=sp%: sp%=15:IF x>6 THEN  ss=x-6900FOR x=ss TO zz:GOSUB 1120:NORMAL:NEXT910 cl$="": lw$="": cl=0: lw=0:POP920?:? CHR$(5); :GET1460IF tv%>=8 AND bl=0 THEN GOSUB 350: mm=0:RETURN1470IF tv%=2 THEN FLASH:RETURN1480IF tv%=1 THEN INVERSE:RETURN1490RETURN1500FLASH:HTAB 2:? CHR$(5); :NORMAL:IF w=30 AND bl=0 THEN GET tt$:POP: s=x+1:SPEED =255:STOP:GOTO 1001510GOTO 6901520?:? CHR$(5); :GET tt$: bl=0:RETURN1530 bl=1:RETURN1540GOSUB 1120:NEXT:GOSUB 11401550RETURN1560SPEED =255:IF w=30 THEN INVERSE:GOTO 15901570PR #0:HOME:VTAB 12:HTAB 10:FLASH:? " PAGE BREAK "; :NORMAL:?:? " hit any key to continue":GET q$:PR #11580HOME:?1590? "  e "; f$1100 f$=LEFT$(f$, (LEN(f$)-1))1110 jj=FRE(0):GOSUB 260: jj=FRE(0):RETURN1120 cl$=lp$(x): cl=LEN(cl$): jj=FRE(0):GOSUB 1150: fs=0:NORMAL:RETURN1130?:PR #0:SPEED =255:?:INVERSE:HTAB 2:? CHR$(7); " end of text - hit any key "; :NORMAL:GET qq$1140 lw=0: bl=0: w=30: lw$="": pl$="": ef=1:RETURN1150IF pn%(x)>0 THEN GOSUB 15601160IF w=70 THEN GOTO 11901170IF sp%<15 AND bl=0 THEN IF fs%(x)>0 THEN SPEED =fs%(x)*17: fs=11180IF av%(x)>0 THEN  tv%=av%(x):GOSUB 14201190IF bl=0 AND fs=0 THEN SPEED =sp%*1710DIM h$(15):FOR x=0 TO 15:READ h$(x):NEXT20DATA               0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F30HOME:? " Copyright "; :INVERSE:? "(c)"; :NORMAL:? " 1984 by"35? " TapeWare Technology, Inc.":? " All rights reserved."40VTAB 6:HTAB 7:INVERSE:? " Number Conversion ":NORMAL50?:? " 1. = digit tables":?:? " 2. = convert from decimal"60?:? " 3. = convert from hex":?:? " 4. = convert from binary":?:? " 5. = end"70?:? " enter your choice (1-5):"; :GET q:IF q<1 OR q>5 THEN ? CHR$(7):GOTO 4080ON q GOSUB 100, 300ERSE:HTAB 4:? " "; h$(h); " "; :HTAB 12:? " "; h$(l); " ":NORMAL500? "     \    /"510? "      \  /"520INVERSE:HTAB 7:? " "; h$(h); h$(l); "   IN HEX"525?:?530NORMAL:? " Another ? "; :GET q$:IF q$="y" THEN INPUT " enter # "; x:GOTO 315540RETURN600SPEED =255:HTAB 18:? "        "; :HTAB 18+(4-LEN(z$)):? "-"; t; :SPEED =0:RETURN610SPEED =255:HTAB 23:? "="; x-t; :SPEED =145:RETURN620SPEED =255:? "| | | | | | | | |"; :RETURN1000HOME:? " Enter two hex digits:"; :INPUT hx$:IF LEN(hx$)<>2 THEN ? CHR$(7):GO  D"180? "      14 - 1110 --  E"185? "      15 - 1111 --  F"190? "      16 -10000 -- 10"192?:? " Decimal=10 values/digit(0-9)":? " Binary =  2 values/digit(0-1)":? " Hex = 16 values/digit(0-F)"; 194GET q$:RETURN199END200GOSUB 1000:?:? " another(y/n)?"; :GET q$:IF q$="y" OR q$="Y" THEN GOTO 200210RETURN250HOME:VTAB 8:? " Enter eight binary digits":?:?:HTAB 2:FOR d=0 TO 7260GET b:IF b>1 OR b<0 THEN HTAB 1:? CHR$(7):GOTO 250270 bb(d)=b:? b; :NEXT280 x=0: v=256:FOR d=0 TO 7: v=v/2: x=x+(bb(d)*v):NEX1110? "   / \     / \"1120? "  /   \   /   \": x=hh:INVERSE1130 z=128:FOR y=0 TO 61140 bb(y)=INT(x/z):? " "; bb(y); : x=x-(bb(y)*z): z=z/2:NEXT1150? " "; x; :? " in binary":NORMAL:?:?: bb(7)=x:SPEED =1451160 z=128:FOR x=0 TO 7: z$=STR$(z):? CHR$(7); 1170? SPC((2*x)+1); bb(x); :IF bb(x)=0 THEN  y$="0":GOTO 11901180 y$=STR$(z)1190? " times"; SPC((16-(2*x))-LEN(z$)); z; " ="; SPC(4-LEN(y$)); y$: z=z/2:NEXT1195SPEED =2551200?:HTAB 26:? "-----": hh$=STR$(hh):?:HTAB 17:INVERSE:? " decimal ="; SPC(4-LEN b=INT(x/z): bb(y)=b:VTAB 6+y:HTAB 18385SPEED =145390INVERSE:? ">= "; z; "?"; :HTAB 26:IF b=0 THEN ? " NO "; CHR$(7); : t=0:GOTO 405400? " YES "; CHR$(7); : t=z405 z$=STR$(t):NORMAL410GOSUB 600420FOR c=16 TO (y*2)+2 STEP -2430HTAB c:? "<"; :NEXT432?:VTAB (5+y)+1435GOSUB 620:HTAB (y*2)+2:? t/z; :GOSUB 600:GOSUB 610440 x=x-t: z=z/2:NEXT:SPEED =255:?:?450INVERSE:FOR y=0 TO 7460? " "; bb(y); :NEXT:? "   IN BINARY ":NORMAL470? "  \   /   \   /"480? "   \ /     \ /"490 h=INT(hh/16): l=hh-(h*16):INV, 200, 250, 6553590HOME:GOTO 40100HOME:? " decimal  binary  hexidecimal":? " =======  ======  ===========":?110? "       0 -    0 --  0"120? "       1 -    1 --  1"125? "       2 -   10 --  2"130? "       3 -   11 --  3"135? "       4 -  100 --  4"140? "       5 -  101 --  5"145? "       6 -  110 --  6"150? "       7 -  111 --  7"155? "       8 - 1000 --  8"157? "       9 - 1001 --  9"160? "      10 - 1010 --  A"165? "      11 - 1011 --  B"170? "      12 - 1100 --  C"175? "      13 - 1101 --TO 10001010 d$=LEFT$(hx$, 1): x=01020IF h$(x)=d$ THEN GOTO 10401030 x=x+1:IF x<16 THEN GOTO 10201035? CHR$(7); " Illegal digit - only 0-9 and":? " A-F(caps) allowed!":FOR x=0 TO 1800:NEXT:GOTO 10001040 hh=x*16: h=x: d$=RIGHT$(hx$, 1): x=01050IF h$(x)=d$ THEN GOTO 10701060 x=x+1:IF x<16 THEN GOTO 10501065GOTO 10351070 hh=hh+x: l=x1075HOME:VTAB 2:HTAB 7:INVERSE:? " "; hx$; " in hex ":NORMAL1080? "      /  \"1090? "     /    \"1100INVERSE:HTAB 4:? " "; h$(h); " "; :HTAB 12:? " "; h$(l); " ":NORMALT: h=INT(x/16): l=x-(h*16): hx$=h$(h)+h$(l): hh=x285GOSUB 1075290?:? " another(y/n)?"; :GET q$:IF q$="y" OR q$="Y" THEN GOTO 250295RETURN300HOME:? "enter decimal #(0-255)"; :INPUT x310?:?315HOME: hh=x317INVERSE320? "|1| | | | | | | |"330? "|2|6|3|1| | | | |"340? "|8|4|2|6|8|4|2|1|   "; :INVERSE:? " DECIMAL "; :NORMAL:?350? "| | | | | | | | |"; : x$=STR$(x):HTAB 22+(4-LEN(x$)):INVERSE:? " "; x; " ":NORMAL360? "| | | | | | | | |"365FOR y=0 TO 7:VTAB 6+y:GOSUB 620:?:NEXT370 z=128:FOR y=0 TO 7380(hh$)); hh:NORMAL1210RETURN65535HTAB 1: d$=CHR$(4):? d$; "run Start"x=x+1:IF x<16 THEN GOTO 10201035? CHR$(7); " Illegal digit - only 0-9 and":? " A-F(caps) allowed!":FOR x=0 TO 1800:NEXT:GOTO 10001040 hh=x*16: h=x: d$=RIGHT$(hx$, 1): x=01050IF h$(x)=d$ THEN GOTO 10701060 x=x+1:IF x<16 THEN GOTO 10501065GOTO 10351070 hh=hh+x: l=x1075HOME:VTAB 2:HTAB 7:INVERSE:? " "; hx$; " in hex ":NORMAL1080? "      /  \"1090? "     /    \"1100INVERSE:HTAB 4:? " "; h$(h); " "; :HTAB 12:? " "; h$(l); " ":NORMAL100:NEXT i110POKE 40112, 243:POKE 40106, 0115? "Insert Basic tape into drive #1":INPUT "  hit return"; x$120CALL 40100:POKE 40106, 1130POKE 40109, 248:POKE 40110, 167:CALL 40100140FOR x=41062 TO 41116: d(x-41061)=PEEK(x):NEXT150FOR x=41090 TO 41144:POKE x, d(x-41089):NEXT160POKE 41038, 90:POKE 41014, 3:POKE 41015, 31170DATA        17,0,2,33,72,200,1,18,0,237,176,195,0,2 180DATA        17,0,128,33,0,3,1,255,124,237,176,62,3,211,127,195,0,0  190FOR x=41058 TO 41089:READ d:POKE x, d:NEXT200POKE 43091HOME5HIMEM :30999:DIM d(55)10DATA        1,0,4,17,0,0,33,40,160,62,13,211,127,26,50,253,124 20DATA        62,1,211,127,58,253,124,119,35,19,11,120,177,194,33,121,20130POKE 102, 237:POKE 103, 6940FOR x=31000 TO 31033:READ d:POKE x, d:NEXT50DATA           62,8,1,0,0,17,0,0,33,40,160,205,246,252,20160FOR x=40100 TO 40114:READ d:POKE x, d:NEXT70? "Insert slave tape into drive #1 and  cartridge into slot":INPUT "  hit return"; x$80FOR i=0 TO 3083POKE 31005, i*4+128:POKE 40106, i+290CALL 31000:CALL 4036? " any keys you have defined on":? " the screen or printer. After":? " display or print, the"38? " program can be ended by ":? " answering 'n' to 'continue?'."40?:?:? " -Press a key :"; :GET k$:?:? CHR$(7)50 k=ASC(k$):? " That key = "; k60?:IF k$(k)="" THEN ? " I don't know it's name.":? " Enter a name for this key: ":INPUT k$(k):?:? " Aha!! "; 70? " That's the "; :INVERSE:? " "; k$(k); " ":NORMAL:? " key!!"; CHR$(7):?80IF k=149 THEN GOTO 11090IF k=151 THEN ? " Press key you want unlearned"; :GET5, 31:POKE 43097, 31210POKE 40112, 246:POKE 40106, 0:POKE 40109, 40:POKE 40110, 160220? "Insert slave tape into drive #1":INPUT "  hit return"; x$230CALL 40100:POKE 40109, 248:POKE 40110, 167:POKE 40106, 1240CALL 40100:? CHR$(4); "run SlickCopy"           62,8,1,0,0,17,0,0,33,40,160,205,246,252,20160FOR x=40100 TO 40114:READ d:POKE x, d:NEXT70? "Insert slave tape into drive #1 and  cartridge into slot":INPUT "  hit return"; x$80FOR i=0 TO 3083POKE 31005, i*4+128:POKE 40106, i+290CALL 31000:CALL 401110? "   / \     / \"1120? "  /   \   /   \": x=hh:INVERSE1130 z=128:FOR y=0 TO 61140 bb(y)=INT(x/z):? " "; bb(y); : x=x-(bb(y)*z): z=z/2:NEXT1150? " "; x; :? " in binary":NORMAL:?:?: bb(7)=x:SPEED =1451160 z=128:FOR x=0 TO 7: z$=STR$(z):? CHR$(7); 1170? SPC((2*x)+1); bb(x); :IF bb(x)=0 THEN  y$="0":GOTO 11901180 y$=STR$(z)1190? " times"; SPC((16-(2*x))-LEN(z$)); z; " ="; SPC(4-LEN(y$)); y$: z=z/2:NEXT1195SPEED =2551200?:HTAB 26:? "-----": hh$=STR$(hh):?:HTAB 17:INVERSE:? " decimal ="; SPC(4-LEN5HOME:DIM k$(164): k$(149)="print": k$(151)="delete"7DIM l%(82), r%(82), a$(100)10HTAB 10:INVERSE:? " keyinfo ":NORMAL20? " Copyright (c) 1984 by":? " TapeWare Technology, Inc.":? " All rights reserved."30?:? " Program displays ASCII value":? " received by get instruction":? " for all keyboard keys that "32? " generate a character. Enter":? " the keyname when prompted to":? " do so. The print and delete"34? " keys are the only ones that":? " are 'known' to the program.":? " The print key will display"100:NEXT i110POKE 40112, 243:POKE 40106, 0115? "Insert Basic tape into drive #1":INPUT "  hit return"; x$120CALL 40100:POKE 40106, 1130POKE 40109, 248:POKE 40110, 167:CALL 40100140FOR x=41062 TO 41116: d(x-41061)=PEEK(x):NEXT150FOR x=41090 TO 41144:POKE x, d(x-41089):NEXT160POKE 41038, 90:POKE 41014, 3:POKE 41015, 31170DATA        17,0,2,33,72,200,1,18,0,237,176,195,0,2 180DATA        17,0,128,33,0,3,1,255,124,237,176,62,3,211,127,195,0,0  190FOR x=41058 TO 41089:READ d:POKE x, d:NEXT200POKE 4309 q$: k$(ASC(q$))=""100GOTO 40110? " (s)creen or (p)rinter?? "; :GET q$:IF q$="p" THEN GOTO 200120IF q$<>"s" THEN ? CHR$(7):GOTO 110130HOME:INVERSE:HTAB 2:? "     KEYNAME     "; :HTAB 21:? " VALUE ":NORMAL:?140FOR x=0 TO 164:IF k$(x)="" THEN GOTO 170150 w=LEN(k$(x)):HTAB (19-w):? k$(x); "    "; x:?170NEXT180PR #0:? " continue ? "; :GET q$:IF q$<>"y" THEN GOTO 500190HOME:GOTO 40200FOR x=0 TO 82: l%(x)=255: r%(x)=255:NEXT205 cc=-1:FOR x=0 TO 164:IF k$(x)="" THEN GOTO 220210 cc=cc+1220NEXT:IF cc=-1d "; f$110 ef=0: jj=FRE(0)120 cl$=""130GET c$: cl$=cl$+c$:IF c$=CHR$(13) THEN GOTO 150140GOTO 130150IF LEN(cl$)=1 THEN  cl$="":GOTO 130160 a$(x)=cl$:GOSUB 560:IF er=1 THEN ? CHR$(7):? " "; f$; " is NOT a Basic":? " program!!":GOTO 1380170IF ef=0 THEN  x=x+1: jj=FRE(0):GOTO 120180HTAB 1:? d$; "close "; f$:RETURN190HOME:VTAB 6:HTAB 4:? CHR$(7); "(s)ave or (a)ppend?"; :GET q$:IF q$="s" THEN GOSUB 220:GOTO 230200IF q$<>"a" THEN ? CHR$(7); :GOTO 190210GOTO 300220?:? CHR$(7):INPUT " Enter filename: ";(k$(l%(x)))); k$(l%(x)); "  "; l%(x); SPC(6-LEN(l$)); SPC(20-LEN(k$(r%(x)))); k$(r%(x)); "  "; r%(x)320 x=x+1:GOTO 290500 d$=CHR$(4)505HTAB 1510? d$; "run Start"65535REM        Copyright (c) 1984 by TapeWare Technology, Inc. All rights reserved.170150 w=LEN(k$(x)):HTAB (19-w):? k$(x); "    "; x:?170NEXT180PR #0:? " continue ? "; :GET q$:IF q$<>"y" THEN GOTO 500190HOME:GOTO 40200FOR x=0 TO 82: l%(x)=255: r%(x)=255:NEXT205 cc=-1:FOR x=0 TO 164:IF k$(x)="" THEN GOTO 220210 cc=cc+1220NEXT:IF cc=-1340 f2=0: f3=65535:FOR n=0 TO 500: nn(n)=0: oo(n)=0:NEXT350HOME:VTAB 4:? CHR$(7); " Renumber all lines?(y/n)"; :GET q$:?:IF q$="y" THEN GOTO 380360? CHR$(7):? " Enter first old line# to be":? "renumbered: "; :INPUT f2:?:?370? CHR$(7); " Enter last old line# to be":? " renumbered: ":INPUT f3380? CHR$(7); " Enter first new line number":INPUT fl390?:? CHR$(7); " Enter incement between new":? " line numbers: "; :INPUT iv400IF q$="n" THEN GOTO 420410IF x*iv+fl>65535 THEN ?:? CHR$(7); " Too big!! - try aga10REM              John's library  20 d$=CHR$(4):DIM a$(500), oo(500), nn(500): ef=030HOME:HTAB 11:INVERSE:? " utility ":NORMAL:VTAB 17:? "Note:  Last Line MUST be 65535"40FOR x=0 TO 4000:NEXT: x=050HOME:GOTO 69060HOME:VTAB 6:HTAB 2:? CHR$(7); " Enter program name to load":HTAB 2:INPUT f$: er=070VTAB 10:? "Which Drive? (1,2,5,6)":INPUT z$80HOME:VTAB 12:HTAB 6:FLASH:? " loading "; f$; " "; :NORMAL:?:?90? " menu will be displayed when":? " "; f$; " is loaded"100? d$; "open "; f$; ", d"; z$:? d$; "rea THEN ? " there's nothing to print!":GOTO 180223PR #1:?:?:?225 hc=INT(cc/2)230 z=0:FOR x=0 TO hc240IF k$(z)="" THEN  z=z+1:GOTO 240250 l%(x)=z: z=z+1:NEXT:IF cc=hc THEN GOTO 280255FOR x=hc+1 TO cc260IF k$(z)="" THEN  z=z+1:GOTO 260270 r%(x-(hc+1))=z: z=z+1:NEXT280 x=0:HOME285? "            KEYNAME   value             KEYNAME   value":?290IF l%(x)=255 AND r%(x)=255 THEN GOTO 180295 l$=STR$(l%(x))300IF r%(x)=255 THEN ? SPC(20-LEN(k$(l%(x)))); k$(l%(x)); "  "; l%(x): x=x+1:GOTO 290310? SPC(20-LEN fs$:RETURN230HOME:VTAB 12:INPUT "Which drive?  (1,2,5,6) "; x$240HOME:VTAB 12:HTAB 6:FLASH:? " saving "; fs$; " "; :NORMAL:?:?250? " menu will be displayed when":? " "; fs$; " has been saved"260? d$; "open "; fs$; " ,d"; x$:? d$; "write "; fs$270 jj=FRE(0):FOR k=0 TO x280? a$(k):NEXT290HTAB 1:? d$; "close "; fs$:RETURN300GOSUB 220:HOME:VTAB 12:HTAB 6:FLASH:? " appending to "; f$; " "; :NORMAL:?:?310? " menu will be displayed when":? " append to "; f$; " is done"320? d$; "append "; f$330GOTO 270 THEN ? " there's nothing to print!":GOTO 180223PR #1:?:?:?225 hc=INT(cc/2)230 z=0:FOR x=0 TO hc240IF k$(z)="" THEN  z=z+1:GOTO 240250 l%(x)=z: z=z+1:NEXT:IF cc=hc THEN GOTO 280255FOR x=hc+1 TO cc260IF k$(z)="" THEN  z=z+1:GOTO 260270 r%(x-(hc+1))=z: z=z+1:NEXT280 x=0:HOME285? "            KEYNAME   value             KEYNAME   value":?290IF l%(x)=255 AND r%(x)=255 THEN GOTO 180295 l$=STR$(l%(x))300IF r%(x)=255 THEN ? SPC(20-LEN(k$(l%(x)))); k$(l%(x)); "  "; l%(x): x=x+1:GOTO 290310? SPC(20-LENin":FOR dd=1 TO 1200:NEXT:GOTO 340420HOME:VTAB 12:HTAB 8:FLASH:? " RENUMBERING ":NORMAL:?:? " message will appear when":? " renumbering is complete"430GOSUB 900:GOSUB 1040:IF er=1 THEN GOTO 450440GOSUB 940:GOSUB 1140450?:? " Renumbering complete":? CHR$(7); " Press any key to continue":GET q$:RETURN460HOME:?:? " Enter line number range ":? " to be deleted(start,end)"470? CHR$(7); :INPUT sd, ed480IF sd=0 THEN  sd=1490 f2=0: f3=65535:GOSUB 900500 n=x:FOR x=0 TO n510IF oo(x)<sd OR oo(x)>ed THEN GOTO : jj=FRE(0)1020NEXT1030 x=n: jj=FRE(0):RETURN1040 er=0: n=x:FOR x=0 TO n1050FOR j=x+1 TO n1060IF oo(x)=0 THEN GOTO 10801070IF oo(x)=oo(j) THEN ?:? " line# "; oo(x); " is dup'd": er=11080NEXT:NEXT1090IF er=0 THEN GOTO 11201100? " continue?(y/n)"; :GET q$:IF q$="y" THEN  er=0:GOTO 11301110IF q$<>"n" THEN ? CHR$(7):GOTO 11001120 x=n: jj=FRE(0):RETURN1130? CHR$(7); " gosubs and gotos may not":? CHR$(7); " resolve correctly!!":GOTO 11201140 n=x:FOR x=0 TO n1150 ll=LEN(a$(x)):FOR g=1 TO ll-61160IF e - press any key":NORMAL:GET q$:RETURN690HOME:HTAB 3:INVERSE:? " "; x; " "; :NORMAL:? " program lines in buffer":?700INVERSE:? " "; FRE(0); " "; :NORMAL:? " memory available":?710GOSUB 730:VTAB 9720GOSUB 740:GOSUB 750:GOSUB 760:GOSUB 770:GOSUB 780:GOSUB 790:GOSUB 800:GOSUB 810730? " ============================= ":RETURN740VTAB 7:HTAB 3:? " 1. add program to buffer ":RETURN750VTAB 9:HTAB 3:? " 2. display buffer ":RETURN760VTAB 11:HTAB 3:? " 3. write buffer to tape ":RETURN770VTAB 13:HTAB 3:? " 4. )1280 z=0:IF gt<f2 OR gt>f3 THEN GOTO 13401290IF oo(z)=gt THEN GOTO 13301300 z=z+1:IF z<n THEN GOTO 12901310? " unable to resolve goto of "; gt; " in new line# "; nn(x):GOTO 13401320GOTO 12901330 nn$=STR$(nn(z)): a$(x)=lh$+nn$+rh$: ll=LEN(a$(x))1340IF LEN(rh$)<2 GOTO 11701350IF LEFT$(rh$, 1)=" " THEN  rh$=RIGHT$(rh$, (LEN(rh$)-1)):GOTO 13501360IF LEFT$(rh$, 1)="," THEN  g=LEN(a$(x))-(LEN(rh$)-1):GOTO 12101370GOTO 11701380GOSUB 1801390POP:CLEAR:GOTO 2065535REM              John says -- ya all co 15:FLASH:? " wait "; :NORMAL:HTAB 1870ON q GOSUB 60, 640, 190, 340, 460, 1390, 890880GOTO 690890HTAB 1: d$=CHR$(4):? d$; "run Start, d5"900 n=x: jj=FRE(0):FOR x=0 TO n910GOSUB 560:IF pv>=f2 AND pv<=f3 THEN  oo(x)=pv920NEXT930 x=n: jj=FRE(0):RETURN940 n=x: fl=fl-iv:FOR x=0 TO n950IF oo(x)=0 THEN GOTO 970960 fl=fl+iv: nn(x)=fl970NEXT980IF oo(n)=65535 THEN  nn(n)=65535990FOR x=0 TO n:IF nn(x)=0 THEN GOTO 10201000 ll=LEN(a$(x))1010GOSUB 560: nl=ll-nd: nn$=STR$(nn(x)): a$(x)=nn$+RIGHT$(a$(x), nl)550520? " deleting "; oo(x)530FOR k=x TO n-1: oo(k)=oo(k+1): a$(k)=a$(k+1):NEXT: x=x-1540 a$(n)="": oo(n)=0: n=n-1:IF n=-1 THEN GOTO 1390550NEXT: x=n:RETURN560 nd=1570 pv=VAL(LEFT$(a$(x), nd))580 nv=VAL(LEFT$(a$(x), nd+1))590IF nv=pv THEN GOTO 610600 nd=nd+1:GOTO 570610IF nv=65535 THEN  ef=1620IF nv=0 THEN  er=1630RETURN640HOME:? CHR$(7); " Enter range (start,end line#)":INPUT bg, ng650 n=x:FOR x=0 TO n660GOSUB 560:IF pv<bg OR pv>ng THEN GOTO 680670? a$(x)680NEXT: x=n:FLASH:? " list completMID$(a$(x), g, 1)="G" THEN GOTO 11801170NEXT: jj=FRE(0):NEXT: x=n:RETURN1180IF MID$(a$(x), g, 4)="GOTO" OR MID$(a$(x), g, 5)="GOSUB" THEN GOTO 12001190GOTO 11701200 g=g+4: jj=FRE(0)1210 gc=0: gq=-11220 gq=gq+1:IF gq=4 THEN GOTO 11701230IF VAL(MID$(a$(x), g, 1))<1 THEN  g=g+1:GOTO 12201240IF VAL(MID$(a$(x), g, gc))<VAL(MID$(a$(x), g, gc+1)) THEN  gc=gc+1:GOTO 12401250 gt=VAL(MID$(a$(x), g, gc)): lh$=LEFT$(a$(x), (g-1))1260IF (ll-(g+gc))<=0 THEN  rh$="":GOTO 12801270 rh$=RIGHT$(a$(x), (ll-(g+gc)+1)renumber lines in buffer":RETURN780VTAB 15:HTAB 3:? " 5. delete lines in buffer ":RETURN790VTAB 17:HTAB 3:? " 6. clear buffer ":RETURN800VTAB 19:HTAB 3:? " 7. quit ":RETURN810VTAB 21:? "  Select option by typing ":? "  it's number."; CHR$(7)820GET q$:? CHR$(7); : q=VAL(q$):IF q<1 OR q>7 THEN ? CHR$(7); :GOTO 820830INVERSE:ON q GOSUB 740, 750, 760, 770, 780, 790, 800:NORMAL840VTAB 21:?:? CHR$(7)850VTAB 23:? "  type a 'y' if O.K."; :GET q$:IF q$<>"y" THEN HTAB 1:? "            ":POP:GOTO 720860?:HTABme back now you here.                          j=FRE(0):NEXT: x=n:RETURN1180IF MID$(a$(x), g, 4)="GOTO" OR MID$(a$(x), g, 5)="GOSUB" THEN GOTO 12001190GOTO 11701200 g=g+4: jj=FRE(0)1210 gc=0: gq=-11220 gq=gq+1:IF gq=4 THEN GOTO 11701230IF VAL(MID$(a$(x), g, 1))<1 THEN  g=g+1:GOTO 12201240IF VAL(MID$(a$(x), g, gc))<VAL(MID$(a$(x), g, gc+1)) THEN  gc=gc+1:GOTO 12401250 gt=VAL(MID$(a$(x), g, gc)): lh$=LEFT$(a$(x), (g-1))1260IF (ll-(g+gc))<=0 THEN  rh$="":GOTO 12801270 rh$=RIGHT$(a$(x), (ll-(g+gc)+1) Press Any Key."280GET r$300HOME309REM    --open printer channel--310PR #1330?339REM    --print top border--340? "*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"350? "*"; SPC(33); "*"359REM    --center and print text--360? "*"; SPC((33-LEN(i$))/2); i$; SPC(17-LEN(i$)/2); "*"370? "*"; SPC(33); "*"379REM     --print bottom border--380? "*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"399REM    --close printer channel--400PR #0409REM    --do it again or end--410? "Do You Want To"420? "Make Another"; 430INPUT r$4510REM    Disc Label Maker50HOME60 i$=""80? TAB(7); "Disk Lable Maker"90?100? "Please Press <Return>"110? "After Each Reply."120?130? "Do You Want Something"140? "Printed on the Label"; 150INPUT r$170IF LEFT$(r$, 1)="N" OR LEFT$(r$, 1)="n" THEN 250180?189REM       --input disc label text--190? " What Will The Label Say?"210?220? "(23 letters or fewer)"230INPUT i$239REM    --chop off extra characters--240IF LEN(i$)>23 THEN  i$=LEFT$(i$, 23)250HOME260? "When Printer Is Ready,"270? "PleasePROGRAM NOW!"160FOR i=1 TO 1000:NEXT i170VTAB 4:? "OPTIONS: "180VTAB 8:? " 1 -- Copy data packs ONLY"190VTAB 11:? " 2 -- Copy between discs &":? "      data pack"200VTAB 15:? " 3 -- Copy between discs  ":? "      ONLY"210VTAB 19:? " 5 -- Quit               "220VTAB 23230INPUT sc$:IF sc$="5" THEN GOTO 740240POKE 29968, 12:CALL 29967250IF sc$="1" THEN GOTO 530260IF sc$="3" THEN GOTO 480270IF sc$<>"2" THEN GOTO 130280HOME: lx=159290? "        "; :INVERSE:? " COPY SEGMENTS ":NORMAL300VTAB 5:? "OP0IF LEFT$(r$, 1)="Y" OR LEFT$(r$, 1)="y" THEN 50458 d$=CHR$(4)459HTAB 1460? d$; "run Start"655 d$=CHR$(4)659HTAB 1660? d$; "run Start"680END Want Something"140? "Printed on the Label"; 150INPUT r$170IF LEFT$(r$, 1)="N" OR LEFT$(r$, 1)="n" THEN 250180?189REM       --input disc label text--190? " What Will The Label Say?"210?220? "(23 letters or fewer)"230INPUT i$239REM    --chop off extra characters--240IF LEN(i$)>23 THEN  i$=LEFT$(i$, 23)250HOME260? "When Printer Is Ready,"270? "Please)1280 z=0:IF gt<f2 OR gt>f3 THEN GOTO 13401290IF oo(z)=gt THEN GOTO 13301300 z=z+1:IF z<n THEN GOTO 12901310? " unable to resolve goto of "; gt; " in new line# "; nn(x):GOTO 13401320GOTO 12901330 nn$=STR$(nn(z)): a$(x)=lh$+nn$+rh$: ll=LEN(a$(x))1340IF LEN(rh$)<2 GOTO 11701350IF LEFT$(rh$, 1)=" " THEN  rh$=RIGHT$(rh$, (LEN(rh$)-1)):GOTO 13501360IF LEFT$(rh$, 1)="," THEN  g=LEN(a$(x))-(LEN(rh$)-1):GOTO 12101370GOTO 11701380GOSUB 1801390POP:CLEAR:GOTO 2065535REM              John says -- ya all co10LOMEM :4760020HOME:VTAB 12:HTAB 13:? "LOADING"30VTAB 23:? CHR$(4); "bload MLMOD,A29900"40POKE 29968, 4:CALL 2996750HOME:?:?:?60HTAB 3:? "SLICK AS SHIT SOFTWARE CO.":?:? "           presents"70VTAB 11:? "   COPY ANYTHING BY SEGMENT"80VTAB 20:? "Copyright 1986 by *THE WIZARD*"90?:? "     All Rights Reserved"100FOR i=1 TO 1500:NEXT i110POKE 29968, 6:CALL 29967120HOME:? "        "; 130INVERSE:? " COPY ANYTHING ":NORMAL140FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT150VTAB 11:HTAB 7:? "REMOVE  Press Any Key."280GET r$300HOME309REM    --open printer channel--310PR #1330?339REM    --print top border--340? "*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"350? "*"; SPC(33); "*"359REM    --center and print text--360? "*"; SPC((33-LEN(i$))/2); i$; SPC(17-LEN(i$)/2); "*"370? "*"; SPC(33); "*"379REM     --print bottom border--380? "*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*"399REM    --close printer channel--400PR #0409REM    --do it again or end--410? "Do You Want To"420? "Make Another"; 430INPUT r$45TIONS:"310VTAB 10320? "1 - Copy FROM TAPE Drive #1":? "         TO DISC Drive #1"330VTAB 15340? "2 - Copy FROM DISC Drive #1":? "         TO TAPE Drive #1"350VTAB 20360? "5 - Quit":?:?370INPUT sc$:IF sc$="5" THEN GOTO 740380IF sc$="1" THEN GOTO 440390IF sc$<>"2" THEN GOTO 280400 da=PEEK(29984):POKE 29980, da410 db=PEEK(29976):POKE 29982, db420 d1$="DISC #1 (d5)": d2$="TAPE #1 (d1)"430 dn=2:GOTO 640440 da=PEEK(29976):POKE 29980, da450 db=PEEK(29984):POKE 29982, db460 d1$="TAPE #1 (d1)": d2$="k1060IF j=255 THEN GOTO 11401070IF dn=2 THEN GOTO 11301080? CHR$(7):? CHR$(7)1090VTAB 31100? "Get DESTINATION "; d2$:?1110? "Put SOURCE in "; d1$1120VTAB 7:? "Press Return":INPUT sc$:VTAB 7:?:?1130NEXT i1140FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT1150POKE 29968, 4:CALL 29967:FOR i=1 TO 12000:NEXT1160SPEED =50:VTAB 22:HTAB 2:? "Another copy just as slick as":FOR i=1 TO 1000:NEXT1170VTAB 23:HTAB 10:SPEED =5:? "...can be!":FOR i=1 TO 2000:NEXT:SPEED =2551180FOR i=1 TO 5:? CHR$(7); :FOR a=1  GOTO 640620 db=PEEK(29978):POKE 29982, db630 d2$="TAPE #2 (d2)"640HOME:VTAB 6:? "Put SOURCE in "; d1$650IF dn=1 THEN GOTO 690660FOR i=1 TO 5000:NEXT i670VTAB 9:? "Put DESTINATION in "; d2$680FOR i=1 TO 5000:NEXT i690?:? "Copy ALL Blocks? (y/n)":GET sb$:? CHR$(7)700IF sb$="y" OR sb$="Y" THEN  c0=1:GOTO 720710 c0=0720VTAB 15:? "Are you ready to begin?":VTAB 18:? "If so, press Y & <RETURN>"730VTAB 20:INPUT sc$:IF sc$="y" OR sc$="Y" THEN HOME:GOTO 760740POKE 29968, 4:CALL 29967744LOMEM :27649750k1060IF j=255 THEN GOTO 11401070IF dn=2 THEN GOTO 11301080? CHR$(7):? CHR$(7)1090VTAB 31100? "Get DESTINATION "; d2$:?1110? "Put SOURCE in "; d1$1120VTAB 7:? "Press Return":INPUT sc$:VTAB 7:?:?1130NEXT i1140FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT1150POKE 29968, 4:CALL 29967:FOR i=1 TO 12000:NEXT1160SPEED =50:VTAB 22:HTAB 2:? "Another copy just as slick as":FOR i=1 TO 1000:NEXT1170VTAB 23:HTAB 10:SPEED =5:? "...can be!":FOR i=1 TO 2000:NEXT:SPEED =2551180FOR i=1 TO 5:? CHR$(7); :FOR a=1  d1$:?890? "Put DESTINATION in "; d2$900VTAB 7:? "Press Return"910INPUT sc$:VTAB 7:?:?920REM                930FOR k=0 TO 15940 j=i+k950POKE 29957, j960 l1=PEEK(29934+k): l2=PEEK(29917+k)970POKE 29954, l1:POKE 29955, l2980IF c0=1 THEN GOTO 1030990 l4=INT(k*1100)1000 l5=30000+l41010 l9=PEEK(l5)1020IF l9=255 THEN VTAB 14:HTAB 6:? "Block #":VTAB 14:HTAB 15:? j:VTAB 14:HTAB 20:? "Empty":GOTO 10501030CALL 299501040VTAB 10:HTAB 6:? "Block #":VTAB 10:HTAB 15:? j:VTAB 10:HTAB 20:? "Copied"1050NEXT DISC #1 (d5)"470 dn=2:GOTO 640480 lx=159490 da=PEEK(29984):POKE 29980, da500 db=PEEK(29986):POKE 29982, db510 d1$="DISC #1 (d5)": d2$="DISC #2 (d6)"520 dn=2:GOTO 640530HOME: lx=255540? "        "; :INVERSE:? " COPY SEGMENTS ":NORMAL550VTAB 5:HTAB 5:? "Do you have 1 or 2 Tape":VTAB 8:HTAB 13:? "drives?":?:?:?560INPUT dn:IF dn<1 OR dn>2 THEN GOTO 530570IF dn=2 THEN GOTO 600580 db=PEEK(29976):POKE 29982, db590 d2$="TAPE #1 (d1)"600 da=PEEK(29976):POKE 29980, da610 d1$="TAPE #1 (d1)":IF dn=1 THENTO 5:NEXT:NEXT1190POKE 29968, 6:CALL 299671200HOME:? "        "; 1210INVERSE:? " COPY ANYTHING ":NORMAL1220VTAB 11:HTAB 4:? "Please Clear ALL Drives!"1230FOR i=1 TO 10000:NEXT i1240VTAB 19:HTAB 9:? "Press ANY key":GET sc$:GOTO 17065535REM         Copy Segments  by The WIZARD0000+l41010 l9=PEEK(l5)1020IF l9=255 THEN VTAB 14:HTAB 6:? "Block #":VTAB 14:HTAB 15:? j:VTAB 14:HTAB 20:? "Empty":GOTO 10501030CALL 299501040VTAB 10:HTAB 6:? "Block #":VTAB 10:HTAB 15:? j:VTAB 10:HTAB 20:? "Copied"1050NEXT VTAB 23:HTAB 1:? CHR$(4); "run Start, d5"760? "        "; :INVERSE:? " COPY SEGMENTS ":NORMAL766 sn=0770FOR i=0 TO lx STEP 16771VTAB 4: sn=sn+1772? "Segment #"; sn; " at block #"; i:?774? "Continue?":GET m$:IF m$="Y" OR m$="y" THEN GOTO 780776NEXT i780FOR k=0 TO 15790 j=i+k795VTAB 6:? "Reading block "; j800POKE 29907, j810 l1=PEEK(29934+k): l2=PEEK(29917+k)820POKE 29904, l1:POKE 29905, l2830CALL 29900840NEXT k850IF dn=2 THEN GOTO 930860? CHR$(7):? CHR$(7)870VTAB 3880? "Take SOURCE from ";Ìt:u!¤µŸÍóüÉuy}‚†ŠŽ“—› ¤¨­±µ0|È`¬øDÜ(tÀX¤:u!0uÍöüÉÍ ýÉ°°°HELLOAÿÿÿÿÿWHELLOaõ:pB·WHELLOaõ:pB· /WlabelsBigA!‹Wcopy1Aÿÿÿÿÿ#„Wcopy2Aÿÿÿÿÿ'UWcopy3Aÿÿÿÿÿ+aWcopy4Aÿÿÿÿÿ/ÞWcopy5Aÿÿÿÿÿ3WBLOCKS LEFT7ÈSC #1 (d5)"470 dn=2:GOTO 640480 lx=159490 da=PEEK(29984):POKE 29980, da500 db=PEEK(29986):POKE 29982, db510 d1$="DISC #1 (d5)": d2$="DISC #2 (d6)"520 dn=2:GOTO 640530HOME: lx=255540? "        "; :INVERSE:? " COPY ANYTHING ":NORMAL550VTAB 5:HTAB 5:? "Do you have 1 or 2 Tape":VTAB 8:HTAB 13:? "drives?":?:?:?560INPUT dn:IF dn<1 OR dn>2 THEN GOTO 530570IF dn=2 THEN GOTO 600580 db=PEEK(29976):POKE 29982, db590 d2$="TAPE #1 (d1)"600 da=PEEK(29976):POKE 29980, da610 d1$="TAPE #1 (d1)":IF dn=1 THEN G10LOMEM :4760020HOME:VTAB 12:HTAB 13:? "LOADING"30VTAB 23:? CHR$(4); "bload MLMOD,A29900"40POKE 29968, 4:CALL 2996750HOME:?:?:?60HTAB 3:? "SLICK AS SHIT SOFTWARE CO.":?:? "           presents"70VTAB 11:? "    COPY ANYTHING YOU WANT "80VTAB 20:? "Copyright 1986 by *THE WIZARD*"90?:? "     All Rights Reserved"100FOR i=1 TO 6500:NEXT i110POKE 29968, 6:CALL 29967120HOME:? "        "; 130INVERSE:? " COPY ANYTHING ":NORMAL140FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT150VTAB 11:HTAB 7:? "REMOVE HTAB 1:? CHR$(4); "run Start, d5"760? "        "; :INVERSE:? " COPY ANYTHING ":NORMAL761 sn=0770FOR i=0 TO lx STEP 16780VTAB 3:?785 sn=sn+1790? "Segment #"; sn; " at block #"; i:?850FOR k=0 TO 15860 j=i+k870VTAB 6:? "Reading block "; j880POKE 29907, j890 l1=PEEK(29934+k): l2=PEEK(29917+k)900POKE 29904, l1:POKE 29905, l2910CALL 29900920NEXT k930IF dn=2 THEN GOTO 1010940? CHR$(7):? CHR$(7)950VTAB 3960? "Take SOURCE from "; d1$:?970? "Put DESTINATION in "; d2$980VTAB 7:? "Press Return"990IONS:"310VTAB 10320? "1 - Copy FROM TAPE Drive #1":? "         TO DISC Drive #1"330VTAB 15340? "2 - Copy FROM DISC Drive #1":? "         TO TAPE Drive #1"350VTAB 20360? "5 - Quit":?:?370INPUT sc$:IF sc$="5" THEN GOTO 740380IF sc$="1" THEN GOTO 440390IF sc$<>"2" THEN GOTO 280400 da=PEEK(29984):POKE 29980, da410 db=PEEK(29976):POKE 29982, db420 d1$="DISC #1 (d5)": d2$="TAPE #1 (d1)"430 dn=2:GOTO 640440 da=PEEK(29976):POKE 29980, da450 db=PEEK(29984):POKE 29982, db460 d1$="TAPE #1 (d1)": d2$="DIOTO 640620 db=PEEK(29978):POKE 29982, db630 d2$="TAPE #2 (d2)"640HOME:VTAB 6:? "Put SOURCE in "; d1$650IF dn=1 THEN GOTO 690660FOR i=1 TO 5:NEXT i670VTAB 9:? "Put DESTINATION in "; d2$680FOR i=1 TO 5:NEXT i690?:? "Copy ALL Blocks? (y/n)":GET sb$:? CHR$(7)700IF sb$="y" OR sb$="Y" THEN  c0=1:GOTO 720710 c0=0720VTAB 15:? "Are you ready to begin?":VTAB 18:? "If so, press Y & <RETURN>"730VTAB 20:INPUT sc$:IF sc$="y" OR sc$="Y" THEN HOME:GOTO 760740POKE 29968, 4:CALL 29967744LOMEM :27649750VTAB 23:PROGRAM NOW!"160FOR i=1 TO 10:NEXT i170VTAB 4:? "OPTIONS: "180VTAB 8:? " 1 -- Copy data packs ONLY"190VTAB 11:? " 2 -- Copy between discs &":? "      data pack"200VTAB 15:? " 3 -- Copy between discs  ":? "      ONLY"210VTAB 19:? " 5 -- Quit               "220VTAB 23230INPUT sc$:IF sc$="5" THEN GOTO 740240POKE 29968, 12:CALL 29967250IF sc$="1" THEN GOTO 530260IF sc$="3" THEN GOTO 480270IF sc$<>"2" THEN GOTO 130280HOME: lx=159290? "        "; :INVERSE:? " COPY ANYTHING ":NORMAL300VTAB 5:? "OPTINPUT sc$:VTAB 7:?:?1000REM                      1010FOR k=0 TO 151020 j=i+k1030POKE 29957, j1040 l1=PEEK(29934+k): l2=PEEK(29917+k)1050POKE 29954, l1:POKE 29955, l21060IF c0=1 THEN GOTO 11101070 l4=INT(k*1100)1080 l5=30000+l41090 l9=PEEK(l5)1100IF l9=255 THEN VTAB 14:HTAB 6:? "Block #":VTAB 14:HTAB 15:? j:VTAB 14:HTAB 20:? "Empty":GOTO 11301110CALL 299501120VTAB 10:HTAB 6:? "Block #":VTAB 10:HTAB 15:? j:VTAB 10:HTAB 20:? "Copied"1130NEXT k1140IF j=255 THEN GOTO 12201150IF dn=2 THEN GOTO 1210GRAM NOW!"160FOR i=1 TO 1000:NEXT i170VTAB 4:? "OPTIONS: "180VTAB 8:? " 1 -- Copy data packs ONLY"190VTAB 11:? " 2 -- Copy between discs &":? "      data pack"200VTAB 15:? " 3 -- Copy between discs  ":? "      ONLY"210VTAB 19:? " 5 -- Quit               "220VTAB 23230INPUT sc$:IF sc$="5" THEN GOTO 740240POKE 29968, 12:CALL 29967250IF sc$="1" THEN GOTO 530260IF sc$="3" THEN GOTO 480270IF sc$<>"2" THEN GOTO 130280HOME: lx=159290? "        "; :INVERSE:? " COPY BASIC ":NORMAL300VTAB 5:? "OPTIONS:    "; 1290INVERSE:? " COPY ANYTHING ":NORMAL1300VTAB 11:HTAB 4:? "Please Clear ALL Drives!"1310FOR i=1 TO 100:NEXT i1320VTAB 19:HTAB 9:? "Press ANY key":GET sc$:GOTO 17065535REM                     Copy Anything You Want by The WIZARD9=PEEK(l5)1100IF l9=255 THEN VTAB 14:HTAB 6:? "Block #":VTAB 14:HTAB 15:? j:VTAB 14:HTAB 20:? "Empty":GOTO 11301110CALL 299501120VTAB 10:HTAB 6:? "Block #":VTAB 10:HTAB 15:? j:VTAB 10:HTAB 20:? "Copied"1130NEXT k1140IF j=255 THEN GOTO 12201150IF dn=2 THEN GOTO 12101 (d5)"470 dn=2:GOTO 640480 lx=159490 da=PEEK(29984):POKE 29980, da500 db=PEEK(29986):POKE 29982, db510 d1$="DISC #1 (d5)": d2$="DISC #2 (d6)"520 dn=2:GOTO 640530HOME: lx=255540? "        "; :INVERSE:? " COPY BASIC ":NORMAL550VTAB 5:HTAB 5:? "Do you have 1 or 2 Tape":VTAB 8:HTAB 13:? "drives?":?:?:?560INPUT dn:IF dn<1 OR dn>2 THEN GOTO 530570IF dn=2 THEN GOTO 600580 db=PEEK(29976):POKE 29982, db590 d2$="TAPE #1 (d1)"600 da=PEEK(29976):POKE 29980, da610 d1$="TAPE #1 (d1)":IF dn=1 THEN GOTO 64010LOMEM :4760020HOME:VTAB 12:HTAB 13:? "LOADING"30VTAB 23:? CHR$(4); "bload MLMOD,A29900"40POKE 29968, 4:CALL 2996750HOME:?:?:?60HTAB 3:? "SLICK AS SHIT SOFTWARE CO.":?:? "           presents"70VTAB 11:? "    COPY BASIC WITH D5 BOOT"80VTAB 20:? "Copyright 1986 by *THE WIZARD*"90?:? "     All Rights Reserved"100FOR i=1 TO 6500:NEXT i110POKE 29968, 6:CALL 29967120HOME:? "        "; 130INVERSE:? " COPY BASIC ":NORMAL140FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT150VTAB 11:HTAB 7:? "REMOVE PRO1160? CHR$(7):? CHR$(7)1170VTAB 31180? "Get DESTINATION "; d2$:?1190? "Put SOURCE in "; d1$1200VTAB 7:? "Press Return":INPUT sc$:VTAB 7:?:?1210NEXT i1220FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT1230POKE 29968, 4:CALL 29967:FOR i=1 TO 12000:NEXT1240SPEED =50:VTAB 22:HTAB 2:? "Another copy just as slick as":FOR i=1 TO 50:NEXT1250VTAB 23:HTAB 10:SPEED =5:? "...can be!":FOR i=1 TO 50:NEXT:SPEED =2551260FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT1270POKE 29968, 6:CALL 299671280HOME:? "    "310VTAB 10320? "1 - Copy FROM TAPE Drive #1":? "         TO DISC Drive #1"330VTAB 15340? "2 - Copy FROM DISC Drive #1":? "         TO TAPE Drive #1"350VTAB 20360? "5 - Quit":?:?370INPUT sc$:IF sc$="5" THEN GOTO 740380IF sc$="1" THEN GOTO 440390IF sc$<>"2" THEN GOTO 280400 da=PEEK(29984):POKE 29980, da410 db=PEEK(29976):POKE 29982, db420 d1$="DISC #1 (d5)": d2$="TAPE #1 (d1)"430 dn=2:GOTO 640440 da=PEEK(29976):POKE 29980, da450 db=PEEK(29984):POKE 29982, db460 d1$="TAPE #1 (d1)": d2$="DISC #1160? CHR$(7):? CHR$(7)1170VTAB 31180? "Get DESTINATION "; d2$:?1190? "Put SOURCE in "; d1$1200VTAB 7:? "Press Return":INPUT sc$:VTAB 7:?:?1210NEXT i1220FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT1230POKE 29968, 4:CALL 29967:FOR i=1 TO 12000:NEXT1240SPEED =50:VTAB 22:HTAB 2:? "Another copy just as slick as":FOR i=1 TO 50:NEXT1250VTAB 23:HTAB 10:SPEED =5:? "...can be!":FOR i=1 TO 50:NEXT:SPEED =2551260FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT1270POKE 29968, 6:CALL 299671280HOME:? "    620 db=PEEK(29978):POKE 29982, db630 d2$="TAPE #2 (d2)"640HOME:VTAB 6:? "Put SOURCE in "; d1$650IF dn=1 THEN GOTO 690660FOR i=1 TO 5000:NEXT i670VTAB 9:? "Put DESTINATION in "; d2$680FOR i=1 TO 5000:NEXT i690?:? "Copy ALL Blocks? (y/n)":GET sb$:? CHR$(7)700IF sb$="y" OR sb$="Y" THEN  c0=1:GOTO 720710 c0=0720VTAB 15:? "Are you ready to begin?":VTAB 18:? "If so, press Y & <RETURN>"730VTAB 20:INPUT sc$:IF sc$="y" OR sc$="Y" THEN HOME:GOTO 760740POKE 29968, 4:CALL 29967745LOMEM :27649750VTAB 23:H GOTO 12201150IF dn=2 THEN GOTO 12101160? CHR$(7):? CHR$(7)1170VTAB 31180? "Get DESTINATION "; d2$:?1190? "Put SOURCE in "; d1$1200VTAB 7:? "Press Return":INPUT sc$:VTAB 7:?:?1210NEXT i1220FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT1230POKE 29968, 4:CALL 29967:FOR i=1 TO 12000:NEXT1240SPEED =50:VTAB 22:HTAB 2:? "Another copy just as slick as":FOR i=1 TO 1000:NEXT1250VTAB 23:HTAB 10:SPEED =5:? "...can be!":FOR i=1 TO 2000:NEXT:SPEED =2551260FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT12702$980VTAB 7:? "Press Return"990INPUT sc$:VTAB 7:?:?1000REM                         1010FOR k=0 TO 151020 j=i+k1030POKE 29957, j1040 l1=PEEK(29934+k): l2=PEEK(29917+k)1050POKE 29954, l1:POKE 29955, l21060IF c0=1 THEN GOTO 11101070 l4=INT(k*1100)1080 l5=30000+l41090 l9=PEEK(l5)1100IF l9=255 THEN VTAB 14:HTAB 6:? "Block #":VTAB 14:HTAB 15:? j:VTAB 14:HTAB 20:? "Empty":GOTO 11301110CALL 299501120VTAB 10:HTAB 6:? "Block #":VTAB 10:HTAB 15:? j:VTAB 10:HTAB 20:? "Copied"1130NEXT k1140IF j=255 THEN a$(0); TAB(11); a$(1); TAB(15); a$(2); TAB(19); a$(3); TAB(23); a$(4); TAB(27); a$(5)111? "DEC"; 120? TAB(7); a(0); TAB(11); a(1); TAB(15); a(2); TAB(19); a(3); TAB(23); a(4); TAB(27); a(5)121? "HEX"; 122? TAB(7); p$(0); TAB(11); p$(1); TAB(15); p$(2); TAB(19); p$(3); TAB(23); p$(4); TAB(27); p$(5)130NEXT j133SPEED =255134END140REM       TABLE of SCREEN150REM           COMMANDS160REM       NOT to Print or170REM           DISPLAY180 sc(1)=8:REM      BACKSPACE190 sc(2)=9:REM      HORIZ. TAB191 POKE 29968, 6:CALL 299671280HOME:? "        "; 1290INVERSE:? " COPY BASIC ":NORMAL1300VTAB 11:HTAB 4:? "Please Clear ALL Drives!"1310FOR i=1 TO 10000:NEXT i1320VTAB 19:HTAB 9:? "Press ANY key":GET sc$:GOTO 17065535REM                        Copy Anything You Want by The WIZARD(l5)1100IF l9=255 THEN VTAB 14:HTAB 6:? "Block #":VTAB 14:HTAB 15:? j:VTAB 14:HTAB 20:? "Empty":GOTO 11301110CALL 299501120VTAB 10:HTAB 6:? "Block #":VTAB 10:HTAB 15:? j:VTAB 10:HTAB 20:? "Copied"1130NEXT k1140IF j=255 THENTAB 1:? CHR$(4); "run Start, d5"760? "        "; :INVERSE:? " COPY BASIC ":NORMAL761 sn=0770FOR i=0 TO lx STEP 16780VTAB 3:?785 sn=sn+1790? "Segment #"; sn; " at block #"; i:?850FOR k=0 TO 15860 j=i+k870VTAB 6:? "Reading block "; j880POKE 29907, j890 l1=PEEK(29934+k): l2=PEEK(29917+k)900POKE 29904, l1:POKE 29905, l2910CALL 29900920NEXT k924IF i<>16 THEN 930926POKE 32201, 4930IF dn=2 THEN GOTO 1010940? CHR$(7):? CHR$(7)950VTAB 3960? "Take SOURCE from "; d1$:?970? "Put DESTINATION in "; d1HOME10REM        specific memory dump20? "SPECIFIC Memory DUMP"30INPUT "Enter STARTING Location=> "; sloc40INPUT "Enter ENDING Location=> "; eloc50HOME:TEXT55GOSUB 18056INPUT "SET Display SPEED::"; ds:SPEED =ds57REM       255=FASTEST, 0=SLOWEST    60? "loc:  0   1   2   3   4   5"70FOR j=sloc TO eloc STEP 680FOR d=0 TO 590 a$(d)=CHR$(PEEK(j+d))93 a(d)=ASC(a$(d))94 o$=STR$(a(d))95GOSUB 100096 p$(d)=n$103IF a(d)<17 THEN GOSUB 240104IF a(d)=128 THEN  a$(d)="??"105NEXT d107?110? j; TAB(7); GOTO 12201150IF dn=2 THEN GOTO 12101160? CHR$(7):? CHR$(7)1170VTAB 31180? "Get DESTINATION "; d2$:?1190? "Put SOURCE in "; d1$1200VTAB 7:? "Press Return":INPUT sc$:VTAB 7:?:?1210NEXT i1220FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT1230POKE 29968, 4:CALL 29967:FOR i=1 TO 12000:NEXT1240SPEED =50:VTAB 22:HTAB 2:? "Another copy just as slick as":FOR i=1 TO 1000:NEXT1250VTAB 23:HTAB 10:SPEED =5:? "...can be!":FOR i=1 TO 2000:NEXT:SPEED =2551260FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT1270sc(7)=10:REM      VERTICAL TAB200 sc(3)=12:REM      CLEAR SCREEN201 sc(8)=13:REM      CARRIAGE RETURN    210 sc(4)=14:REM      INSERT Right220 sc(5)=15:REM      DELETE Left230 sc(6)=16:REM      PRINT SCREEN    235RETURN240FOR scc=1 TO 8250IF a(d)=sc(scc) THEN  a$(d)="??"260NEXT scc270RETURN1000 n$=""1001 ob=10: nb=16:FOR i=1 TO LEN(o$): x=ASC(MID$(o$, i, 1))-481002 x=x-7*(x>9): n=n*ob+x:NEXT: n=n+.5: l%=LOG(n)/LOG(nb):FOR i=l% TO 0 STEP -11003 x%=n/nb^i: n=n-x%*nb^i: n$=n$+CHR$(48+x%+7*(x%>9))  *      5/25/85     *   140REM                     ********************  150? CHR$(4); "mon c"160POKE 17059, c:TEXT:HOME170 d$=CHR$(4): beep$=CHR$(7)+CHR$(7)180 w=1190READ o$, x200FOR j=1 TO x210READ e$(j)220REM                       230READ y:LET a=a+y240FOR k=w TO y+w-1250READ n$(k), m$(k)260 f$(k)=e$(j)270NEXT k280IF j=x AND k=y+w-1 GOTO 300290 w=INT((k+4)/5)*5+1300NEXT j310 w=w-5320HOME330REM                      *****************340REM                      *     MENU      *350REM5HOME10? "Put paper in the printer.":?20? "Press any key when ready.":GET q$30PR #140 seek=1600050IF PEEK(seek)=1 AND PEEK(seek+3)=17 AND PEEK(seek+6)=33 AND PEEK(seek+9)=62 AND PEEK(seek+11)=8 THEN 7060 seek=seek+1:GOTO 5070? "Lines Address is "; seek+180? TAB(5); "Present Value is "; PEEK(seek+1)90? "Columns Address is "; seek+2100? TAB(5); "Present Value is "; PEEK(seek+2)110? "Top Line Address is "; seek+4120? TAB(5); "Present Value is "; PEEK(seek+4)130? "Left Margin Address is "; seek+51 8:VTAB 8:? n$(i+0)520HTAB 8:VTAB 10:? n$(i+1)530HTAB 8:VTAB 12:? n$(i+2)540HTAB 8:VTAB 14:? n$(i+3)550HTAB 8:VTAB 16:? n$(i+4)560HTAB 2:VTAB 21:INVERSE:? " Press Desired Function Key "; 570HTAB 3:VTAB 23:NORMAL:? "('H' = Help  'ESC' = Exit)"580HTAB 1:VTAB 21:GET key$590NORMAL:? beep$600HTAB 2:VTAB 21:INVERSE:? " Press Desired Function Key "; :NORMAL610IF key$="h" OR key$="H" THEN GOSUB 1380620IF key%=999 GOTO 360630 key%=ASC(key$)640IF key%=149 GOTO 1120:REM                        PRINT key655LOMEM :2764910 c=4: b=1: d=720 b=b*1630REM                         c = border color40REM                         b = character color50REM                         d = background color60POKE 16953, 1470POKE 17115, b+d:TEXT80DIM f$(100), e$(100), m$(100), n$(100), p$(100)90REM                     ********************    100REM                     * ADAM Menu Master *      110REM                     *  By Scott Earley *   120REM                     *    & THE WIZARD  *    130REM                   1004NEXT1005 x=0: n=0: o$="": i=141006RETURN a$(3); TAB(23); a$(4); TAB(27); a$(5)111? "DEC"; 120? TAB(7); a(0); TAB(11); a(1); TAB(15); a(2); TAB(19); a(3); TAB(23); a(4); TAB(27); a(5)121? "HEX"; 122? TAB(7); p$(0); TAB(11); p$(1); TAB(15); p$(2); TAB(19); p$(3); TAB(23); p$(4); TAB(27); p$(5)130NEXT j133SPEED =255134END140REM       TABLE of SCREEN150REM           COMMANDS160REM       NOT to Print or170REM           DISPLAY180 sc(1)=8:REM      BACKSPACE190 sc(2)=9:REM      HORIZ. TAB191                       *****************360REM                               370HTAB 2:VTAB 6:? " KEY "; :HTAB 12:? " PROGRAM "380HTAB 3:VTAB 8:? "  I"390HTAB 3:VTAB 10:? " II"400HTAB 3:VTAB 12:? "III"410HTAB 3:VTAB 14:? " IV"420HTAB 3:VTAB 16:? "  V"430HTAB 3:VTAB 18:? " VI  MORE"440IF key%=999 GOTO 460450FOR i=1 TO w STEP 5460VTAB 1:HTAB 1:?470 p$(i)=o$+"'s "+f$(i): t=17-INT(LEN(p$(i)))/2480HTAB t:VTAB 1:? p$(i)490 key%=0500HTAB 11:VTAB 3:? "Page "; INT((i+4)/5); " Of "; INT((w+4)/5)510HTAB40? TAB(5); "Present Value is "; PEEK(seek+5)150PR #o160IF k$="P" OR k$="p" THEN 10170HOME:? CHR$(4); "run Start"opy2A·g«WtapeeditAB·k:WmultigameA·nÁWBLOCKS LEFTs-wWBLOCKS LEFT…z0IF key%=3 GOTO 1080:REM                       CONT C key660IF key%=49 OR key%=50 OR key%=53 OR key%=54 THEN GOSUB 1230:REM                       1,2,5 or 6670IF key%<>999 GOTO 700680POKE 17059, c690POKE 16953, 14:POKE 17115, b+d:TEXT:HOME:GOTO 360700IF key%=144 OR key%=146 OR key%=147 THEN GOSUB 1600710IF key%=152 OR key%=154 OR key%=155 THEN GOSUB 1600720IF key%=999 THEN GOTO 680730REM                        740IF key%=27 GOTO 1080:REM                       ESCAPE key750IF key%=128 GOTO 770:REM     <Wild Card>"1510? "                (Shift = Back)"1520?:? " PAGING "1530?1540? "Forward       <Up or Rt Arrow>"1550? "Backward    <Down or Lt Arrow>"1560? "Page 1                  <Home>"1570INVERSE:?:? "Press any Key!"; :NORMAL1580 key%=9991590GET t$:HOME:RETURN1600IF key%=146 THEN  b=b+161610IF key%=147 THEN  d=d+11620IF key%=144 THEN  c=c+11630IF key%=152 THEN  c=c-11640IF key%=154 THEN  b=b-161650IF key%=155 THEN  d=d-11660IF c>15 THEN  c=01670IF c<0 THEN  c=151680IF b>240 THEN  b=T z920POKE 16953, 31930VTAB 21:HTAB 2:? " Insert "; f$(i)940VTAB 23:?:VTAB 23:HTAB 8:? "Then Select Drive!"950REM                             VTAB 23: PRINT: VTAB 960GET u$970IF u$="1" OR u$="2" OR u$="5" OR u$="6" GOTO 990980 key%=999:GOTO 360990VTAB 23:?:VTAB 231000 m$=m$(i+(key%-129))1010? d$; "run "; m$; ", D"; u$1020HTAB 7:VTAB 18:INVERSE:? " MORE "; 1030FOR z=1 TO 300:NEXT z1040HTAB 7:VTAB 18:NORMAL:? " MORE "; 1050POKE 16953, 141060NEXT i1070IF i-5=w OR i-5<w GOTO 4501080TEXT:HTAB 1:30REM                      ETC..... ETC.....1840REM                    *** Your first name, # of Discs 1850DATA     Wizard,11860REM                       Name of First disc, # of programs on that disc1870DATA   Program Aids,221880REM                       Discription, Program name1882DATA    Auto Aid Utility,AAHello1890DATA                   Slick Copy,SlickCopy1900DATA                   Copy Segments,ManualCopy1910DATA                     Copy Basic (Boot D5),BasicCopy  1920DATA                  log "+g$1280HOME1290? d$; g$1300? "PRESS any key"; 1310GET z$1320? beep$1330 key%=9991340 z%=ASC(z$)1350IF z%<>145 GOTO 13701360END1370RETURN1380HOME1390REM                     *** HELP MENU ***1400HTAB 11:? " HELP MENU ":?1410?:? " CATALOG "1420?1430? "Select Drive        #(1,2,5,6)"1440? "Print                  <Print>"1450? "Exit                    <Undo>"1460?:? " SCREEN COLORS "1470?1480? "Characters         <Move/Copy>"1490? "Background         <Store/Get>"1500? "Borders                              HOME key760IF key%<160 OR key%>163 GOTO 830:REM                        ARROW keys770IF key%=162 OR key%=163 THEN  i=i-10780IF i<-4 GOTO 810790IF key%=128 THEN  i=-4800GOTO 1050810 i=w-5820GOTO 1050830IF key%<129 OR key%>134 GOTO 580840POKE 16953, 14850IF key%-128=6 GOTO 1020860IF m$(i+(key%-129))="" GOTO 580870 j=(key%-128)*2+6880 q$=n$(i+(key%-129))+"                    ": q$=MID$(q$, 1, 21)890VTAB j:HTAB 7:INVERSE:? " "; q$:NORMAL900VTAB j:HTAB 30910FOR z=1 TO 500:NEX01690IF b<0 THEN  b=2401700IF d>15 THEN  d=01710IF d<0 THEN  d=151720POKE 17115, d+b:POKE 17059, c:TEXT1730 key%=9991740RETURN1750 d=d+11760REM                      Replace DATA as Follows:1770REM                      # OF DISCS1780REM                      NAME of first disc1790REM                      # of PROGRAMS on that Disc1800REM                      DISCRIPTION of Program1810REM                      EXACT NAME of Program1820REM                       REPEAT for as many discs specified18? d$; "nomon c"1090HTAB 1:? d$; "catalog"1100CLEAR1110END1120REM                            Catalog Printout 1130VTAB 23:?1140VTAB 21:? " Please Select Drive #":GET w$1150IF w$="1" OR w$="2" OR w$="5" OR w$="6" GOTO 11701160 key%=999:? d$; "pr#0":VTAB 22:?:GOTO 3601170VTAB 21:? d$; "pr#1"1180HOME1190? d$; "catalog d"; w$1200? d$; "pr#0"1210HOME1220 key%=999:GOTO 3601230IF key%=49 THEN  g$="d1"1240IF key%=50 THEN  g$="d2"1250IF key%=53 THEN  g$="d5"1260IF key%=54 THEN  g$="d6"1270 g$="cata Copy Cartridges,cartcopy1925DATA        Multi Cart Copy,cartcopy21926DATA         Multi Game Copy,multigame1930DATA                   Edit Any Block,tapeedit1940DATA                   Key Information,keyinfo1950DATA                   Quick Conversions,HexyDexy1960DATA                   Numeric Conversions,numbers1970DATA                   Dump Memory,memorydump1980DATA                   Adam System Tests,TEST1990DATA                   Print Small Labels,labelSml2000DATA                   Print Bin-1)*31+2370CALL 31000:CALL 40100:NEXT380IF n=8 OR media=2 AND n=5 GOTO 400390GOTO 300400POKE 40106, 0410DATA         243,1,0,0,205,32,253,1,1,7,205,32,253     420DATA         33,0,8,62,2,205,41,253,33,0,0,62,3,205,41,253,33,0,32,62,4  430DATA         205,41,253,205,56,253,62,240,33,0,32,17,32,0,205,38,253,1,224,1  440DATA         205,32,253,1,31,24,33,0,8,17,3,3,205,54,252,24,124  450DATA          32,32,87,73,90,65,82,68,10,13 460DATA         49,41,32,32,32,32,32,32,32,32,32,32,10,13  470DATA   10CLEAR20HOME:VTAB 12:HTAB 1330VTAB 2340HOME:?:?:?50HTAB 3:? "SLICK AS SHIT SOFTWARE CO.":?:? "           presents"60VTAB 11:? "    MULTI CARTRIDGE COPYS  "70VTAB 20:? "Copyright 1986 by *THE WIZARD*"80?:? "     All Rights Reserved"90FOR i=1 TO 6500:NEXT i92HOME:VTAB 7:HTAB 3:? "PLEASE CLEAR ALL DRIVES!"94FOR i=1 TO 10:? CHR$(7):VTAB 22:NEXT100HIMEM :30999:DIM name(10)110HOME:VTAB 10120GOTO 140130INPUT " Choose media: 1)TAPE  2)DISK "; media140? " Choose media: 1)TAPE  2)DISK ":GET media150D,57550DATA         252,214,48    560DATA        71,33,227,255,17,31,0,25,16,253,235,33,0,3,1,0,0,62,8,205,243,252 570DATA         1,0,4,9,19,124,254,127,32,237,17,0,2,33,005,201,1,18,0,237,176580DATA         195,0,2,17,0,128,33,0,3,1,0,124,237,176,62,3,211,127,195,0,0  590FOR x=41000 TO 41278600READ d:POKE x, d:NEXT:IF media=2 THEN POKE 41233, 4610IF media=2 THEN  en=41139:GOTO 630620 en=41181630FOR x=41083 TO en STEP 14640HOME:VTAB 8650? " Enter Name - Game #"; (x-41083)/14+1660INPUT a$: lim=LE":? "cartridge copies."240VTAB 16:? "2) MULTICART MODE"250?:? "Formats block 0 after 5":? "carts are copied to disc":? "or 8 carts copied to tape.":?260GET op:IF op<2 GOTO 400270IF op>2 GOTO 260280HOME:VTAB 10290? "Ensure that CART and MEDIA ":? "are in place."300?:?:INPUT "Please push RETURN "; x$310INVERSE:HOME:VTAB 8:HTAB 5:? " Assign Cart Number ":NORMAL:?:?320?:? "Use 1 thru 8 for TAPE and "330?:? "Use 1 thru 5 for DISC. ":?:?340INPUT n350FOR i=0 TO 30360POKE 31005, i*4+128:POKE 40106, i+(g Labels,labelBig2010DATA                   Create a Shape Table,shapetable2020DATA                   Renumber Lines,utility2030DATA                   Rescue Tapes,rescue2040DATA                    Specific Memory Dump,SpecDump2042DATA                    Set Screen Size,ScrnSize2050DATA                   Read Tutorials,mastertext2060DATA      Reset Menu,Start65535ENDTA                   Copy Segments,ManualCopy1910DATA                     Copy Basic (Boot D5),BasicCopy  1920DATA                        50,41,32,32,32,32,32,32,32,32,32,32,10,13 480DATA         51,41,32,32,32,32,32,32,32,32,32,32,10,13 490DATA         52,41,32,32,32,32,32,32,32,32,32,32,10,13   500DATA         53,41,32,32,32,32,32,32,32,32,32,32,10,13   510DATA         54,41,32,100,100,112,32,32,111,110,108,121,10,13    520DATA         55,41,32,100,100,112,32,32,111,110,108,121,10,13  530DATA         56,41,32,100,100,112,32,32,111,110,108,121,10,13   540DATA         35,63,6,124,33,71,200,126,205,57,252,35,16,249,205,108,252,205ATA         1,0,4,17,0,0,33,40,160,62,13,211,127,26,50,253,124  160DATA         62,1,211,127,58,253,124,119,35,19,11,120,177,194,33,121,201 170POKE 102, 237:POKE 103, 69180FOR x=31000 TO 31033:READ d:POKE x, d:NEXT190DATA         62,8,1,0,0,17,0,0,33,40,160,205,246,252,201 200FOR x=40100 TO 40114:READ d:POKE x, d:NEXT:IF media=2 THEN POKE 40101, 4210HOME:VTAB 2:HTAB 10:INVERSE:? " OPTIONS ":NORMAL220VTAB 8:? "1) FORMAT BLOCK 0 ONLY":?230? "Use if games are comming ":? "from other media like previousN(a$):IF lim>10 THEN  lim=10670FOR p=1 TO lim680 name(p)=ASC(MID$(a$, p, 1))690NEXT700FOR loc=x TO x+9710POKE loc, name(loc-(x-1))720NEXT730FOR i=1 TO 10: name(i)=32:NEXT740NEXT750CALL 40100760HOME:VTAB 4770? "Do you want to create another?"780?:? "Push 'Y' or 'N'"790GET z$800IF z$="n" OR z$="N" THEN ? CHR$(4); "run Start"810IF z$="y" OR z$="Y" THEN GOTO 10820GOTO 76065535REM         Another Slick Program.,13   540DATA         35,63,6,124,33,71,200,126,205,57,252,35,16,249,205,108,252,205ad=x+16*tb+bb260INPUT "Change byte to (0-FF)?"; b$263GOSUB 520:IF tb=17 OR bb=17 THEN 260265REM         -change byte and write it to tape270POKE ad, tb*16+bb: o=10-o:GOTO 65280INPUT "Would you like these changes to be permanent on tape (y/n)?"; a$290IF a$="y" THEN POKE 30012, 246:CALL 30000:GOTO 25300IF a$="n" THEN 25310? "yes or no please":GOTO 280510REM       -change byte # to decimal form 520FOR k=1 TO 16:IF MID$(b$, 1, 1)=MID$(x$, k, 1) THEN  tb=k-1: k=16530NEXT k540FOR k=1 TO 16:IF MID$(b$,3HOME:VTAB 65? "Insert tape into drive #1":INPUT " hit return"; a$10HIMEM :29999: x$="0123456789ABCDEF"20DATA          62,8,1,0,0,17,0,0,33,184,136,205,243,252,20125RESTORE:HOME: o=930FOR x=30000 TO 30014:READ d:POKE x, d:NEXT32INPUT "Do you want to QUIT? "; q$34IF q$="Y" OR q$="y" THEN ? CHR$(4); "run Start"40?:INPUT "Block # to be edited?"; x50POKE 30006, x:CALL 30000:REM         -read block 'x' to 3500060FOR x=35000 TO 36023 STEP 12865HOME: tb=17: bb=1767? "page:"; INT((x-35000)/256+1); 70? ad=x+16*tb+bb260INPUT "Change byte to (0-FF)?"; b$263GOSUB 520:IF tb=17 OR bb=17 THEN 260265REM         -change byte and write it to tape270POKE ad, tb*16+bb: o=10-o:GOTO 65280INPUT "Would you like these changes to be permanent on tape (y/n)?"; a$290IF a$="y" THEN POKE 30012, 246:CALL 30000:GOTO 25300IF a$="n" THEN 25310? "yes or no please":GOTO 280510REM       -change byte # to decimal form 520FOR k=1 TO 16:IF MID$(b$, 1, 1)=MID$(x$, k, 1) THEN  tb=k-1: k=16530NEXT k540FOR k=1 TO 16:IF MID$(b$,N ? MID$(x$, i/16+o, 1); :GOTO 133132? " "; 133? " "; 135REM          -print hex part of block140FOR j=0 TO 7145 w=PEEK(x+i+j)150? MID$(x$, INT(w/16)+1, 1); 160? MID$(x$, (w/16-INT(w/16))*16+1, 1); 170NEXT j:?:NEXT i:?180INPUT "Does this screen require changing (y/n, e to exit)?"; a$190IF a$<>"y" AND a$<>"n" AND a$<>"e" THEN 180195IF a$="e" THEN 280200IF a$="n" THEN NEXT x:GOTO 280210?:INPUT "Byte # to be changed (0-FF)?"; b$230GOSUB 520:IF tb=17 OR bb=17 THEN 210255IF tb>7 THEN  tb=tb-8257 ,57550DATA         252,214,48    560DATA        71,33,227,255,17,31,0,25,16,253,235,33,0,3,1,0,0,62,8,205,243,252 570DATA         1,0,4,9,19,124,254,127,32,237,17,0,2,33,005,201,1,18,0,237,176580DATA         195,0,2,17,0,128,33,0,3,1,0,124,237,176,62,3,211,127,195,0,0  590FOR x=41000 TO 41278600READ d:POKE x, d:NEXT:IF media=2 THEN POKE 41233, 4610IF media=2 THEN  en=41139:GOTO 630620 en=41181630FOR x=41083 TO en STEP 14640HOME:VTAB 8650? " Enter Name - Game #"; (x-41083)/14+1660INPUT a$: lim=LE 2, 1)=MID$(x$, k, 1) THEN  bb=k-1: k=16550NEXT k:RETURN35REM          -print hex part of block140FOR j=0 TO 7145 w=PEEK(x+i+j)150? MID$(x$, INT(w/16)+1, 1); 160? MID$(x$, (w/16-INT(w/16))*16+1, 1); 170NEXT j:?:NEXT i:?180INPUT "Does this screen require changing (y/n, e to exit)?"; a$190IF a$<>"y" AND a$<>"n" AND a$<>"e" THEN 180195IF a$="e" THEN 280200IF a$="n" THEN NEXT x:GOTO 280210?:INPUT "Byte # to be changed (0-FF)?"; b$230GOSUB 520:IF tb=17 OR bb=17 THEN 210255IF tb>7 THEN  tb=tb-8257 TAB(13); :FOR e=0 TO 780? e; " "; :NEXT e:?83? "block:"; PEEK(30006); 85? TAB(13); :FOR e=9 TO 1687? MID$(x$, e, 1); " "; :NEXT e:?89 o=10-o90FOR i=0 TO 127 STEP 895REM         -print character part of block100FOR j=0 TO 7110IF PEEK(x+i+j)<32 THEN ? "="; :GOTO 125115IF PEEK(x+i+j)=128 OR PEEK(x+i+j)=148 THEN ? "="; :GOTO 125116IF PEEK(x+i+j)=151 THEN ? "="; :GOTO 130117IF PEEK(x+i+j)>159 AND PEEK(x+i+j)<162 THEN ? "="; :GOTO 125120? CHR$(PEEK(x+i+j)); 125NEXT j:? " "; 130IF INT(i/16)=i/16 THE10LOMEM :4760020HOME:VTAB 12:HTAB 13:? "LOADING"30VTAB 23:? CHR$(4); "bload MLMOD,A29900"40POKE 29968, 4:CALL 2996750HOME:?:?:?60HTAB 3:? "SLICK AS SHIT SOFTWARE CO.":?:? "           presents"70VTAB 11:? "       MULTI GAME COPY      "80VTAB 20:? "Copyright 1986 by *THE WIZARD*"90?:? "     All Rights Reserved"100FOR i=1 TO 6500:NEXT i110POKE 29968, 6:CALL 29967120HOME:? "       "; 130INVERSE:? " MULTI GAME COPY ":NORMAL140FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT150VTAB 11:HTAB 7:? "REMOVs? (y/n)":GET sb$:? CHR$(7)700IF sb$="y" OR sb$="Y" THEN  c0=1:GOTO 720710 c0=0720VTAB 15:? "Are you ready to begin?":VTAB 18:? "If so, press Y & <RETURN>"730VTAB 20:INPUT sc$:IF sc$="y" OR sc$="Y" THEN HOME:GOTO 760740POKE 29968, 4:CALL 29967744LOMEM :27649750VTAB 23:HTAB 1:? CHR$(4); "run Start, d5"760? "        "; :INVERSE:? "  MULTI GAMES  ":NORMAL:?:? "Copying Game Slot #"; inc761 sn=0770FOR j=2 TO 32780VTAB 4:?785 sn=sn+1870VTAB 6:? "Reading block "; j880POKE 29907, j890 l1=PEEK(29934+0PTIONS:"310VTAB 10320? "1 - Copy FROM TAPE Drive #1":? "         TO DISC Drive #1"330VTAB 15340? "2 - Copy FROM DISC Drive #1":? "         TO TAPE Drive #1"350VTAB 20360? "5 - Quit":?:?370INPUT sc$:IF sc$="5" THEN GOTO 740380IF sc$="1" THEN GOTO 440390IF sc$<>"2" THEN GOTO 280400 da=PEEK(29984):POKE 29980, da410 db=PEEK(29976):POKE 29982, db420 d1$="DISC #1 (d5)": d2$="TAPE #1 (d1)"430 dn=2:GOTO 640440 da=PEEK(29976):POKE 29980, da450 db=PEEK(29984):POKE 29982, db460 d1$="TAPE #1 (d1)": d2$= #":VTAB 14:HTAB 15:? z:VTAB 14:HTAB 20:? "Empty":GOTO 11301110CALL 299501120VTAB 10:HTAB 6:? "Block #":VTAB 10:HTAB 15:? z:VTAB 10:HTAB 20:? "Copied"1140IF j=255 THEN GOTO 12201150IF dn=2 THEN GOTO 12101160? CHR$(7):? CHR$(7)1170VTAB 31180? "Get DESTINATION "; d2$:?1190? "Put SOURCE in "; d1$1200VTAB 7:? "Press Return":INPUT sc$:VTAB 7:?:?1210NEXT j1220FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT1230POKE 29968, 4:CALL 29967:FOR i=1 TO 120:NEXT1240SPEED =50:VTAB 22:HTAB 2:? "Another copy jusN GOTO 640620 db=PEEK(29978):POKE 29982, db630 d2$="TAPE #2 (d2)"640HOME:VTAB 6:? "Put SOURCE in "; d1$650IF dn=1 THEN GOTO 690660FOR i=1 TO 50:NEXT i670VTAB 9:? "Put DESTINATION in "; d2$680FOR i=1 TO 50:NEXT i681? "Select output GAME NUMBER.":? "1 to 5 for DISC.":? "1 to 8 for TAPE."682GET inc:IF inc=1 THEN  k=0683IF inc=2 THEN  k=31684IF inc=3 THEN  k=62685IF inc=4 THEN  k=93686IF inc=5 THEN  k=124687IF inc=6 THEN  k=155688IF inc=7 THEN  k=186689IF inc=8 THEN  k=217690?:? "Copy ALL BlockE PROGRAM NOW!"160FOR i=1 TO 200:NEXT i170VTAB 4:? "OPTIONS: "180VTAB 8:? " 1 -- Copy data packs ONLY"190VTAB 11:? " 2 -- Copy between discs &":? "      data pack"200VTAB 15:? " 3 -- Copy between discs  ":? "      ONLY"210VTAB 19:? " 5 -- Quit               "220VTAB 23230INPUT sc$:IF sc$="5" THEN GOTO 740240POKE 29968, 12:CALL 29967250IF sc$="1" THEN GOTO 530260IF sc$="3" THEN GOTO 480270IF sc$<>"2" THEN GOTO 130280HOME: lx=159290? "        "; :INVERSE:? "  MULTI GAMES  ":NORMAL300VTAB 5:? "O): l2=PEEK(29917+0)900POKE 29904, l1:POKE 29905, l2910CALL 29900930IF dn=2 THEN GOTO 1010940? CHR$(7):? CHR$(7)950VTAB 3960? "Take SOURCE from "; d1$:?970? "Put DESTINATION in "; d2$980VTAB 7:? "Press Return"990INPUT sc$:VTAB 7:?:?1000REM                         1010REM    1020 z=j+k1030POKE 29957, z1040 l1=PEEK(29934+0): l2=PEEK(29917+0)1050POKE 29954, l1:POKE 29955, l21060IF c0=1 THEN GOTO 11101070 l4=INT(k*1100)1080 l5=30000+l41090 l9=PEEK(l5)1100IF l9=255 THEN VTAB 14:HTAB 6:? "Block"DISC #1 (d5)"470 dn=2:GOTO 640480 lx=159490 da=PEEK(29984):POKE 29980, da500 db=PEEK(29986):POKE 29982, db510 d1$="DISC #1 (d5)": d2$="DISC #2 (d6)"520 dn=2:GOTO 640530HOME: lx=255540? "        "; :INVERSE:? "  MULTI GAMES  ":NORMAL550VTAB 5:HTAB 5:? "Do you have 1 or 2 Tape":VTAB 8:HTAB 13:? "drives?":?:?:?560INPUT dn:IF dn<1 OR dn>2 THEN GOTO 530570IF dn=2 THEN GOTO 600580 db=PEEK(29976):POKE 29982, db590 d2$="TAPE #1 (d1)"600 da=PEEK(29976):POKE 29980, da610 d1$="TAPE #1 (d1)":IF dn=1 THEt as slick as":FOR i=1 TO 1000:NEXT1250VTAB 23:HTAB 10:SPEED =5:? "...can be!":FOR i=1 TO 2000:NEXT:SPEED =2551260FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT1270POKE 29968, 6:CALL 299671280HOME:? "        "; 1290INVERSE:? "  MULTI GAMES  ":NORMAL1300VTAB 11:HTAB 4:? "Please Clear ALL Drives!"1310FOR i=1 TO 100:NEXT i1320VTAB 19:HTAB 9:? "Press ANY key":GET sc$:GOTO 17065535REM     Copy Multi Cart Games to disc or tape by THE WIZARD+l41090 l9=PEEK(l5)1100IF l9=255 THEN VTAB 14:HTAB 6:? "BlockKNOWN COMMAND - TRY HelpÉ>ÿ®w(>N>FÍÆoÍÆoÉ!˜kÍùo CAPS LOCK OØ!ŸkÍùo KEY DEFS OÄ! kÍùo PRINT BUFFER O¬Íùo ESC, View, Add, Del, O, Help:  ÍIwÉÍÖnÍÁwþV 
ÍIw<þA ÍIw1þD 
ÍIw#þO ÍIw
þH ÍIw,Í,p(ÍIwÍVoÉÍùo PRESS ESC OR FUNC KEY TO VIEW  ÉÍÖnÍ,p(Íùv Í¸oÉÍùo KEY NOT DEFINEDÉ:;}·(+Íùo ESC OR KEY TO BE DEFINED       ÍIwÍùo BUFFER FULLÍIwÉÍÖnÍ,p(Uþ(Íùv(,2†s+"=}ÍIwBÍùo ILLEGAL KEY TO DEFINE Íùo KEY ALREADY DEFINED ÍIwÉÍIwÍVoÉÍùo KEY DEFINITION, THEN ESlkÃõwÃ¦kAAö}ô~:~ºô~ÿÿ‘ÀDÐßÿÿÿÿA:vk·Ê·kÍIwÃ2l*©ü"‘l!n"©ü*Lü"”l!n"Lü*gü"—l!™l"gü/2vkÍVmÍ‰w>
2nÍIwÍùo COPYRIGHT 1984, FUTUREVISION  INC.     ALL RIGHTS RESERVED. ÉÍùo PRESS ESCAPE KEY TO DISPLAY     LIST OF AUTO-AIDS COMMANDSÉ:vk·(*‘l"©ü*”l"Lü*—l"gü¯2vkÉÃÃÃÕå_: k·(:<}· 
{Í•m:<}·({Ícm{ÍÀl¿áÑÉõÕå_!‰|:¡k· {Í4mE>» 
Í,m~þ ø6{þ(þ
(:Š|·Äm~þ :£k¾8Í,mõ{Í4m:¢k<–W:¤kº8Í,m= úáÑñÉ:¥k·Èõ> Í4mñ= öÉõ>
Í4mñÉõÕ_Í–l û{þ
 
4:¢k¾ÜVmþ(¯2Š|ÑñÉõ>2‰|>Í4mñÉÍÑv(: >ÍÌuÉkÍÚuÀÍIwÉÍùo VALUE NOT CHANGEDÉÍÖnþ(þ08þ:0Ído!œ|ío# ú5 ÍVoÉ·úÉuþ 8Ído>ÍdoÃiw2Ÿ|¯2œ|2|2ž|ÉÅå:œ|*|´µ(!œ|í°áÁÉÍùo ESC, E, T, F, Help :           ÍIw!ÉÍÖnÍÁwÍ,pÊ\vþE ÍIw#)þT ÍIw$þF >ÍfüþH ÍIw1ÍIw ÍVoÉíKky°ÈÍIw"ÉÍùoCAN'T - PRINT BUFFER IN USEÉÍÑv(*„k"ˆk*†k"Šk*}kí[k"}k*yk"k!"kÍùo PRINT BUFFER ERASEDÉÅO:ƒk·yÁÉÍVmÍùo PRINTER AT TOP OF FORMÉ!ö}ÅÕ_~#þ(	»(>í±ñ·{ÑÁÉÕå¯2›|:‹|!Œ}G##ü^#Vkb1wÕé:›|·Ì;wáÑÉ‹|!Œ|í°¯Éãõå‹|í°á¯í±ÍiwñãÉÍIwÉ:‹|¢|þ€(<2¢|*£|ñõw#"£|Ídw(:¡|<2¡|ñáÉõÅÕåÍo:¢|·(=2¢|:¥|Íÿn¥|!¦|í°*£|+"£|áÑÁñÉõ~#þ(ÍÆoõñÉõÅåGÍdwx("!?}Íüv ><ÍÆoÍ¸o>>ÍÆoþ 8þ€8:žkÍdoáÁñÉãÍ¸oãÉÍ,p 	ÍIwÍoÉ_:Ÿk·È:’k» Í3pÍoÉ{ÍùvÀÍ¸oÍŠoÉå!™k¾áÉõÅÕå>0WÍhpº(ÍcpôºÌcpÍhp> Ícpy2 |ÍIwáÑÁñÉÍÆoÉÅ!Œkío#ûÁÉÍìn:%}·(.:&}þ+(þ-(	Í°pÉÍ°pÍ·pÍ›nÍ^w: |GÍùo ÷Í3pÉÍiwÉ>Ž2Æp>ž2ÆpŒk!k¯Ž'# ÷ÉÍùo ESC, L, F, C, P, X, Help:      ÍIwÉÍÖnÍÁwÍ,p Ã]qþL ÍIwFþF ÍIw;þX ÍIw)þH ÍIw%þC ÍIw	þP ÍIw ÍIwÍVoÉÍùo UN #":VTAB 14:HTAB 15:? z:VTAB 14:HTAB 20:? "Empty":GOTO 11301110CALL 299501120VTAB 10:HTAB 6:? "Block #":VTAB 10:HTAB 15:? z:VTAB 10:HTAB 20:? "Copied"1140IF j=255 THEN GOTO 12201150IF dn=2 THEN GOTO 12101160? CHR$(7):? CHR$(7)1170VTAB 31180? "Get DESTINATION "; d2$:?1190? "Put SOURCE in "; d1$1200VTAB 7:? "Press Return":INPUT sc$:VTAB 7:?:?1210NEXT j1220FOR i=1 TO 5:? CHR$(7); :FOR a=1 TO 5:NEXT:NEXT1230POKE 29968, 4:CALL 29967:FOR i=1 TO 120:NEXT1240SPEED =50:VTAB 22:HTAB 2:? "Another copy jusC:      É::}·ÊÏrÍÖnþ(+Í,p(&õ>þ(ÍAt>ÍAt*=}+"=}ñÍAtÍÆo>2†sÍiwÉÍIwÍVoÉÍùo PRESS ESC OR KEY TO DELETE     ÉÍÖnÍ,pÄâsÉÍùv(Íùo KEY NOT DEFINEDC+åÑ>í±å*}k·íB"}kÍ‰wáÅÍftí°Á*{k·íB"{kÍùo KEY DEFINITION DELETEDÉõÅÕ*=}Íft	åÑ+í¸íS=}Íowí[{kíS{kÑÁñÉõÕåë*{k·íRåÁáÑñÉÍ`vÀÍùo EXITING AUTO-AIDS...ÉÍùo ARE YOU SURE? ÉÍÖnÍVoÍÁwþYÈÍIwÉÍùo REM CHANGE LOMEM TO FREE UP    MEMORY. NORMAL IS USUALLY      LOMEM:27407>ÍdoÉÍslÉíKškÍÊwÍVoÉíKœkó@ÍÅnÍuÍ›n8øÉÍùo NEXT LINE #: >ÍÌuÉŒkÍÚuÀÍIwÉÍùo LINE INCR*ˆkÍ°zÍ!zÍÈz*ˆkÍåm"ˆk*k+"kwÍow*k#"kÍ‰wÉõÅÕåíKky°(?íCkÍÑv *yk+~ÍÀl]T+y°(í¸*k#"kÍ|w*ŠkÍåm"ŠkÍ°zÍzÍÈzÍÀlÍ‰wáÑÁñÉ#Õí[†k·åíRá *„kÑÉõ>=2úm Í•m>2úmñÉ¿7ÉÅÕåÝåýåÍo>·(=2n-:¢|·(ÍŠo":‡|·(Í,oÍdw(ÍwÍ›n 0ÍÿnÍÿoÍoÍìnÔømýáÝááÑÁÉÅÕå!%}~·(=wO#~õ]T#¯¹(í°ñ¿7áÑÁÉõÅÕåO!%}~þ04^qáÑÁñÉÍanØÍ“lÀÐÍänÅÕå_:“k·(ÍÅn:˜k·{ÄÁw¿7áÑÁÉ!”kÅÿí³ÁÍåw~ÓÿÉÍ›n 0ÉÍiwãáÉõÍl ûñÉõÅÕåÍŸn 0ÍƒnáÑÁñÉåo&"…|áÉõ¯2…|2†|ñÉå*…|¯¼(}þ >
2n}¿7¯áÉõå*‡|}·(|þ > >Íÿn% 
&-:¡|=2¡|"‡|áñÉõ:¡|2‡|>2ˆ|ñÉåõ:·É>2›|Éå*}k+"}kÍ‰wáÉå*}k#"}kÍ‰wáÉõÅÕå*}k·íR8}OíC:}ÍÑvy(*ˆkí[Šk¯íR(=2<}áÑÁñÉþaØþ{ÐÖ ÉõÕ{² ûÍìn:%}· y° êÑñÉõ>¯2ÚwÍÊw>·2ÚwñÉ!k~þ0.‡o&,x(xÕ^#Vzæ€2¦zËºÕ!k#å~_#V#N#F#áÍ°zÉÍÈzÉdxžxÀxÃxÊxáxÍxyyy:yRyWymyÌyÌùÐyÐùÔyÔùÚyÚùòyzú€zzú!…xå*kåÝ*ký*k*kåñíKkí[k*kÉ"kíSkíCkõá"ký"kÝ"kÉK#6 ÅåÍKüáÁ 0
6ÿ#wÍ¨ü ûÉé äÉÃfüCÿ#í³ÉÃSýÍžzÈ*jýÍùxë&iÃýÍžzÈÅÕÍÍxÑÁ*lýÍùxxÃ&ýË#Ë#Ë#ÉöðOõÅÕÍ ýÑÁñÉ:Ôzî@2ÔzéÍžzÀæ*lýõÕÍ&ýÑñ*lýÃ&ýÍžzÈ*jý>ðÕÍ&ýÑ*lý¯Ã&ýæÍžzÈÍ®y~ËC *ˆkÍ°zÍ!zÍÈz*ˆkÍåm"ˆk*k+"kwÍow*k#"kÍ‰wÉõÅÕåíKky°(?íCkÍÑv *yk+~ÍÀl]T+y°(í¸*k#"kÍ|w*ŠkÍåm"ŠkÍ°zÍzÍÈzÍÀlÍ‰wáÑÁñÉ#Õí[†k·åíRá *„kÑÉõ>=2úm Í•m>2úmñÉ¿7ÉÅÕåÝåýåÍo>·(=2n-:¢|·(ÍŠo":‡|·(Í,oÍdw(ÍwÍ›n 0ÍÿnÍÿoÍoÍìnÔømýáÝááÑÁÉÅÕå!%}~·(=wO#~õ]T#¯¹(í°ñ¿7áÑÁÉõÅÕåO!%}~þ04^qáÑÁñÉÍanØÍ“lÀÐÍänÅÕå_:“k·(ÍÅn:˜k·{ÄÁw¿7áÑÁÉ!”kÅÿí³ÁÍåw~ÓÿÉÍ›n 0ÉÍiwãáÉõÍl ûñÉõÅÕåÍŸn 0ÍƒnáÑÁñÉåo&"…|áÉõ¯2…|2†|ñÉå*…|¯¼(}þ >
2n}¿7¯áÉõå*‡|}·(|þ > >Íÿn% 
&-:¡|=2¡|"‡|áñÉõ:¡|2‡|>2ˆ|ñÉåõ:ERMANENT EXITÉÍùo PRESS ESCAPE KEY TO END CMDÉÍIw-./0+ÉÍùo V = VIEW A KEY'S DEFINITIONÉÍùo A = ADD A KEY DEFINITIONÉÍùo D = DELETE A KEY DEFINITIONÉÍùo O = KEY DEF'S ON/OFFÉÍIw234 ÉÍùo E = ERASE PRINT BUFFERÉÍùo T = SET PRINTER TOP OF FORMÉÍùo F = PRINT A FORM FEEDÉ¥|³þCRBSBEL	TAB
LFVTFFESC^NKNOWN COMMAND - TRY HelpÉ>ÿ®w(>N>FÍÆoÍÆoÉ!˜kÍùo CAPS LOCK OØ!ŸkÍùo KEY DEFS OÄ! kÍùo PRINT BUFFER O¬Íùo ESC, View, Add, Del, O, Help:  ÍIwÉÍÖnÍÁwþV 
ÍIw<þA ÍIw1þD 
ÍIw#þO ÍIw
þH ÍIw,Í,p(ÍIwÍVoÉÍùo PRESS ESC OR FUNC KEY TO VIEW  ÉÍÖnÍ,p(Íùv Í¸oÉÍùo KEY NOT DEFINEDÉ:;}·(+Íùo ESC OR KEY TO BE DEFINED       ÍIwÍùo BUFFER FULLÍIwÉÍÖnÍ,p(Uþ(Íùv(,2†s+"=}ÍIwBÍùo ILLEGAL KEY TO DEFINE Íùo KEY ALREADY DEFINED ÍIwÉÍIwÍVoÉÍùo KEY DEFINITION, THEN ESlkÃõwÃ¦kAAö}ô~:~ºô~ÿÿ‘ÀDÐßÿÿÿÿA:vk·Ê·kÍIwÃ2l*©ü"‘l!n"©ü*Lü"”l!n"Lü*gü"—l!™l"gü/2vkÍVmÍ‰w>
2nÍIwÍùo COPYRIGHT 1984, FUTUREVISION  INC.     ALL RIGHTS RESERVED. ÉÍùo PRESS ESCAPE KEY TO DISPLAY     LIST OF AUTO-AIDS COMMANDSÉ:vk·(*‘l"©ü*”l"Lü*—l"gü¯2vkÉÃÃÃÕå_: k·(:<}· 
{Í•m:<}·({Ícm{ÍÀl¿áÑÉõÕå_!‰|:¡k· {Í4mE>» 
Í,m~þ ø6{þ(þ
(:Š|·Äm~þ :£k¾8Í,mõ{Í4m:¢k<–W:¤kº8Í,m= úáÑñÉ:¥k·Èõ> Í4mñ= öÉõ>
Í4mñÉõÕ_Í–l û{þ
 
4:¢k¾ÜVmþ(¯2Š|ÑñÉõ>2‰|>Í4mñÉÍÑv(æ2kÉÍžzÈÅÍ®yÁÅyæËC O~ËC ææð±w#ð>Ë;Ë:Í2ý!ký!Í,ýÁíCkÉÕ>Ë;Ë:Í2ý##ý!Í/ý!kÑËBÈ!kÉ>>>
>Í2ý##ý!Í§zÊ/ýÃ,ýæG:býæü°2býÃyZQHÅýá!kÛëyÍ&z2kÉõ¯2¦zñÍ&zÉõ>óÅÕÝåONÍ§z(qx2zz>	2wzË|(Ívz*>2wzÝ!öÿÝ9ÝùÝåÑÅå!vz
í°áÁhzÕÝéÝ!
Ý9ÝùyÝáÑÁÉ>Ó>ÓÉ!ÿÿÍz/_Í!zÍz» {/Í!zz2kÉå*aýËMáÉÅG:¦z·xÁÉõÅó:bý2ÔzË¯ÍyGÛ¿xÍyÁñÉõÅ:ÔzÍyûÁñÉÍIw&'()*+ÉÍùo L = CHANGE NEXT LINE NUMBERÉÍùo F = CHANGE FUNCTION KEY DEFÉÍùo C = CAPS LOCK ON/OFFÉÍùo P = PRINT BUFFER CMDSÉÍùo X = P¢|þ€(<2¢|*£|ñõw#"£|Ídw(:¡|<2¡|ñáÉõÅÕåÍo:¢|·(=2¢|:¥|Íÿn¥|!¦|í°*£|+"£|áÑÁñÉõ~#þ(ÍÆoõñÉõÅåGÍdwx("!?}Íüv ><ÍÆoÍ¸o>>ÍÆoþ 8þ€8:žkÍdoáÁñÉãÍ¸oãÉÍ,p 	ÍIwÍoÉ_:Ÿk·È:’k» Í3pÍoÉ{ÍùvÀÍ¸oÍŠoÉå!™k¾áÉõÅÕå>0WÍhpº(ÍcpôºÌcpÍhp> Ícpy2 |ÍIwáÑÁñÉÍÆoÉÅ!Œkío#ûÁÉÍìn:%}·(.:&}þ+(þ-(	Í°pÉÍ°pÍ·pÍ›nÍ^w: |GÍùo ÷Í3pÉÍiwÉ>Ž2Æp>ž2ÆpŒk!k¯Ž'# ÷ÉÍùo ESC, L, F, C, P, X, Help:      ÍIwÉÍÖnÍÁwÍ,p Ã]qþL ÍIwFþF ÍIw;þX ÍIw)þH ÍIw%þC ÍIw	þP ÍIw ÍIwÍVoÉÍùo UN^O^P^SDEL€HOME U^¡R^¢D^£L^3luu"uupÏpùpaq”q©qÕqÿqSrxržrærLsqs³sØsvt”t¨t¹tu1uIuZupu~u•uñuvnvŽvÚvÕzçz{){C{^{v{—{§{È{æ{|!|-|I|j|•PR#1PR#0 ”—“LOAD ›SAVE ’CATALOGšCATALOG,D–TEXTñFLKGJDFLKGJLKDJFGLKJFKJLKJFKLJKJKJROITYOIURTYIOUTRYODFKHGDFKGDJGHKDFHGKJDHFGJHDGKJHDKGJHSDKFJDFKHGDFKGDJGHKDFKHGDFKGDJGHKDFHGKJDHFGJHDGKJHDKGJHSDKFJDFKHGDFKGDJGHKTUYOIRUTYOIRUGKJHDFGJE NEXT LINE NUMBERÉÍùo F = CHANGE FUNCTION KEY DEFÉÍùo C = CAPS LOCK ON/OFFÉÍùo P = PRINT BUFFER CMDSÉÍùo X = PC:      É::}·ÊÏrÍÖnþ(+Í,p(&õ>þ(ÍAt>ÍAt*=}+"=}ñÍAtÍÆo>2†sÍiwÉÍIwÍVoÉÍùo PRESS ESC OR KEY TO DELETE     ÉÍÖnÍ,pÄâsÉÍùv(Íùo KEY NOT DEFINEDC+åÑ>í±å*}k·íB"}kÍ‰wáÅÍftí°Á*{k·íB"{kÍùo KEY DEFINITION DELETEDÉõÅÕ*=}Íft	åÑ+í¸íS=}Íowí[{kíS{kÑÁñÉõÕåë*{k·íRåÁáÑñÉÍ`vÀÍùo EXITING AUTO-AIDS...ÉÍùo ARE YOU SURE? ÉÍÖnÍVoÍÁwþYÈÍIwÉÍùo REM CHANGE LOMEM TO FREE UP    MEMORY. NORMAL IS USUALLY      LOMEM:27407>ÍdoÉÍslÉíKškÍÊwÍVoÉíKœkó@ÍÅnÍuÍ›n8øÉÍùo NEXT LINE #: >ÍÌuÉŒkÍÚuÀÍIwÉÍùo LINE INCR^O^P^SDEL€HOME U^¡R^¢D^£L^3luu"uupÏpùpaq”q©qÕqÿqSrxržrærLsqs³sØsvt”t¨t¹tu1uIuZupu~u•uñuvnvŽvÚvÕzçz{){C{^{v{—{§{È{æ{|!|-|I|j|•PR#1PR#0 ”—“LOAD ›SAVE ’CATALOGšCATALOG,D–TEXTñFLKGJDFLKGJLKDJFGLKJFKJLKJFKLJKJKJROITYOIURTYIOUTRYODFKHGDFKGDJGHKDFHGKJDHFGJHDGKJHDKGJHSDKFJDFKHGDFKGDJGHKDFKHGDFKGDJGHKDFHGKJDHFGJHDGKJHDKGJHSDKFJDFKHGDFKGDJGHKTUYOIRUTYOIRUGKJHDFGJE NEXT LINE NUMBERÉÍùo F = CHANGE FUNCTION KEY DEFÉÍùo C = CAPS LOCK ON/OFFÉÍùo P = PRINT BUFFER CMDSÉÍùo X = P·É>2›|Éå*}k+"}kÍ‰wáÉå*}k#"}kÍ‰wáÉõÅÕå*}k·íR8}OíC:}ÍÑvy(*ˆkí[Šk¯íR(=2<}áÑÁñÉþaØþ{ÐÖ ÉõÕ{² ûÍìn:%}· y° êÑñÉõ>¯2ÚwÍÊw>·2ÚwñÉ!k~þ0.‡o&,x(xÕ^#Vzæ€2¦zËºÕ!k#å~_#V#N#F#áÍ°zÉÍÈzÉdxžxÀxÃxÊxáxÍxyyy:yRyWymyÌyÌùÐyÐùÔyÔùÚyÚùòyzú€zzú!…xå*kåÝ*ký*k*kåñíKkí[k*kÉ"kíSkíCkõá"ký"kÝ"kÉK#6 ÅåÍKüáÁ 0
6ÿ#wÍ¨ü ûÉé äÉÃfüCÿ#í³ÉÃSýÍžzÈ*jýÍùxë&iÃýÍžzÈÅÕÍÍxÑÁ*lýÍùxxÃ&ýË#Ë#Ë#ÉöðOõÅÕÍ ýÑÁñÉ:Ôzî@2ÔzéÍžzÀæ*lýõÕÍ&ýÑñ*lýÃ&ýÍžzÈ*jý>ðÕÍ&ýÑ*lý¯Ã&ýæÍžzÈÍ®y~ËC *ˆkÍ„zÍõyÍœz*ˆkÍåm"ˆk*k+"kwÍCw*k#"kÍ]wÉõÅÕåíKky°(?íCkÍ¥v *yk+~ÍÀl]T+y°(í¸*k#"kÍPw*ŠkÍåm"ŠkÍ„zÍëyÍœzÍÀlÍ]wáÑÁñÉ#Õí[†k·åíRá *„kÑÉõ>=2úm Í•m>2úmñÉ¿7ÉÅÕåÝåýåÍo>·(=2n-:Æz·(ÍŠo":«z·(Í,oÍ8w(ÍêvÍ›n 0ÍÿnÍÿoÍoÍìnÔømýáÝááÑÁÉÅÕå!I{~·(=wO#~õ]T#¯¹(í°ñ¿7áÑÁÉõÅÕåO!I{~þ04^qáÑÁñÉÍanØÍ“lÀÐÍänÅÕå_:“k·(ÍÅn:˜k·{Ä•w¿7áÑÁÉ!”kÅÿí³ÁÍ¹w~ÓÿÉÍ›n 0ÉÍ=wãáÉõÍl ûñÉõÅÕåÍŸn 0ÍƒnáÑÁñÉåo&"©záÉõ¯2©z2ªzñÉå*©z¯¼(}þ >
2n}¿7¯áÉõå*«z}·(|þ > >Íÿn% 
&-:Åz=2Åz"«záñÉõ:Åz2«z>2¬zñÉåõ:ERMANENT EXITÉÍùo PRESS ESCAPE KEY TO END CMDÉÍIw-./0+ÉÍùo V = VIEW A KEY'S DEFINITIONÉÍùo A = ADD A KEY DEFINITIONÉÍùo D = DELETE A KEY DEFINITIONÉÍùo O = KEY DEF'S ON/OFFÉÍIw234 ÉÍùo E = ERASE PRINT BUFFERÉÍùo T = SET PRINTER TOP OF FORMÉÍùo F = PRINT A FORM FEEDÉ¥|³þCRBSBEL	TAB
LFVTFFESC^N: >ÍÌuÉkÍÚuÀÍIwÉÍùo VALUE NOT CHANGEDÉÍÖnþ(þ08þ:0Ído!œ|ío# ú5 ÍVoÉ·úÉuþ 8Ído>ÍdoÃiw2Ÿ|¯2œ|2|2ž|ÉÅå:œ|*|´µ(!œ|í°áÁÉÍùo ESC, E, T, F, Help :           ÍIw!ÉÍÖnÍÁwÍ,pÊ\vþE ÍIw#)þT ÍIw$þF >ÍfüþH ÍIw1ÍIw ÍVoÉíKky°ÈÍIw"ÉÍùoCAN'T - PRINT BUFFER IN USEÉÍÑv(*„k"ˆk*†k"Šk*}kí[k"}k*yk"k!"kÍùo PRINT BUFFER ERASEDÉÅO:ƒk·yÁÉÍVmÍùo PRINTER AT TOP OF FORMÉ!ö}ÅÕ_~#þ(	»(>í±ñ·{ÑÁÉÕå¯2›|:‹|!Œ}G##ü^#Vkb1wÕé:›|·Ì;wáÑÉ‹|!Œ|í°¯Éãõå‹|í°á¯í±ÍiwñãÉÍIwÉ:‹|lkÃÉwÃ¦kAAú{ô~>|¶ô~ÿÿ‘ÀDÐßÿÿÿÿA:vk·Ê·kÍwÃ2l*©ü"‘l!n"©ü*Lü"”l!n"Lü*gü"—l!™l"gü/2vkÍVmÍ]w>
2nÍwÍùo COPYRIGHT 1984, FUTUREVISION  INC.     ALL RIGHTS RESERVED. ÉÍùo PRESS ESCAPE KEY TO DISPLAY     LIST OF AUTO-AIDS COMMANDSÉ:vk·(*‘l"©ü*”l"Lü*—l"gü¯2vkÉÃÃÃÕå_: k·(:`{· 
{Í•m:`{·({Ícm{ÍÀl¿áÑÉõÕå_!­z:¡k· {Í4mE>» 
Í,m~þ ø6{þ(þ
(:®z·Äm~þ :£k¾8Í,mõ{Í4m:¢k<–W:¤kº8Í,m= úáÑñÉ:¥k·Èõ> Í4mñ= öÉõ>
Í4mñÉõÕ_Í–l û{þ
 
4:¢k¾ÜVmþ(¯2®zÑñÉõ>2­z>Í4mñÉÍ¥v(æ2kÉÍžzÈÅÍ®yÁÅyæËC O~ËC ææð±w#ð>Ë;Ë:Í2ý!ký!Í,ýÁíCkÉÕ>Ë;Ë:Í2ý##ý!Í/ý!kÑËBÈ!kÉ>>>
>Í2ý##ý!Í§zÊ/ýÃ,ýæG:býæü°2býÃyZQHÅýá!kÛëyÍ&z2kÉõ¯2¦zñÍ&zÉõ>óÅÕÝåONÍ§z(qx2zz>	2wzË|(Ívz*>2wzÝ!öÿÝ9ÝùÝåÑÅå!vz
í°áÁhzÕÝéÝ!
Ý9ÝùyÝáÑÁÉ>Ó>ÓÉ!ÿÿÍz/_Í!zÍz» {/Í!zz2kÉå*aýËMáÉÅG:¦z·xÁÉõÅó:bý2ÔzË¯ÍyGÛ¿xÍyÁñÉõÅ:ÔzÍyûÁñÉÍIw&'()*+ÉÍùo L = CHANGE NEXT LINE NUMBERÉÍùo F = CHANGE FUNCTION KEY DEFÉÍùo C = CAPS LOCK ON/OFFÉÍùo P = PRINT BUFFER CMDSÉÍùo X = PÆzþ€(<2Æz*Çzñõw#"ÇzÍ8w(:Åz<2ÅzñáÉõÅÕåÍo:Æz·(=2Æz:ÉzÍÿnÉz!Êzí°*Çz+"ÇzáÑÁñÉõ~#þ(ÍÆoõñÉõÅåGÍ8wx("!c{ÍÐv ><ÍÆoÍ¸o>>ÍÆoþ 8þ€8:žkÍdoáÁñÉãÍ¸oãÉÍ,p 	ÍwÍoÉ_:Ÿk·È:’k» Í3pÍoÉ{ÍÍvÀÍ¸oÍŠoÉå!™k¾áÉõÅÕå>0WÍhpº(ÍcpôºÌcpÍhp> Ícpy2ÄzÍwáÑÁñÉÍÆoÉÅ!Œkío#ûÁÉÍìn:I{·(.:J{þ+(þ-(	Í°pÉÍ°pÍ·pÍ›nÍ2w:ÄzGÍùo ÷Í3pÉÍ=wÉ>Ž2Æp>ž2ÆpŒk!k¯Ž'# ÷ÉÍùo ESC, L, F, C, P, X :           ÍwÉÍÖnÍ•wÍ,p ÃRqþL Íw;þF Íw0þX ÍwþC Íw	þP Íw ÍwÍVoÉÍùo UNKNOWN COMMAð>Ë;Ë:Í2ý!ký!Í,ýÁíCkÉÕ>Ë;Ë:Í2ý##ý!Í/ý!kÑËBÈ!kÉ>>>
>Í2ý##ý!Í{zÊ/ýÃ,ýæG:býæü°2býÃìxZQHÅýá!kÛëyÍúy2kÉõ¯2zzñÍúyÉõ>óÅÕÝåONÍ{z(qx2Nz>	2KzË|(ÍJz*>2KzÝ!öÿÝ9ÝùÝåÑÅå!Jz
í°áÁ<zÕÝéÝ!
Ý9ÝùyÝáÑÁÉ>Ó>ÓÉ!ÿÿÍëy/_ÍõyÍëy» {/Íõyz2kÉå*aýËMáÉÅG:zz·xÁÉõÅó:bý2¨zË¯ÍìxGÛ¿xÍìxÁñÉõÅ:¨zÍìxûÁñÉÉzñáCR(Í t>Í t*a{+"a{ñÍ tÍÆo>2esÍ=wÉÍwÍVoÉÍùo PRESS ESC OR KEY TO DELETE     ÉÍÖnÍ,pÄÁsÉÍÍv(Íùo KEY NOT DEFINEDC+åÑ>í±å*}k·íB"}kÍ]wáÅÍEtí°Á*{k·íB"{kÍùo KEY DEFINITION DELETEDÉõÅÕ*a{ÍEt	åÑ+í¸íSa{ÍCwí[{kíS{kÑÁñÉõÕåë*{k·íRåÁáÑñÉÍ4vÀÍùo EXITING AUTO-AIDS...ÉÍùo ARE YOU SURE? ÉÍÖnÍVoÍ•wþYÈÍwÉÍùo REM CHANGE LOMEM TO FREE UP    MEMORY. NORMAL IS USUALLY      LOMEM:27407>ÍdoÉÍslÉíKškÍžwÍVoÉíKœkó@ÍÅnÍûtÍ›n8øÉÍùo NEXT LINE #: >Í«uÉŒkÍ¹uÀÍwÉÍùo LINE INCR: >Í«uÉkÍ¹uÀÍwÉÍùo VALUE ^O^P^SDEL€HOME U^¡R^¢D^£L^3luu"uupÏpùpaq”q©qÕqÿqSrxržrærLsqs³sØsvt”t¨t¹tu1uIuZupu~u•uñuvnvŽvÚvÕzçz{){C{^{v{—{§{È{æ{|!|-|I|j|•PR#1PR#0 ”—“LOAD ›SAVE ’CATALOGšCATALOG,D–TEXTñFLKGJDFLKGJLKDJFGLKJFKJLKJFKLJKJKJROITYOIURTYIOUTRYODFKHGDFKGDJGHKDFHGKJDHFGJHDGKJHDKGJHSDKFJDFKHGDFKGDJGHKDFKHGDFKGDJGHKDFHGKJDHFGJHDGKJHDKGJHSDKFJDFKHGDFKGDJGHKTUYOIRUTYOIRUGKJHDFGJáCR·íR8}OíC^{Í¥vy(*ˆkí[Šk¯íR(=2`{áÑÁñÉþaØþ{ÐÖ ÉõÕ{² ûÍìn:I{· y° êÑñÉõ>¯2®wÍžw>·2®wñÉ!k~þ0.‡o&xüwÕ^#Vzæ€2zzËºÕ!k#å~_#V#N#F#áÍ„zÉÍœzÉ8xrx”x—xžxµx¡xÕxðxäxy&y+yAy y ù¤y¤ù¨y¨ù®y®ùÆyÕyÕùTzâyâù!Yxå*kåÝ*ký*k*kåñíKkí[k*kÉ"kíSkíCkõá"ký"kÝ"kÉK#6 ÅåÍKüáÁ 0
6ÿ#wÍ¨ü ûÉé äÉÃfüCÿ#í³ÉÃSýÍrzÈ*jýÍÍxë&iÃýÍrzÈÅÕÍ¡xÑÁ*lýÍÍxxÃ&ýË#Ë#Ë#ÉöðOõÅÕÍ ýÑÁñÉ:¨zî@2¨zéÍrzÀæ*lýõÕÍ&ýÑñ*lýÃ&ýÍrzÈ*jý>ðÕÍ&ýÑ*lý¯Ã&ýæÍrzÈÍ‚y~ËC æ2kÉÍrzÈÅÍ‚yÁÅyæËC O~ËC ææð±w#NDÉ>ÿ®w(>N>FÍÆoÍÆoÉ!˜kÍùo CAPS LOCK OØ!ŸkÍùo KEY DEFS OÄ! kÍùo PRINT BUFFER O¬Íùo ESC, View, Add, Delete, O :    ÍwÉÍÖnÍ•wþV 
Íw1þA Íw&þD 
ÍwþO Íw
Í,p(ÍwÍVoÉÍùo PRESS ESC OR FUNC KEY TO VIEW  ÉÍÖnÍ,p(ÍÍv Í¸oÉÍùo KEY NOT DEFINEDÉ:_{·(+Íùo ESC OR KEY TO BE DEFINED       ÍwÍùo BUFFER FULLÍwÉÍÖnÍ,p(Uþ(ÍÍv(,2es+"a{ÍwBÍùo ILLEGAL KEY TO DEFINE Íùo KEY ALREADY DEFINED ÍwÉÍwÍVoÉÍùo KEY DEFINITION, THEN ESC:      É:^{·Ê®rÍÖnþ(+Í,p(&õ>þBSBEL	TAB
LFVTFFESC^N^O^P^SDEL€HOME U^¡R^¢D^£L^3lðtûtuupÏpùpVq~q“q¿qéq2rWr}rÅr+sPs’s·sUtst‡t˜tìtu(u9uOu]utuÐuúuBvbv®v•PR#1PR#0 ”—“LOAD ›SAVE ’CATALOGšCATALOG,D–TEXT9T BUFFERÉÍùo T = SET PRINTER TOP OF FORMÉÍùo F = PRINT A FORM FEEDÉÉÍÖnÍÁwÍ,pÊ\vþ¥|fÿCRBSBEL	TAB
LFVTFFESC^NNOT CHANGEDÉÍÖnþ(þ08þ:0Ído!Àzío# ú5 ÍVoÉ·ú¨uþ 8Ído>ÍdoÃ=w2Ãz¯2Àz2Áz2ÂzÉÅå:Àz*Áz´µ(!Àzí°áÁÉÍùo ESC, E, T, F :                 Íw!ÉÍÖnÍ•wÍ,pÊ0vþE Íw#þT Íw$þF >ÍfüÍw ÍVoÉíKky°ÈÍw"ÉÍùoCAN'T - PRINT BUFFER IN USEÉÍ¥v(*„k"ˆk*†k"Šk*}kí[k"}k*yk"k!"kÍùo PRINT BUFFER ERASEDÉÅO:ƒk·yÁÉÍVmÍùo PRINTER AT TOP OF FORMÉ!ú{ÅÕ_~#þ(	»(>í±ñ·{ÑÁÉÕå¯2¿z:¯z!°{G##ü^#VkbwÕé:¿z·ÌwáÑÉ¯z!°zí°¯Éãõå¯zí°á¯í±Í=wñãÉÍwÉ:¯z·É>2¿zÉå*}k+"}kÍ]wáÉå*}k#"}kÍ]wáÉõÅÕå*}klkÃ­kÉFVCopyright 1984, FutureVision Inc, All Rights Reserved.!k~þ0.‡o&äkàkÕ^#Vzæ€2^nËºÕ!k#å~_#V#N#F#áÍhnÉÍ€nÉlVlxl{l‚l™l…l¹lÔlÈlòl
mm%m„m„íˆmˆíŒmŒí’m’íªm¹m¹í8nÆmÆí!=lå*kåÝ*ký*k*kåñíKkí[k*kÉ"kíSkíCkõá"ký"kÝ"kÉK#6 ÅåÍKüáÁ 0
6ÿ#wÍ¨ü ûÉé äÉÃfüCÿ#í³ÉÃSýÍVnÈ*jýÍ±lë&iÃýÍVnÈÅÕÍ…lÑÁ*lýÍ±lxÃ&ýË#Ë#Ë#ÉöðOõÅÕÍ ýÑÁñÉ:Œnî@2ŒnéÍVnÀæ*lýõÕÍ&ýÑñ*lýÃ&ýÍVnÈ*jý>ðÕÍ&ýÑ*lý¯Ã&ýæÍVnÈÍfm~ËC æ2kÉÍVnÈÅÍfmÁÅyæËC O~ËC ææð±w#ð>Ë;Ë:Í2ý!ký!Í,ýÁíCkÉÕ   EXIT AA60REM       65REM        WAIT TILL AA INITED FLAG GOES TO ZERO70IF PEEK(27510)<>0 THEN GOTO 7075REM       80REM        85REM         90REM         95REM         100REM          INSTALL A NEW COPY OF AUTOAID"101REM         105REM          RESERVE SOME LOW MEMORY FOR THE AA PROGRAM110LOMEM :32500115REM         120REM          POKE SOME 'RETURN' INSTRUCTIONS IN CASE BLOAD FAILS125POKE 27500, 201:POKE 27504, 201130REM         135REM          COPY AA INTO MEMORY140? CHR$(4); "BLOAD MY3HOME5? "INSTALL AUTOAID? "; 6GET k$7?8IF k$<>"y" AND k$<>"Y" THEN END10REM          15REM          JUST TO BE ON THE SAFE SIDE, FIRST MAKE SURE AUTOAID ISN'T ALREADY RUNNING20IF PEEK(27500)<>195 THEN GOTO 10025IF PEEK(27504)<>195 THEN GOTO 10030IF PEEK(27508)<>65 THEN GOTO 10035IF PEEK(27509)<>65 THEN GOTO 10040IF PEEK(27510)=0 THEN GOTO 100:REM          AA IN MEM BUT NOT RUNNING45REM       50REM        AA IS IN MEMORY AND EXECUTING. EXIT CURRENT AA BEFORE LOADING NEW ONE55CALL 27504:REM      TO e2010HPLOT a(x), b(x) TO c(x), d(x)2020NEXT x2030FOR x=1 TO 4000:NEXT x2040HGR2:HCOLOR =142050RETURNAA"145REM          150REM          ASSUME NO 64K EXPANSION RAM155POKE 27523, 0160REM          165REM          TEST FOR 64 EXP RAM CARD170POKE 27407, 25175POKE 27408, 0180CALL 27500185REM         190REM          IF 64K IN SYSTEM THEN USE IT FOR THE PRINT BUFFER195POKE 27523, PEEK(27408)200REM          205REM          START 'MYAA' RUNNING210CALL 27504215NEWN MEM BUT NOT RUNNING45REM       50REM        AA IS IN MEMORY AND EXECUTING. EXIT CURRENT AA BEFORE LOADING NEW ONE55CALL 27504:REM     >Ë;Ë:Í2ý##ý!Í/ý!kÑËBÈ!kÉ>>>
>Í2ý##ý!Í_nÊ/ýÃ,ýæG:býæü°2býÃÐlZQHÅýá!kÛëyÍÞm2kÉõ¯2^nñÍÞmÉõ>óÅÕÝåONÍ_n(qx22n>	2/nË|(Í.n*>2/nÝ!öÿÝ9ÝùÝåÑÅå!.n
í°áÁ nÕÝéÝ!
Ý9ÝùyÝáÑÁÉ>Ó>ÓÉ!ÿÿÍÏm/_ÍÙmÍÏm» {/ÍÙmz2kÉå*aýËMáÉÅG:^n·xÁÉõÅó:bý2ŒnË¯ÍÐlGÛ¿xÍÐlÁñÉõÅ:ŒnÍÐlûÁñÉ–8ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0 i%=(column-1)-(i%10HGR220HCOLOR =930DIM a(238), b(238), c(238), d(238)140? CHR$(4); "open LOGO"150? CHR$(4); "read LOGO"160FOR x=1 TO 238170INPUT a(x), b(x), c(x), d(x)180NEXT x190?200? CHR$(4); "close LOGO"210 s=1: e=146220GOSUB 2000230 s=147: e=188240GOSUB 2000250FOR x=189 TO 238255HCOLOR =3260 e=a(x)+5: f=b(x)+5270 g=c(x)+5: h=d(x)+5280HPLOT a(x), b(x) TO c(x), d(x)290HPLOT a(x), b(x) TO e, f300HPLOT c(x), d(x) TO g, h305HCOLOR =14310HPLOT e, f TO g, h320NEXT x330? CHR$(4); "run Start"2000FOR x=s   EXIT AA60REM       65REM        WAIT TILL AA INITED FLAG GOES TO ZERO70IF PEEK(27510)<>0 THEN GOTO 7075REM       80REM        85REM         90REM         95REM         100REM          INSTALL A NEW COPY OF AUTOAID"101REM         105REM          RESERVE SOME LOW MEMORY FOR THE AA PROGRAM110LOMEM :32500115REM         120REM          POKE SOME 'RETURN' INSTRUCTIONS IN CASE BLOAD FAILS125POKE 27500, 201:POKE 27504, 201130REM         135REM          COPY AA INTO MEMORY140? CHR$(4); "BLOAD MYATA                   0,40,15,45,10148DATA                   0,53,17,63,17    150DATA                   0,63,17,63,27    152DATA                   0,63,27,53,27     154DATA                   0,53,27,53,17   160REM                  ******A******162DATA                   0,80,10,95,10164DATA                   0,95,10,105,35   166DATA                   0,105,35,95,35168DATA                   0,95,35,90,25170DATA                    0,90,25,85,25172DATA                   0,85,25,80,35174DATA         165251704017040175251752518525185251855018550177501775017735177351735017350167501675016235162351625016250152501555015530155301503015030155253585358035802580258025902590359035903510035100251002510025954580451004510055100658065100651006595858585808580758075807510075100851008510085959580951009510095801058095901051009590125801208512580130851208512010013085130100135,35200DATA                     0,135,35,127,35202DATA                      0,127,35,127,20204DATA                     0,127,20,123,35206DATA                       0,123,35,117,35208DATA                    0,117,35,112,20210DATA                   0,112,20,112,35212DATA                    0,112,35,102,35   214DATA                    0,105,35,105,15216DATA                   0,105,15,100,15218DATA                   0,100,15,105,10220DATA                  5,00,00,00,003101? "   SLICK AS SHIT SOFTW10801308013070130701307011090110901309013090125100110901109512090120110110110130110130110125115110105110120110120130120130125120125120130130130110130130130130130125145110140115145110150115140130140115150130150115140120150120140115140120150115150120160110160130160130160125160110170110170110170120170120160120165120170130170130165120180110180130180130180125180110190110180120185120165258025802590509050805080507540754070407040655065505550555065306530603060306525703573307330753575357035952511525115251203012030120451204511550115509550955095309530903090309525103321133211332113421134210342103421033213025145251452515550155501455014550140401404013540135401305013050120501205013030130301253012530130251373013535135351403514035137301552516525          0,80,35,70,35176DATA                   0,70,35,80,15178DATA                   0,80,15,75,15180DATA                   0,75,15,80,10182DATA                   0,87,15,85,20184DATA                   0,85,20,90,20    186DATA                   0,90,20,87,15188REM                  ******M******190DATA                    0,105,10,115,10192DATA                    0,115,10,120,25194DATA                    0,120,25,125,10196DATA                   0,125,10,135,10198DATA                   0,135,10,12090130901201001209513010013095150851508015080140801408014090140901509015090150100150100140100140100140951808518080180801708017080170901709018090180901801001801001701001701001709519080190100190100190952008020010020010020095200901909021080210100210100210952258022510022510022595220802308060115601106011050110501105012050120601206012060130601305013050130501257011080110801ARE   ":FOR x=1 TO 2000:NEXT:HOME3110? "          Presents           ":FOR x=1 TO 1000:NEXT:HOME3120? "      THE MASTER MENU    "3990HTAB 14000? CHR$(4); "run Start"65535REM             Another great program from the Slick As Shit Software Co.     0,90,20,87,15188REM                  ******M******190DATA                    0,105,10,115,10192DATA                    0,115,10,120,25194DATA                    0,120,25,125,10196DATA                   0,125,10,135,10198DATA                   0,135,10,8013019013050805010050100509550806080608060906090509070807010070100709570808080808080908090709075908010080100759010080908090809010090909590901001001001208512080120801108011080110901109012090120901201001201001101001101001109514080130801308013010013090135901301001401001501001508015080160100160100160801608016085165801758017080170100170100170951758017080190851908019SpecDumpATØ[0ScrnSizeA·Ø]uWStartAõ:pB·Ø^zWcartcopy2A·Øe«WtapeeditAB·Øi:WmultigameA·ØlÁWMYAAHõ:pB·ØqWAABINHLPHB·ØvWAABINHPHB·Ø{WFVBINHPHB·Ø€íWAAHelloAB·ØuWMENUAÿÿÿÿÿØƒnWLOGOA LEFTØ†BLOCKS LEFTŠWHELLOAõ:pB·†`WEBUHS LEFT‰BLOCKS LEFT‹17575175851758516585165751659517085175958512590130901309512585125851459512595145115125105125105125105145105135110135105145115145125125125145125125135145135125135145145125145145145145155145155145155125120901201001201001101001101001109514080130801308013010013090135901301001401001501001508015080160100160100160801608016085165801758017080170100170100170951758017080190851908019’ŸŽ’¿¡²ßŸ’Ÿ’¿¯²¿ 
²¿¯²Ÿ‰’Ÿ’¿£²ŸŽ’ŸŽ’¿¦²ŸŽ’Ÿ’¿¯²Ÿ‰’¿¤²ŸŽ’¿ 
²Ÿ†’Ÿƒ’Ÿ†’¿ 
²ß¿¤²ßÍÒ¿¯²ßÇÒŸ¿¦²ßÍÒ¿¡²¿®²ßÍ#Ò¿®²¿¡²ßÍ!ÒŸ€
’¿§²ßÍÒßÇÒŸ„’¿¯²ßÍÒŸ’¿ 
²ßÎÒŸ¿¤²ßÍ#ÒŸŽ’¿¯²ßÍÒßÇÒŸŽ’¿¤²ßÍÒŸ’¿ 
²ßÎÒŸŽ’¿£²ßÃ(ÒßÍ#ÒŸ’¿¦²ßÍ!ÒŸ‰’Ÿ’¿¯²ŸŽ’¿£²ßÍ#ÒßÃ(ÒŸŽ’¿¦²ßÂ-ÒßÍÒ¿¯²ßÇÒ¿§	²ßÎÒŸ¿¯²ßÍ#ÒßÃ(ÒŸƒ’¿¯²ßÂ-ÒßÍ/ÒŸ†’¿¤²ßË5ÒßÍ/ÒŸ†’ßÂ-ÒŸƒ’ßÍ/ÒŸ†10SPEED =5015HOME20? "..YOUR....."25?:?30? ".....ADAM....."35?:?40? ".......WILL....."45?:?50? ".........SELF-DESTRUCT...."55?:?60? "IN "; :FLASH:? "5"; :NORMAL:? " SECONDS!"65SPEED =25570FOR i=1 TO 300:NEXT i80TEXT85VTAB 8:HTAB 1290INVERSE:? "          "100? "          "110? " 55555555 "120? " 5        "130? " 5        "140? "          "150? "          "160? "          "170? "          "180? "          "190? "          "FTØP_SlickCopyA·ØQñWBasicCopyAØV0801808018080180901809019090190901901001901001801001801001809590251002595259545110251104512025120451103512035130251304513025140251303513535130451404565756595657570807575708075757595907585808580859590759580958095958585958511580115751157510575105751058510585115851158511595115951059510595105901257513575130751309515575145751457514595145851508514595155951657517575k!-k~#Æ(= >dÿ ý= øë<ÓÿæÉŸ¿ßŸ†’Ÿƒ’Ÿ†’ŸŽ’ŸŽ’Ÿ†’Ÿƒ’Ÿ†’Ÿ’ŸŽ’¿ßŸ†’Ÿƒ’Ÿ†’Ÿ’Ÿ’ŸŽ’ŸŽ’ŸŽ’Ÿ’Ÿ‰’¿ßŸ†’Ÿƒ’¿¯²Ÿ’¿§	²ŸŽ’¿¯²Ÿ’Ÿ‰’¿¦²ŸŽ’Ÿ’¿¤²Ÿ„’¿¯²¿§	²Ÿ’¿¯²Ÿ†’¿¯²Ÿ’¿¯²ßŸ’¿¯²¿§	²Ÿ’¿¯²Ÿ†’¿¯²Ÿ’¿¦²¿¯²ŸŽ’¿¤²Ÿ’Ÿ’¿¯²¿¦²ŸŽ’¿¡²ß¿¤²¿¯²Ÿ¿¤²Ÿ’ŸŽ’¿®²Ÿ‰’Ÿ’¿®²ŸŽ’ŸŽ’¿ 
²¿¤²¿ 
²ŸŽ’Ÿ‰’¿¯²Ÿ0801808018080180901809019090190901901001901001801001801001809590251002595259545110251104512025120451103512035130251304513025140251303513535130451404565756595657570807575708075757595907585808580859590759580958095958585958511580115751157510575105751058510585115851158511595115951059510595105901257513575130751309515575145751457514595145851508514595155951657517575’¿ßË5ÒßÃ<ÒŸŽ’¿ª
²ßÍ!ÒßÃ(ÒŸŽ’¿ 
²ßÃ(ÒßÂÒ¿ 
²ßÍ!Ò¿ª
²ßÍ#ÒŸ¿ 
²ßÃ(ÒßÂ-ÒŸ’¿¦²ßÍ/ÒßË5ÒŸ’¿¯²ßÃ<ÒßË5ÒŸ’ßÍ/ÒŸ’ßË5ÒŸ’¿ßÃ<ÒßÍ!ÒŸ’¿¯²ßÍ#ÒßÃ(ÒŸŽ’¿¤²ßÂ-ÒßÍ!Ò¿¤²ßÍ#Ò¿¯²ßÃ(ÒŸ¿¤²ßÂ-ÒßË2ÒŸŽ’¿¡²ßË5ÒßÃ<ÒŸŽ’¿¦²ßÍ!ÒŸŽ’¿¤²ßÍÒ¿¯²ŸŽ’¿¤²ßÂÒŸ’¿ 
²ßÍ!ÒŸ¿¡²ßÍ#ÒŸ!’¿¤²ßÃ(Ò¿¯²Ÿ‚’¿¤²ßÍ#ÒŸ’¿ 
²ßÍ!ÒŸ¿®²ßÍ/Ò¿¡²Ÿ!’¿¦²ßÂ-ÒŸ#’Ÿ!’ßÃ(ÒŸƒ(’¿¡²ßÍ/Ò¿®²Ÿ‚’¿®²ßÂ-Ò¿©²Ÿ’¿¡²ßÂÒ¿®²Ÿ‚’09HTAB 12510? "   111    "519HTAB 12520? "     1    "529HTAB 12530? "     1    "539HTAB 12540? "     1    "549HTAB 12550? "     1    "559HTAB 12560? "     1    "569HTAB 12570? "  1111111 "579HTAB 12580? "          "589HTAB 12590FOR i=1 TO 300:NEXT i:HOME:VTAB 8599HTAB 12600? " 00000000 "609HTAB 12610? " 0      0 "619HTAB 12620? " 0      0 "629HTAB 12630? " 0      0 "639HTAB 12640? " 0      0 "649HTAB 12650? " 0      0 "659HTAB 12660? " 00000000 "690FOR i=1 TO 300:NEXT i:HOME:10SPEED =5015HOME20? "..YOUR....."25?:?30? ".....ADAM....."35?:?40? ".......WILL....."45?:?50? ".........SELF-DESTRUCT...."55?:?60? "IN "; :FLASH:? "5"; :NORMAL:? " SECONDS!"65SPEED =25570FOR i=1 TO 300:NEXT i80TEXT85VTAB 8:HTAB 1290INVERSE:? "          "99HTAB 12100? "          "109HTAB 12110? " 55555555 "119HTAB 12120? " 5        "129HTAB 12130? " 5        "139HTAB 12140? " 55555555 "149HTAB 12150? "        5 "159HTAB 12160? "        5 "169HTAB 12170? " 55555555 "179HTAB 1209HTAB 12510? "   111    "519HTAB 12520? "     1    "529HTAB 12530? "     1    "539HTAB 12540? "     1    "549HTAB 12550? "     1    "559HTAB 12560? "     1    "569HTAB 12570? "  1111111 "579HTAB 12580? "          "589HTAB 12590FOR i=1 TO 300:NEXT i:HOME:VTAB 8599HTAB 12600? " 00000000 "609HTAB 12610? " 0      0 "619HTAB 12620? " 0      0 "629HTAB 12630? " 0      0 "639HTAB 12640? " 0      0 "649HTAB 12650? " 0      0 "659HTAB 12660? " 00000000 "690FOR i=1 TO 300:NEXT i:HOME:333333 "349HTAB 12350? "        3 "359HTAB 12360? "        3 "369HTAB 12370? " 33333333 "379HTAB 12380? "          "389HTAB 12390FOR i=1 TO 300:NEXT i:HOME:VTAB 8399HTAB 12400? "          "409HTAB 12410? " 22222222 "419HTAB 12420? "        2 "429HTAB 12430? "        2 "439HTAB 12440? " 22222222 "449HTAB 12450? " 2        "459HTAB 12460? " 2        "469HTAB 12470? " 22222222 "479HTAB 12480? "          "489HTAB 12490FOR i=1 TO 300:NEXT i:HOME:VTAB 8499HTAB 12500? "          "5¿®²ßÍ#Ò¿¡²Ÿ!’¿¦²ßÃ(Ò¿¯²Ÿ‚’¿¤²ßÍ#Ò¿¯²Ÿ#’¿¦²ßÂ-Ò¿¯²Ÿƒ(’¿¤²ßÍ/Ò¿ 
²Ÿ‚-’¿¯²ßË5Ò¿¯²Ÿƒ(’¿¨²ßÍ/Ò¿¡²Ÿ…’¿®²ßÂÒ¿®²Ÿ’¿¡²ßÍ!Ò¿¦²Ÿ‚’¿¯²ßÍ#Ò¿ª
²Ÿ’¿ 
²ßÍ!Ò¿¤²Ÿ!’¿¯²ßÃ(Ò¿¤²Ÿ#’¿ 
²ßÂ-Ò¿¯²Ÿƒ(’¿¯²ßÍ/Ò¿¡²Ÿ#’¿«²ßÂ-ÒŸ¿ßŸ¿ß ÍIw,Í,p(ÍIwÍVoÉÍùo PRESS ESC OR FUNC KEY TO VIEW  ÉÍÖnÍ,p(Íùv Í¸oÉÍùo KEY NOT DEFINEDÉ:;}·(+Íùo ES²ßÇÒ¿§	²ßÎÒŸ¿¯²ßÍ#ÒßÃ(ÒŸƒ’¿¯²ßÂ-ÒßÍ/ÒŸ†’¿¤²ßË5ÒßÍ/ÒŸ†’ßÂ-ÒŸƒ’ßÍ/ÒŸ†VTAB 8790NORMAL:? CHR$(4); "RUN Start"9HTAB 12360? "        3 "369HTAB 12370? " 33333333 "379HTAB 12380? "          "389HTAB 12390FOR i=1 TO 300:NEXT i:HOME:VTAB 8399HTAB 12400? "          "409HTAB 12410? " 22222222 "419HTAB 12420? "        2 "429HTAB 12430? "        2 "439HTAB 12440? " 22222222 "449HTAB 12450? " 2        "459HTAB 12460? " 2        "469HTAB 12470? " 22222222 "479HTAB 12480? "          "489HTAB 12490FOR i=1 TO 300:NEXT i:HOME:VTAB 8499HTAB 12500? "          "5180? "          "189HTAB 12190FOR i=1 TO 300:NEXT i:HOME:VTAB 8199HTAB 12200? "          "209HTAB 12210? " 4      4 "219HTAB 12220? " 5      4 "229HTAB 12230? " 4      4 "239HTAB 12240? " 44444444 "249HTAB 12250? "        4 "259HTAB 12260? "        4 "269HTAB 12270? "        4 "279HTAB 12280? "          "289HTAB 12290FOR i=1 TO 300:NEXT i:HOME:VTAB 8299HTAB 12300? "          "309HTAB 12310? " 33333333 "319HTAB 12320? "        3 "329HTAB 12330? "        3 "339HTAB 12340? " 3310SPEED =5015HOME20? "..YOUR....."25?:?30? ".....ADAM....."35?:?40? ".......WILL....."45?:?50? ".........SELF-DESTRUCT...."55?:?60? "IN "; :FLASH:? "5"; :NORMAL:? " SECONDS!"65SPEED =25570FOR i=1 TO 300:NEXT i80TEXT85VTAB 8:HTAB 1290INVERSE:? "          "99HTAB 12100? "          "109HTAB 12110? " 55555555 "119HTAB 12120? " 5        "129HTAB 12130? " 5        "139HTAB 12140? " 55555555 "149HTAB 12150? "        5 "159HTAB 12160? "        5 "169HTAB 12170? " 55555555 "179HTAB 1209HTAB 12510? "   111    "519HTAB 12520? "     1    "529HTAB 12530? "     1    "539HTAB 12540? "     1    "549HTAB 12550? "     1    "559HTAB 12560? "     1    "569HTAB 12570? "  1111111 "579HTAB 12580? "          "589HTAB 12590FOR i=1 TO 300:NEXT i:HOME:VTAB 8599HTAB 12600? " 00000000 "609HTAB 12610? " 0      0 "619HTAB 12620? " 0      0 "629HTAB 12630? " 0      0 "639HTAB 12640? " 0      0 "649HTAB 12650? " 0      0 "659HTAB 12660? " 00000000 "690FOR i=1 TO 300:NEXT i:HOME:333333 "349HTAB 12350? "        3 "359HTAB 12360? "        3 "369HTAB 12370? " 33333333 "379HTAB 12380? "          "389HTAB 12390FOR i=1 TO 300:NEXT i:HOME:VTAB 8399HTAB 12400? "          "409HTAB 12410? " 22222222 "419HTAB 12420? "        2 "429HTAB 12430? "        2 "439HTAB 12440? " 22222222 "449HTAB 12450? " 2        "459HTAB 12460? " 2        "469HTAB 12470? " 22222222 "479HTAB 12480? "          "489HTAB 12490FOR i=1 TO 300:NEXT i:HOME:VTAB 8499HTAB 12500? "          "5ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååVTAB 8790NORMAL:? CHR$(4); "RUN Start"9HTAB 12360? "        3 "369HTAB 12370? " 33333333 "379HTAB 12380? "          "389HTAB 12390FOR i=1 TO 300:NEXT i:HOME:VTAB 8399HTAB 12400? "          "409HTAB 12410? " 22222222 "419HTAB 12420? "        2 "429HTAB 12430? "        2 "439HTAB 12440? " 22222222 "449HTAB 12450? " 2        "459HTAB 12460? " 2        "469HTAB 12470? " 22222222 "479HTAB 12480? "          "489HTAB 12490FOR i=1 TO 300:NEXT i:HOME:VTAB 8499HTAB 12500? "          "5180? "          "189HTAB 12190FOR i=1 TO 300:NEXT i:HOME:VTAB 8199HTAB 12200? "          "209HTAB 12210? " 4      4 "219HTAB 12220? " 5      4 "229HTAB 12230? " 4      4 "239HTAB 12240? " 44444444 "249HTAB 12250? "        4 "259HTAB 12260? "        4 "269HTAB 12270? "        4 "279HTAB 12280? "          "289HTAB 12290FOR i=1 TO 300:NEXT i:HOME:VTAB 8299HTAB 12300? "          "309HTAB 12310? " 33333333 "319HTAB 12320? "        3 "329HTAB 12330? "        3 "339HTAB 12340? " 33åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå09HTAB 12510? "   111    "519HTAB 12520? "     1    "529HTAB 12530? "     1    "539HTAB 12540? "     1    "549HTAB 12550? "     1    "559HTAB 12560? "     1    "569HTAB 12570? "  1111111 "579HTAB 12580? "          "589HTAB 12590FOR i=1 TO 300:NEXT i:HOME:VTAB 8599HTAB 12600? " 00000000 "609HTAB 12610? " 0      0 "619HTAB 12620? " 0      0 "629HTAB 12630? " 0      0 "639HTAB 12640? " 0      0 "649HTAB 12650? " 0      0 "659HTAB 12660? " 00000000 "690FOR i=1 TO 300:NEXT i:HOME:åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå