óBASICPGM1Xþx!ÈÍÀü(Ãçü2ÐÍ>Èþ(Ãçü:ÐÍÃü(Ãçü*Èé!ÈÐí°!Ð5:Ð*ÐÍÒü 	Ý!ÐÝuÝt:Ðþ ÙÉ>ÉFIRST DIR  ‚Uªÿ BOOT       DIRECTORY  ØUtilityFT		#IUtil_DocHT€SoundexAFT		ÓAlphasortA˜BnTcolorAT"BnT_DocHFT"#TextonHGRA)$alphabetIH+%CartcopyAT,JEaslPaintA1		LADAM_BASEA:üABASE_DOCAH§CrnchMAKEAM(CRUNCHERHTQÔCrnchDocHTRÓMENUA LEFTVmenu_fastHeY to start Select Device For                                                      |TP1 |TP2 |DSK1|DSK2|    |                                                                              ADAM UTILITY                                                                                   Please Select:                                                                              V- Change Volume Name           C- Copy Tape or Disk            K- Crunch Tape or Disk          D- Delete File                  I- In!#í°Ã1ŽÓ>É2f2x2ˆ‘Í ýÍ ýÀÍ ý!>Í)ý!@>Í)ý!>Í)ý!€?>Í)ý>Ð!€?Í&ý> !@Í&ý> !Í&ýÍ8ý!Í6üIÍØüÍò!ë‘ÍD—Ív‘æß!Š‘í± ñþ Ô9ü!©‘		~#foÍ§Í7—ÒéÍ7—!#’Í£å!#’Í£ëáåÕ>+Í9üÍÍÍ#—Ñá·íRëÍ—Ã7—!A’0ü!9’çüÕÍ[‘ÈáÉ!,’Í[‘ÀÇÉÍ—4!i’ÍýÃ —åÍ —!þ‘ÍD—áÍD—!K’>Í-‘!ç‘	~2ˆ‘Ã7—ÍO‘õÍv‘Ö8ùÁ¸OÅ0óÍD‘ÁyÉ!â> Ã&ýâõÍýñÉåÍ7—!î‘ÍD—áÍD—Ív‘æßþYõÍ7—ñÉÍlü ûÉÍ7—!’ÍD—Ã7—K ED     C   IF  V            Üò¨éûªç§|‘úª¢?«¦•j¦®¨f¢¨¢ëì¡œ È ¡Þª©2§€§í¨©Û›Ð¡˜Ô” ?Hit ÚBASICPGMTØr°°°HELLOA     ŽºXReadME1stH‘/WBLOCKS LEFT“it Tape or Disk            F- Format Disk                  E- Examine Directory                                                                                            Í—!R—Í‘!R—Í[‘ÀÍ–ÐÝ!ý!!&xÅÍ&—ÁýËF sýËV [ý~¼ ý~½(6ÅBKÕåÝåýåÍ7—!J—ÍD—áåÍD—áÑí°áåÝ^ÝuÝVÝtÝNÝFÍ×–áÑÁ}ý†o|ýŽgÝ= 	Õ
ÝÑ>'ý bÕ
ýÑ'‚ÝuÝt:àýÝw:áýÝw:âýÝwë*·íRÝuÝtÝ6:æG!Åôf–Êc–ÅÕå:ˆ‘ÍöüáÑÁ ëÁ|Ægà7ÉÍ7—!l—ÍD—Í7—Ä!Š—Í‘Í–ÐÅ!Š—Íj£Áyõ!&ë!~ëæÂß•Íþ•(é'
 àñÃô å!Š—Í[‘áÁÀ~VŸÍ—!ÍažÍPŸÍv‘·úEžþ08õþ:8æßþA8ëþG0çÖÖ0G:VŸ·(Ü:eŸæð(xG*ZŸ~¡°w¯2WŸÍÎœ»!tŸí± ±à! Ÿ		~#foÍ§¢Í‰žT]Ãœ!oœåÍ‰žå! ÍzžáÀÍ§ÉÍ —Í[‘õÍâñÉ!úŸåÍâÍwáÃ£!âå!ÒŸÍŒžå!ÞŸÍŒžå!‚¨ÍŒžåÍâ!ÆŸÍzžÁÑáÀý!oœýååÕÅÍw!èŸÍD—ÁÑáÍv‘æßþI(þD óí¸Éí°É!~ ÍO‘ÍŸÍv‘!ƒŸí± óêŸ33*`Ÿ"bŸÉ!¼Ÿ		~#foÍ§Ù*bŸ"`ŸÍ—í[`Ÿý*`ŸÍ±íSbŸÉí[`Ÿý*`ŸÍj¬ÙyÙOë	ÕÍ‰žÐ33*`ŸÍaž!` ÃO‘ ¡¢£‰Š€•‚ƒ…†„ ¡¢£€’…„ƒ•‚‰Š†‰ƒ…†}¦ê§œvœ…›‹œ¤œsœ¹œYÎœüœ¤œsœ§œvœ{›^žfžåž—ž‹œ¹œYÎœüœHŸCŸŸ.Ÿ                                    nc or D)ReadWriteC)ontinue,A)bortÍ—!-šÍ‘!-šÍ[‘ÀÍ–ÐQ!'ÕÅåÍ˜áÁÑÍv‘þÈþ€(çþ (2þ¢ îy· >'¸(Õë!~ëÑæ Ïy<º0È'Õ$¿Õ¸xþ'(Õæÿ«y·(¦ÕÜÿy· >'¸Ê>™Í—åë~æë(!›ÍD—Íì™!AšÍD—áÍñ™åÍ —á#^#VÕÍÿ–ÑÍ—Í/—å!UšÍD—	Í —áÍÿ–Í/—å!ašÍD—	Í —áÍÿ–Í/—å!ršÍD—	Í —áÍÿ–Í/—å!~šÍD—Í —á#~õ#~#FÅÍ—Í#—ñÍ—Í#—ñÍ—Í/—!ŒšÃD—Í—åÍD—Íì™!5šÍD—Í —á~åõõÍ—Í/—!KšÍD—Íì™ñ·!¿šüD—Í —ñæÍ—Í/—!‘šÍD—Í —á#^#VÕÍÿ–ÑÍ—Í/—å!ŸšÍD—	Í —áÍÿ–åÍ/—!¬šÍD—	Í —áÍÿ–åÍ/—!¸šÍD—	Í —áÍÿ–åÍ/—!¸šÍD—Ã™Ã —å:ˆ‘þ0ó!¦>!h¦=(#å!(¥Í[‘áÀÎú:ˆ‘Ã?¤ÍH¢!¥Í[‘À!÷¥Íƒ£õ!ý¥Íƒ£õ!¦Íƒ£õ!¥Í[‘ÑÁáÀLÍØüÍ7—:áýÍ—Í#—:âýÍ—Í#—:àýÍ—Ã7—!8¥Í‘!CÍ:–Ð!+¦ÍD—ÍÝ£!Í4—!+¦Íj£!8¥Í[‘À!<¤í°!CÃv•!C¥Í‘!;¦Íj£:ˆ‘ÍÙ¢Âô Í>£Í£ÍD‘!C¥Í[‘À:ˆ‘<¤!T¤ÃÏü<¤!T¤ÃÌü*q¤ÍO‘Ív‘þÈÖ8öþ0ò‡O*s¤	~#foÍ§Í—!T¤Íñ™Ò>¿>ß>ï>÷>ý>!`¤¦wÉ>>>> >@>€!`¤¶wÉ!u¤"q¤!Ï¤"s¤É!“¤"q¤!Û¤"s¤É!±¤"q¤!ç¤"s¤ÉH¤<¤ÕÍÒ£á
åÍã£ëá(ñë6Ã7—áåÍ£|· ÷ñ}·Éæ7õÍÒ£!k¤Íã£!k¤F ñõ0ìë!Ö08þ
8Öæßþ
8þ0))))…o· áñÉå!^¦ÍD—áÍD—!e¦ÃD—HÍv‘þ(þ(Í3ü0!ç‘	~2ˆ‘è(Ã —!B ÍO‘Ív‘·úTœþ08õþ:8æßþA8ëþG0çÖÖ0G:VŸ·(Ü:eŸæð(xG*ZŸ~¡°w¯2WŸÍÎœ»!fŸí± ±âé›!†Ÿ		~#foÍ§ ! !*bŸ	ë*`Ÿ	"`ŸíSbŸÍF›*`Ÿ"ZŸ"\Ÿ*bŸ"^ŸíSdŸÃ — !*bŸ·íBë*`Ÿ·íBÃœ:eŸþ8#=2eŸæ [*ZŸ+R:eŸþ0j<2eŸæ(F*ZŸ#=:dŸ·È*ZŸ	"ZŸÍ#>2eŸ:dŸ·È=2dŸ*^ŸíB"^Ÿ*\Ÿ·íBë*ZŸ·íBíS\Ÿ"ZŸ:dŸ_Í —*\Ÿí[^ŸÍP›í[dŸÃ —:dŸþÐ*ZŸùÿ	"ZŸÍ#>2eŸ:dŸþÐ<2dŸ*^Ÿ	"^Ÿ*\Ÿ	ë*ZŸ	¥Ã —ÍÀåÍw! :WŸ· ! Ízžá !ë!Ív•Ÿ/2WŸÍÓë!Í:–Ÿ2VŸÈ!ÃœÍâÍw! Í£ *XŸÍâÍw! Í£"XŸå!¢ÍG‘áÉ!D‘å>ÿ2æûw!Ãv•åÅ<¤¾ ¹(#õ¯ÁáÉôg–(GÅ!:ˆ‘ÍóüÁ ê:æþ0%GOÅôg–( ÅÕå:ˆ‘ÍóüáÑÁ ìÁ|Ægá7É!Y—ÍD—·ÉÁ·Éæ7ÅåÕõ:ˆ‘Í~ü:ˆ‘Íäüæ á=ÑáÁÉG!…—ýÍ7—ÍD—!Ù—Í4—!à—ÍD—áÑÕåÍ—Í7—!ê—ÍD—ñ!ò—8!÷—Í4—ÍÁ–0¿¼å!ý—ÍD—áÍv‘æßþAÈÖC ô7Éå!àÿ	. 8iÅõEÅ!Í:–ÁñáãõÕë!Ív•ëÑñÁ8ÙÉ#^#VzÍ—{õÍ—ñæÆ0þ:8Æ>>>->.>>
> Ã9üÍD—ÅÍ)—Í,—ÁÉÍ3ü#~þ ÷ÉMoving Crunch                                                       CRCMissing BlockMissing TapeMissing DriveWrite Protect ErrorOn Block During  !ó¤Í‘!+¦Íj£!¦Í£å!"¦Í£å!ó¤Í[‘ÁÑÀ!<¤:ˆ‘Ã½ü!H¦Í‘!@¦Íj£!7¦Íe£!H¦Í[‘À:ˆ‘<¤!H¤ÍÞüÈ!£¥ÃD—!”¥ÃD—!Æ¥ÃD—!Õ¥ÃD—!ä¥Í‘:ˆ‘2‰‘!ý¤Íj£!ë¥Í‘!7¦Íe£!ý¤Í[‘ÀÍ¤:‰‘ÍÙ¢ ¾Í
¤*g¤LUCË"ËËË"ËË!H¤:ˆ‘ÍÉü ¢:ˆ‘!H¤ÍÀü ›õÍ¤:‰‘!<¤ÍÀüÁOx EÅÍ¤ÁyÅ!€ÍÒüÑ(þ
 æ7õÕÅÍ
¤ÁÑzÕ!ÍÕüÁ ñ8ÑÕÍÄ¡ÁñÍÊ¡ÅyÍÃüñÃÃüõÍ¡ö!¯¥ÃD—!º¥ÃD—!¥Í‘!O¦Íj£!¥Í[‘À!<¤:ˆ‘Ãáü!(¥Í‘Í —á~åõÍ—Í/—!KšÍD—ñ!›ÅõYÍì™ñõ#F#åfhÜD—áñÁèáÉExamineVolume NameFile NameAttributeStart BlockBlocks AllocatedBlocks UsedBytes In LastDateBlocks In DirDirectory IDVolume SizeUnusedPermanentWrite ProtectRead ProtectUserSystemDeletedExecutableHole¿šÉš×šäšéšðšøš›zÍ›{õÍ&›ñæÆ0þ:8
Ææþ 0>.ÍfüÉ>Ífü>
ÃfüÕÍ —ÑÅÕåÍ—>:Í9üA~#Í—ùÍ/—áA~#æÍ3ü÷Ñë	ëÁØÉ*`ŸT]	!€Í<›Í¨üÅÕåÍ›>:Í8›áå~Í›#ù> Í8›á~Í0›#ùÍ<›ÍKü0	 þ(Í¨üëá	ëÁx± ½ÉÑÁÉ!ÿÿ"XŸ|2WŸ<2VŸ!$ >Í-‘þw#î6yÃ7—x¹(ã>Í9ü+Ú!n¥‚¥Dæ7!N¥\¥S0	:ˆ‘W:‰‘ºÀÅÍ4—áÍD—Ív‘æß» øÃ7— ÍöüÃ¢                                    K£'££££&£X£-£6£3£0£*£>£&£&££££InitDelete FileFormattingVol ChangeInsert SourceType S When ReadyInsert DestintationType D When ReadyFile Not FoundRead ErrorWrite ErrorCreation ErrorCould Not OpenSourceDestina?8öþ >ÙG>'×(¬O>AÈ>Ù(È
ÙÃ¦¬Íc¬!'°Ã†¬>	!>ÙG
ÙÃh­>/É>.É>,Ù¿ýnÙÃ¨¬>-Ù¿ïý~Oæy(æÙWÙÍc¬Ùo€Ùyæ=ö<Ã¨¬æÙGÙÍc¬þ(/ÙÙöÃ­Íc¬Ë?8Íõ­>&É Íß­>ÉþÂX¯ý~Oæ = ý~Ùo€Ù>EÃ­=(yæ$þ  éyæ?ÙÙÉý~ËW(0!7°í± !?°	~äOæ'þ Ãyæ>(>ËaÙW PGÙÃ¦¬ÙÙOæ Íc¬ÙGÙ>,Ã¨¬= Í
¯ÙxBWÙ>-É= Íc¬Ë?ËöÙÍõ¬Ë>Ø>ÉÍc¬Ë?ËöËÙÿW0PGý#Íê¬ý+Éý~þÝ(þý(þËÊÒ¯ý#Íj¬ý+þ8!G°í±(ÙþñÙ¯Ã­®õÙxÍ°(_{þ8çñõ_zÍ° ÞÍÞ¯WñÙÉñõ_xÍÞ¯Gñ· zþ
 Íâ¯W>äþ àzþ€> ÙýnÔý~ÍQ®þE ¬Ÿþ(
ý~þÝ>È<É{þ ÍÍ[‘Ñ †ÕÍ/¨Âs§Í;¨Âx§ÁáWÃd§æ7õÍ‘ñ!W¨8!Y¨Íj£!u¨Í£å"G¨!‚¨Í£ÑÉ!<¤:ˆ‘ÃÉü!<¤:ˆ‘ÃÀü!1©Í‘!9©Í£å!C©Íƒ£õ!M©Íƒ£!wÿí°!1©Í[‘ÁÑÀÕÅ!Ív•ÁÑñÉ![©Í‘!r©Í£å!€©Í£å![©Í[‘ÑáÀÃv•!g©Í‘!r©Í£å!€©Í£å!g©Í[‘ÑáÀÃ:–Í7—!ŽªÍ£"ˆª!˜ªÍ£"Œª!¢ªÍ£ *ˆª"Šª!¯ªÍ‘:ˆ‘õ!¸ªÍ‘Á:ˆ‘2‰‘x2ˆ‘!ÒªÍ[‘ÀÍ—Í¤Íî©ØÍ—Í
¤ÍªÐ*Œª|µ åÉ!ÂªÍAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI FAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL ¨¬= Í
¯ÙxBWÙ>-É= Íc¬Ë?ËöÙÍõ¬Ë>Ø>ÉÍc¬Ë?ËöËÙÿW0PGý#Íê¬ý+Éý~þÝ(þý(þËÊÒ¯ý#Íj¬ý+þ8!G°í±(ÙþñÙ¯Ã­®õÙxÍ°(_{þ8çñõ_zÍ° ÞÍÞ¯WñÙÉñõ_xÍÞ¯Gñ· zþ
 Íâ¯W>äþ àzþ€> ÙýnÔý~ÍQ®þE ¬Ÿþ(
ý~þÝ>È<É{þ ÍÍÀü2¬É:¬!ÍÒü!7Èþ
Àx±(¯É=ÉyæÉÙÙ¯ý~Oæ(=(=(0!°yæ‡…o0$~#foé!°íyþv(æÙWÙÍc¬ÙGÙ><<É>ÉyæÙGÙ<Íc¬þÐþÈ<ÙPÙÉÍc¬ÙG€ýnÙÍÍc¬Ë?ËöËÙ8ÀGýnýfÙ±
WÙ>Ã¨¬Íc¬ÙGÙ>$<ÉÍþ¬>%ÉÍc¬öÉÍc¬Ë?ËöÙGÙÍ­ËÐãÍc¬Ë?Ëþ0öËÙW8PGÙÃ¦¬æ> >
ËÙGÿ8BWÃê¬yþ0·>ÈÙPÙ>Ã¨¬ý~·o&òx­%##åÙáÀÙ<yþ>Ø>ÈyÙPþ0(	0þ (Ù>Ã­<Íc¬öÙGÙ>ÉÍ©­ÙÀÍê¬>ÉÍ´­>ÉÙýnÙ>€Ã³¬yæ8Ùo€>?Ù<É>ÙÀýnýfìÍc¬ËtionNumber Of SidesVolume SizeDir SizeVolume NameNew NameFile To DeleteEnter : Í7—>!¦õåÍTü áåÍD—Í7—áñ<þ8æÉ!I¨Í¨Õå!I¨Í[‘áÂ~§å###ëÍ/¨ %Í;¨ %W!F¨6ÍÕüÁáz 	ÍÕüz ÃÃüÍÃüÃÊ¡ááÃú ááÃ¡ááÉ!P¨Í‘!f¨Íj£!¨Í£õå!P¨Í[‘ á!<¤:ˆ‘ÍÀü ÏW!F¨ÍÒüÂÔ§:F¨=á ñz *G¨ÿÿÍÒü(þ
 zÃÃüááÍÐ§ÃÄ¡ñzÍÃü!ž¨ÃD—!K¨Í¨Õå!K¨â¯ÆÉý^Íâ¯ÆÉþ
ÈþÉZ­Ù¬*­­þ¬
­Ë¬­¦­î­´­®À­†®Æ­Ñ­ß­N®E®6®&®#®0®3®DEFMV^go45DC6B7@&'$%G~Í—#ùÉÙyÙýåáõÍN°ñíD‡GÍ›±ûÉ·ú±þ0(!½±Oþ8	æOË!!Å±þ(x	GÃ¥±!Ï±	Ã£±þ0*Ö!ï±Ê ±#=(#=Ê ±#=(#=Ê ±##=Ê ±=(##Ã¥±þ(Ã8¿!ø±ÖÊ¥±!Ñ±=(á#=(Ý=(¦=(¡!ç±=(!ë±Í¥±Ù{Ù·ò±íDõÍ±õÍŒ±ËG8Ù}ÙÊ—õÍ’±ñÍ—Ã•±ÙåÙáÊµ±Í’±Íµ±Ã•±ëÍ­±ëÍj¬‡o&)ý±	åÍW°áÍ£±(Í›±ÙxÙÍp°=(	Í˜±ÙzÙÍp°ÙyÙOý	ë	ëÉÅÍ@±Í7—ÁöÉ>+>->[>]>,> Ã9üþ~Í9ü#ùÉÍµ±>:Ã9ü|Í—}Ã—HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI VAL HI V}ªÍcªDM!í[ˆªÅÍrªÍ:–Á?Ü^ªØx± ìíSˆªÉ:ˆ‘õ:‰‘2ˆ‘!ÊªÍ}ªÍcªDM!í[ŠªÅÍrªÍv•å*Œª+"ŒªáÁÔÁ–0x± ãíSŠªñ2ˆ‘7ÉÁÉÍÁ–?É*Œª ·íRëÐ*ŒªÉÕ
Í —ÑÃ—å
Í —áÃD—Start BlkBlk CountOpt Dest BlkCopy SrcCopy DestReadingWritingBlk Copying!¬Í‘!¬Íj£!¬Í[‘À<¤:ˆ‘Ãíüæ7õ!N¬Í‘!W¬Íj£!"¬Í£å!N¬Í[‘áÁÀÅåÍì«áÁÀÅõåÿÿÍÒüáÁÑ(þ
ÀËCÀåxÍÃüáÍ§É!D¬Í‘!D¬Íj£!D¬Í[‘À!.¬ÍD—Í7—Ív‘õÍ¨üñæßþT($Íì«ÀÍû« Aõ~Í—Í/—HÍ¹«(18&í¡ês«ñ8â&Íì«ÀÍû« õ~Í3üþÌ7—TÍ¹«(8Úí¡ê—«ñ8àþá:¬ÃÃüÍÞ«·<À:uýþ(	þÈ»7À<?ÉÍÞ«< ú:uýþ óÛÍKü>ÐõÍ¨üñÀ=É!<¤:ˆ‘xJter Base Address (where to save from)             Enter Byte Count (# of bytes to save)             Verify StartThis allows you to create a new file that is executable                       THE ADAM UTILITY   The following is a documentation file for a general all-purpose     program written for ADAM.      To use the utility, all you have to do is insert the DDP or Disk in Adam and pull reset.  An 'action selec--------------Will kick you into the word processor, known to those on the inside,   as Alpha.  Does not reload EOS or check for any tapes or disks to boot from.  Goes through the EOS jump table to get there.Init:        Select Device                                         [I]---------    Enter Volume Name             Enter Volume Size (in blocks)             Enter Directory Size (in blocks)             Verify StartThis command allows you to create a new EOS directory on a tape or     disk. The is detected during a read or write operation, the type of  error will be displayed along with the type of operation, either read  or write, and the offending block number.  After this you can          continue, which means retry, or abort.       Command Summary:Invoked By    Command          Simple Description----------------------------------------------------------------------Esc           Goto Wd Process  Goes to WP w/o booting disk/tape   D           Delete File      Deletes a file from EOS DirecDisk:  Select Device (only disks are valid)                 [F]-----------   Enter Number of sides (1 or 2)              Verify StartThis command will physically format the diskette.  After it has been   formatted, it should be initialized with the Init Tape command.  At    present, only single sided disks are made for the Adam, and double     sided ones will probably never see the light.Volume Name:  Select Device (reads)                                [V]-----------   Shows Current Volume Name   rtkey as displayed.'Verify' means that you can get out if you messed up, also it lets you change tapes/disks before the operation is to start.Delete File:  Select Device                                        [D]-----------   Enter File Name              Verify StartThis will mark the file as deleted.  It calls the EOS routine to       delete a file so if a new version of EOS is in memory, the directory   will be fixed.  Goto Word Processor:  Verify Start                               [ESC]-----tion' menu will be displayed.   This utility MUST NOT BE SOLD!.  It may be shared with others, but  it will not be sold.  The author DOES NOT want it on the market.GENERAL INFORMATION:All numbers that need to be entered MUST be in HEX.There are 256 blocks on a tape numbered 0 thru FF HEX. There are 160   blocks on a single-sided disk numbered 0 thru BF HEX.Commands are invoked by hitting the character shown in the screen at   boot time or when it is called up with the Return command.If an error neat thing about this command is that you can make a         directory with more than one block allocated for the directory.  This  means you can have more than 39 files on a tape or disk.  The values   entered for the volume size should be the number of blocks or          kilobytes on the media, usually 100 hex or FF hex for tapes, and A0    hex for disks.  The directory size must be at least 1; it can be as    large as the number of blocks on the tape, but nothing larger than 3   is recommended.Format tory  R           Return to List   Shows Boot Screen of Commands  I           Init Tape/Disk   Creates new directory on tape/disk  K           Crunch Tape/Disk Removes deleted files from tape/disk  F           Format Disk      Formats a Disk  V           Volume Name      Allows volume name change  C           Copy Blocks      Dup. all or portion of tape/diskCommand Explanation:Features common to all commands--'Selecting Device' means choosing a disk or tape by hitting the        appropriate sma           Enter New Volume Name              Verify StartAllows you to change the volume name of a tape or disk without having  to reinitialize it.Crunch Tape:   Select Device                                       [K]-----------    Verify StartThis command will remove all deleted files and puts all the unused     blocks at the end of the tape.  This will allow bigger files to be     created, better usage of the free space, and faster access to files    (since they will be closer to the directory).insert  the appropriate tape/disk and hit 'S' or 'D'.  The copy buffer is 32   kilobytes long, so a miximum of 32 blocks can be read or written at a  time.  This does not mean that you can only copy 32 blocks with this   command, but that when copying more, it will transfer 32 block chunks  at a time.Remember, numbers must be in HEX.  If copying an entire disk, copy     blocks 0 (starting block) to A0 (ending block).For tapes, copy blocks 0 (starting block) to FF (ending block).Return:                s allows you to either make backup copies of blocks, such as the    directory, or to copy an application to different media.  The optional destination block number is used if you wnat to copy block 1 to block  2.  If you just hit return then the start block number is used for the destinaton block number.If the devices are different, then you will just see the block numbers that are being read and writtten displayed as they are read or         written.  If the devices are the same, you will be prompted to puting":?:?104INVERSE105? "   the ADAM by D.Zimmerman  ":FOR zz=1 TO 4000:NEXT zz:NORMAL107POKE 16953, 42110FOR ac=1 TO mc-1120 cl(ac)=ac+1130NEXT ac140 cl(mc)=0: ac=1150FOR an=1 TO mn-1160 nl(an)=an+1170NEXT an180 nl(mn)=0: an=1: kn=0: kc=0: sl=0190HOME200POKE 17059, 12:POKE 17115, 31:POKE 17126, 252:TEXT205?:? " DIRECTORY CONTAINS "; kn; " NAMES "210? "    IN "; kc; " SOUNDEX FOLDERS."220? " ROOM FOR "; mn-kn; " MORE NAMES"225INVERSE230? " ============================ ":NORMAL:?240? "                                              [R] ------------Press R whenever you wish to return to the command option screene optional destination block number is used if you wnat to copy block 1 to block  2.  If you just hit return then the start block number is used for the destinaton block number.If the devices are different, then you will just see the block numbers that are being read and writtten displayed as they are read or         written.  If the devices are the same, you will be prompted to When the command starts it will display a period on the screen for     each file it has looked at, this way you know it is still doing        something.  If a file has to be moved a message saying so is           displayed.Copy Blocks:  Enter Starting Block Number                          [C]-----------   Enter Number of Blocks to Copy              Enter Optional Dest. Block Number (CR for none)              Select Source Device              Select Destination Device              Verify StartThi8POKE 17059, 13:POKE 17115, 31:POKE 17126, 252:TEXT10HOME:VTAB 11:HTAB 3:INVERSE20? "SOUNDEX TELEPHONE ASSISTANT"30FOR z=1 TO 3000:NEXT:NORMAL40POKE 17059, 8:POKE 17115, 29:POKE 17126, 244:TEXT50 d$=CHR$(4)60 mn=100: mc=100: yes=1: no=0: nu$=""70 s$="01230120022455012623010202"80DIM co$(mc), nr(mc), cl(mc), na$(mn), nl(mn), nf$(mn), ph$(mn)85INVERSE90?:?:? "  Adapted and modified for  ":?:?:?:NORMAL100? "  SOUNDEX TELEPHONE ASSISTANT"102? "  was published in January"103? "  issue of Popular Cominsert  the appropriate tape/disk and hit 'S' or 'D'.  The copy buffer is 32   kilobytes long, so a miximum of 32 blocks can be read or written at a  time.  This does not mean that you can only copy 32 blocks with this   command, but that when copying more, it will transfer 32 block chunks  at a time.Remember, numbers must be in HEX.  If copying an entire disk, copy     blocks 0 (starting block) to A0 (ending block).For tapes, copy blocks 0 (starting block) to FF (ending block).Return:                 1. FIND SIMILAR NAMES":?250? "   2. ADD NAMES":?260? "   3. DELETE NAMES":?270? "   4. LIST ENTIRE DIRECTORY"280? "       BY SOUNDEX FOLDER.":?290? "   5. SAVE NAMES TO DISK":?300? "   6. LOAD NAMES FROM DISK":?310? "   7. CLEAR MEMORY":?320? "   8. END."330?340INPUT "     SELECT 1-8 -> "; se350HOME360IF se=8 THEN GOTO 4050370IF se<1 OR se>7 THEN GOTO 190380ON se GOSUB 400, 630, 980, 1270, 2030, 2230, 2650390GOTO 200400POKE 17059, 15:POKE 17115, 23:POKE 17126, 244:TEXT405HOME:VTAB 2:HTAB 61170? "PRESS "; :INVERSE:? " <RETURN> "; :NORMAL:? " TO CONTINUE.":GET zz$1180RETURN1190GOSUB 17701200IF ok=yes THEN GOTO 12401210? "DON'T HAVE THAT NAME."1220? " PRESS "; :INVERSE:? "<RETURN>"; :NORMAL:? " TO CONTINUE ":GET zz$1230RETURN1240GOSUB 18901250?:?:HTAB 7:FLASH:? " NAME DELETED ":NORMAL:FOR zz=1 TO 2500:NEXT zz1260RETURN1270HOME:POKE 17059, 13:POKE 17115, 31:POKE 17126, 246:TEXT1275VTAB 2:HTAB 5:FLASH1280? " LIST ENTIRE DIRECTORY":NORMAL1284HTAB 5:FLASH:? " BY SOUNDEX CODES     ":NOR cn=nl(cn)600GOTO 570610?:? "END OF LIST"615SPEED =255620GOTO 420630HOME:POKE 17059, 6:POKE 17115, 31:POKE 17126, 246:TEXT635VTAB 2:HTAB 10640FLASH:? " ADD NAMES ":NORMAL:?:?650? " PRESS "; :INVERSE:? "<RETURN>"; :NORMAL:? " FOR MENU.":?660 n$=nu$: nf$=nu$: ph$=nu$670INPUT "ENTER LAST NAME: "; x$680IF x$="" THEN RETURN690GOSUB 2590700 n$=x$: x$=""710INPUT "ENTER FIRST NAME: "; x$720IF x$="" THEN RETURN730GOSUB 2590740 nf$=x$: x$=""750INPUT "ENTER PHONE # : "; ph$760?770GOSUB 1440780GOSUB 8:FLASH:? "  END OF LIST  ":NORMAL:?:PR #01420? " PRESS "; :INVERSE:? "<RETURN>"; :NORMAL:? " TO CONTINUE ":GET zz$1430RETURN1440 l1$=nu$1450FOR c=1 TO LEN(n$)1460 c$=MID$(n$, c, 1)1470 sq=ASC(c$)-ASC("A")+11480IF sq<1 OR sq>26 THEN GOTO 15001490 l1$=l1$+MID$(s$, sq, 1)1500NEXT c1510 l2$=LEFT$(l1$, 1): lc$=l2$1520FOR c=2 TO LEN(l1$)1530 c$=MID$(l1$, c, 1)1540IF c$=lc$ THEN GOTO 15601550 l2$=l2$+c$: lc$=c$1560NEXT c1570 l3$=LEFT$(n$, 1)1580FOR c=2 TO LEN(l2$)1590 c$=MID$(l2$, c, 1)1600IF6:POKE 17126, 244:TEXT985VTAB 2:HTAB 8990FLASH:? " DELETE A NAME ":NORMAL:?:?1000? "       ENTER LAST NAME: "1010?:? " OR ENTER "; :INVERSE:? " <RETURN> "; :NORMAL:? " FOR MENU.":?:?1020 n$=nu$: x$=""1030INPUT x$1040IF x$=nu$ THEN RETURN1050GOSUB 25901060 n$=x$: x$=""1070? "ENTER FIRST NAME:"1080 nf$=nu$: x$=""1090INPUT x$1100IF x$=nu$ THEN RETURN1110GOSUB 25901120 nf$=x$: x$=""1130GOSUB 14401140GOSUB 16501150IF ok=yes THEN GOTO 11901160?:? "DON'T HAVE ANYTHING LIKE       THAT NAME.":?:?410FLASH:? " FIND SIMILAR NAMES ":NORMAL:?:?420?:? "      ENTER LAST NAME OR"430? "      "; :INVERSE:? "<RETURN>"; :NORMAL:? " FOR MENU.":?440 n$=nu$: x$=""450INPUT x$460IF x$=nu$ THEN RETURN470GOSUB 2590480 n$=x$: x$=""490GOSUB 1440500GOSUB 1650510IF ok=yes THEN GOTO 540520?:?:?:? "THERE IS NO SOUNDEX FOLDER FOR THAT NAME.":?530GOTO 420540? "UNDER CODE "; c$; " ARE THE "550? " FOLLOWING NAMES:":?555SPEED =90560 cn=nr(cc)570IF cn=0 THEN GOTO 610580? na$(cn); " "; nf$(cn); " "; ph$(cn)590MAL:?:?1286IF sl=0 THEN GOTO 14101288INPUT "   (P)rinter or (S)creen? "; zz$1290IF zz$="P" OR zz$="p" THEN  pz=1:GOSUB 3000:GOTO 13101300SPEED =901310 cc=sl:IF pz=1 AND zc=0 THEN GOTO 13401320? co$(cc)1330? "----"1340 cn=nr(cc)1350? na$(cn); " "; nf$(cn); " "; ph$(cn)1360 cn=nl(cn)1370IF cn>0 THEN GOTO 13501372 cc=cl(cc)1374IF pz=0 THEN ?1390IF cc>0 AND pz=0 THEN GOTO 13201395IF cc>0 AND pz=1 AND zc=0 THEN GOTO 13401397IF cc>0 AND pz=1 AND zc=1 THEN GOTO 13201400SPEED =255: pz=01410?:?:HTAB 1650790IF ok=yes THEN GOTO 870800IF an>0 THEN GOTO 820810GOTO 950820GOSUB 1710830IF ok=yes THEN GOTO 870840? "NO MORE SOUNDEX FOLDERS LEFT."850? "PRESS <RETURN> TO CONTINUE.":GET zz$860RETURN870GOSUB 1770880IF ok=yes THEN GOTO 930890GOSUB 1830900IF ok=no THEN GOTO 950910? "NAME ADDED. ENTER NEXT NAME:":?920GOTO 650930? "NAME ALREADY EXISTS. ENTER NEXT NAME:":?940GOTO 650950? "NO MORE NAME CARDS LEFT."960? "PRESS <RETURN> TO CONTINUE.":GET zz$970RETURN980HOME:POKE 17059, 4:POKE 17115, 2 c$="0" THEN GOTO 16201610 l3$=l3$+c$1620NEXT c1630 l3$=LEFT$(l3$+"000", 4)1640 c$=l3$:RETURN1650 ok=no: cc=sl: pc=01660IF cc=0 THEN RETURN1670IF co$(cc)<>c$ THEN GOTO 16901680 ok=yes:RETURN1690IF co$(cc)>c$ THEN RETURN1700 pc=cc: cc=cl(cc):GOTO 16601710IF ac<>0 THEN GOTO 17301720 ok=no:RETURN1730 ok=yes: sc=ac: ac=cl(ac): kc=kc+1: co$(sc)=c$: cl(sc)=cc: nr(sc)=0: cc=sc1740IF pc<>0 THEN GOTO 17601750 sl=cc:RETURN1760 cl(pc)=cc:RETURN1770 ok=no: cn=nr(cc): pn=01780IF cn=0 THEN RETURN1790IFSUB 17702460IF ok=yes THEN GOTO 25002470GOSUB 18302480IF ok=no THEN GOTO 25102490? "--OK":GOTO 23302500? "--CANCEL: DUPLICATE NAME.":GOTO 23302510? "--CANCEL: NO MORE NAME CARDS LEFT."2520? d$; "close "; fi$2530RETURN2540?2550IF ERRNUM(0)=5 THEN ? " END OF FILE "; fi$2555IF ERRNUM(0)<>5 THEN ? d$; "close "; fi$:GOTO 40502560? d$; "close "; fi$2580RETURN2590 x2$="": x3$=""2600FOR i=1 TO LEN(x$)2610 x2$=MID$(x$, i, 1)2620IF x2$>="a" AND x2$<="z" THEN  x2$=CHR$(ASC(x2$)-32)2630 x3$=x3$+x2$:NE THEN RETURN1950IF cc<>sl THEN GOTO 19801960 sl=cl(cc)1970GOTO 19901980 cl(pc)=cl(cc)1990 co$(cc)=nu$: cl(cc)=ac2000 ac=cc2010 kc=kc-12020RETURN2030HOME:POKE 17059, 8:POKE 17115, 29:POKE 17126, 244:TEXT2035IF kn>0 THEN GOTO 20602040VTAB 12:HTAB 5:FLASH:? " THE DIRECTORY IS EMPTY. ":NORMAL2050FOR zz=1 TO 2500:NEXT zz:RETURN2060HTAB 6:FLASH:? "SAVE NAMES TO DISK ":NORMAL:?:?2063ONERR  GOTO 40002065? d$; "catalog "2067CLRERR2070? "ENTER NAME FOR THE OUTPUT FILE":? "OR "; :INVERSE:? " <RETURN> SUB 17702460IF ok=yes THEN GOTO 25002470GOSUB 18302480IF ok=no THEN GOTO 25102490? "--OK":GOTO 23302500? "--CANCEL: DUPLICATE NAME.":GOTO 23302510? "--CANCEL: NO MORE NAME CARDS LEFT."2520? d$; "close "; fi$2530RETURN2540?2550IF ERRNUM(0)=5 THEN ? " END OF FILE "; fi$2555IF ERRNUM(0)<>5 THEN ? d$; "close "; fi$:GOTO 40502560? d$; "close "; fi$2580RETURN2590 x2$="": x3$=""2600FOR i=1 TO LEN(x$)2610 x2$=MID$(x$, i, 1)2620IF x2$>="a" AND x2$<="z" THEN  x2$=CHR$(ASC(x2$)-32)2630 x3$=x3$+x2$:NE"2243CLRERR2250?:? "NAME FOR INPUT FILE"2260? " PRESS "; :FLASH:? " <RETURN> "; :NORMAL:? " FOR MENU."2270 fi$=nu$2280INPUT fi$2290IF fi$=nu$ THEN RETURN2300ONERR  GOTO 25502310? d$; "open "; fi$2320? d$; "read "; fi$2330INPUT n$, nf$, ph$2340? n$; ","; nf$; ","; ph$2350GOSUB 14402360GOSUB 16502370IF ok=yes THEN GOTO 24502380IF an>0 THEN GOTO 24002390GOTO 25102400GOSUB 17102410IF ok=yes THEN GOTO 24502420? "--CANCEL: NO MORE SOUNDEX FOLDERS LEFT."2430? d$; "close "; fi$2440RETURN2450GO na$(cn)+nf$(cn)<>n$+nf$ THEN GOTO 18101800 ok=yes:RETURN1810IF na$(cn)+nf$(cn)>n$+nf$ THEN RETURN1820 pn=cn: cn=nl(cn):GOTO 17801830IF an<>0 THEN GOTO 18501840 ok=no:RETURN1850 ok=yes: sn=an: an=nl(an): kn=kn+1: na$(sn)=n$: nf$(sn)=nf$: ph$(sn)=ph$: nl(sn)=cn: cn=sn1860IF pn<>0 THEN GOTO 18801870 nr(cc)=cn:RETURN1880 nl(pn)=cn:RETURN1890IF pn<>0 THEN GOTO 19201900 nr(cc)=nl(cn)1910GOTO 19301920 nl(pn)=nl(cn)1930 na$(cn)=nu$: nf$(cn)=nu$: ph$(cn)=nu$: nl(cn)=an: an=cn: kn=kn-11940IF nr(cc)<>0XT i2640 x$=x3$:RETURN2650RUN3000HOME:VTAB 113010? "   DO YOU WANT SOUNDEX CODES"3020? "   INCLUDED IN THE LISTING? "3030INPUT ""; zc$3040IF zc$="Y" OR zc$="y" THEN  zc=13045IF zc$<>"Y" AND zc$<>"y" THEN  zc=03050PR #13060RETURN4000IF ERRNUM(0)=8 THEN FLASH:? " PLEASE PUT A DISK IN !!":NORMAL4005IF ERRNUM(0)<>8 THEN GOTO 40504010? " PRESS ANY KEY "4020INPUT zz$4040RESUME4050POKE 17059, 0:POKE 17115, 241:POKE 17126, 31:POKE 16953, 95:TEXT65535ENDT."2430? d$; "close "; fi$2440RETURN2450GO"; :NORMAL:? " FOR MENU."2080 fo$=nu$2090INPUT ""; fo$2100IF fo$=nu$ THEN RETURN2110? d$; "open "; fo$2120? d$; "write "; fo$2130 cc=sl2140 cn=nr(cc)2150? na$(cn); ","; nf$(cn); ","; ph$(cn)2160 cn=nl(cn)2170IF cn>0 THEN GOTO 21502180 cc=cl(cc)2190IF cc>0 THEN GOTO 21402200? d$; "close "; fo$2210? "DIRECTORY SAVED IN "; fo$2220RETURN2230HOME:POKE 17059, 11:POKE 17115, 24:POKE 17126, 244:TEXT2233VTAB 2:HTAB 5:FLASH2235? " LOAD NAMES FROM DISK ":NORMAL2237ONERR  GOTO 40002240? d$; "catalog10REM  alphabetical sorting program20REM  by George A. Havach30REM  CIS User I.D. 70337,3062100HOME:VTAB 12:? " ABOUT HOW MANY ITEMS TO SORT?":?:INPUT   n:DIM item$(n+10)200HOME:VTAB 3:? " NO MORE THAN "; n; " ITEMS,", , , "       PLEASE!"225VTAB 7:? " FOLLOW LAST ITEM WITH", , , "   A SIMPLE       <RETURN>"250VTAB 11:? " TO RE-ENTER AN ITEM,", , , "   INPUT          'CONTROL-R'"300FOR count=1 TO n+10310VTAB 18:? " ITEM #"; count; :INPUT "? ";                  item$(count):VTAB 18:?:?:?:?:?320IF i, , , "         SCREEN LISTING OF ITEMS":VTAB 24:GET key$770HOME:VTAB 24:FOR listing=2 TO count:?                     item$(listing):NEXT:PR #0800ENDPE])"610VTAB 18:INPUT "    DRIVE #?  "; drive%:IF drive%=0 GOTO   700620IF drive%=3 OR drive%=4 OR drive%>6 GOTO 600630VTAB 21:INPUT "   FILENAME?  "; name$640HOME:VTAB 9:? "  * * * * * * * * * * * * * *":VTAB 12:?   SPC(7); "STORING LIST --"650?:? SPC(9); "PLEASE WAIT":VTAB 17:? "  * * * * * * * * *  * * * * *":VTAB 24660ONERR  GOTO 600: d$=CHR$(4):? l sort450 guide=1455 guide=2*guide:IF guide<count GOTO 455460 guide=INT((guide-1)/2):IF guide=0 GOTO 500465FOR i=1 TO count-guide: j=i470 k=j+guide:IF item$(k)<item$(j) THEN  q$=item$(j):        item$(j)=item$(k): item$(k)=q$: j=j-guide:IF j>0 GOTO 470475NEXT:GOTO 460499REM  data disposal500HOME:VTAB 8:? SPC(9); "YOUR "; count-1; " ITEMS":?:?      SPC(8); "ARE NOW SORTED!"525VTAB 18:? "  WOULD YOU LIKE TO STORE", , , " YOUR LIST TO DISK OR TAPE?", , , " (y/n)"550VTAB 24:GET key$:IF key$="n" OR keyUB 1150210INPUT " "; a$:IF a$<"1" OR a$>"5" THEN 200220IF a$="4" THEN POKE 17059, s1:POKE 17115, s2:POKE 17126, s3:TEXT:END221IF a$="5" THEN TEXT:END225GOSUB 1000:GOSUB 1400:?230IF a$="2" THEN 300240IF a$="3" THEN 400250? "  Change BACKDROP"260 n$="Backdrop":GOSUB 1300:POKE 17059, a:GOTO 200300? "  Change NORMAL"310 n$="text":GOSUB 1300: hi=a320 n$="back":GOSUB 1300: lo=a330POKE 17115, hi*16+lo:GOTO 200400? "  Change INVERSE"410 n$="text":GOSUB 1300: hi=a420 n$="back":GOSUB 1300: lo=a430POKEd$; "OPEN "; name$; ",D";   drive%670? d$; "WRITE "; name$:FOR listing=2 TO count:?            item$(listing):NEXT680? d$; "CLOSE "; name$:CLRERR699REM  data display700HOME:VTAB 18:? "  WOULD YOU LIKE A HARDCOPY?", , , "      (y/n)"710VTAB 24:GET key$:IF key$="y" OR key$="Y" GOTO 730720GOTO 760730HOME:VTAB 17:? "   LOAD PAPER IN PRINTER--", , , "  PRESS ANY KEY", , , , , "  (CONTROL-C ABORTS)"740VTAB 24:GET key$:IF key$=CHR$(3) GOTO 760750PR #1:GOTO 770760HOME:VTAB 18:? "      PRESS ANY KEY FOR A"tem$(count)=CHR$(18) THEN GOSUB 350330IF item$(count)="" GOTO 400340NEXT:GOTO 400349REM  item-reentry subroutine350 count=count-1:VTAB 16:INVERSE:? " RE-ENTER:"; :NORMAL:?  "  "; item$(count):?360? " ITEM #"; count; :INPUT "? "; item$(count)370VTAB 16:?:?:?:?:?:?:?:?380IF item$(count)=CHR$(18) GOTO 350390RETURN400HOME:VTAB 9:? "  * * * * * * * * * * * * * *":VTAB 12:? " NOW SORTING YOUR "; count-1; " ITEMS"425?:? SPC(10); "PLEASE WAIT":VTAB 17:? "  * * * * * * * * * * * * * *":VTAB 24449REM  shel10REM          BTCOLOR  by W. Motel50GOSUB 2000:REM  introduction90DIM c$(15)100 c$(0)="0 Transparent"101 c$(1)="1 Black"102 c$(2)="2 Md Green"103 c$(3)="3 Lt Green"104 c$(4)="4 Dk Blue"105 c$(5)="5 Lt Blue"106 c$(6)="6 Dk Red"107 c$(7)="7 Cyan"108 c$(8)=" 8 Md Red"109 c$(9)=" 9 Lt Red"110 c$(10)="10 Dk Yellow"111 c$(11)="11 Lt Yellow"112 c$(12)="12 Dk Green"113 c$(13)="13 Magenta"114 c$(14)="14 Gray"115 c$(15)="15 White"130 s1=PEEK(17059): s2=PEEK(17115): s3=PEEK(17126)200GOSUB 1000:GOS$="N" GOTO 700599REM  data storage600HOME:VTAB 8:? "   PLEASE INSERT TAPE OR DISK", , , "  IN  DRIVE AND SELECT DRIVE #", , , "  (1, 2, 5, 6 [0 = ESCAPE])"610VTAB 18:INPUT "    DRIVE #?  "; drive%:IF drive%=0 GOTO   700620IF drive%=3 OR drive%=4 OR drive%>6 GOTO 600630VTAB 21:INPUT "   FILENAME?  "; name$640HOME:VTAB 9:? "  * * * * * * * * * * * * * *":VTAB 12:?   SPC(7); "STORING LIST --"650?:? SPC(9); "PLEASE WAIT":VTAB 17:? "  * * * * * * * * *  * * * * *":VTAB 24660ONERR  GOTO 600: d$=CHR$(4):?  17126, hi*16+lo:GOTO 2001000TEXT1010? "  Current BACKDROP is "1015 hi=INT(PEEK(17059)/16)1016 lo=PEEK(17059)-(hi*16)1020? "            "; c$(lo)1040? "  Current NORMAL is "; PEEK(17115)1050 hi=INT(PEEK(17115)/16)1060 lo=PEEK(17115)-(hi*16)1070? "    TEXT is "; c$(hi)1080? "    BACK is "; c$(lo)1090INVERSE1100? "  Current INVERSE is "; PEEK(17126)1110 hi=INT(PEEK(17126)/16)1120 lo=PEEK(17126)-(hi*16)1130? "    TEXT is "; c$(hi)1140? "    BACK is "; c$(lo)1145NORMAL1149RETURN1150?1160? " 15 controls the background screen color  and the text color.  'POKING' the correct value into this memorylocation will determine what background and text color combinationwill be created.     For example, when Basic is booted, the value 241 will be found.(Try it: type "PRINT PEEK(17115)" and hit <return>)Now, type "POKE 17115,19:TEXT" and hit <return>.   WOW! Did you get a pretty light-green background withblack text?  If not, type "PRINT PEEK(17115)" and hit return to seewhat you typed!     Wel Screen."2040?:? " You will be able to change":? " the BACKDROP COLOR, the"2050? " BACKGROUND COLOR, and the":? " TEXT COLOR.":?2060? " You will also be able to":? " change the BACKGROUND and":? " TEXT color for inverse."2070VTAB 23:HTAB 1:? "  Press Any Key to Continue":GET m$:RETURNACK is "; c$(lo)1090INVERSE1100? "  Current INVERSE is "; PEEK(17126)1110 hi=INT(PEEK(17126)/16)1120 lo=PEEK(17126)-(hi*16)1130? "    TEXT is "; c$(hi)1140? "    BACK is "; c$(lo)1145NORMAL1149RETURN1150?1160? "  text color that you want.  For        example, to select a light-green background (LG), choose the ROW        labeled 'LG'.  Now, move across to the COLUMN labeled 'BL' for BLack.The number in this square is 19.  By poking memory location 17115 with the number 19, you will get a light-green background with black text!     Any other background/text combination can be determined in a       similar fashion.  You will notice that several squares contain three    astericks(***).  All squares with this notatxLBasic programs.  In fact,you should get into the habit of starting EVERY program with the same commands.So, how do you do it?  Here's how:     Memory location 17115 ADD EXCITING COLORS TO YOUR BASIC PROGRAMS!It's easy to add exciting color to your Basic programs.  In fact,you should get into the habit of starting EVERY program with the same commands.So, how do you do it?  Here's how:     Memory location 171 1  change BACKDROP"1170? "  2  change NORMAL"1180? "  3  change INVERSE"1190? "  4  END   (with RESET)"1193? "  5  END   (no   RESET)"1199RETURN1300? "  >> Pick color # for "; n$; :INPUT "   "; a1310IF a<0 OR a>15 THEN 13001320?1330RETURN1400?1410FOR c=0 TO 71420? TAB(3); c$(c); TAB(16); c$(c+8)1430NEXT1440RETURN2000TEXT2010VTAB 2:? " BACKGROUND & TEXT COLOR DEMO ":?:?2020? " This program allows you to":? " see the effects of different"2030? " combinations of colors for":? " the Adam Textl, you ask, that's good and well for light-green and blacktext, but what about other color combinations?The following chart will help you determine the right number for whatever background/text color combination you desire!The left-most column lists the colors (abbreviated) from TRansparentto WHite for the background color.  The top row lists the colors fromTRansparent to WHite for the text color.     To use the chart, select the background color that you desire andmove across to the column for the 1  change BACKDROP"1170? "  2  change NORMAL"1180? "  3  change INVERSE"1190? "  4  END   (with RESET)"1193? "  5  END   (no   RESET)"1199RETURN1300? "  >> Pick color # for "; n$; :INPUT "   "; a1310IF a<0 OR a>15 THEN 13001320?1330RETURN1400?1410FOR c=0 TO 71420? TAB(3); c$(c); TAB(16); c$(c+8)1430NEXT1440RETURN2000TEXT2010VTAB 2:? " BACKGROUND & TEXT COLOR DEMO ":?:?2020? " This program allows you to":? " see the effects of different"2030? " combinations of colors for":? " the Adam Textion should be avoided sincepoking this number would make any text invisible over the same colorbackground.     You might have noticed that the top and bottom of your screen arestill black.  To change this, poke memory location 17059 with whatevercolor number you would like that is found in the FIRST column (labeledTR).  For example, to get light green, type 'POKE 17059,3: TEXT' and    hit <return>.      The memory location 17126 controls the text/background colors for the INVERSE command.  The sam 59| 75| 91|107|123|139|155|171|***|203|219|235|251|---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|DG | 12| 28| 44| 60| 76| 92|108|124|140|156|172|188|***|220|236|252|---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|MA | 13| 29| 45| 61| 77| 93|109|125|141|157|173|189|205|***|237|253|---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|GR | 14| 30| 46| 62| 78| 94|110|126|142|158|174|190|206|222|***|254|---+---+---+---+---+---+---+---+---+---+---+-|TR |***| 16| 32| 48| 64| 80| 96|112|128|144|160|176|192|208|224|240|---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|BL |  1|***| 33| 49| 65| 81| 97|113|129|145|161|177|193|209|225|241|---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|MG |  2| 18|***| 50| 66| 82| 98|114|130|146|162|178|194|210|226|242|---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|LG |  3| 19| 35|***| 67| 83| 99|115|131|147|163|179|195|211|227|243|---+---+---+---+---+---+---       MG = MEDIUM GREEN          DY = DARK YELLOW            ||           LG = LIGHT  GREEN          LY = LIGHT YELLOW           ||           DB = DARK BLUE             DG = DARK GREEN             ||           LB = LIGHT BLUE            MA = MAGENTA                ||           DR = DARK RED              GR = GRAY                   ||           CY = CYAN                  WH = WHITE                  ||                                                                  |==================================215|231|247|---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|MR |  8| 24| 40| 56| 72| 88|104|120|***|152|168|184|200|216|232|248|---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|LR |  9| 25| 41| 57| 73| 89|105|121|137|***|169|185|201|217|233|249|---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|DY | 10| 26| 42| 58| 74| 90|106|122|138|154|***|186|202|218|234|250|---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|LY | 11| 27| 43|e table values apply.====================================================================B G|                                                               |A R|                  T E X T   C O L O R                          |C N|                                                               |K D|   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |TR |BL |MG |LG |DB |LB |DR |CY |MR |LR |DY |LY |DG |MA |GR |WH |---|===============================================================--+---+---+---+---+---|WH | 15| 31| 47| 63| 79| 95|111|127|143|159|175|191|207|223|239|***|===================================================================||                                                                  ||                     K E Y   T O   C O L O R S                    ||                                                                  ||           TR = TRANSPARENT           MR = MEDIUM RED             ||           BL = BLACK                 LR = LIGHT  RED             ||    +---+---+---+---+---+---+---+---+---+---|DB |  4| 20| 36| 52|***| 84|100|116|132|148|164|180|196|212|228|244|---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|LB |  5| 21| 37| 53| 69|***|101|117|133|149|165|181|197|213|229|245|---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|DR |  6| 22| 38| 54| 70| 86|***|118|134|150|166|182|198|214|230|246|---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|CY |  7| 23| 39| 55| 71| 87|103|***|135|151|167|183|199|==================================| 47| 63| 79| 95|111|127|143|159|175|191|207|223|239|***|===================================================================||                                                                  ||                     K E Y   T O   C O L O R S                    ||                                                                  ||           TR = TRANSPARENT           MR = MEDIUM RED             ||           BL = BLACK                 LR = LIGHT  RED             ||    ? " HGR or HGR2 screen."2050RETURNNTER:"120GOSUB 180130VTAB 1:HTAB 1:INPUT "TYPE MESSAGE:"; st$135GOSUB 300140IF LEN(st$)>31 THEN ? "MESSAGE TOO LONG!  31 MAX!!":? "  press any key to continue":GET m$150IF LEN(st$)>31 THEN  st$="":VTAB 1:HTAB 1:? CHR$(24):GOTO 130154IF LEN(st$)=0 THEN 130155HGR:HCOLOR =4158 ht=2:REM   horizontal tab 159 vt=5:REM  vertical tab160GOSUB 180170ROT =16: ht=2: vt=8:GOSUB 180:ROT =32: ht=3: vt=13:GOSUB 180179END180 ht=7*(ht-1): vt=8*vt-1190FOR i=1 TO LEN(st$)200 c1LOMEM :290005REM   :program by Bob Zimmerman6POKE 17115, 23:POKE 17059, 7:POKE 17126, 253:TEXT:POKE 25568, 23:POKE 25431, 7:POKE 25471, 237GOSUB 20008? CHR$(4); "bload alphabetI":?9? " Please Use Capital Letters":VTAB 2310INVERSE11? "  Press Any Key To Continue   ":NORMAL:GET a$12HGR:HCOLOR =320POKE 16766, 9630POKE 16767, 10933SCALE =1:ROT =0:VTAB 2140 vt=5: ht=5: st$="SHAPE TABLE TEXT FOR HGR"60GOSUB 18070 vt=7: ht=5: st$="PROVIDING TEXT AND NUMBERS"80GOSUB 18090 vt=9: ht=5: st$="TRY IT!"-!$$,-µ?	-%<ß"$d-%!$$´
-%$–2&	-$$<¨-$$$!$$l	I	??$$$!$$¬f`666!$$¬ª•$$$	-$$?66!$$,-¾?	%¨ $?66!$$,-¾?-<8çd-I$$$?M%	-$$ü66&I$$ß36®!$$l	666´#!l	¾&I$äl	öI	??d<?'I	??,<,<,--HI)-%'%'%'ý?@a)-%ÿÿÿÿÿ 130155HGR:HCOLOR =4158 ht=2:REM   horizontal tab 159 vt=5:REM  vertical tab160GOSUB 180170ROT =16: ht=2: vt=8:GOSUB 180:ROT =32: ht=3: vt=13:GOSUB 180179END180 ht=7*(ht-1): vt=8*vt-1190FOR i=1 TO LEN(st$)200 ch=ASC(MID$(st$, i, 1))-32210IF ch=0 THEN 230220DRAW ch AT ht, vt230 ht=ht+8240NEXT i250RETURN300FOR i=1 TO LEN(st$)310 p$=MID$(str$, i, 1):IF ASC(p$)>90 THEN  p$=CHR$(ASC(p$)-32)320 m$=m$+p$330NEXT i340 st$=m$: m$="":RETURN2000VTAB 2:INVERSE:? " PRINTING TEXT IN HGR OR HGR2 ":NORMAL2010VTAB 7:HTAB 1:? " This program demonstrates":? " how to print text messages":? " on the HGR or HGR2 screens."2020?:? " The program will load a":? " alphabet shape table and":? " will draw each letter on the"2030       MG = MEDIUM GREEN          DY = DARK YELLOW            ||           LG = LIGHT  GREEN          LY = LIGHT YELLOW           ||           DB = DARK BLUE             DG = DARK GREEN             ||           LB = LIGHT BLUE            MA = MAGENTA                ||           DR = DARK RED              GR = GRAY                   ||           CY = CYAN                  WH = WHITE                  ||                                                                  |==================================`m?€†Ž¬¹ÈÎÖÞìõùÿ	 ,8CO]ft…‹”œ¥¯¾ÊØäðþ(0=FR^jt‚›£®¹ÆÒÛçõý	I $$	@ l6	$g< ö--&(57%%I)<ßø#7I	d¾®eI@ $I$I$I$$$–bI <o) 	$@)-%I`	-$$?66	-$$¼I	??deä?-äg ??I!,?d6&-$?',-%	-ä?7&@-	$<?'	-ä?&@d-&)e$ä?®-I@ 	  Iá@--8?'	I ?	-%@$?66Lå$!$d6?o&!$$,-¾m2?I	¸?$$-!$$,-66?)-%À?7&@$-100GOSUB 180110 vt=19: ht=5: st$="ENTER:"120GOSUB 180130VTAB 1:HTAB 1:INPUT "TYPE MESSAGE:"; st$135GOSUB 300140IF LEN(st$)>31 THEN ? "MESSAGE TOO LONG!  31 MAX!!":? "  press any key to continue":GET m$150IF LEN(st$)>31 THEN  st$="":VTAB 1:HTAB 1:? CHR$(24):GOTO 130154IF LEN(st$)=0 THEN 130155HGR:HCOLOR =4158 ht=2:REM   horizontal tab 159 vt=5:REM  vertical tab160GOSUB 180170ROT =16: ht=2: vt=8:GOSUB 180:ROT =32: ht=3: vt=13:GOSUB 180179END180 ht=7*(ht-1): vt=8*vt-1190FOR i=1 TO LEN(st$)200 c10CLEAR:POKE 17115,23:POKE 17059,3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:       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,20POKE 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    previous":? "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:HTAen=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=LEN(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                          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           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     1)TAPE  2)DISK ":GET media150DATA                                                      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 5,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  B 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+(n-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                            820GOTO 760830REM   The original program that this program is based on  is in "The Hakers Guide to ADAM"840REM   Written by: Peter & Ben Hinkle.850REM   it is available for $12.95 + $5 for a disc or DDP   with all of the programs on in.860REM   Write to:  117 N. View Road   Ithica, NY  14850870REM   or call: 607-273-1319890REM   the program in its present form has been modified   greatly.900REM   It is available on the ADAM SMARTLink with          permission from the author.910REM   This program wa 100500POKE 25431, bc%:POKE 25471, fc%:GOTO 3290600FOR hol=1 TO 300:NEXT hol:RETURN1000IF zm=1 THEN 61001002 x=INT(255*PDL(3)/255): y=INT(r*PDL(1)/255)1005 vsp=33024+4*ms: hsp=33025+4*ms1010IF y>r THEN  y=r1012IF y<0 THEN  y=01013IF x<0 THEN  x=01014IF x>254 THEN  x=2541020POKE vsp, y:POKE hsp, x:CALL 30000:RETURN1100 fx=x: fy=y:RETURN1200 tx=x: ty=y1210HCOLOR =c%: p(ap%, 1)=c%1220 p(ap%, 2)=fx: p(ap%, 3)=fy1230 p(ap%, 4)=tx: p(ap%, 5)=ty1240HPLOT fx, fy TO tx, ty1250 ap%=ap%+1:IF ap%=400 T10LOMEM :3310020 ms=0: zm=0:GOSUB 900040DIM p(400, 5), c$(16, 2), cn%(16)41 c$(0, 1)="BLACK": c$(1, 1)="GREEN": c$(2, 1)="DK.RED"42 c$(3, 1)="WHITE": c$(4, 1)="BLACK": c$(5, 1)="MDM.RED"43 c$(6, 1)="MDM.BLUE": c$(7, 1)="WHITE": c$(8, 1)="DK.YELLOW": c$(9, 1)="DK.BLUE"44 c$(10, 1)="GREY": c$(11, 1)="LT.RED": c$(12, 1)="DK.GREEN"45 c$(13, 1)="LT.YELLOW": c$(14, 1)="AQUA": c$(15, 1)="PURPLE"46 c$(0, 2)="BLACK": c$(1, 2)=c$(0, 2): c$(2, 2)="GREEN": c$(3, 2)="LT.GREEN"47 c$(4, 2)="DK.BLUE": c$(5, 2)="MD40HPLOT xf, yf TO xt, yt3050RETURN3100IF res%=2 THEN PR #13110HOME3120IF zm=1 THEN  r$="FINE ":GOTO 31403130 r$="REG. "3140? "MODE="; r$; " :BRUSH="; c$(c%, 1)3150? "CANVAS= "; c$(fc%, 2)3160? "FRAME= "; c$(bc%, 2)3170PR #0:RETURN3200IF ap%<1 AND fp%=1 THEN 32503210IF res%=2 THEN PR #13220HOME:? "SORRY!! RESOLUTION"3230? "CANNOT BE CHANGED ONCE PICTURE"3240? "IS STARTED!!":PR #0:RETURN3250HOME:? "SELECT RESOLUTION:"3260INPUT "1=HGR / 2=HGR2"; res%3270IF res%<>1 AND res%<>2 THEN 32503280PR E(0):GOSUB 1000:IF PDL(7)=1 THEN GOSUB 1100120IF PDL(9)=1 THEN GOSUB 1200130IF PDL(13)=1 THEN GOSUB 2000140GOSUB 1000:IF PDL(13)=2 THEN GOSUB 3000160IF PDL(13)=3 THEN GOSUB 3100170IF PDL(13)=4 THEN GOSUB 3200180GOSUB 1000:IF PDL(13)=5 THEN GOSUB 3400200IF PDL(13)=6 THEN GOSUB 3600210IF PDL(13)=7 THEN GOSUB 3700220GOSUB 1000:IF PDL(13)=8 THEN GOSUB 3750240IF PDL(13)=10 THEN GOSUB 4000250IF PDL(13)=11 THEN GOSUB 5000252GOSUB 1000:IF PDL(13)=0 THEN GOSUB 6000254IF PDL(13)=9 THEN GOSUB 6450260GOTOs adapted by *** THE WIZARD ***65535REM           Another Slick Program.650? " Enter Name - Game #"; (x-41083)/14+1660INPUT a$: lim=LEN(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 10HEN GOSUB 12801260RETURN1280 s$="TEMP"+STR$(fp%)1290HTAB 1:? d$; "OPEN "; s$1300HTAB 1:? d$; "WRITE "; s$1310FOR lp=0 TO ap%-11320? p(lp, 1):? p(lp, 2)1330? p(lp, 3):? p(lp, 4)1340? p(lp, 5):NEXT lp1350HTAB 1:? d$; "CLOSE "; s$1360 fp%=fp%+1: ap%=0:RETURN2000IF res%=2 THEN PR #12010HOME:? "INPUT BRUSH COLOR(0-15)"2020PR #0:INPUT c%:IF c%>15 OR c%<0 THEN 20002040RETURN3000IF ap%=0 THEN RETURN3005 ap%=ap%-13010 xf=p(ap%, 2): yf=p(ap%, 3)3020 xt=p(ap%, 4): yt=p(ap%, 5)3030HCOLOR =cn%(fc%)30M.BLUE": c$(6, 2)="DK.RED"48 c$(7, 2)="AQUA": c$(8, 2)="MDM.RED": c$(9, 2)="LT.RED"49 c$(10, 2)="DK.YELLOW": c$(11, 2)="LT.YELLOW": c$(12, 2)="DK.GREEN"50 c$(13, 2)="PURPLE": c$(14, 2)="GREY": c$(15, 2)="WHITE"51 cn%(0)=0: cn%(1)=0: cn%(2)=1: cn%(3)=152 cn%(4)=9: cn%(5)=6: cn%(6)=2: cn%(7)=1453 cn%(8)=5: cn%(9)=11: cn%(10)=854 cn%(11)=13: cn%(12)=12: cn%(13)=15: cn%(14)=10: cn%(15)=360 c%=3: ap%=0: fp%=1: bc%=1: fc%=1: res%=1: r=159: dn=070POKE 25568, 27:GOSUB 500: d$=CHR$(4):GOSUB 10000100 hol=FR#03290ON res% GOSUB 3310, 33203300RETURN3310HGR: r=159:RETURN3320HGR2: r=192:RETURN3400IF res%=2 THEN PR #13410HOME:? "ERASE PICTURE(Y/N)"3420INPUT yn$3430IF yn$="NO" OR yn$="N" OR yn$="n" OR yn$="no" THEN PR #0:RETURN3440PR #03450IF fp%>1 THEN GOSUB 34803460 ap%=0:GOSUB 32903470RETURN3480IF dn=1 THEN  dn=0:RETURN3490 fp%=fp%-13500IF fp%=0 THEN  fp%=1:RETURN3510 s$="TEMP"+STR$(fp%)3520HTAB 1:? d$; "CLOSE "; s$3530HTAB 1:? d$; "DELETE "; s$3540FOR lp=1 TO 300:NEXT lp3550GOTO 34903600IF r(8):INPUT ty:? CHR$(8)5240HCOLOR =c%5250HPLOT fx, fy TO tx, ty5260NEXT hol5270HTAB 1:? d$; "CLOSE "; s$5290GOSUB 600:NEXT lp5300IF res%=2 THEN PR #15310HOME:? "PICTURE RESTORED"5320PR #0: dn=1:RETURN6000 zm=zm-1: zm=ABS(zm)6020ON (zm+1) GOTO 6050, 60606030FOR lp=1 TO 300:NEXT lp:RETURN6050HOME:? "REGULAR MODE"6055GOTO 60306060HOME:? "FINE MODE"6065GOTO 60306100 dir=PDL(5)6110IF dir=1 THEN  y=y-16120IF dir=2 THEN  x=x+16130IF dir=3 THEN  y=y-1: x=x+16140IF dir=4 THEN  y=y+16150IF dir=6 TY!! CANVAS COLOR":GOSUB 3230:RETURN3780 s$="CANVAS":GOSUB 3800: fc%=nc3782IF fc%=0 OR fc%=1 THEN POKE 33027, 15:GOTO 37903784POKE 33027, 13790GOTO 5003800HOME:? "SELECT NEW COLOR FOR"3810? s$; " (0-15)"; 3820INPUT nc3830IF nc<0 OR nc>15 THEN 38003840PR #0:RETURN4000IF res%=2 THEN PR #14010HOME:? "NAME FOR THIS PICTURE"4020INPUT n$4030IF LEN(n$)>6 THEN ? "NAME TOO LONG (6 char. max)":GOSUB 600:GOSUB 600:GOTO 40104035PR #04040HTAB 1:? d$; "OPEN "; n$4050HTAB 1:? d$; "WRITE "; n$4060? res%:? b hol; "= "; c$(hol, lp)6615GOTO 66306620? hol; "= "; c$(hol, lp); :HTAB 156630NEXT hol:RETURN9000POKE 17115, 31:POKE 17059, 159010TEXT:VTAB 5:HTAB 119020FLASH:? "*********"9030HTAB 11:? "* "; :NORMAL:? "EASEL"; :FLASH:? " *"9040HTAB 11:? "*********":NORMAL9050?:HTAB 14:? "by":?9060HTAB 9:? "GREGG NOBLETT":?:HTAB 15:? "A"9070?:HTAB 8:? "High Resolution":?:HTAB 79080? "Picture Painting":?:HTAB 12:? "Program"9090?:HTAB 8:? "(Written 08/85)"9100FOR hol=1 TO 20000:NEXT hol9110POKE 17115, 27:POKE 1 =2555080 x=254: y=1925090INPUT "WHICH PICTURE"; n$5100HTAB 1:? d$; "OPEN "; n$5110HTAB 1:? d$; "READ "; n$5120INPUT res%:INPUT bc%:INPUT fc%5130INPUT ep%:INPUT fp%5140HTAB 1:? d$; "CLOSE "; n$5141POKE vsp, y:POKE hsp, x5145GOSUB 500:CALL 30000: ep%=ep%-15150FOR lp=1 TO fp%5160IF lp=fp% THEN  ap%=ep%:GOTO 51805170 ap%=3995180 s$=n$+STR$(lp)5190HTAB 1:? d$; "OPEN "; s$5200? d$; "read "; s$5210FOR hol=0 TO ap%5220INPUT c%:? CHR$(8):INPUT fx:? CHR$(8)5225INPUT fy:? CHR$(8)5230INPUT tx:? CHR$es%=2 THEN PR #13610HOME:INPUT "QUIT(Y/N)"; yn$3620IF yn$="NO" OR yn$="N" OR yn$="n" OR yn$="no" THEN PR #0:RETURN3630HOME:INPUT "SAVE THIS PICTURE(Y/N)"; yn$3640PR #03650IF yn$="YES" OR yn$="Y" OR yn$="y" OR yn$="yes" THEN GOSUB 40003660IF fp%>1 THEN GOSUB 34803670END3700IF res%=2 THEN PR #13710IF ap%=0 AND fp%=1 THEN 37303720HOME:? "SORRY!! FRAME COLOR":GOSUB 3230:RETURN3730 s$="FRAME":GOSUB 3800: bc%=nc:GOSUB 500:RETURN3750IF res%=2 THEN PR #13760IF ap%=0 AND fp%=1 THEN 37803770HOME:? "SORRHEN  y=y+1: x=x+16160IF dir=8 THEN  x=x-16170IF dir=9 THEN  y=y-1: x=x-16180IF dir=12 THEN  y=y+1: x=x-16190IF x<0 THEN  x=06191IF x>254 THEN  x=2546192IF y<0 THEN  y=06193IF y>r THEN  y=r6200 vsp=33024+4*ms: hsp=33025+4*ms6210POKE vsp, y:POKE hsp, x6220CALL 30000:RETURN6450IF res%=2 THEN PR #16500HOME:? "FOR: 1=BRUSH / 2= FRAME-CANVAS"6510INPUT lp6520IF lp<>1 AND lp<>2 THEN 65006530SPEED =100:GOSUB 66006550PR #0:SPEED =255:RETURN6600FOR hol=0 TO 156605IF (hol/2)=INT(hol/2) THEN 66206610?c%:? fc%4070? ap%:? fp%4080HTAB 1:? d$; "CLOSE "; n$4090GOSUB 600:GOSUB 12804110 fp%=fp%-14120FOR lp=fp% TO 1 STEP -14130 yn$="TEMP"+STR$(lp)4140 s$=n$+STR$(lp)4150HTAB 1:? d$; "RENAME "; yn$; ","; s$4170GOSUB 600:NEXT lp: dn=14190IF res%=2 THEN PR #14200HOME:? "PICTURE SAVED AS"4210? n$4220PR #0:RETURN5000TEXT5010INPUT "NEED A LISTING"; yn$5020IF yn$="NO" OR yn$="N" OR yn$="n" OR yn$="no" THEN 50805030HOME:SPEED =1005040HTAB 1:? d$; "CATALOG"5050? "HIT ANY KEY TO GO ON"5060GET yn$:SPEED7059, 11:TEXT9120HTAB 10:? "OVERLAY DATA":HTAB 10:? "------------":?9130? "O=Brush             Controller"9140? "[=Set Start Point           #1"9150? "]=Set End Point & Draw  -----"9160? "1=Select Brush Color    | O |"9170? "2=Erase Last Line Drawn |   |"9180? "3=Display Current Stats [   ]"9190? "4=Select Resolution     |---|"9200? "5=Erase Picture         |123|"9210? "6=Quit                  |456|"9220? "7=Set Frame Color       |789|"9230? "8=Set Canvas Color      |*0#|"9240? "9=List Colors AUTSIDE VALID RANGE. RE-ENT ER.":GOSUB 59800:GOSUB 59850:GOTO 12201240IF b+w>236 THEN  e$="RECORD OVERFLOW. REDUCE FIELD  LENGTH.":GOSUB 59800:GOSUB 59850:GOTO 12201250 a(x)=w:GOSUB 599901260? "IS FIELD "; x+1; " ALPHA OR NUMERIC (A/N)?":?1270 lc=1:GOSUB 500101280IF w$="A" OR w$="a" THEN  a(x+40)=0:GOTO 13101290IF w$<>"N" AND w$<>"n" THEN GOSUB 59550:GOSUB 59800:GOSUB 59850:GOTO 12701300 a(x+40)=11310 b=b+a(x):IF b=236 THEN 14001320IF x>38 THEN 14001330GOSUB 599801340? "INPUT ANOTHER FIELD (Y/N)?"O 3302710100READ val:POKE addr, val10110NEXT addr:RETURN11000DATA      14,226,6,1,205,32,25311010DATA      58,24,252,253,33,32,0,33,0,12511020DATA      17,0,0,205,44,253,58,23,252,25311030DATA      33,8,0,17,0,0,33,0011040DATA      129,205,44,253,201,25611100DATA      252,252,192,192,192,192,0,011110DATA      11,11,00,15---|"9200? "5=Erase Picture         |123|"9210? "6=Quit                  |456|"9220? "7=Set Frame Color       |789|"9230? "8=Set Canvas Color      |*0#|"9240? "9=List Colors Aa(81))=""2200GOSUB 59980: a$=STR$((a(81))+1):? TAB(3); "--- APPEND RECORD(S) ---":GOSUB 599902210GOSUB 28002220 b$(a(81))=b$(a(81))+w$2230IF (x+1)=a(80) THEN 22502240 b=b+a(x): x=x+1:GOTO 22002250 a(81)=a(81)+12260GOSUB 59990:? "CONTINUE WITH NEXT RECORD (Y/N)?":?2270 lc=1:GOSUB 500102280IF w$="Y" OR w$="y" THEN 20002290GOTO 410002800? "RECORD # "; a$; "   MAX CHARS = "; a(x); "  "; 2810IF a(x+40)=0 THEN ? " ALPHA":GOTO 28302820? " NUMERIC"2830?:?:? "FIELD # "; x+1; "NAMED: "; a$(x)2840? "___1GOTO 40000300FOR i=1 TO 83:? a(i):NEXT i1000IF aa$="" THEN 10301010GOSUB 59980:? "FILE ALREADY DEFINED....":GOSUB 59990:? "ERASE CURRENT FILE  BEFORE REDEFINEING.": i=2000:GOSUB 599701020GOTO 400001030CLEAR:GOSUB 19001099 x=01100GOSUB 599801110? "      NAME FOR FIELD # "; x+1; "?":? TAB(9); "(MAX 10 CHARS)":?1120 lc=10:GOSUB 500101130 a$(x)=w$1200GOSUB 599901210? "MAXIMUM CHARACTERS IN FIELD "; x+1; "?":? "   (LIMIT IS 40 CHARACTERS)":?1220 lc=2: ld=1:GOSUB 510101230IF w<1 OR w>40 THEN  e$="Ovailable -----"9250? "*=Save Completed Picture"9260? "0=Toggle Regular/Fine Modes"9270? "#=Retrieve & Restore A "9280HTAB 6:? "Completed Picture"9290?:?:HTAB 10:? "HIT ANY KEY":GET yn$9300POKE 17059, 5:POKE 17115, 240:TEXT9310RETURN10000 off=0: addr=30000: ml=3000010010READ val:IF val=256 THEN 1004010020POKE addr+off, val10030 off=off+1:GOTO 1001010040FOR addr=32000 TO 3200710050READ val:POKE addr, val10060NEXT addr10070FOR addr=32008 TO 3203110080POKE addr, 0:NEXT addr10090FOR addr=33024 T:?1350 lc=1:GOSUB 500101360IF w$="Y" OR w$="y" THEN  x=x+1:GOTO 11001370IF w$<>"N" AND w$<>"n" THEN GOSUB 59550:GOSUB 59800:GOSUB 59850:GOTO 13501400GOSUB 599801410? "YOU HAVE COMPLETED DEFINING THE FIELDS.":GOSUB 599901420 a(80)=x+1: a(81)=01430 c=FRE(x)-1000: a(83)=b: b=INT(c/b):IF b>999 THEN  b=9991440? "THERE IS ROOM FOR "; b; " RECORDS.": a(82)=b1450 i=1000:GOSUB 59970: aa$="D":GOTO 410001900DIM a(83), a$(39), b(39), b$(999):RETURN2000GOSUB 2900:IF g=1 THEN  g=0:GOTO 410002100 b=1: x=0: b$(vailable -----"9250? "*=Save Completed Picture"9260? "0=Toggle Regular/Fine Modes"9270? "#=Retrieve & Restore A "9280HTAB 6:? "Completed Picture"9290?:?:HTAB 10:? "HIT ANY KEY":GET yn$9300POKE 17059, 5:POKE 17115, 240:TEXT9310RETURN10000 off=0: addr=30000: ml=3000010010READ val:IF val=256 THEN 1004010020POKE addr+off, val10030 off=off+1:GOTO 1001010040FOR addr=32000 TO 3200710050READ val:POKE addr, val10060NEXT addr10070FOR addr=32008 TO 3203110080POKE addr, 0:NEXT addr10090FOR addr=33024 T____________________________":GOSUB 599902850 lc=a(x):IF a(x+40)<>0 THEN  ld=0:GOSUB 51010:GOTO 28702860GOSUB 500102870IF LEN(w$)<a(x) THEN FOR i=1 TO a(x)-LEN(w$): w$=w$+" ":NEXT i2880RETURN2900 g=0:IF a(81)>=a(82) THEN  g=1:GOSUB 59980:? "FILE IS FULL!!": i=1000:GOSUB 599702910RETURN3000GOSUB 2900:IF g=1 THEN  g=0:GOTO 410003010GOSUB 5800:IF g=1 THEN  g=0:GOSUB 59990:? "USE THE APPEND ROUTINE....": i=1000:GOSUB 59970:GOTO 410003100GOSUB 3900:GOSUB 5900:GOSUB 599903110? "INSERT BEFORE RECORD NUMB THEN  g=1:RETURN5720IF w>=1 AND w<=a(81) THEN 57405730GOSUB 59560:GOSUB 59800:GOSUB 59850:GOTO 57105740 y=w:GOSUB 59990:? "LAST RECORD TO PROCESS?":?5750GOSUB 5790:IF w=0 THEN  g=1:RETURN5760IF w<y OR w>a(81) THEN GOSUB 59560:GOSUB 59800:GOSUB 59850:GOTO 57505770 z=w:RETURN5790 lc=3: ld=1:GOSUB 51010:RETURN5800 g=0:IF a(81)=0 THEN  g=1:GOSUB 59980:? "FILE IS EMPTY!!": i=500:GOSUB 599705810RETURN5900GOSUB 59990:? "LAST RECORD IN FILE IS: "; a(81): i=500:GOSUB 59970:RETURN6000GOSUB 5800:IF g=1 THEw+1:GOTO 31403900GOSUB 59980:? TAB(3); "--- INSERT RECORD(S) ---":RETURN4000GOSUB 5800:IF g=1 THEN  g=0:GOTO 410004010GOSUB 4900:GOSUB 69004020GOSUB 59990:? "INPUT FIELD(S) TO BE CHANGED."4030GOSUB 68004040FOR i=0 TO 39:IF b(i)<>0 THEN  g=14050NEXT i:IF g=1 THEN  b=0:GOTO 41004060GOTO 410004100GOSUB 4900:GOSUB 5900:GOSUB 599904110? "BEGIN CHANGES WITH RECORD NUMBER?":?4120 lc=3: ld=1:GOSUB 51010: z=w:IF z=0 THEN 410004130IF z<1 OR z>a(81) THEN GOSUB 59560:GOSUB 59800:GOSUB 59850:GOTO 41204140 b69406570 lc=1:GOSUB 50010:IF w$="P" THEN  c=1:RETURN6580IF w$<>"S" THEN GOSUB 59550:GOSUB 59800:GOSUB 59850:GOTO 65706590 c=0:RETURN6600? "FORMAT BY FIELD #, NAME, SIZE, TYPE:":?6610FOR l=1 TO a(80):IF b(l-1)<>0 THEN 66606620IF l<10 THEN ? " "; 6630? l; ":   "; a$(l-1); SPC(30-LEN(a$(l-1))); :IF a(l-1)<10 THEN ? " "; 6640? a(l-1); " "; :IF a(39+l)=1 THEN ? "N":GOTO 66606650? "A"6660NEXT l:?:?:RETURN6700IF d=1 THEN 67206710? "( "; i+1; " )"6720 e=1:FOR k=0 TO a(80)-1:IF b(k)<>0 THEN 67406730? M10005100GOSUB 59980:? TAB(3); "--- DELETE RECORD(S) ---":GOSUB 59005110GOSUB 5700:IF g=1 THEN  g=0:GOTO 410005120GOSUB 59980:? "YOU HAVE REQUESTED THE DELETION":? "OF RECORD NUMBER(S) "; y; " THROUGH "; z5130GOSUB 59990:? "IS THIS CORRECT (Y/N)?":?5140 lc=1:GOSUB 50010:IF w$<>"Y" THEN 51005200 f=z-y+1:IF z<a(81) THEN FOR i=z TO a(81): b$(i-f)=b$(i):NEXT i5210FOR i=1 TO f: a(81)=a(81)-1: b$(a(81))="":NEXT i:GOSUB 5900:GOTO 410005700 g=0:GOSUB 59990:? "FIRST RECORD TO PROCESS?":?5710GOSUB 5790:IF w=0ER? ":?3120 lc=3: ld=1:GOSUB 51010:IF w=0 THEN 410003130IF w<1 OR w>a(81) THEN GOSUB 59560:GOSUB 59800:GOSUB 59850:GOTO 31203140FOR i=a(81) TO w-1 STEP -1: b$(i+1)=b$(1):NEXT i3150 b=1: x=0: a$=STR$(w): b$(w-1)=""3160GOSUB 3900:GOSUB 59990:GOSUB 28003170 b$(w-1)=b$(w-1)+w$:IF (x+1)=a(80) THEN 32003180 b=b+a(x): x=x+1:GOTO 31603200 a(81)=a(81)+1:GOSUB 2900:IF g=1 THEN  g=0:GOTO 410003210GOSUB 59990:? "CONTINUE INSERTING RECORDS (Y/N)":?3220 lc=1:GOSUB 50010:IF w$<>"Y" AND w$<>"y" THEN 400003230 w=N  g=0:GOTO 410006100GOSUB 59980:? TAB(3); "--- LIST RECORD(S) ---":GOSUB 59006110GOSUB 5700:IF g=1 THEN  g=0:GOTO 410006200GOSUB 65006210GOSUB 59980:IF c=1 THEN ? CHR$(13)+CHR$(4)+"PR#1":GOSUB 599906220GOSUB 66006230FOR i=y-1 TO z-16240GOSUB 67006250NEXT i6260GOSUB 59990:GOSUB 59990:? CHR$(13)+CHR$(4)+"PR#0":GOTO 410006500GOSUB 6900:GOSUB 69106510 lc=1:GOSUB 50010:IF w$<>"Y" THEN 65306520GOSUB 6920:GOSUB 68006530GOSUB 69306540 lc=1:GOSUB 50010:IF w$="Y" THEN  d=1:GOTO 65606550 d=06560GOSUB =1: x=0: a$=STR$(z)4150IF b(x)=0 THEN 42004160GOSUB 4900:GOSUB 59990:GOSUB 28004170 b$(z-1)="("+b$(z-1)+")"4180 b$(z-1)=LEFT$(b$(z-1), b)+w$+MID$(b$(z-1), b+a(x)+1)4190 b$(z-1)=MID$(b$(z-1), 2, LEN(b$(z-1))-2)4200IF (x+1)=a(80) THEN 42204210 b=b+a(x): x=x+1:GOTO 41504220IF z=a(81) THEN 410004230GOSUB 59990:? "CHANGE NEXT RECORD (Y/N)?":?4240 lc=1:GOSUB 50010:IF w$<>"Y" THEN 410004250 z=z+1:GOTO 41404900GOSUB 59980:? TAB(3); "--- CHANGE RECORD(S) ---":RETURN5000GOSUB 5800:IF g=1 THEN  g=0:GOTO 4ID$(b$(i), e, a(k))6740 e=e+a(k):NEXT k:?6750IF c<>0 THEN RETURN6760GOSUB 59990:? "PRESS 'RETURN' TO TERMINATE":? "OR":? "PRESS ANY OTHER KEY TO CONTINUE"6770GET w$:IF w$=CHR$(13) THEN  i=z-1:RETURN6780GOSUB 59980:RETURN6800? "USE FIELD NUMBERS (NOT NAMES)."6810? "END YOUR LIST BY INPUTTING THE # 0.":?:?6820 lc=2: ld=1:GOSUB 51010:IF w<0 OR w>a(80) THEN GOSUB 59560:GOSUB 59800:GOSUB 59850:GOTO 68206830IF w=0 THEN RETURN6840 b(w-1)=1:HTAB (1):GOSUB 51010:GOTO 68206900FOR i=0 TO 39: b(i)=0:NEXT i:RO 85108500IF VAL(MID$(b$(i), f, a(b)))<=VAL(MID$(b$(l), f, a(b))) THEN 85508510 t$=b$(i)8520 b$(i)=b$(l)8530 b$(l)=t$8540 d=18550NEXT i8560IF d>0 THEN 84408570IF j>1 THEN 84208580GOTO 410009000GOSUB 5800:IF g=1 THEN  g=0:GOTO 410009100GOSUB 59980:? TAB(3); "--- TALLY RECORD(S) ---":GOSUB 59009110GOSUB 5700:IF g=1 THEN  g=0:GOTO 410009200GOSUB 59980:? "TALLY ON FIELD NAMED?":?9210 lc=10:GOSUB 500109220GOSUB 7900:IF g=1 THEN  g=0:GOTO 92009230IF a(40+b)<>1 THEN  e$="FIELD SPECIFIED IS NOT NUMB0GOSUB 7900:IF g=1 THEN  g=0:GOTO 72107300GOSUB 59990:? "LOOK FOR A MATCH WITH?":?7310 lc=a(b):GOSUB 50010:GOSUB 599907320 f=1:IF b>0 THEN FOR i=0 TO b-1: f=f+a(i):NEXT i7330GOSUB 59980:IF c=1 THEN ? CHR$(13)+CHR$(4)+"PR#1":GOSUB 599907340? "SEARCH OF FIELD NAMED: "; a$(b):? "IN        RECORDS "; y; " THROUGH "; z7350? "FOR THE STRING: "; w$:GOSUB 59990: x$=w$:GOSUB 66007400FOR i=y-1 TO z-17410 t$=MID$(b$(i), f, a(b))7420FOR j=0 TO a(b)-LEN(x$)7430IF x$<>MID$(t$, j+1, LEN(x$)) THEN 75007440GOSUB  i=1000:GOSUB 59970:GOTO 4000011000GOSUB 59980:POKE 17059, 10:TEXT:ONERR  GOTO 3090011010? CHR$(13)+CHR$(4)+"CATALOG"11020GOSUB 59990:? "PRESS ANY KEY TO RETURN TO MENU...":?11030GET w$:CLRERR:GOTO 4000012000POKE 17059, 6:GOSUB 59980:? "   "; :FLASH:? "RETURNING TO"; :NORMAL:? " BASIC "; :FLASH:? "DESTROYS"12001NORMAL:? "   "; :FLASH:? "ANY DATA CURENTLY IN MEMORY":NORMAL:GOSUB 59990:? "    IS THAT OK (Y/N)?":?12010 lc=1:GOSUB 50010:IF w$<>"Y" AND w$<>"y" THEN 4000012020POKE 17059, 5:POKE 17115, 16:  g=0:GOTO 41008120IF z-y<1 THEN  e$="YOU MUST PROVIDE A RANGE > 1 TO SORT.":GOSUB 59800:GOTO 410008200GOSUB 59980:? "SORT ON FIELD NAMED?":?8210 lc=10:GOSUB 500108220GOSUB 7900:IF g=1 THEN  g=0:GOTO 82008300GOSUB 59980:? "SORTING RECORD NUMBERS "; y; " THROUGH "; z; 8400 y=y-1: z=z-1: f=1:IF b>0 THEN FOR i=0 TO b-1: f=f+a(i):NEXT i8410 j=z-y+18420 j=INT(j/2)8430 k=z-j8440 d=08450FOR i=y TO k8460 l=i+j8470IF a(40+b)=1 THEN 85008480IF MID$(b$(i), f, a(b))<=MID$(b$(l), f, a(b)) THEN 85508490GOTETURN6910GOSUB 59980:? " WANT TO SUPPRESS ANY FIELDS":? TAB(13); "(Y/N)?":?:RETURN6920GOSUB 59980:? "INPUT FIELD(S) TO BE SUPPRESSED>":RETURN6930GOSUB 59980:? "SUPPRESS RECORD NUMBERS (Y/N)?":?:RETURN6940GOSUB 59980:? "OUTPUT TO SCREEN OR PRINTER":? TAB(13); "(S/P)?":?:RETURN7000GOSUB 5800:IF g=1 THEN  g=0:GOTO 410007100GOSUB 59980:? TAB(3); "--- FIND RECORD(S) ---":GOSUB 59007110GOSUB 5700:IF g=1 THEN  g=0:GOTO 410007200GOSUB 65007210GOSUB 59980:? "SEARCH FIELD NAMED?":?7220 lc=10:GOSUB 50010723ERIC.":GOSUB 59800:GOTO 410009300 d=0: f=1:IF b>0 THEN FOR i=0 TO b-1: f=f+a(i):NEXT i9310FOR i=y-1 TO z-19320 d=d+VAL(MID$(b$(i), f, a(b)))9330NEXT i9400GOSUB 59980:? "TALLY FOR FIELD NAMED "; a$(b)9410? "IN RECORD(S) "; y; " THROUGH "; z; " IS:":GOSUB 599909420? d9430GOSUB 59990:? "PRESS ANY KEY TO CONTINUE..."9440GET w$:GOTO 4100010000GOSUB 5998010010? "DO YOU WISH TO ERASE THIS FILE (Y/N)?":?10020 lc=1:GOSUB 5001010030IF w$<>"Y" THEN 4000010040CLEAR:GOSUB 59980:? "FILE HAS BEEN ERASED...":67007450 j=a(b)-LEN(x$)7500NEXT j:NEXT i7510GOSUB 59990:GOSUB 59990:? CHR$(13)+CHR$(4)+"PR#0":GOTO 410007900 b=-1:FOR k=0 TO a(80)-1:IF w$=a$(k) THEN  b=k: k=a(80)7910NEXT k7920IF b>=0 THEN RETURN7930GOSUB 59980:? "NO FIELD NAMED: "; w$: i=500:GOSUB 59970:GOSUB 599907940? "VALID FIELD NAMES ARE:":?7950FOR k=0 TO a(80)-1:? a$(k): i=500:GOSUB 59970:NEXT k7960 g=1:RETURN8000GOSUB 5800:IF g=1 THEN  g=0:GOTO 410008100GOSUB 59980:? TAB(3); "--- SORT RECORD(S) ---":GOSUB 59008110GOSUB 5700:IF g=1 THENGOSUB 59980:END20000IF aa$="D" THEN 1000020100GOSUB 59980:? TAB(2); "--- READ FILE FROM TAPE ---":GOSUB 5999020110CLEAR:GOSUB 1900:GOSUB 20900:ONERR  GOTO 3090020200? x$; "OPEN "; w$20210? x$; "READ "; w$20300FOR i=0 TO 83:INPUT a(i):NEXT i20310FOR i=0 TO 39:INPUT a$(i):NEXT i20320FOR i=0 TO a(81):INPUT b$(i):NEXT i20400? x$; "CLOSE "; w$20410 aa$="D":CLRERR:GOTO 4000020900? TAB(8); "SPECIFY FILE NAME":? TAB(7); "(MAX 30 CHARACTERS)":?20910 lc=30:GOSUB 5001020920 x$=CHR$(13)+CHR$(4):RETURN3000$)<>13 THEN 5010050080IF LEN(w$)>0 THEN RETURN50090GOSUB 59520:GOSUB 59800:GOTO 5002050100IF LEN(w$)>=lc THEN GOSUB 59510:GOSUB 59800:GOTO 5002050110 w$=w$+i$:? i$; :GOTO 5002051000 lc=40: ld=051010 w=051020GOSUB 5001051030IF LEFT$(w$, 1)=CHR$(0) THEN 5106051040IF (LEFT$(w$, 1)="." OR LEFT$(w$, 1)="-") AND (LEN(w$)>1) THEN 5107051050IF LEFT$(w$, 1)>"/" AND LEFT$(w$, 1)<":" THEN 5107051060GOSUB 59530:GOSUB 59800:GOSUB 59850:GOTO 5101051070 li=LEN(w$): w=VAL(w$): w$=STR$(w):IF li<>LEN(w$) THEN 510  TAPE.":GOSUB 59990:? "PRESS ANY KEY TO RETURN TO MENU"30910GET w$:CLRERR:GOTO 4000040000POKE 17115, 240:POKE 17059, 4:GOSUB 59980:GOSUB 59990:GOSUB 5999040010? TAB(7); "1. USE ADAMBASE"40020? TAB(7); "2. DEFINE RECORD FORMAT"40030? TAB(7); "3. READ FILE FROM TAPE"40040? TAB(7); "4. WRITE FILE TO TAPE"40050? TAB(7); "5. READ TAPE CATALOG"40060? TAB(7); "6. EXIT TO BASIC"40080?:?40090? TAB(7); "9. ERASE FILE FROM MEMORY"40500VTAB (23):GET i$: i=ASC(i$)-48:IF i<0 OR i>9 THEN 4050040510ON i+1 GOTO(36): cv=PEEK(37):VTAB (22):HTAB (1)59810GOSUB 5995059820? e$; 59830 i=500:GOSUB 5997059850HTAB (1):? CHR$(7):RETURN59950? CHR$(7):FOR i=1 TO 30: i=i:NEXT i:? CHR$(7):RETURN59970FOR i=i TO 0 STEP -1: i=i:NEXT i:RETURN59980TEXT59990?:?:?:RETURN0) THEN 5106051040IF (LEFT$(w$, 1)="." OR LEFT$(w$, 1)="-") AND (LEN(w$)>1) THEN 5107051050IF LEFT$(w$, 1)>"/" AND LEFT$(w$, 1)<":" THEN 5107051060GOSUB 59530:GOSUB 59800:GOSUB 59850:GOTO 5101051070 li=LEN(w$): w=VAL(w$): w$=STR$(w):IF li<>LEN(w$) THEN 51000VTAB (23):GET i$: i=ASC(i$)-48:IF i<0 OR i>9 THEN 4150041510ON i+1 GOTO 41500, 2000, 3000, 4000, 5000, 6000, 7000, 8000, 9000, 4000041900IF aa$<>"D" THEN POKE 17059, 3:GOSUB 59980:GOSUB 59990:? "   NO FILE IN MEMORY.....": i=500:GOSUB 59970: g=141910RETURN50000 lc=4050010 w$=""50020GET i$:IF ASC(i$)<>8 THEN 5006050030IF LEN(w$)>1 THEN  w$=LEFT$(w$, LEN(w$)-1):? i$:GOTO 5001050040IF LEN(w$)=1 THEN  w$="":? i$; 50050GOTO 5002050060IF ASC(i$)=44 THEN GOSUB 59500:GOSUB 59800:GOTO 5002050070IF ASC(i0GOSUB 41900:IF g=1 THEN  g=0:GOTO 4000030010GOSUB 5800:IF g=1 THEN  g=0:GOTO 4000030100GOSUB 59980:? TAB(3); "--- SAVE FILE TO TAPE ---":GOSUB 5999030110GOSUB 20900:ONERR  GOTO 3090030200? x$; "OPEN "; w$30205? x$; "CLOSE "; w$30210? x$; "DELETE "; w$30220? x$; "OPEN "; w$30230? x$; "WRITE "; w$30300FOR i=0 TO 83:? a(i):NEXT i30310FOR i=0 TO 39:? a$(i):NEXT i30320FOR i=0 TO a(81):? b$(i):NEXT i30400 t$="CLOSE "+w$:? x$; t$30410CLRERR:GOTO 4000030900GOSUB 59980:? "I/O ERROR. RECOMMEND CHECKING6051080IF ld=0 THEN RETURN51090IF (w-INT(w))<>0 THEN GOSUB 59540:GOSUB 59800:GOSUB 59850:GOTO 5101051100 ld=0:RETURN59500 e$="SORRY, COMMAS NOT PERMITTED!":RETURN59510 e$="MAX FIELD LENGTH HAS BEEN REACHED":RETURN59520 e$="PLEASE! YOU MUST INPUT SOMETHING!":RETURN59530 e$="INVALID NUMERICAL FORM> RE-ENTER DATA.":RETURN59540 e$="AN INTEGER VALUE IS REQUESTED, PLEASE.":RETURN59550 e$="PLEASE RESPOND IN THE FORMAT REQUESTED.":RETURN59560 e$="NUMBER OUTSIDE VALID RANGE. RE-ENTER.":RETURN59800 ch=PEEK 40500, 41000, 1000, 20000, 30000, 11000, 12000, 40500, 40500, 1000041000GOSUB 41900:IF g=1 THEN  g=0:GOTO 4000041010POKE 17115, 16:POKE 17059, 7:GOSUB 59980:GOSUB 59990:GOSUB 5999041020? TAB(7); "1. APPEND RECORD(S)"41030? TAB(7); "2. INSERT RECORD(S)"41040? TAB(7); "3. CHANGE RECORD(S)"41050? TAB(7); "4. DELETE RECORD(S)"41060? TAB(7); "5. LIST RECORD(S)"41070? TAB(7); "6. FIND RECORD(S)"41080? TAB(7); "7. SORT RECORD(S)"41090? TAB(7); "8. TALLY RECORD(S)"41100? TAB(7); "9. ** NEXT MENU **"415                      *** ADAMBASE DOCUMENTATION ***     This program was originally written for the Apple  and was dependent an several ML routines in the Apple that didn't work very well on ADAM. Some translations were simpleSome not. Some work, but not quite the neatest possible.. I will attempt to point out some pitfalls, mainly in the inputting of data. ONE word is "CAREFULLY", USE the   backspace key to go back and correct.  Using the "ARROW"key will not work, it ADDS a character to the rec  characters to each field, A(40)-A(79) indicate          Alpha (= 0), or NUMERIC (= 1), A(80)= TOTAL # OF          FIELDS, A(81)= CURRENT FILE RECORD COUNT or EOF          MARKER, A(82)= MAX # of RECORDS PERMITTED IN FILE          A(83)= MAX # of CHARACTERS IN A RECORD.AA$       Used as a flag to indicate if a file has been           defined.B         Temporary working register (# of characters           allowed in a field,starting position of a field.B$(*)     Records arrayB(*)      Used to flagber of fields il limited to 40.  This is just to keepthings managable, this to could be changed, for special applications if desired.  APPEND RECORDSThis routine adds records to the END of the existing file(or newly formatted file).INSERT ROUTINE  does same as APPEND, but INSERTS between existing records.CHANGE ROUTINEChanges specified fields contents in specified records.DELETE ROUTINEDeletes Records in range provided by userLIST RECORDSOutputs records specified by user, to Screen or PrinterF   Temporary loop counter.K         Temporary loop counter.L         Temporary loop counter.LC        Maximum characacters to be allowed during input.LD        If non-zero, only interger values will be accepted          as valid during numeric input.LI        Temporary registerT$        Temporary record working buffer.W         Numeric input register.W$        String input register.X         Temporary register; alternate input registerX$        Temporary string register; alternate string input  found that the only times I had problems it was when I misspelled file-names, so a word to the wise......     This works fine on my Adam, but I understand that notall ADAMS were created equal, so if anyone has any problems let me know.  For those of you that like to tinker, the following is a listing of all of the variables, their usage, and a list of the major subroutines.A$        Temporary working buffer.A$(*)     Field names.A(*)      Field and file control array. A(0)-A(39)= # of         ord.When you use the backspace key, the cursor will move down aline, do not retype the whole field, just your correction.     This program was designed to be customized easily, add to, delete from, "anything you'd like".A few words on the exiting progam:RECORD FORMATTINGEach record is restricted to a TOTAL of 236 characters, toallow for "CHANGE" of a record.  The program will calculatethe tatal possible records, based on available memory/lengthof each record + some room for "work space".The num fields(suppress output,inhibit           selection during CHANGE operations.C         Temporary counter; Printer-selected flag.CH        Horizontal cursor position register.CV        Vertical cursor position register.D         Flag(suppress display of record #) and temporary          register.E         Character position counter.G         Error-condition flag. Used to notify calling           routine if subroutine aborted.I         Temporary loop counter.I$        Input character buffer.J      IND ROUTINEWill FIND a match for a given string, and output the matchedrecord to Screen or Printer.SORT ROUTINEThis routine utilizes the "shell sort" method to sort the records. Large files may take awhile,  Be patient.TALLYSums named NUMERIC field, and displays the result.SAVE/READ FILESTHIS ROUTINE HAS ON OCCASION HAS CAUSED A CRASH !!I would suggest getting a catalog before READing a file, TYPE THE NAME CAREFULLY !! (remember that word ?) I don't know exactly what caused the crashes.  I have         register.Y         Temporary registerZ         Temporary register                         MAJOR SUBROUTINES1000      RECORD FORMATTING ROUTINE2000      APPEND ROUTINE3000      INSERT ROUTINE4000      CHANGE ROUTINE5000      DELETE ROUTINE6000      LIST ROUTINE7000      FIND ROUTINE8000      SORT ROUTINE9000      TALLY ROUTINE10000     ERASE FILE ROUTINE11000     CATALOG ROUTINE12000     PROGRAM EXIT ROUTINE20000     READ FILE FROM TAPE ROUTINE30000     SAVE FILE TO TAPE ROUTINE40? " ADAM will be able to load it":? " about 7 times faster than":? " normal!":?2030? " If you already have a file":? " entitled 'CRUNCHER' then":? " exit this program when"2040? " prompted on the next screen":?2050VTAB 23:HTAB 1:GOSUB 6000:GET m$:TEXT2060VTAB 3:GOSUB 5000:?:?2070VTAB 8:HTAB 1:? " DO YOU HAVE A CRUNCHER FILE?":?:?2080? "   1. Yes - Exit Program":? "   2. No  - Continue Program":? "   3. Don't Know!":?2090VTAB 18:HTAB 1:? " PLEASE SELECT:"; :GET m$:IF VAL(m$)<1 OR VAL(m$)>3 THEN 209010POKE 17115, 23:POKE 17059, 7:POKE 17126, 244:TEXT13GOSUB 200015VTAB 10:HTAB 8:? "WORKING"20POKE 16149, 255:POKE 16150, 25530 a=56320: b=040READ z:IF z=999 THEN 99050POKE a+b, z60 b=b+1:GOTO 40100DATA    205,205,31110DATA    197,229,213120DATA    245,237,91,223,62130DATA    237,107,239,62140DATA    229,167,237,82150DATA    229,193,3,237,91,237,62160DATA    27,225,237,184,1,30,0170DATA    33,246,62,237,184180DATA    1,55,0,33,206,220,237,184190DATA    33,128,209,167,237,82200DATA    34,149Milwaukee, WI 53207"2240VTAB 23:HTAB 1:GOSUB 6000:GET m$:TEXT2250VTAB 3:HTAB 1:GOSUB 5000:?:?2260? "   You will be prompted to":? " BSAVE a portion of memory":? " created by this program."2270?:? "   You will see the message:":?:? " BSAVE CRUNCHER,A56320,L20  7":?2280? "   Run your cursor under":? " BSAVE CRUNCHER,A56320,L207 and"; 2290? " continue to run the cursor":? " to the end of the line.":? " Then hit <return> and your"2300? " CRUNCHER program will be":? " done!"2310VTAB 23:HTAB 1:GOSUB 6000:TA    1,31,0,237,176,195,0,220340DATA    1,30,0,17,217,62,237,176350DATA    229,237,91,223,62360DATA    237,107,239,62,167370DATA    237,82,229,193,3,3,225380DATA    237,176,209,225,193,201,999990TEXT1000? "Run the cursor over the        following line to save Cruncher"; :?1010?1020? "  BSAVE CRUNCHER,A56320,L207"1030VTAB 3:HTAB 1:END2000VTAB 3: t$="   PROGRAM CRUNCHER UTILITY   ":GOSUB 5000:?:?2010? "   This program will enable ":? " you to convert any program":? " written in Basic so that"2020000     PRIMARY MENU ROUTINE41000     SECONDARY MENU ROUTINE50000     ALPHA-NUMERIC INPUT ROUTINE51000     NUMERIC INPUT ROUTINE59500     ERROR MESSAGES59800     MISCELLANEOUS UTILITY SUBROUTINESThere `tis, DbaseIII (tm) it's not  but whatta ya wany fo nutin ? .......Any comments,ideas,  problems, the number is 72257,2007./z                                                           Press <CR> to continue: ; alternate input registerX$        Temporary string register; alternate string input  2100IF VAL(m$)=1 THEN TEXT:END2110IF VAL(m$)=2 THEN TEXT:GOTO 22002120IF VAL(m$)=3 THEN TEXT:HTAB 1:? CHR$(4); "catalog":VTAB 23:HTAB 12130GOSUB 6000:GET m$:TEXT:GOTO 20602200TEXT:VTAB 3:HTAB 1:GOSUB 5000:?:?2210? "   This program originally":? " appeared in 'THE ADAM ":? " TECHNICAL JOURNAL', vol. 1,"2220? " no. 3.  You are encouraged":? " to subscribe to benefit from":? " a rich source of ADAM"2230? " technical data.  The address":? " is:":?:? " Serendipity Productions":? " P.O. Box 07592"2235? " ,220,19,203,122210DATA     40,17,122,230,127,87220DATA    62,255,50,136,220,62,127230DATA    50,137,220,19,24,8,62,0240DATA    50,136,220,50,137,220250DATA    0,237,83,140,220,217260DATA    14,38,217,17,112,220270DATA    205,174,30,241,209,225,193,201,0,0,0,0,0,0280DATA    39,7,145,19,93,98,115,97,118,101,32,80,82,79,71290DATA    82,65,77,46,77,65,44,97,186,139,0,0,160,139,0300DATA    0,186,145,2,44,108,186,139,0,0,0310DATA    197,229,213,205,133,251320DATA    59,59,225,17,18,0,25,17,0,220330DAGET m$2320TEXT:VTAB 3:HTAB 1:GOSUB 5000:?:?2330? "   For more detailed":? " information, see the":? " documentation file for the"2340? " CRUNCHER program.":VTAB 23:HTAB 1:GOSUB 6000:GET m$:TEXT:RETURN5000INVERSE:? t$:NORMAL:RETURN6000INVERSE:? "  Press Any Key To Continue   ":NORMAL:RETURNL', vol. 1,"2220? " no. 3.  You are encouraged":? " to subscribe to benefit from":? " a rich source of ADAM"2230? " technical data.  The address":? " is:":?:? " Serendipity Productions":? " P.O. Box 07592"2235? " gram is an original program for the Puget Sound Adam Network by Bob     Zimmerman.     We highly recommend that you subscribe to the Adam      Technical Journal to be able to receive all of the           information and data necessary to make your ADAM a more      powerful tool.     You may subscribe as follows:          Send $18 per year US & Canada          or $23 per year any other country          payable by check or money order to          SERENDIPITY PRODUCTIONS          PO Box 07592     ÜÍÍÅåÕõí[ß>íkï>å§íRåÁí[í>áí¸!ö>í¸7!ÎÜí¸!€Ñ§íR"•ÜËz(zæW>ÿ2ˆÜ>2‰Ü>2ˆÜ2‰ÜíSŒÜÙ&ÙpÜÍ®ñÑáÁÉ'‘]bsave PROGRAM.MA,aº‹ ‹º‘,lº‹ÅåÕÍ…û;;áÜí°ÃÜÙ>í°åí[ß>íkï>§íRåÁáí°ÑáÁÉRSE:? t$:NORMAL:RETURN6000INVERSE:? "  Press Any Key To Continue   ":NORMAL:RETURNL', vol. 1,"2220? " no. 3.  You are encouraged":? " to subscribe to benefit from":? " a rich source of ADAM"2230? " technical data.  The address":? " is:":?:? " Serendipity Productions":? " P.O. Box 07592"2235? " ter  it has been interpreted.  So, when you load it, it doesn't   have to be interpreted-- and that saves a lot of time.     For example, a program 24 K long would take about 4     minutes and 26 seconds to load from tape EXCLUDING the time  that it takes to locate it on tape.  After this same program has been CRUNCH-ed, it will load in about 36 seconds, or     about 7 times faster.     Now, you can't just BSAVE a tokenized BASIC program     because ADAM stores the variables and other critical pieces  ox	E     The Crunch Program, created by the CrnchMAKE programoriginally appeared in "The Adam Technical Journal", Volume  1, Number 3, Copyright 1985.  The CrnchMAKE progra                FAST LOADING CRUNCHER PROGRAM                     documentation file     The Crunch Program, created by the CrnchMAKE programoriginally appeared in "The Adam Technical Journal", Volume  1, Number 3, Copyright 1985.  The CrnchMAKE proMilwaukee, WI 53207"2240VTAB 23:HTAB 1:GOSUB 6000:GET m$:TEXT2250VTAB 3:HTAB 1:GOSUB 5000:?:?2260? "   You will be prompted to":? " BSAVE a portion of memory":? " created by this program."2270?:? "   You will see the message:":?:? " BSAVE CRUNCHER,A56320,L20  7":?2280? "   Run your cursor under":? " BSAVE CRUNCHER,A56320,L207 and"; 2290? " continue to run the cursor":? " to the end of the line.":? " Then hit <return> and your"2300? " CRUNCHER program will be":? " done!"2310VTAB 23:HTAB 1:GOSUB 6000:     Milwaukee, WI  53207          Published bi-monthly     Here's the information you need to use the CRUNCHER     program:     When you load a SmartBasic program, the interpreter     must convert the text into tokenized code, just as if you    were typing it all in from the keyboard.  That can take a    lot of time, as you must know if you've ever loaded a 24 K   program from tape!     The beauty of the CRUNCHER program is that it saves     your Basic program on your tape or disk just as it is afMilwaukee, WI 53207"2240VTAB 23:HTAB 1:GOSUB 6000:GET m$:TEXT2250VTAB 3:HTAB 1:GOSUB 5000:?:?2260? "   You will be prompted to":? " BSAVE a portion of memory":? " created by this program."2270?:? "   You will see the message:":?:? " BSAVE CRUNCHER,A56320,L20  7":?2280? "   Run your cursor under":? " BSAVE CRUNCHER,A56320,L207 and"; 2290? " continue to run the cursor":? " to the end of the line.":? " Then hit <return> and your"2300? " CRUNCHER program will be":? " done!"2310VTAB 23:HTAB 1:GOSUB 6000:f information separate from the code.  So what the CRUNCHER program does is to save all of this critical information     along with your BASIC program and then re-distribute this    information upon loading.     To crunch a program, do the following:  1. Load Basic  2. Load your Basic program that you want CRUNCH-ed  3. Type:  BRUN CRUNCHER     Note: it should be obvious, but when you type BRUN      CRUNCHER, the CRUNCHER program must be on the tape or disk   in your drive!  Otherwise, you'll just  Keys       ":GOSUB 5000130VTAB 23:HTAB 1: m$="  Hit <Return> to Select   ":GOSUB 5000:POKE 64885, 0141 n=PEEK(64885):IF n=160 OR n=162 THEN GOSUB 1000:POKE 64885, 0143IF n<>13 THEN 141144IF t=tn THEN VTAB 23:HTAB 1:POKE 16958, 95:END145IF t=1 THEN VTAB 2:HTAB 1:GOTO 9000148IF me$(t)=" SoundDoc" THEN VTAB 2:HTAB 1:GOTO 6000149IF me$(t)=" BnT_Doc" OR me$(t)="Util_DOC" THEN VTAB 2:HTAB 1:GOTO 6100150IF me$(t)="Utility" THEN VTAB 2:HTAB 1:GOTO 6300155VTAB 22:HTAB 1: m$="   Loading--Please Wait!   ":GO                          |          Run cursor to here   |          and hit <return>      Your program name cannot be longer than 10 characters.     If it is less than 10, put spaces to fill between the     end of your program name and the comma.     Do not change any of the numbers after the 'a' or the     lower-case 'L'.  6. Your drive should whirl and save a binary file (file    type H) with the name that you put in place of PROGRAM.MA.  7. TYPE: BRUN My-program-name, where obviously you pEN(m$))/2:? TAB(p); :INVERSE:? " "; m$:NORMAL:RETURN6000TEXT6010 m$="   SOUNDDOC INSTRUCTIONS   ":GOSUB 50006015FOR i=2 TO 23:VTAB i:HTAB 2:INVERSE:? " "; :HTAB 29:? " ":NEXT:NORMAL6018VTAB 6:HTAB 56020? "The Sounddoc Program"; 6025VTAB 7:HTAB 5:? "is a TEXT FILE that"; 6027VTAB 8:HTAB 5:? "must be accessed from"; 6028VTAB 9:HTAB 5:? "Word Processing"; 6029VTAB 12:HTAB 56030? "Please exit this program"; 6032VTAB 13:HTAB 5:? "and read the text file."; 6034 m$="Press <Return> to Continue ":HTAB 110REM     TOOLKIT MENU PROGRAM12 tn=13:REM     tn=# items in menu15DIM menu$(tn)30POKE 17115, 23:POKE 17059, 7:POKE 17126, 253:TEXT32POKE 16149, 255:POKE 16150, 25535?:RESTORE: t=140 m$="T O O L K I T   M E N U !"50GOSUB 500060?70FOR i=1 TO tn80READ me$(i)90NEXT i93FOR i=2 TO 23:VTAB i:HTAB 2:INVERSE:? " "; :HTAB 29:? " ":NEXT:NORMAL100FOR i=1 TO tn:HTAB 9105VTAB 3+i110IF i=1 THEN INVERSE:? i; ". "; me$(i); :NORMAL:NEXT i115? i; ". "; me$(i); 120NEXT i125VTAB 22:HTAB 1: m$="      Use Arrowget the message,      'File Not Found'.     If your tape or disk does not have a copy of CRUNCHER,  then first run CrnchMAKE to make a CRUNCHER program.  4. You will see the message, BSAVE PROGRAM.MA,a#####,l###  5. Run your cursor under BSAVE and change the word         PROGRAM.MA to the title of your program and continue to run  the cursor to the end of the number after the lower-case L     For example, if you saw the message:  BSAVE PROGRAM.MA,a43293,l1098                                ^     SUB 5000200? CHR$(4); "run "; me$(t)1000REM           1030IF n=160 AND t=1 THEN VTAB 3+t:HTAB 9:? t; ". "; me$(t); : t=tn+1:GOTO 10451040IF n=160 THEN VTAB 3+t:HTAB 9:? t; ". "; me$(t); 1045IF n=160 THEN  t=t-1:VTAB 3+t:HTAB 9:INVERSE:? t; ". "; me$(t); :NORMAL:RETURN1050IF n=162 AND t=tn THEN VTAB 3+t:HTAB 9:? t; ". "; me$(t); : t=0:GOTO 10651060IF n=162 THEN VTAB 3+t:HTAB 9:? t; ". "; me$(t); 1065IF n=162 THEN  t=t+1:VTAB 3+t:HTAB 9:INVERSE:? t; ". "; me$(t); :NORMAL:RETURN1070RETURN5000 p=(31-Lut the name of the program you have just saved.  For example, if    you BSAVED your program as FASTDEMO, then you would type:BRUN FASTDEMO and hit <return>.  8. You will get the message: Illegal Form of OS Command.   Just ignore this, because it's a bug in basic.  9. Type: RUN     Your program will run just like it used to!     For further information, we suggest that you send for a copy of the ADAM TECHNICAL JOURNAL, volume 1, number 3.  The cost is $5.l1098                                ^     6035VTAB 23:GOSUB 5000:GET m$:VTAB 1:HTAB 1:GOTO 306040END6100TEXT:IF me$(t)<>" BnT_Doc" THEN 62006110 m$="    BnT_DOC INSTRUCTIONS   ":GOSUB 50006115FOR i=2 TO 23:VTAB i:HTAB 2:INVERSE:? " "; :HTAB 29:? " ":NEXT:NORMAL6118VTAB 6:HTAB 56120? "The BnT_Doc Program "; 6125VTAB 7:HTAB 5:? "is a TEXT FILE that"; 6127VTAB 8:HTAB 5:? "must be accessed from"; 6128VTAB 9:HTAB 5:? "Word Processing"; 6129VTAB 12:HTAB 56130? "Please exit this program"; 6132VTAB 13:HTAB 5:? "and read the text file."; 6134 m$=nl$9180IF LEN(me$(t))<28 THEN  me$(t)=me$(t)+CHR$(32)9190VTAB 2:HTAB 2:INVERSE:? me$(t); :NORMAL9200IF t<>2 THEN 93009205 d=49207FOR i=1 TO 4:VTAB 2+i:HTAB 5:? "                       "; :NEXT9210VTAB 3+d:HTAB 5:? "Soundex is a program"; 9220VTAB 4+d:HTAB 5:? "that allows you to"; 9230VTAB 5+d:HTAB 5:? "enter and file names "; 9240VTAB 6+d:HTAB 5:? "in Soundex Folders"; 9250VTAB 7+d:HTAB 5:? "                      "; 9260VTAB 8+d:HTAB 5:? "The program is described"; 9270VTAB 9+d:HTAB 5:? "as a$="Press <Return> to Continue ":HTAB 16235VTAB 23:GOSUB 5000:GET m$:VTAB 1:HTAB 1:GOTO 306300TEXT6310 m$="    UTILITY INSTRUCTIONS   ":GOSUB 50006315FOR i=2 TO 23:VTAB i:HTAB 2:INVERSE:? " "; :HTAB 29:? " ":NEXT:NORMAL6318VTAB 6:HTAB 56320? "The Utility Program "; 6325VTAB 7:HTAB 5:? "is a Binary File.  "; 6327VTAB 8:HTAB 5:? "                     "; 6328VTAB 9:HTAB 5:? "               "; 6329VTAB 12:HTAB 56330? "Please exit this program"; 6332VTAB 13:HTAB 5:? "and hit reset!         "; 6334 m$drop,   "; 9325VTAB 6+d:HTAB 5:? "Background, and Text    "; 9330VTAB 7+d:HTAB 5:? "Colors.                 "; 9340VTAB 8+d:HTAB 5:? "                        "; 9345VTAB 9+d:HTAB 5:? "                        "; 9350VTAB 10+d:HTAB 5:? "It also modifies the    "; 9355VTAB 11+d:HTAB 5:? "Text and Background     "; 9360VTAB 12+d:HTAB 5:? "colors in INVERSE mode. "; 9365VTAB 13+d:HTAB 5:? "Also see BnT_Doc        "; 9370FOR i=1 TO 3:VTAB 13+d+i:HTAB 5:? "                        "; :NEXT9380GOSUB 20000:EEK(64885):IF n=160 OR n=162 THEN GOSUB 1000:POKE 64885, 09100IF n<>13 THEN 90909110IF t=tn THEN 1449120IF t=1 THEN  m$=" T O O L K I T   M E N U ! ":VTAB 2:HTAB 1:GOSUB 50009130IF t=1 THEN HTAB 9:VTAB 4:INVERSE:? "1.  Descriptions! "; :POKE 64885, 0:NORMAL: me$(t)=" Descriptions! "9140IF t=1 THEN GOTO 1419150IF LEN(me$(t))<28 THEN  nl=(28-(INT(LEN(me$(t)))))/2: ml=28-nl-LEN(me$(t))9160FOR i=1 TO nl: nl$=nl$+CHR$(32):NEXT i:FOR i=1 TO ml: ml$=ml$+CHR$(32):NEXT i9170 me$(t)=nl$+me$(t)+ml$: nl$="": ml$="Press <Return> to Continue ":HTAB 16135VTAB 23:GOSUB 5000:GET m$:VTAB 1:HTAB 1:GOTO 306200TEXT6210 m$="   Util_DOC INSTRUCTIONS   ":GOSUB 50006215FOR i=2 TO 23:VTAB i:HTAB 2:INVERSE:? " "; :HTAB 29:? " ":NEXT:NORMAL6218VTAB 6:HTAB 56220? "The Util_DOC Program "; 6225VTAB 7:HTAB 5:? "is a TEXT FILE that"; 6227VTAB 8:HTAB 5:? "must be accessed from"; 6228VTAB 9:HTAB 5:? "Word Processing"; 6229VTAB 12:HTAB 56230? "Please exit this program"; 6232VTAB 13:HTAB 5:? "and read the text file."; 6234 m 'Telephone        "; 9275VTAB 10+d:HTAB 5:? "Assistant'            "; 9277VTAB 11+d:HTAB 5:? "                        "; 9280VTAB 12+d:HTAB 5:? "Program is Menu Driven "; 9290FOR i=1 TO 4:VTAB 12+d+i:HTAB 5:? "                        "; :NEXT9299GOSUB 20000:GET m$:GOTO 309300IF t<>3 THEN 94009305 d=49307FOR i=1 TO 4:VTAB 2+i:HTAB 5:? "                       "; :NEXT9310VTAB 3+d:HTAB 5:? "This program modifies"; 9315VTAB 4+d:HTAB 5:? "the Adam Text Screen"; 9320VTAB 5+d:HTAB 5:? "by changing Back="Press <Return> to Continue ":HTAB 16335VTAB 23:GOSUB 5000:GET m$:VTAB 1:HTAB 1:GOTO 307999DATA           " Descriptions! "8000DATA    " Soundex"," BnTcolor"," BnT_Doc"," EaselPaint"8010DATA       " Alphasort"," TextonHGR"," Cartcopy"," ADAM_BASE"8020DATA    "CrnchMAKE","Utility","Util_DOC"8030REM    more files go here8040DATA            "Exit Menu"9000 m$=" D E S C R I P T I O N S ! ":GOSUB 5000: me$(1)=" Return to menu"9020HTAB 9:VTAB 4:INVERSE:? "1. "; me$(1); :NORMAL9030POKE 64885, 09090 n=PGET m$:GOTO 309400IF t<>4 THEN 95009405 d=49407FOR i=1 TO 4:VTAB 2+i:HTAB 5:? "                       "; :NEXT9410VTAB 3+d:HTAB 5:? "BnT_Doc is a TEXT FILE  "; 9420VTAB 4+d:HTAB 5:? "that describes how to   "; 9425VTAB 5+d:HTAB 5:? "use colors in your own  "; 9430VTAB 6+d:HTAB 5:? "Basic programs.         "; 9435VTAB 7+d:HTAB 5:? "                        "; 9440VTAB 8+d:HTAB 5:? "Program prints out a    "; 9445VTAB 9+d:HTAB 5:? "useful chart to help you"; 9450VTAB 10+d:HTAB 5:? "select screen & tgram shows how  "; 9715VTAB 4+d:HTAB 5:? "to print text on your   "; 9720VTAB 5+d:HTAB 5:? "HGR or HGR2 screens.    "; 9725VTAB 6+d:HTAB 5:? "                        "; 9730VTAB 7+d:HTAB 5:? "The program loads an    "; 9735VTAB 8+d:HTAB 5:? "extensive alphabet shape"; 9740VTAB 9+d:HTAB 5:? "table.                  "; 9780FOR i=1 TO 6:VTAB 9+d+i:HTAB 5:? "                        "; :NEXT9790GOSUB 20000:GET m$:GOTO 309800IF t<>8 THEN 99009805 d=49807FOR i=1 TO 4:VTAB 2+i:HTAB 5:? "                   "; 9520VTAB 5+d:HTAB 5:? "resolution pictures.   "; 9525VTAB 6+d:HTAB 5:? "You may save your work "; 9530VTAB 7+d:HTAB 5:? "or retieve drawings.   "; 9535VTAB 8+d:HTAB 5:? "This is a full-featured"; 9540VTAB 9+d:HTAB 5:? "program.               "; 9545VTAB 10+d:HTAB 5:? "                       "; 9550VTAB 11+d:HTAB 5:? "                       "; 9555VTAB 12+d:HTAB 5:? "                       "; 9580FOR i=1 TO 4:VTAB 12+d+i:HTAB 5:? "                        "; :NEXT9590GOSUB 20000:GET m$:GOTO 30:HTAB 5:? "                        "; :NEXT9890GOSUB 20000:GET m$:GOTO 309900IF t<>9 THEN 100009905 d=49907FOR i=1 TO 4:VTAB 2+i:HTAB 5:? "                       "; :NEXT9910VTAB 3+d:HTAB 5:? "ADAM_BASE is a filing   "; 9915VTAB 4+d:HTAB 5:? "program for organizing  "; 9920VTAB 5+d:HTAB 5:? "lists of data, etc.     "; 9930VTAB 6+d:HTAB 5:? "                        "; 9935VTAB 7+d:HTAB 5:? "Read or print out a copy"; 9940VTAB 8+d:HTAB 5:? "of ABASE_DOC for details"; 9950VTAB 9+d:HTAB 5:? "in usingAB 11+d:HTAB 5:? "                       "; 9655VTAB 12+d:HTAB 5:? "                       "; 9660VTAB 13+d:HTAB 5:? "                       "; 9665VTAB 14+d:HTAB 5:? "                       "; 9670VTAB 15+d:HTAB 5:? "                       "; 9675VTAB 16+d:HTAB 5:? "                       "; 9680VTAB 17+d:HTAB 5:? "                       "; 9690GOSUB 20000:GET m$:GOTO 309700IF t<>7 THEN 98009705 d=49707FOR i=1 TO 4:VTAB 2+i:HTAB 5:? "                       "; :NEXT9710VTAB 3+d:HTAB 5:? "This proext   "; 9455VTAB 11+d:HTAB 5:? "colors.                "; 9460VTAB 12+d:HTAB 5:? "                       "; 9465VTAB 13+d:HTAB 5:? "                        "; 9470VTAB 14+d:HTAB 5:? "                        "; 9480FOR i=1 TO 3:VTAB 13+d+i:HTAB 5:? "                        "; :NEXT9490GOSUB 20000:GET m$:GOTO 309500IF t<>5 THEN 96009505 d=49507FOR i=1 TO 4:VTAB 2+i:HTAB 5:? "                       "; :NEXT9510VTAB 3+d:HTAB 5:? "This program allows you"; 9515VTAB 4+d:HTAB 5:? "to draw your own high      "; :NEXT9810VTAB 3+d:HTAB 4:? "This program allows you  "; 9815VTAB 4+d:HTAB 4:? "to copy game cartriges   "; 9820VTAB 5+d:HTAB 4:? "onto your disk or tape.  "; 9822VTAB 6+d:HTAB 4:? "                         "; 9825VTAB 7+d:HTAB 4:? "You may copy up to 5     "; 9830VTAB 8+d:HTAB 4:? "cartriges to disk or 8   "; 9840VTAB 9+d:HTAB 4:? "to tape.  Tape or disk   "; 9845VTAB 10+d:HTAB 4:? "becomes self-booting and "; 9850VTAB 11+d:HTAB 4:? "shows menu of cartriges."; 9880FOR i=1 TO 4:VTAB 11+d+i9600IF t<>6 THEN 97009605 d=29607FOR i=1 TO 4:VTAB 2+i:HTAB 5:? "                       "; :NEXT9610VTAB d+3:HTAB 5:? "This program allows you "; 9615VTAB 4+d:HTAB 5:? "sort any series of items"; 9620VTAB 5+d:HTAB 5:? "and then get a print-out"; 9625VTAB 6+d:HTAB 5:? "                        "; 9630VTAB 7+d:HTAB 5:? "The program is menu     "; 9640VTAB 8+d:HTAB 5:? "driven and a useful tool"; 9645VTAB 9+d:HTAB 5:? "in any library.        "; 9648VTAB 10+d:HTAB 5:? "                       "; 9650VT ADAM_BASE      "; 9960VTAB 10+d:HTAB 5:? "                        "; 9970VTAB 11+d:HTAB 5:? "ABASE_DOC is a TEXT file"; 9980FOR i=1 TO 4:VTAB 11+d+i:HTAB 5:? "                        "; :NEXT9990GOSUB 20000:GET m$:GOTO 3010000IF t<>10 THEN 1010010005 d=410007FOR i=1 TO 4:VTAB 2+i:HTAB 5:? "                       "; :NEXT10010VTAB 3+d:HTAB 5:? "CrnchMAKE is a program  "; 10020VTAB 4+d:HTAB 5:? "which creates the binary"; 10030VTAB 5+d:HTAB 5:? "file called CRUNCHER    "; 10040VTAB 6+d:HTAB 5:? "       "; 10315VTAB 4+d:HTAB 5:? "                        "; 10320VTAB 5+d:HTAB 5:? "                        "; 10325VTAB 6+d:HTAB 5:? "                        "; 10330VTAB 7+d:HTAB 5:? "                        "; 10335VTAB 8+d:HTAB 5:? "                        "; 10340VTAB 9+d:HTAB 5:? "                        "; 10345VTAB 10+d:HTAB 5:? "                       "; 10350VTAB 11+d:HTAB 5:? "                       "; 10380FOR i=1 TO 4:VTAB 11+d+i:HTAB 5:? "                        "; :NEXT10390GOSUB 201 THEN 1020010105 d=410107FOR i=1 TO 5:VTAB 2+i:HTAB 5:? "                       "; :NEXT10110VTAB 3+d:HTAB 5:? "Utility is a powerful   "; 10120VTAB 4+d:HTAB 5:? "machine-language self-  "; 10130VTAB 5+d:HTAB 5:? "booting program!        "; 10140VTAB 6+d:HTAB 5:? "                        "; 10150VTAB 7+d:HTAB 5:? "Print a copy of Util_DOC"; 10160VTAB 8+d:HTAB 5:? "for complete summary of "; 10170VTAB 9+d:HTAB 5:? "the features of this  "; 10175VTAB 10+d:HTAB 5:? "program.             "; 10180FOR                       "; 10490FOR i=1 TO 5:VTAB 10+d+i:HTAB 5:? "                        "; :NEXT10495GOSUB 20000:GET m$:GOTO 3010500IF t<>15 THEN 900010505 d=410507FOR i=1 TO 4:VTAB 2+i:HTAB 5:? "                       "; :NEXT10510VTAB 3+d:HTAB 5:? "                        "; 10515VTAB 4+d:HTAB 5:? "                        "; 10520VTAB 5+d:HTAB 5:? "                        "; 10530VTAB 6+d:HTAB 5:? "                        "; 10540VTAB 7+d:HTAB 5:? "                        "; 10550VTAB 8+d:HTA10250VTAB 9+d:HTAB 5:? "instructions on copying,"; 10255VTAB 10+d:HTAB 5:? "crunching disks,       "; 10260VTAB 11+d:HTAB 5:? "changing volume names, "; 10270VTAB 12+d:HTAB 5:? "and much, much more.   "; 10275VTAB 13+d:HTAB 5:? "                       "; 10280FOR i=1 TO 3:VTAB 13+d+i:HTAB 5:? "                        "; :NEXT10290GOSUB 20000:GET m$:GOTO 3010300IF t<>13 THEN 1040010305 d=410307FOR i=1 TO 4:VTAB 2+i:HTAB 5:? "                       "; :NEXT10310VTAB 3+d:HTAB 5:? "                                         "; 10050VTAB 7+d:HTAB 5:? "Be sure to print out a  "; 10060VTAB 8+d:HTAB 5:? "copy of CrnchDoc for    "; 10070VTAB 9+d:HTAB 5:? "detailed instructions   "; 10080VTAB 10+d:HTAB 5:? "for using CRUNCHER.     "; 10082VTAB 11+d:HTAB 5:? "                        "; 10085VTAB 12+d:HTAB 5:? "CrnchDoc is a text file."; 10088VTAB 13+d:HTAB 5:? "                        "; 10090FOR i=1 TO 4:VTAB 13+d+i:HTAB 5:? "                        "; :NEXT10095GOSUB 20000:GET m$:GOTO 3010100IF t<>1000:GET m$:GOTO 3010400IF t<>14 THEN 1050010405 d=410407FOR i=1 TO 4:VTAB 2+i:HTAB 5:? "                       "; :NEXT10410VTAB 3+d:HTAB 5:? "                        "; 10420VTAB 4+d:HTAB 5:? "                        "; 10430VTAB 5+d:HTAB 5:? "                        "; 10440VTAB 6+d:HTAB 5:? "                        "; 10450VTAB 7+d:HTAB 5:? "                        "; 10460VTAB 8+d:HTAB 5:? "                        "; 10470VTAB 9+d:HTAB 5:? "                        "; 10480VTAB 10+d:HTAB 5:? " i=1 TO 5:VTAB 10+d+i:HTAB 5:? "                        "; :NEXT10190GOSUB 20000:GET m$:GOTO 3010200IF t<>12 THEN 1030010205 d=410207FOR i=1 TO 4:VTAB 2+i:HTAB 5:? "                       "; :NEXT10210VTAB 3+d:HTAB 5:? "This documentation file "; 10215VTAB 4+d:HTAB 5:? "explains in detail how  "; 10220VTAB 5+d:HTAB 5:? "to use the ADAM Utility."; 10230VTAB 6+d:HTAB 5:? "                        "; 10235VTAB 7+d:HTAB 5:? "                        "; 10240VTAB 8+d:HTAB 5:? "The file gives complete "; B 5:? "                        "; 10580FOR i=1 TO 7:VTAB 8+d+i:HTAB 5:? "                        "; :NEXT10590GOSUB 20000:GET m$:GOTO 3020000VTAB 22:HTAB 1: m$="                           ":GOSUB 5000:VTAB 23:HTAB 1: m$="Press <Return> to Continue "20005GOSUB 500020010RETURN440VTAB 6+d:HTAB 5:? "                        "; 10450VTAB 7+d:HTAB 5:? "                        "; 10460VTAB 8+d:HTAB 5:? "                        "; 10470VTAB 9+d:HTAB 5:? "                        "; 10480VTAB 10+d:HTAB 5:? "ú­A(ò­C(À­F(˜­K(p­P(H­U( ­Z(ø¬_(Ð¬d(¨¬i(€¬n(X¬Œ( ¬–(¬ (¬¥(ü«§(Ê«ª(¢«´(z«¾(R«È(*«Ò(«Ü(Úªæ(²ªð(Šªú(Rªÿ(Cª)6ª	).ª)ü©)Ô©)¬©)„©")\©,)4©6)©T)Õ¨^)Æ¨ Nl¨%Nf¨*Nc¨2… Œ(1…‘to use the ADAM Utility.º2‡ Œ(1…‘Print a copy of Util_DOCº2ˆ Œ(1…‘The file gives complete º&#   "CrnchMAKE","Utility","Util_DOC"‘The Util_DOC Program º"Œ ª‘   Util_DOC INSTRUCTIONS   ‹ˆ,Œ·Œ¸ª‘ BnT_Doc¬Œ·Œ¸ª‘Util_DOC²2‚1‹Ô‹ˆ2Š1"Œ ª‘                           ‹ˆ2Š1"Œ ¬ ÅåÕÍ…û;;áÜí°ÃÜÙ>í°åí[ß>íkï>§íRåÁáí°ÑáÁÉM¢?ü0uýuzvI§~@¥)L¢zvzvM¢ˆˆˆ>*ˆäˆo(ˆT¨ƒ(ˆjˆè#ˆÐ''ˆ°)+¨)/ˆÖ(4ˆ8¨C)<ˆc-@ˆk'Dˆ\*I¨!)MˆXSˆ,Wˆí\ˆr`ˆ^d¨«(hˆHlˆY'pˆE(tˆi*xtn*met!minpnlml"nl"mldSPCTABERRNUMABSASCATNCHRCOSEXPFREINTLEFTLENLOGMIDPDLPEEKPOSRIGHTRNDSCRNSGNSINSQRSTRTANUSRVALVPOSÑ„
cÑ@Ñ3ÑÑ Ñ#üÐ(ÚÐ2ÔÐ<ÑÐFÅÐPºÐZ´Ð]ŒÐd}ÐiuÐnOÐs:Ðx4Ð}Ð‚ÊÏ™ÏÏ         º2‰ Œ(1…‘                        º2ˆ Œ(1…‘                        º2‡ Œ(1…‘                        º2† Œ(1…‘                        º2… Œ(1…‘                        º2„ Œ(1…‘                        º2ƒ Œ(1…‘                        º
Œ!ª´„2‚ Œ!1…‘                       ºŒ(ª„Œ©Š³‹)‹ N Œ Š
Œ!ª´„2Š Œ( Œ!1…‘                        º2Š Œ(1…‘                       º2Š
 Œ(1…‘                       º~¿å$V¿ê$.¿ï$¿ô$Þ¾ù$µ¾þ$Œ¾%T¾%E¾%9¾!%1¾#%ÿ½&%Ø½+%±½0%Š½5%c½:%<½?%½D%î¼I%Æ¼N%ž¼S%v¼l%>¼v%/¼€%#¼…%¼‡%é»Š%Á»%™»”%q»™%I»ž%!»¨%ùº­%Òº°%ªº²%‚º·%Zº¼%2ºÁ%
ºÆ%â¹Ë%º¹Ð%’¹Ú%ƒ¹ä%w¹é%o¹ë%=¹î%¹ó%í¸ø%Å¸ý%¸&u¸&M¸&%¸4&î·>&ß·H&Ó·M&Ë·O&™·R&p·W&G·\&·^&õ¶a&Ì¶f&£¶p&z¶u&P¶z&'¶˜&ïµ¢&àµ¬&Ôµ±&Ìµ³&šµ¶&rµ»&JµÀ&"µÊ&ú´Ï&Ò´Ô&ª´Þ&‚´è&Y´ò&0´ü&ø³'é³'Ü³'Ô³'¢³'z³$'R³.'*³8'³B'Ú²L'²²V'Š²`'a²b'8²e'²h'æ±j'®±o'Ÿ±t'’±y'Š±{'X±~'0±ˆ'±’'à°œ'¸°¦'q§°'°º'j°¿'D°Ä'°Î'ý¯Ø'ð¯Ý'è¯ß'¶¯â'Ž¯ç'f¯ì'I§ö'>¯û'¯(™§
(î®(Æ®(ž®(v®#(N®((®2(®<(                       "; 10490FOR i=1 TO 5:VTAB 10+d+i:HTAB 5:? "                        "; :NEXT10495GOSUB 20000:GET m$:GOTO 3010500IF t<>15 THEN 900010505 d=410507FOR i=1 TO 4:VTAB 2+i:HTAB 5:? "                       "; :NEXT10510VTAB 3+d:HTAB 5:? "                        "; 10515VTAB 4+d:HTAB 5:? "                        "; 10520VTAB 5+d:HTAB 5:? "                        "; 10530VTAB 6+d:HTAB 5:? "                        "; 10540VTAB 7+d:HTAB 5:? "                        "; 10550VTAB 8+d:HTAª‘Press <Return> to Continue ‹ N Œ Š
Œ!ª´‡
2ˆ Œ( Œ!1…‘                        º2ˆ Œ(1…‘                        º2‡ Œ(1…‘                        º2† Œ(1…‘                        º2… Œ(1…‘                        º2„ Œ(1…‘                        º2ƒ Œ(1…‘                        º
Œ!ª´„2‚ Œ!1…‘                       ºŒ(ª„Œ©Š³‹(#‹ N Œ Š
Œ!ª´…2Š
 Œ( Œ!1…‘                        º2Š
 Œ(1…‘              qÏ‘]Ï”:Ï•-¨–Ï›éÎÈÐÎèÁÎƒÎ[Î"ÎæÍ$¾Í)…Í.‚ÍˆRÍpOÍz&ÍþÌ‚÷Ì„ÝÌ‰¾Ì‹ÌŒ‚ÌzÌŽ\Ì8Ì’Ì“øË˜õËÔÙËÞ°ËãˆËæËègËíHËï'ËðËñËòæÊôÂÊö›Ê÷‚Ê8ÊB¨GWÊJPÊLé§Q1ÊSÊTõÉUíÉVÏÉX«ÉZ„É[kÉœhÉ¦?É«É®É°öÈµ×È·¶È¸›È¹“ÈºuÈ¼QÈ¾*È¿È?ñÇ@ºÇJ}ÇTÁ§^cÇhHÇ(#Ç<#ëÆF#àÆ‚#¯ÆŒ#¢Æ–#•Æ #^Æª#Æ´#Æ¾#²ÅÈ#oÅÒ#BÅÜ#Åæ#ýÄð#ñÄõ#éÄ÷#·Äú#“Ä$qÄ$LÄ$*Ä"$Ä,$ÜÃ6$µÃ;$ŽÃ=$eÃ@$=ÃJ$ÃS$öÂT$êÂY$âÂ[$°Â^$‹Âc$gÂh$?Âm$Âr$ïÁ|$ÇÁ$ŸÁ†$vÁ‹$MÁ$$Á•$ûÀš$ÃÀ¤$´À¸$¨À½$ À¿$nÀÂ$FÀÌ$ÀÑ$ö¿Ö$Î¿Û$¦¿à$2‰ Œ(1…‘                        º2ˆ Œ(1…‘                        º2‡ Œ(1…‘                        º2† Œ(1…‘                        º2… Œ(1…‘                        º2„ Œ(1…‘                        º2ƒ Œ(1…‘                        º
Œ!ª´„2‚ Œ!1…‘                       ºŒ(ª„Œ©Š³‹ (‹ N Œ Š
Œ!ª´ƒ2Š Œ( Œ!1…‘                        º2Š Œ(1…‘                       º2Š Œ(1…‘and much, much more.   º2Š Œ(Œ(1„‘cartriges to disk or 8   º2‡ Œ(1„‘You may copy up to 5     º2† Œ(1„‘                         º2… Œ(1„‘onto your disk or tape.  º2„ Œ(1„‘to copy game cartriges   º2ƒ Œ(1„‘This program allows you  º
Œ!ª´„2‚ Œ!1…‘                       ºŒ(ª„
Œ©ˆ³‹¬&‹ N Œ Š
Œ!ª´†
2‰ Œ( Œ!1…‘                        º2‰ Œ(1…‘table.                  º2ˆ Œ(1…‘extensive alphabet shapeº2‡ Œ(1…‘The program loads an    º2† Œ(1…ete summary of º2† Œ(1…‘                        º2… Œ(1…‘booting program!        º2„ Œ(1…‘machine-language self-  º2ƒ Œ(1…‘Utility is a powerful   º
Œ!ª´…2‚ Œ!1…‘                       ºŒ(ª„Œ©Š³‹Ø'‹ N Œ Š
Œ!ª´„2Š Œ( Œ!1…‘                        º2Š Œ(1…‘                        º2Š Œ(1…‘CrnchDoc is a text file.º2Š Œ(1…‘                        º2Š
 Œ(1…‘for using CRUNCHER.     º2‰ Œ(1…‘detailed instru º2Š
 Œ(1…‘                       º2‰ Œ(1…‘in any library.        º2ˆ Œ(1…‘driven and a useful toolº2‡ Œ(1…‘The program is menu     º2† Œ(1…‘                        º2… Œ(1…‘and then get a print-outº2„ Œ(1…‘sort any series of itemsº2Œ( ƒ1…‘This program allows you º
Œ!ª´„2‚ Œ!1…‘                       ºŒ(ª‚
Œ©†³‹ä%‹ N Œ Š
Œ!ª´„2Š Œ( Œ!1…‘                        º2Š Œ(1…‘                       º2Š Œ( º2ˆ Œ(1…‘of ABASE_DOC for detailsº2‡ Œ(1…‘Read or print out a copyº2† Œ(1…‘                        º2… Œ(1…‘lists of data, etc.     º2„ Œ(1…‘program for organizing  º2ƒ Œ(1…‘ADAM_BASE is a filing   º
Œ!ª´„2‚ Œ!1…‘                       ºŒ(ª„
Œ©‰³‹'‹ N Œ Š
Œ!ª´„2Š Œ( Œ!1…‘                        º2Š Œ(1„‘shows menu of cartriges.º2Š
 Œ(1„‘becomes self-booting and º2‰ Œ(1„‘to tape.  Tape or disk   º2ˆ 1…‘changing volume names, º2Š
 Œ(1…‘crunching disks,       º2‰ Œ(1…‘instructions on copying,º2‡ Œ(1…‘                        º2† Œ(1…‘                        º2„ Œ(1…‘explains in detail how  º2ƒ Œ(1…‘This documentation file º
Œ!ª´„2‚ Œ!1…‘                       ºŒ(ª„Œ©Š³‹<(‹ N Œ Š
Œ!ª´…2Š
 Œ( Œ!1…‘                        º2Š
 Œ(1…‘program.             º2‰ Œ(1…‘the features of this  º2ˆ Œ(1…‘for compl‘                        º2… Œ(1…‘HGR or HGR2 screens.    º2„ Œ(1…‘to print text on your   º2ƒ Œ(1…‘This program shows how  º
Œ!ª´„2‚ Œ!1…‘                       ºŒ(ª„
Œ©‡³‹H&‹ N Œ Š2Š Œ(1…‘                       º2Š Œ(1…‘                       º2Š Œ(1…‘                       º2Š Œ(1…‘                       º2Š Œ(1…‘                       º2Š Œ(1…‘                       º2Š Œ(1…‘                      ctions   º2ˆ Œ(1…‘copy of CrnchDoc for    º2‡ Œ(1…‘Be sure to print out a  º2† Œ(1…‘                        º2… Œ(1…‘file called CRUNCHER    º2„ Œ(1…‘which creates the binaryº2ƒ Œ(1…‘CrnchMAKE is a program  º
Œ!ª´„2‚ Œ!1…‘                       ºŒ(ª„Œ©Š
³‹t'‹ N Œ Š
Œ!ª´„2Š Œ( Œ!1…‘                        º2Š Œ(1…‘ABASE_DOC is a TEXT fileº2Š
 Œ(1…‘                        º2‰ Œ(1…‘in using ADAM_BASE     1…‘                       º2Š
 Œ(1…‘                       º2‰ Œ(1…‘program.               º2ˆ Œ(1…‘This is a full-featuredº2‡ Œ(1…‘or retieve drawings.   º2† Œ(1…‘You may save your work º2… Œ(1…‘resolution pictures.   º2„ Œ(1…‘to draw your own high  º2ƒ Œ(1…‘This program allows youº
Œ!ª´„2‚ Œ!1…‘                       ºŒ(ª„
Œ©…³‹€%‹ N Œ Š
Œ!ª´ƒ2Š Œ( Œ!1…‘                        º2Š Œ(1…‘            ©Š³‹‚#Œ"ªŒ·’u}¸Œ"ªŠ ¬Œ"ªŠ¢²‹è	!’u}¹€	!’u}¹€1‰2„'‘1. ºŒ·¸º("Œ ª‘ D E S C R I P T I O N S ! ‹ˆŒ·¸ª‘ Return to menu           "Exit Menu"	   more files go here;8      " Alphasort"," TextonHGR"," Cartcopy"," ADAM_BASE"52   " Soundex"," BnTcolor"," BnT_Doc"," EaselPaint"          " Descriptions! "2Š‹ˆ Œ 21Š"Œ ª‘Press <Return> to Continue 12Š1…‘and hit reset!         º‘Please exit this programº2Š1…2‰1…‘  
Œ©„³‹%‹ N Œ Š
Œ!ª´ƒ2Š Œ( Œ!1…‘                        º2Š Œ(1…‘Also see BnT_Doc        º2Š Œ(1…‘colors in INVERSE mode. º2Š Œ(1…‘Text and Background     º2Š
 Œ(1…‘It also modifies the    º2‰ Œ(1…‘                        º2ˆ Œ(1…‘                        º2‡ Œ(1…‘Colors.                 º2† Œ(1…‘Background, and Text    º2… Œ(1…‘by changing Backdrop,   º2„ Œ(1…‘the Adam Text Screenº2ƒ Œ(1…‘This program ms <Return> to Continue 12Š1…‘and read the text file.º‘Please exit this programº2Š1…2‰1…‘Word Processingº2ˆ1…‘must be accessed fromº2‡1…‘is a TEXT FILE thatº‘The BnT_Doc Program º2†1…	
Œ!ª‚´Š2Œ!1‚'‘ º1Š‘ ("Œ ª‘    BnT_DOC INSTRUCTIONS   ‹ˆ)Œ·Œ¸©‘ BnT_Doc³‹82Š‹ˆ Œ 21Š"Œ ª‘Press <Return> to Continue 12Š1…‘and read the text file.º‘Please exit this programº2Š1…2‰1…‘Word Processingº2ˆ1…‘x is a programº
Œ!ª´„2‚ Œ!1…‘                       ºŒ(ª„
Œ©‚³‹T$2‚1‚'
Œ·Œ¸º(-Œ·Œ·Œ¸¸¥Š²Œ·Œ¸ªŒ·Œ¸ Œ·Š ¸Œ·Œ¸ªŒ& Œ·Œ¸ Œ'Œ&ª‘Œ'ªŒ&

Œ!ª´Œ$Œ&ªŒ& Œ·Š ¸Œ!

Œ!ª´Œ%Œ'ªŒ' Œ·Š ¸Œ!3Œ·Œ·Œ¸¸¥Š² Œ$ª·Š¡·Œ
·Œ·Œ·Œ¸¸¸¸¸£‚Œ%ªŠ¡Œ$¡Œ·Œ·Œ¸¸Œª²Š
Œª²1‰2„'‘1.  Descriptions! º	!’u}¹€(Œ·Œ¸ª‘ Descriptions! *Œª²"Œ ª‘ T O O L K I T   M E N U ! 2‚1‹ˆŒªŒ³ŠŒ"            º2Š Œ(1…‘                        º2Š Œ(1…‘                       º2Š Œ(1…‘colors.                º2Š
 Œ(1…‘select screen & text   º2‰ Œ(1…‘useful chart to help youº2ˆ Œ(1…‘Program prints out a    º2‡ Œ(1…‘                        º2† Œ(1…‘Basic programs.         º2… Œ(1…‘use colors in your own  º2„ Œ(1…‘that describes how to   º2ƒ Œ(1…‘BnT_Doc is a TEXT FILE  º
Œ!ª´„2‚ Œ!1…‘                       ºŒ(ª„             º2ˆ1…‘                     º2‡1…‘is a Binary File.  º‘The Utility Program º2†1…	
Œ!ª‚´Š2Œ!1‚'‘ º1Š‘ ("Œ ª‘    UTILITY INSTRUCTIONS   ‹ˆ)2Š‹ˆ Œ 21Š"Œ ª‘Press <Return> to Continue 12Š1…‘and read the text file.º‘Please exit this programº2Š1…2‰1…‘Word Processingº2ˆ1…‘must be accessed fromº2‡1…‘is a TEXT FILE thatº2†1…	
Œ!ª‚´Š2Œ!1‚'‘ º1Š‘ ()2Š‹ˆ Œ 21Š"Œ ª‘Presodifiesº
Œ!ª´„2‚ Œ!1…‘                       ºŒ(ª„
Œ©ƒ³‹¸$‹ N Œ Š
Œ!ª´„2Š Œ( Œ!1…‘                        º2Š Œ(1…‘Program is Menu Driven º2Š Œ(1…‘                        º2Š
 Œ(1…‘Assistant'            º2‰ Œ(1…‘as a 'Telephone        º2ˆ Œ(1…‘The program is describedº2‡ Œ(1…‘                      º2† Œ(1…‘in Soundex Foldersº2… Œ(1…‘enter and file names º2„ Œ(1…‘that allows you toº2ƒ Œ(1…‘Soundemust be accessed fromº2‡1…‘is a TEXT FILE thatº‘The Sounddoc Programº2†1…	
Œ!ª‚´Š2Œ!1‚'‘ º1Š‘ ("Œ ª‘   SOUNDDOC INSTRUCTIONS   ‹ˆ)Œ#ª·Š¡Œ·Œ ¸¸£‚
Œ·Œ#¸º'‘ ºŒ (Œ"ªŠ¢²
ŒªŒ 2ƒ Œ1‰'Œº‘. ºŒ·Œ¸º(Œ"ªŠ¢²2ƒ Œ1‰Œº‘. ºŒ·Œ¸ºŒ"ªŠ¢«ŒªŒ²2ƒ Œ1‰Œº‘. ºŒ·Œ¸ºŒª€‹)Œ"ªŠ ²
ŒªŒ¡2ƒ Œ1‰'Œº‘. ºŒ·Œ¸º(Œ"ªŠ ²2ƒ Œ1‰Œº‘. ºŒ·Œ¸ºŒ"ªŠ «Œª²2ƒ Œ1‰Œº‘. º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 State1Š‘ (Œ!	Œ·Œ!¸

Œ!ª´Œ‹ˆ Œ ª‘T O O L K I T   M E N U !"Œª!‹?¹Šÿ!‹?¹Šÿ!‹ÛB¹Š!‹£B¹‡!‹æB¹Šý)Œnu·Œ¸ŒªŠ	    tn=# items in menu	    TOOLKIT MENU PROGRAMŒ"ªŠ¢²
ŒªŒ 2ƒ Œ1‰'Œº‘. ºŒ·Œ¸º(Œ"ªŠ¢²2ƒ Œ1‰Œº‘. ºŒ·Œ¸ºŒ"ªŠ¢«ŒªŒ²2ƒ Œ1‰Œº‘. ºŒ·Œ¸ºŒª€‹)Œ"ªŠ ²
ŒªŒ¡2ƒ Œ1‰'Œº‘. ºŒ·Œ¸º(Œ"ªŠ ²2ƒ Œ1‰Œº‘. ºŒ·Œ¸ºŒ"ªŠ «Œª²2ƒ Œ1‰Œº‘. ºzÖ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=PŒ·Œ¸º
ŒªŒ ‹	
          Œ·„¸º‘run ºŒ·Œ¸2Š1"Œ ª‘   Loading--Please Wait!   ‹ˆŒ·Œ¸ª‘Utility²2‚1‹œŒ·Œ¸ª‘	 SoundDoc²2‚1‹p
Œª²2‚1‹(#ŒªŒ²2Š1!‹>B¹Š_
Œ"©Š³ŠŒ"ªŒ·’u}¸Œ"ªŠ ¬Œ"ªŠ¢²‹è	!’u}¹€2Š1"Œ ª‘  Hit <Return> to Select   ‹ˆ	!’u}¹€2Š1"Œ ª‘      Use Arrow Keys       ‹ˆŒ!Œ!º‘. ºŒ·Œ!¸º	Œ!ª²'Œ!º‘. ºŒ·Œ!¸º(Œ!2ƒ Œ!

Œ!ª´Œ1‰	
Œ!ª‚´Š2Œ!1‚'‘ ºmentBad SubscriptRedimensioned ArrayDivide by ZeroType MismatchString Too LongFormula Too ComplexUndefined FunctionIncorrect Function UsageIllegal ModeBreakCan't Continue*5EMMZkx…£°¿à•þÿÿÒ	
Í3·ÂÍ2	Ú|´ÈÃþŠÚÊÙÙOGÉæOÉÙÙOÉÕåÅÍ¼!v?ÍN/ÁáÑÉÍÃ/:.?î€2.?:&?*.?”8íK+?í[-?*%?ÃSíK"?í[$?Í(íD¼È:%?2?ª!%?ËþËú.gË<Ë<Ë<(	iHCZ% ÷æ(Ë:ËËËË= ó}úË*"?	DM*$?íZ0ËËËËÍS0Â»Â»,Â»$ÌS:?ËË"$?íC"?ÉíD*"?íBDM*$?íR_0:?î€2?¯“ë!íBDM!íR_:&?W|·  ehAKŒ·Œ¸º
ŒªŒ ‹	
          Œ·„¸º‘run ºŒ·Œ¸2Š1"Œ ª‘   Loading--Please Wait!   ‹ˆŒ·Œ¸ª‘Utility²2‚1‹œŒ·Œ¸ª‘	 SoundDoc²2‚1‹p
Œª²2‚1‹(#ŒªŒ²2Š1!‹>B¹Š_
Œ"©Š³ŠŒ"ªŒ·’u}¸Œ"ªŠ ¬Œ"ªŠ¢²‹è	!’u}¹€2Š1"Œ ª‘  Hit <Return> to Select   ‹ˆ	!’u}¹€2Š1"Œ ª‘      Use Arrow Keys       ‹ˆŒ!Œ!º‘. ºŒ·Œ!¸º	Œ!ª²'Œ!º‘. ºŒ·Œ!¸º(Œ!2ƒ Œ!

Œ!ª´Œ1‰	
Œ!ª‚´Š2Œ!1‚'‘ º$?>2&?ð!.?Ú	!%?>€®wÉ!/?Ú	!&?~·Â/	6+w+w+w+wÉ¯wÉ:&?þÚa	ÖÒe	íD*$?Ë|ËüË<Ë=ÂJ	ÂX	·É¯•o>œg·É!æ7ÉÕë!/?Úr	!&?z³Ê§	¢Êª	ò	{íD_z/?ÎWÊ«	>>=Ë#Ëò	w+ú 	Ëºr+s+¯w+wÑÉSz·>ˆò	Ã˜	Õåí[%?*.?z·Êÿ	|·Ê

}«ú

z¼Âó	{½Âó	$?!-?¾Âó	+¾Âó	+¾Ê
áÑ:%?ÎÀ<É´Ê
}·ú
Ëû7ËáÑÉÙÅÕå¯2?GOW_ÙoOþ+(Ö- =2?þE(jþe(fþ. (îÃÒ
Ö0þ
ÒÒ
g}æð ÛÙÍ”
ÕÅÙ}oÙÍ”
ÙÙÍ”
ÙÙá	DMáíZëÙo|ÙO0¯   7Ù}Îoæð(ŸÃ/
`i)DMbkíjëÉ¯GOþ+(þ- Ö0þ
0gxþ0VG€„GÃ­
 xíDG€êeÙÅÕÙÁhAíS"?ÑJ¨"$?Í
*"?å*$?ÍøÆ&þM0)O!;	#6?ò*%?".?*#?",?*!?"*?,-È*+?6+#6?É*.?"%?*,?"#?**?"!?,-È*"?6"#6?Éþ“Ò^æ!c…oÒQ$~á…oÒY$~#foé>ÃR
æ7&æoÃg	æ7ÙÙ&oÃg	æ7ÙÙogÃg	Å!"?åÍŸÃÖçÅ!+?åÍ ÃÖçëãPYëí í í í í ÑÁ¯É

á	ÁÕW_Ãr	
o
g##~ëãåÍ`Á}|##~·O#ë(í°ÑÁ>ÿ7ÉáÍ/ÁÉá2?Íµ:?Í/2!?GÍÍãxÁÉÊýËw *ÅÙÙæ  Í3·áÕÍ2ÑÙÙþ¸Â¯ÉÍ3·áÍ2>ÿÉþÈÂÙÙÅÍ3á·ÂÙÙþ¸ÂÕ~	N‘ÖÙÅOÙ#	ëÍŸ•{zYP!ûÿ9ùëí°+ë!&?í¸ÕW_Í3Ñ!9í°ùÙÁÙÑ¯É!"?ÃÓ!+?ÙyÙë#ÅN‘ÙOÙyåbkÍ`ës#ráx±Êù#í°+ëÁ>ÿÉ!"/?í¸Í`Íü:2?_Ë'Ë'ƒ_!þíRÍë5Í/Íü:&?íK"?í[$?ËúÖ„(Ë:ËËË< õ:2?áõzæÆ0w#zæWñ=(å`i)DMëíjåë)ëíjë)ëíjë	DMáíZëÃGõ:2?G+~þ0 ø+~õû:?Æþ8>Öò´6.íDG#60ûñ#w ûÃÊGñ(w#ù6.ñ ëÃÊ60#û %6E#:?·+òÝ-íDp#/Ö
òáp#:<úëp#+v?·íR}É:&?þ„Ø :%?þ Ø!?4!ôÃ]Â*%?|·ÊË}Âõ>€2&?!¿Í!Í,!ºÍ!ÍYÍâ!CÍ<!µÍ!ñÖ€oŸg7Íg	Í/!’Ã]Â:&?·ÈÍ!&?5Ãë:/?·Ê :&?·ÈÜÍ‚!.?Ë~(Ë¾!<åÍ,Í(Í³)æ2B?Í¸	(>ÿ2B?ÃÊÍh8þ0Í;ÍõÃÆÅ!.?Ë¾Í`ÁôÉÍ;ÍJÍÍYÍ`Ãë:B?Ë/úÐÃ	Â!—Í]ÍÍh89·òíD!2*?`iÍ€Ê'
¾Ò'åÍµÍ#Íý2!?ÍÍãáÃ:!?·#~#foÅÕéÙyÙ·ÈÍƒÍÍ2!?Í€ÊTÍý2!?
<ÂH7Éá1€ÓÜÅÝ!Ý9ÝåýáéÍÍÙ*Ý>í[Ù>"å>ëxæøö@GËpÊ¢í[å>}“|š0##^#V#OËxÕÙÑ $ÉÙËp(	ËíSú>"ü>Ù33Ã¦>·ÕÙÑ(ÃOËxÙÈÙËp(Õå++++>#ÍÚ.¯Í¡2> ÍÚ.áÑÙÉÕÙxæœGæ(*Ù>Í%í[Ý>"å>!ÿÿÑËXË˜ÙÄÐÙËPÙÄWÃHÍWÍƒ.ÙyÙ·ÕõÍjñÊ.ÑÙË°Ù!HåÃ– áÙË`ÙÌN‡O!	~#foÍ2ÍµÃ/ÍžC<À!kB:?®2?:?¾À>ÃÍ›t•ªÅÙÙÍ3áíK"?q#p#íK$?q#p#:&?wÉÅÅÙÙÍ3Í2	DMáÚq#pÉÅÙÙÍ3Á*"?}|q#pÉÙËøÙÉÙË¸ÙÉÙË ÙÉÙËàÙÉÍWÍt.!"ë>ÍÍÙËÐÙÃ£>ÙÙ>ÃÙxæDÂËðí[ú>ÁÖÉ*"?"+?*$?"-?*%?".?É+?í°É!ù"?í°ÉÑ*%?å*#?å*!?åëéÑá"!?á"#?á"%?ëéÑ*.?å*,?å**?åëéÑá"*?á",?á".?ëéÍ2	Ø|·òxþÿØ}þÉ }þ€?É	!%?Ë~È:&?·ÈË¾ëãéør1€);ª8¢ÚInƒù"€¢ÚI€ÐÌTšy‚‚€€4óµ4ó5€´ì-æ@»K.÷|OG‹X}f‚Ñ‘~ ÈL~
¢ªªýÿÿ€l]-q|oetöøv/wvz²˜Xc|¼îýu~ùr1€„ˆÑ—yJv3#}Òä]¥€¡ÚIÿû¹jv6Ùª{JÚà×åéþÿÿ€yËV^d›€“8v€;ª8‚Âí[%?íK>?*@?z·(8Ë{(ëíK#?íC+?"-?!ÈÍ¬2>?Í¬2??Í¬2@?Í¬2A?íK>?*@?¯2?€_Ãø~åÍ°á#Éá}|*%?å*#?å*!?å,- goéõ*"?å!9}ãw#ã|ãwááoéá}|á,-"!?á"#?á"%? goé*"?6"				Í]Ñ·ÉáÙáÑÁÙéÍ
Ê
7ÉÍ
ò
öþõ8Æõ!ÂÍ]ñÃù
ÑÖ&ú
ÝíÜÇYê™$$*	À-­T˜<ì¾K'&­±O,³Î÷_B"õ÷ÒJ óµ‡}#¸Ñt'%F*¯‡–w-Í¾1šmA4Éq7P ;eå<>~JlAî’E2ªw8H¿”•fK÷|O5Ü$4RB.aU	Ì¼Yÿë/\Ïþæ[_A_p	cwÌ+fÖ”¿Vi½7mG¬Å'pY·Qs˜nw=
×#zÍÌÌL} „H‡zŠ@ŽPC‘$t”€–˜ ¼>›(knžù¢@·C:¥¥Ôh¨*ç„¬õ æ5¯2©_c²¿É¶/¼¢1¹:k^¼#Ç
ÀÆëx-Ã·&×XÆ2x†Ê?h)ÍÏÂSÐaQYÔº¥o%×(ËNÚy9?Þ×!áÍÉòIä@|o|ç¨­Åë7EîWß„vñ–õ|Î—@øÂ½pûQ™vÿ!w?:&?· 60+6É:%?·òÚ6-#æ2%?å&:&?Ö<0
!þÍ]%îW!?	~‚0ú{2??Ã!+?ÙyÖOÙÅëí í í í í ëÁ¯ÉN#x±Èí°É Í/ÑÁ¯É*+?í["?##†Ú	å!"?Í`""?###ëÍáÍÑÁ>ÿÉÍ'ÑÁ¯ÉÍ`ÑÁ¯ÉÍâÑÁ¯ÉÍpÑÁ¯É:&?·Êø:/?·ÊøÃÚ:&?G:/?°ÊøÃÚ Í¸	8<XÍ÷ 	Í¸	8L(J*Íõ 	Í¸	8(8Íõ Í¸	0*Í÷ Í¸	(>2&?!""?"$?ÑÁ¯ÉÍç Í¸	(â¯2&?ÑÁÉÍò*"?ë*+?##Í?.¯Éþ·Â%Í3ÙÙÉþ¡Â7ÍƒÍÍæ7Í	¯Éþ­ÂÍÍƒÍÍæ7Í	¯Éþ·ÂdÅÍµÍ3GÍÍãxÁÙÙÉþ¡ÂrÍƒÍåÃ1þ­ÂåÍƒÍåÃCÙyÙ·(ÙÙÖ þ0O¥OÐÉÙÙÌ¯É)\cjq—¥µÅÓñx‰ÿÙÙÍAvƒŸÉÊþÙÙÍAw„‘±ÉÐIÍå<å!.?Ë¾õíDoŸg¯Íg	Í/!ëÍ¶:&?Á€Òá<å·íRáÂñÃ
:.?·ú
ÃÍ!ùÍ#ÃâÂ:%?>€Í|Í,íK3?í[5?¯ÍÓÍYÃâÂ>@Ã|Â:%?>!%?Ë¾2B?!¡Í]íK"?í[$?Ëú:&?Ö‚8(+þ 8ÃÈþá8óË:ËËË<Â®ÃÈË!ËËË= õíC3?íS5?:B?‚WòÞ!	åËºËr(!¯íBDM!€íRë*Æ·íR8 *ÄíB!õ0&õ!·íBDM!@íRë!)x±²³(>‚=Ë!ËËËò Ëº2&?íC"?íS$?ñ8r"7?ÍÍ,Í`*7?Í¶ÍYÃ`ÂÍ!«ÍÍ¸	84!°ÍÍ¸	8
Í<!ŸåÃ™!ùÍ!Í<*%?Ëý$"%?!ùÍ!!¨åÍ!ÌÃ<Í	!œÃ!!¦Ã!åÍÍ`á~õ#+?í°"7?*"?"9?*$?";?:&?2=?ÃìÅ*9?"+?*;?"-?:=?2/?Í`*7?+?í°"7?Í/Õ*ü>OÙÑz³ÊÃHÙ>Ãgë – ý"gk"®%ã m!ã ½ ²ê!Ÿ4 Íy Ô-!ïÀÅƒ:'ó­¢$x'
%R+^,”,*+/+4+9+>+C+H+¢+Ó+ß,ƒ+8,B,M+ô-ì-Ž'P*Ã,Ñ,[+o+4//+v*ÊÏ´'ÙÙæ7ë~æG#N#^ë}Ù<‘/OÙ`i	)	íKß>	~#N#F(-æü á~#foéúëË_Â}Ëo+DMá##(ç##ãáÅ	ÁËwïæü å!Í*í>6++++DM+"í>áp+q¯¶úëË_ +Ëo(½R?p+q¶ë~æG#N#^ë}Ù<‘/OÙ`i	)	íKß>	ÉÕåõÍñA!ÍšÚ÷ÍƒÕô_æ0{ ÍšÚ÷Í¹áp+qÑõÙÙþ·Â8"Í¾ñÕWzæ0T]Âœ)	DMÑ ÃÍËoÃâÍµÍ¾"?Íã*?Ð!å`iF#ÃÓãÙÙþ¹ :ÅåÍ303· 0áÁKz^#V#ãÍš8%åõÍ2	8ñ$%úë+íR8áþ‘Â&#ÙÙbkÍN/~ÙíDOÙ~ƒ_Ò#ÙÙÃ/#ÙÙ>?ÍÚ.ÕÍ/BK·ÊE#å!?¾áÊbÑ
·(
·Ê*#7ÅõíS?ÙyÙ2?Í›l#x$$ñáÒÔ#ÕT]þ Â~#Ãt#ÅÍ
áÚBKí["?s#r#í[$?s#r#:&?wÑ
þ,(·Ê¯#þ ÂÔ#Ã#ÙyÙ·ÈÙÙÃ*#ÙyÙ·(ÙÙÃM#!õ#ÍN/Í`/ÉÑÙË@Ù !$ÍN/í[?:?ÙOÙÍ`/Ã*#>Ã?Extra Ignored?ReenterñáÅ0	~þ  #Ã$íS	?T]·(õþ"Êh$å>#~þ,(·Â-$íS	?Ñ·íR}Á`iÍ`}|##~#·ë(Oí°DMí[	?
þ"Â#Ã##å~þ"Ê7$·Ê7$#Ãj$ñëãÒÓ#Å~þ  #Ã$T]Í
ÚÍ2	ÚÁ}|BKÑÃ#Íi/õÍ›³$³$ø$oñþ.(þE(þe(þ-(þ+(þ0Úþ:Òþ¯æËe Å&o·Íg	áíK%?¯w#w#w#q#pÉ¯É`i>Í`}þ¹(Õþ¡(ÑÍïÙyÙ·ÊoÙÙ`iÙyÙ·Ê}ÙÙÍïå·íBáÊoÐ"O?ÅÍð0ÁíCO?åÍð0Á}iO|`GÚWå·íBá( ÕÅåÍNáÁÍ“4å·íBáÚXÊXÑÉíCO?Íð0ÐÕÍ“4ÑÉÿÿÃ)ÙyÙ·È*Û>|µÊã ÙÙþ¹Êþ¡ÊÍïÙyÙ·Ê`iÙyÙ·ÊÍïxDgyMoå·íBáÊØÕåÅ"O?Íð000$åÅ"O?Íð0í[Ù>å·íRá( +++V+^ãëå·íRáëã8Íò1*Û>|µ(ÁáÃÖÁáÑÃ£>Õ`iÍë1ÑÃ£>Í3·Â+:&?·Ê6=Ê6ÙÙþ²ÈÃ– ÙÍ€ÉÙÙÍÜÍAf½ÒkíD…o-ÂcÃkÙÙÍÜµ(> ÍÚ.- úÙÙþ¸ÊÔÃÙÙþ¹ÊÃþºÊÔþŒÂÙÙ·ÊW=Ê<ÙÙÙÙÍ3Òx·Â¸ÍÙyÙ·ÂxÃ`/*"?##ÍN/Ã®ÍAfæÖO> ÍÚ.ÂÍÙyÙ·ÂxÉ!ÜåÝ!Ý9Ýåýá>>>>
>>>>ÁÉÍ3:&?·(*þ€8&þ‘ÒÍ³)*$?:&?Ë| ËüÖ‘<ÈË<ËÃ&'X	ÅÃ$'!ÉÍ'ÍƒÕÙÕÅåÙýåÝåÍ2ÝáýáÙáÁÑÙÑ¯ÉÍƒÕÙÕÅåÙýåÝå*?ßÂÍ'~o¯gÃg	Í'åÙÙÍÜ}Á*?·íBØÉÍÜåÙÙÍÜÙyÙ·Ê«'ÙÙåÍÜ}ágÁíx­¤Ê¬'ÉÍƒÙÕÅåÙýåÝå*?Í2ÝáýáÙáÁÑÙÉÍá'*í>íKï>·íB·Ãg	Õ*ã>"ñ>T]*ó>íSó>íKï>å·íBáÒ=(^#V+½Â0(¼Â0(:ò>:ñ>]T##~ÆÒ"(O*ñ>ëí°íSñ>Ãñ'##~#…oÒñ'$Ãñ'*ñ>"ï>ÑÉÊ*"?##~·Ê#OÕw?í°¯v?þ (úÍ
ÑÐÃñÊ*"?##~·Ê#n&Ãg	ÂÍ2	Ú|´ÂMÙÙÖ¸Â<!"?Í`""?###qÉÂÙÙþ¸ÂÕÍ¼:v?!"?Í`""?##N#w?ëí°ÑÉÊ*"?#Ã|(Ê!"?N#FáÅå!9}|ÙÙÍÜM±ÊO?Íð0Ò² "!ÕÝ!Ý9åÙáËðÍ€Ã/Ýù>ÉÑÙËðáÙÝáýáÉÝùá"!å·íBá ááÝáýáÉ>é}=ÊX!-ÙÙÈþ¹ÂJ!ÃD!ÙÙÍïÍã ýåÝåÙåÙÃý ÍƒÝåýåÍ›!·ÂÅÅýåáÝåÁå·íBáÒÄ!	ÁÅ#x¾+ y¾Â­!ùÁÅÅÃÄ!##N#~##¾+ y¾0+~+ngÃ•!ÙÙÍ3áíK"?q#p#íK$?q#p#:&?wÙÙÍ3*%?å*#?å:"?õ3ÙyÙ·Ê""ÙÙÍ3*%?å*#?å:"?õ3ÙåËèÙÕ!1"åý!ý9ÃHÅÅÅÃ"ÙÃÙxæ`(öyÙ·Êv"ÕÙÅÙÍ›N"·Âý~¸ ý~¹(ÙÁÙÑ!9ùýáÝáýù>É`iÁÁ!9~#foÕå"?í í í í í !9+?í í í í í ãåÍ/Ñ!"?í í í í í á+?í í í í í Í¸	ÑõýË	~ ñ(0ÑÙá#|µ+(ËðåÙÕ!1"åÃHñÒÏ"!9ùýáÝáÙyÙ·ÈÙÙÃk"ÙÙWYÅÙÙþ¸ÁÈ>!>	ÃÙÙþ¹ ïÙÙÍ*F#~#¶Âô°ú+åÙÙþ· Ñ!ÅåÍ3áÁ0Æ· ÃÍƒÕëÍ2	ë8¸úÍšÚ÷ëãëÙÙþ¹ÊAþ¸ —xÕ_æ0{ ÍšÚ÷ÑÍ¹áq#pÙyÙ·ÈÃÕÅõL}!Ë9Ò­8ë)ëò|ÁxÁÑÉã"?íS?áAÅõy7O	Í·íBñËoDM*í>(R?rí©âîsí©êâÁÑr+s+ùqDM+"í>í[?*?éƒ_0þ¹(1þ¸(?þ·(3þŠÚ(þ‹(þ8Ûþ’(Òƒ_ÒÃÃx= Å ÂÃ ¼>Ã ´ÉÅåO&Æo0$ÍyíKï>	"ï>`iÁq#p#w++ÁÉå!.9áØ>ÃÅåíKï>	Ú¤íKí>íBáÁØÅåÍá'áåíKï>	Ú÷íKí>íBáÁØÃ÷ÕÍ`/*Ù>íKÛ>Í“4ÅåÍNáÁx± ñÑÉÙyÙ·(ÜÙÙÍï!Ã)ÙyÙ·(È*Û>|µÊã ÙÙ|###ñwÉ*Ù>"õ>¯2ù>2÷>2ø>É:ù>·Âj%*õ>íK÷>°±Â@%íKå>å·íBáÒú##N#F#
·Ê.%
þÊW%OÒ@%Ã@%
·íC÷>"õ>Ê@%2ù>Í›2&w%‡%ÕÍY&ÑÍ’ÃM&T]Ã¸%ÕÅ*÷>:ù>O~þ Âž%Ê'&#Ã%þ,Ê‚%þ"Êñ%T]"?Êé%#~þ,Â­%#"÷>y2ù>·íR-}áÍ`^#V+}|##~·Êå%#í[?Oëí°ÑÃM&#"÷>#Ã½%Ê'&#T]"?~þ"Ê	&Êé%#Ãû%åÊ&#~þ,Ê&þ Ê
&Ã#"÷>á#Ã½%y2ù>"÷>oÃÅ%ÕÍY&`iíK"?q#p#íK$?q#p#:&?wÑÙyÙ·ÈÙÙÃ%Å:ù>Oí[÷>þ Âp&Êå&Ãb&þ,Êò&y2ù>íS÷>þ,Ê´&Â}&*÷>w?:ù>Oí°"÷>x2ù>w?Í
ÚÁ·Èþ Ê¨&Ãí[÷>Í
Úbkí[÷>"÷>·íR:ù>•O*÷>~þ,Êø&þ ÂÊú&#ÃÒ&y2ù>íS÷>2&?ÁÉ¯2&?bk#"÷>y2ù>>>>>2?ÙíSú>"ü>ËÐÙþ0ÙË@ÙÂ’Íc_Í`/>?ÍÚ.:?þ >2?G!€·(	~#…o0$÷ÍN/:?þ0!¡ÍN/ÙËpÙ(!¨ÍN/ÙåÙá+++V+^Í§2Í`/!""?"+?:?þÂ£>ÙËÙÃ¦>ÙËÈÙHÅíKþ>Ãž  Error In ÙË€ÙÉÙËp(ÙÍïíCþ>ÙËÀÙÉÙÃëÍ
%*Ù>+"í>*ß>#‘	íKë>x· >¹(íDO8¯ÕWw#wí¡êøÑ+:á>½ :â>¼(ÕT]íKá>Å"á>*ã>·íBDMáí°íSã>Ñ*ã>"ó>"ï>ÉÙËpÙÊëÍ*~æ0Â#å!åÙÙþ·ÀÙÙÖŒþÐÍ*~æüÀÙÙþ¸ÀááÙÕÙÁq#pÃã ÙËp(ËH(Ëˆ*ü>Ùí[ú>ÉÙÃÙÃëÙÙÍïíCO?Íð0Ò¸ åÙáËðÍ€ÉááÝáýá>ÃÍÜ}·Êã ÙÙþ®ÂD!}=Ê– -ÙÙÈþ¹ÂÕ ÃÏ ÙyÙƒ_ÐÉÍƒýåÝåÙåÙÙÙÍïÕíCyÁáåÅO##~¹ÉÍà(Ò)OÙÙÖ¸Êx)ÃÍà(Ú)g‘OÙÙþ¸ÂyLÃw)ñÚ¢)GyHÃv)Íà(õÙÙþ¸Ê9)ÅÍÜÁEÙÙþ¸ÂñÚ¢)õ¸Ú9)¹Ú9)ñy€AOx=G!"?y<(%Í`""?##N#ëãå###x…o0$í°áÑ¯w#wÉ¯!"?Í`""?áÃ)Â:&?·Èþ ÐíK$?ËxËø(*"?å*$?å*%?å!*åþÚ
þÚ**"?Ë8ËËË<þ Ââ)åË%ËËËòñ)Ë¸íC$?""?á}ÉÍ2	å·Íg	á}É!%?Ëþá".?á"-?á"+?õÍ¸	(!€".?!"+?",?Í/ñÉ:?!·…o0$n&·Ãg	ÙÙÍÜ}2?ÉÂÍAfo&·Ãg	ÂÍHfo&·Ãg	ÙÙÍ'åÍÐ*ß>Á·íBÈÕÒÅ**ã>í[ß>·íRT]	DM*í>+·íBÚ÷zPG{YO*ã>ë"ã>"ó>"ï>ëí¸íSß>Ãð*!k+·íBÒ÷PY*ã>íKß>·íBDM*ß>íSß>í°ë"ã>"ï>"ó>*ë>T]))í[ß>"á>þ(:?ÍÚ.ÍC4ÃN/GæàËÚ$3!(Ã×.Â4xþŠÚN3ÊV3þ‹Êa3þÊÙ3þ‘Úl3Êå3þ’Ê¥4!(Í×.æö0ÍÚ.ÉÕ_Í§2ÑÉë^#VÍ§2ëÉxægoÕT]))í[ß>~Wzæ@ÄÐ3zæ(2G###~ÍÚ.ùBÑ·(`GÍÚ.øDxæ0þ  >$ÃÚ.þÀ>%ÃÚ.###~#foyíKá>	OÍN/Ã”3å!/;ÍN/áÉëÍN/N	ëÉë>"ÍÚ.FyOÍN/>"ÍÚ.yH	OëÉxÍ14> õÜÚ.xÍM4ÍN/ñÜÚ.xþ²Â4Ãe4þ¹Â)4> ÃÚ.þºÀ> ÃÚ.:?·x(þ¥?ÐþµÉþ«÷Å!ÃT4Å!2Õ¾	Êb4^#ÃW4ÑÁÉOÍî2È> ÍÚ.Í3y·Âs4É&o#åÍe4Ñ·È!|ÍN/Ã|4ÅÍŸ2^#V#åÍ|4áÍ`/ÁÉ2"?2#?2$?2%?2&?ÕÅÍÁÑyÖOÉ*ó>N#F+
½ :
¼ 5##~`iÍ`N#F+}|##~·(#Õë*ó>###Oí°"½ÚÁEÙyÙ·Ê]-ÅÙÙÍÜ>ÿ½ÚåÙÙÍÜ>¿½ÚÁëãSYDMÍVdÑÙyÙ·ÈÙÙÍÜ>ÿ½ÚåÙÙÍÜ>¿½ÚÁEÕÍÅdÃ3-ÕÍdÑÉÂÍ2	Ú|·Â}þÒOÕÍiÑo¯gÃg	ÙÙÍ*~æ(Â~Õ###ëGæOxöÍ7ÑÒú|ægDM	)	íKß>	F#~#fo´ÊúÕÅDM~!
_
WÍš=ÂÅ-ñæ0(Íš|`G}iOÑëãéÍƒ-ÍÉÑÉÍƒ-ÍhÑ·ÈÃ÷·Èþ!8ø·ÉFO#y¸Ú.Hõy·Ê*.¾Â,.#x±Â.ñÉÚ;.î ¾Â;.Ã".ÁÉæ7ÅÕåÍ
.áÑÁÉæ7ÅÕåÍ.áÑÁÉËoÂe.þA?Ðþ[Éþa?Ðþ{Éþ0?Ðþ:É!€Ñ"Ù>!"Û>"Ý>!@û">?!‘Ò"@?Éæ7õÍ¬M!v?ÍN/ëÍ`/w?·íRE> ÍÚ.ù>^ÍÚ.Í`/ñáõÍN/!Ì.ñÜN/Í`/Ã£>	 Expectedá·áõÅÕå*I?·Ä2áÑÁñÉõÍfüñõþ(:1?= >Ífü>ÁÉÅ*ë>åæxG*ß>5~~æx¸###ÂB7Ååyþ8>æÂ77yN#F*á>	OF#GOÍK.áÁÊP7##ã|µ+ãÂ733ÁÉ+++~Á*ë>+·íB|öŒgÁ7É!"é>Í.Too Many Variables Declared!åõÍ7Ú/8*ë>#>ü¤ ÇÕÅ>Í5*ã>T]íKá>·íBDM!"ã>ë(+í¸#ÁíSá>ÑAyþ8ñ2	?Æ@:	?úß7°HwÆ@yÁ#q#p#Oò8Õå<Í5*ã>í[á>·íRëás#r*ã>Ñq#ëí°íSã>Í^.0ö wí¡ê8*ë>#"ë>+>Œ´gÉññÉ!"é>Í.Statement Too ComplexÅÕ*é>|µ >ý!é>Í`"é>###6*é>###^4#>)»8¸ë)DM)	ÑÁp#q#r#s#íKç>p#qÉ*é>|µÈ###FÈ#~#N#V#^#ÅåÍŠ7ÑëF#Nz{Áå!"é>Éå*ç>w#"ç>g}þw|áÀÃ^6ë	ëÉ>¹>º> >¡
>­>·>¸ågÍ[5DáÐÍÎ521Ê21	Ë}æüoåÕë*Ù>^#V*O?å·íRáÑÚ.1Ê91ÁÃø0ÑÃø0*Ù>	·ÑÉ*Ù>Ñ7ÑÉÕÍò1ÑÍð0ÉÙËÐËØÙÝåÕÍð0ÜA1DMí[Ý>*Ù>íBå`ií[Ù>íRå:M?OË*Ù>T]íBíKã>å·íBáÚà1"Ù>ëÁx±Ê™1í°ÕÝá:O?:P?ë	ëÁx±Ê²1í°ÝsÝr:M?Oáí°*Û>#"Û>))"Ý>*ã>"ï>"ó>*Ù>+"í>ÝáÉáááÝá!ÓÃ×."O?Íð0ÐÙËÐËØÙÝåýå##^#VÕÍÔ0íKÙ>*Ý>	BKëíRå`iPY=O	ëÁx±Ê&2í¸ÕåÝáýááíKÛ>ýÿÝýx±Ê2ÝVÝ^ëå·íRáëÚY2Âb2üÿÝÃ82:N?ƒ_Òb2ýrýsÝ~ýwÝ~ýwüÿÝýÃ82ýý"Ù>ý+ý"í>*Û>+"Û>))"Ý>ýáÝáÉ:?^#V#þ¯2Q?Åå!>·ñ=(18 
õþ(:Q?7õ{ö0ÍÚ.ñëáN#F#åëõ|¸ }¹8ÐíBóááÁÉ:?·Â3þ >?ÃÚ.ÑÉÙÙÍ'åÍÐáíKÙ>å·íBáÒ÷íKï>å·íBáÚ÷"í>É!3f&!f!!'f!H!<H!Œc!c!É!hKÕÍ2ÑÉÙÙÍÜ>½ÚMÕÍ/IÑÉÙÙÍÜ>½ÚMÕÍ(IÑÉÍÜ>'½ÚåÙÙÍÜ>'½ÚÁEÕÍžJÑÉÍÜ>'½ÚåÙÙÍÜ>'½Ú}ágåÙÙÍÜ>'½Ú}ÁÕ_ÍuIÑÉÍÜ>'½ÚåÙÙÍÜ>'½Ú}ágåÙÙÍÜ>'½Ú}ÁÕ_ÍüIÑÉÍ2	Ú|·Â>'½ÚåÙÙþ¹ÂÍÜ>'½ÚÁEáëãÕÍûJo¯gÃg	ÍÜMÕÍOfÑÉÍÜ}·Ê>½ÚMÕÍkfÑÉÁÕÍÍfÑÉÍÜåÙyÙ·(ïÙÙÍÜ>ÿ½ÚåÙÙÍÜ>¿½ÚÁEáÕ]ÍÜgÑÉÁÕÍ¹fÑÉÍÜåÙyÙ·(ïÙÙÍÜ>ÿ½ÚåÙÙÍÜ>¿½ÚÁEáÕ]ÍiÑÉÙÙÍÜMÕÍèfÑÉÙÙÍÜMÕÍÝfÑÉÙÙþ´Ê=-ÙÙÍÜ>ÿ½ÚåÙÙÍÜ>¿ó>ÑÉ*ó>###"ó>É##~#…o0ôñåÅõo&Í*ó>:ï>½ :ð>¼(ÙËPÙ ##NñÖ8‘õÍÉ4ñ8õ*ó>Ã65ñO	"ó>"ï>ÁáÉÍ.ÈÕÍX.Ú±5Íl.Ú¦5þ:(.æüþ< '<æ(@ËG(ëî?¾Ê“5>=¾Â¡5ëÑ7Éæýþ<Ê”5>ë7ÑÉÍl.Ú¥5Ñ7ÉÍX.Ú°5Íl.Ú°5Ñ7ÉÑ7É>!ÃÓ5>!2ÅÕ_A~·Êþ5N#ëãÍK.ãëÂô5+·íR7~ÑÁÉy…oÒÙ5$ÃÙ5ÑÁ¯ÉÍÆ5ØÃÎ5!"é>!w@"ç>Íz6Í‘6Ú6ÊL6Í.'Meaning Of Line Unclear ':' Expected ?¯ÍÂ8*ç>w@·íB|·Êo6Í.Line Too Long}2M?Í“8w@ÉÅíKç>¯ÍÂ8Í¨6*ç>·íB}=ÁÉÍ.Èþ:Êœ6·ÉÍ.Èþ:Êœ67ÉÅÍ[5Ò7x·ÊÌ6þ&(Í.Illegal CommandÍÆ5Òà6ÍÂ8ÍÕ8#~#foÃè6>ÍÂ8!ª~·Ê7#N#F#õåÅ!ú6ãéáñ=Âî6
Ífü:0?21?ñõ:?G ý< ùñÃLÙÙÍÜ>½Ú)U?	~#fo"I?ÉÙÙÍÜ>½Ú)e?	~#fo"E?É~·ÈÅåO#~ÍÚ.ÂT/áÁÉå!~ÍN/áÉÅåÕ*E?Í2ÑáÁÉÍ`/!yÃN/:nBõ¯2nB:pB· :lBõ¯2lBu?>€åÅëåN##Íi/þ 8,þ€0(wÍ„0#x¹Ú¤/õñ6xÑÁáÍ“0:pB· ñ2lBñ2nBÉåÅ!Q0í± !b0		Á~#foãÉ>”>—ÖÍ„0Ã¤/ÁáwÃ³/x·Ê¤/+>Í„0Ã¤/:;Bæw>¡Í„0Ã³/Í¸GzæíDÆõ6 #x¹Ò»/> Í„0ñ= íÃ¤/áå>\Í„0Í“0Ã /	¡£ ¢€¤¦§¥¤/ù/ù/ù/ù/û/û/û/û/D0õ/ñ/00$00½/õåÅÕ*K?Í2ÑÁáñÉåÅ!~F#~Í„0ùÁáÉ!æO	8Íl.Ð)8DM)8)8	0äÍ.Number Too BigÅbk
<O€G}o0$~·ÂÛ0x2N?ÁÉÕ*Ý>ëbkå·íBáÚÐ¸7?ÀÍÂ8ÍÕ87ÉÍë80Íë88ûÍ$9?0õÉÍ$9ÐîÍã80Íã88ûÍç8?0õÉÍç8ÐîÅÍ9!Q90!f:åÍ[5ÐáÍS97ÁÉÊ%=Ê#<þ.Ê%=þ"ÊÒ=Íï88ÁÁÉÍ¹9åÍó8Ò°<ñæÉÅåÍ[50ÍÎ50þ­0ÍÂ8ÍÕ87áÁÉB‚€„…0Í.Illegal EquationÍ;9ÐGgÍ;9Ò¥9gÍ.ÕÍ|9.0#åÖ !–9…o0$~áoæð´g>¥oÅDMÍÃ9Á}¹8õËY x¤8x¬8ËpÁ7ÀË„ÉÑ!5åÃ.ÍO:ÉÍO:Í‘.Numeric EquationÍL:ÉÍL:Í‘.String Equation!ÅÍ¹9ÁÐ|æ¸À33ÉÍr:ÉÍr:Í‘.EquationÍ¹9Ð33ÉÍÛ8ÐÃ:>±Íõ8ÐÍ:ÍC>Ã:Í<æõÍ6>ñ(Í‘.Real VariableÍ<õÍ>ñÒ:Ã6:ÍÈ:Í‘.'THEN'>®Íõ88"þ²ÀáÍÕ8Í[5Ò¹6(Â¹6>²ÍÂ8Ãz6>³ÍÂ8>áÃŒ=>°Íõ8ÐÃ:>´€Íý> !Í&ý> !Í&ý!"tB!"sB!>>Í¶CàÍ ý>ÿ2qBÉ8xøþG:pBþÈxõ:mB· þ 8þ€0å!lB¶áÍ(DñÉÍDñÉz³ :mB· ÍôCÍžC< é:kBþÀÍDÃ‰CÍKü2kB>0(Í¨ü¯Í¨ü>ÿÉíCaBíScBíSiB"eB2gB2hBz2<B€=2=B{2>B=2?B::B2;B:9BÍGÉO¯2qByÉõÅåÝåýåÕÍíC:9B>þUõÅåÝåýåÕÍíC!€Gí± !‘G		G~#foéõÅåÝåýåÕÍíCÍG*iB$:=B¼0:<Bg,:?B½0	-åÍFGÍÀFá"iBÍIG:;BÍpG!HBÍý:9BÍpG!@BÍý!@BHB®#ùë:9B>þõo&)))íKgB	ëÍýÁ:nBõ¯2nBxÍGñ2nB:pB· :rB·Ä{>ÿ2qB2oBÑýáÝááÁñÉÍF:<B2jBÍFG
*iB:?B½(
,>
¸ÄGÃTD>
¸ ¼ÍÃF*iBÃWD*iB:>B(	Íl.8ÍX.Ð>ºÍÂ8ÃÜ<Í.Number Too BigÍ
8é:&?·Ê¥=þÚC=þÒC=*"?|µÊf=>’ÍÂ8*"?}ÍÂ8|ÍÂ8*$?}ÍÂ8|ÍÂ8:&?ÍÂ8¯É:$?ÚC=Í2	7åÍg	Í¸	áÂC=|·òš=>¡ÍÂ8ÍX	Ãš=!‡>åÍ[5ÐÀáÍ£0|·Â·=}þ
Ò¬=ö€ÍÂ8¯É>ŠÍÂ8}ÍÂ8¯É>‹ÍÂ8}ÍÂ8|ÍÂ8¯É:!>·ÃÙ=>‘"7ÍÂ8*ç>åÍÂ8·Êü=¸Ê>þ"Ì>ÍÂ8Ãæ=xþ"(áq>ÉÍ‘.'"'þ: ð0Þç?É>ªÍõ8ØÃ¹6>µÍÂ8Í.þ:Â–>É>ªÍõ8ØÍ‘.'='ÍÛ8ØÍ‘.','>¶Íõ8ØÍ‘.'#'>´Íõ8ØÍ‘.'TO'>±Íõ8ØÍ‘.'AT'>®Íõ8ØÍ‘.'GOTO'Í‘.Line NumberÍ‘.':'1~ÓÍa@ÍWÍv/!¦>åÍ/w?Í.ÈÍl.ÚÄ>Í	6áÃàÍ£0"O?Í‘6ÊÖ>Í	6ÃJ1Ãî1€ÑkkkÑkkÍýÑáÁÚÍ>F!@B:bBOÃý:;Bå*iBGÍZGÕ!@BpÍýÑ:pB· zæW:nB!@B®wÍýáÉ*iB>ÿ2oBÍZG!;BÃý\b)))))í[eBë:oB¢WÉo&)))íKgB	ëÉ
€ ¢£¡	”—ËGzEBE­D
E&EÙDúDñEÓEÍEFÄE²EÙDËD&Eí[iBÉí[iB:<BíD‚W:>BíDƒ_ÉÍG*cBíKaBxAOåÅÍZGÅ!@BÍý::B!@BÁ	+í©âöG(ù##6!@BÍcü>Ífü>
ÍfüÁá,ÉÍGÃZDýåÝå!9B>¦w!:B>¦w¯2pB2lB2mB2nBÍ–BÝáýáÉ>2pB¯2mB>€2lB!9B¶w>€!:B¶wýåÝå€Í ýÍ±HÍ±H!>0>Í¶CÀÍ ýÝáýáÉüüüüüüüüððððððððÀÀÀÀÀÀÀÀ€8 ÿÿ!œHÍsK!¬HÍ†K>2pB!>Í&ý!ˆA6! 
Ååë!„HÍýáÁÂÙH
âÍ f!€€Ã(lµAÍÌü!p(lÖí°>ÃÚ.!)AAí°ÃÔ]HELLOAõ:pB· =2rB:qB·Ä{ñíEÅ:sB=ÂjAÕåÝåýå*tB>¬g"tB>Í)ýýáÝááÑ>2sB¯2rBÍ#ýÁÉÿÿÿÿÿÿÿÿÎgÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ_ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿyBÿÿÿÿÍ ý€Í ýÍ ý!>Í)ý!>Í)ý! >Í)ý!¯Í)ý!8>Í)ý>Ð!Í&ý>ð! Í&ý>! Í&ýÍ8ý!JCøÍý!Íõ8Í:ÍC>Í:>´Íõ8Ú;ÉÍ3;Í‘.'FN<function name>'FN Í[5ÐyþØ!0;ÍK.ÀÕÍ[5ÑÐÀáÃ:Í‘.'GOTO' or 'GOSUB'>®Íõ88>¯Íõ80ÝÍŒ=ÍÛ88øÉÍ[5ÐÊ—=Ã‡>Í§;ÉÍ§;Í‘.Line Number RangeÍ[5Ð(ÈÍÛ88Íç8ÐÍ[5ÐÀáÃ—=áÍ—=Í°;ÉÍ.ÈÅ þ$(	þ%(>Í.þ(yÁÀöÉÍ.Illegal Variable NameÍ<Í‘.VariableÍ<áÃÕ<Í[5Ð?Àáyþ8Å!0;ÍK.Á &ÀÍ[50Ç ÃDÍ68¡ÕxÍÕ8GÍË;°GëãëÍ78ÅÍQ8ÁxÆ@òj<|ÍÂ8}ÍÂ8(yÍÂ8(Í^.0ö ÍÂ8Â€<ÑÅÍœ<Á¯ËhÈ<ÉÍï8ÐÍ_:Òf:ÍÛ8Ú <Íó8ØÍ‘.')'Í.þ"ÂÖ<ÍÒ=Íß8ÚÖ<Í‘.';'Í<ÍÛ8ÐÍ<ÃÒ<Í_:Íß8ÚÜ<ÍÛ8ÚÜ<Í.Èþ:Èþ;(éþ,(åþ"(þ.½(ª-ÍGÃTD*iB:=B¼($ÃE:?B½Ê­D,:<BgÃE*iB:<B¼(%ÃE:>B½Ê­D-:=BgÃE>ÿ2oBÍaE:pB· >2oBÍaE::B2;BÃZDÍ¥FÕÅ:;Bw	T]+í¸:9BëÁÑÃý>ÿ2oBÍ”E:pB·ÂZD>2oBÍ”EÃZDÍ¥FÕÅåT]#í°á::B~2;B:9BwÁÑÃý:aBG*cBÍOF::B2;BÍG*cBÃTDÍFÃZDÍF*iB,:>BO:aB•ÊZDG:<BgÍOFÃZD:<Bº(Ò­D:=Bº(Ú­D:>B»(Ò­D:?B»(Ú­DëÃE:/üO>íy>íy>íy!€ãã+|µ ù>ŸíyÃ­DåÅåÅ!@B ::Bw#üÁáÉÍ>F:bBOÅå>ÿ2oBÍlFáÁ:pB·À>2oBÅåÍZG!@BÍýá,ÁîÉ>ÿ2oBÍ‘F:pB·À>2oBÍ¥FåÅAÍ:FÁá::B2;BÃý*iB:=B<”OÍZG!@BÅåÕÍýÑáÁÉÍG>ÿ2oBÍÕF:pB·À>2oB*cBåÍZGá:aBGÅÕ,åÍZGÕ:bBOÅ!@BÍýÁÑáãëå!@BÿÉã ÿ ÓPP	‰C‰C//RCÿ/ê.//////‰C‰C‰C‰C‰C‰C‰C‰CSPCˆTABˆERRNUMˆ>*ABSˆäASCˆo(ATNˆTCHR¨ƒ(COSˆjEXPˆèFREˆÐ'INTˆ°)LEFT¨)LENˆÖ(LOGˆMID¨C)PDLˆc-PEEKˆk'POSˆ\*RIGHT¨!)RNDˆXSCRNˆ,SGNˆíSINˆrSQRˆ^STR¨«(TANˆHUSRˆY'VALˆE(VPOSˆi*JFU@JL[@GY¿Y|p.z}ÙÙ!£>"u?bkN#y…o0$~#å~#foÅÍ7ÁÑâ!>Éwü!0AfFí°>ÿ2oBÍ9+Ít.¯2lB2vBGÍèf> 2:B>_29B2qBÍ¨üÍ±ZÍªZÍ£ZÍ¸Z!yB"B¯!ÅA
wü!ÙAwüÍ
c!õA)A> Í&ý!5>ÿÍ&ý!>ðÍ&ý! `5ÍýÉÍ;I2‰AÉÍ6I2ˆAÉ!]I!MI	~É!lIí¹yÉ
	
	ÅIËIØIêI:pB=ÀÝåýåyHGSyòŒIYHCíDXGÅCJÍ”KÁOÅ!mIO	Õ^#VëÑÕéÑÁ(Åyþ äÁÅy!ëØýáÝáÉÍ°KÃ¨IÍßK!ëÍ°KÐ!ëÍßK!ëÍ°K¾!ëÍßK´1J>JUJqJ:pB=ÀÝåýåyHGSyòJYHCíDXHGÅBKÍ”K!ôIO	Õ^#VëÑéýáÝáÉÍ°KÁ(ôÍƒJÅóÍßKÕ!ëÍ°KÑÁ(ÝÍƒJÅé!ëÍßKÕ!ëÍ°KÑÁ(ÁÍƒJÅé!ëÍßKÁ(¯ÍƒJÅóËA ËÁ!!üËëÉÁJÇJÕJèJ:pB=ÀÝåýåxAOÍ”K!–JO	Õ^#VëÑéýáÝáÉÍ°KÃ¼JÍßK!ëÍ°KÃ¼J!ëÍßK!ëÍ°KÃ¼J!ëÍßKÃ¼JKK%K0K:pB=ÀB*™A"™AÍhSÁË:¶A!õA
ÍÒü'»ÁÍ@SÃé^Í`/í[B*™AëÍ§2!×SÍN/Í`/Á:¶AõÍÃüÁÍÿa7ÉÍ?SÃ_!õAÍ¥S!ÎSÍN/!BÍŒSÃ`/Í SÍ˜S!õAÍ¥SÕÍÚ.í[B> Í¨2Í SÑë+6 !B~#ÍÚ.ùÃ`/:B>*8> ÃÚ.åB> úB~þ(#ö+~áÉDIRECTORYVolume:  Blocks FreeÍ[ÐÍD[Ð>AÍÆ[+B!Aí°ëq#q!AÍb0/åÕõ!A:µAÍðüÁÑá ÕÅ7Bí í Í~`ñÑ!7B~#¶ !"™AÍ`Å:µA!AÍÀüÁÂé^2¶A!AÍ”axPæ(pÅ!AÍbV#^íS™AÍÐ["’B:µAÍáü*’B:µAPYÍÉüÂé^*’B:µAÍÀüÁÂé^2·A2¼A*’BËØÍ”a+BÍ^bÍô\ÍÙ\ ø:¶AÍÃüÂé^:¶AGÍÿaÍaÃ
XÍ[Ð!"™AÍ. 7ÉRÍÿPÐ>AÍÆ[!AÍbÒ"_!AÍðü((úÍõOó(óÍ¡Pì(ìÍ På(åÍqQÞ(ÞÍR×(×Í”RÐ(ÐÍ$`É(ÉÍZÂ(ÂÍZ»(»Í¨]´(´Í]­(­Í±_¦(¦ÍåSŸ(ŸÍ·W˜(˜Í!V‘(‘ÍÓTŠ(ŠÍfaƒ(ƒÍoaÃúLÂüLÍÃOÃúLÂüLÍÀOÃúLÊüLÍ³bÃúLÊüLÍÌ]ÃúLÊüLÍ4PÃúLÕw?Í.ÊNæ_!ŸNí±ÂNÍ[5ÒN!×NFx·(/#ÍK.(#x…oÒÍM$ÃÍMx…o0$ÍÕ8Í.õN!AO	~#foñÙË€ÙéÑÉÍ˜R0ÑáñáÃ£>(ÍÊO8òááñã!¥Oã·õé(óÍõOì(ìÍ¡På(åÍ PÞ(ÞÍqQ×(×ÍRÐ(ÐÍ”RÉ(ÉÍ$`Â(ÂÍZ»(»ÍZ´(´Í¨]­(­Í]¦ÂNÍÃOÃNÂNÍÀOÃNÊNÍ³bÃNÊNÍÌ]ÃNÊNÍ4PÃNOAWPCDRLUBNMSIFOPENAPPENDREADWRITEPOSITIONPR
INCATALOGDELETERENAMELOCKUNLOCKBÑÁz³ íÑ:»AÍ?bq#pÃjVñÂ%_!AÍðü(!A:µAÍÀüÂé^2»A!AÍ”aádO>¸ jy2»AÍ?b##~#foN#F^#VÅ	Á~#fo|ægëíB(|·Â
_}lÚ
_Ú
_gÚ
_ÁÁë`iíRÊjV0Å:»A2¶AÍÆüÅÍÙ\Áx± öÃjVåôyÍ%aÃ$WÍ[Ð>AÍÆ[Í.(Í‹Y8XÉ!AÍbÒ"_å!AÍðüÌ%a:µA!AÍÀüÂé^õÍÆüÂé^ñáõ~#¶Áx0 2¼A!AÍ”a*I?>O½ >U½7È"G?!OU"I?7ÉåÕ·õÍY~#¶ÊìXñå!AÍðüÌ%aA:µAÍíüÂé^!A:µAÍÀüÂé^2»A!AÍ”aÍÐ["’B:µAÍáü*’B:µAPYÍÉüÂé^*’B:µAÍÀüÂé^áF+NÅíC™A*’B2¼A2·A¸Í”a:»A2¶AÕÅÅÍÙ\Íô\Áx± óÁÑz³ èÑÅx± ÁÅÅÕÍÙ\Íô\ÑÁz³ êÑ:¼AÍ?bq#pÃ
XñÂ%_!AÍðüÌ%a!A:µA.Èþ,ÂÿQÍ.Èæß¨ÀÍ.Èþ$ #Í.ÈÍYQÐ!…oÍYQ0)8
)8)8)Ò&Q?ÉÍm.ÐÅÍ£0ÁxþAÕ—A(™Aës#rÑ7É·ÈÍm.æ¿Ö ØÖ'?Ðþ
?ÐþÉÍ[ÐÍýPÐÍúPÐÍD[ÐÍÐ["”B:µAÍáü*™A	ë:µA*”BÍÉüÂé^:µA*”BÍÀüÂé^2·Aÿ*”BÍ”a!"”A>2–A:·A!”AÍÕüÂé^:·AíK™A*—AÍÕüÂé^:·AÍÃüÂé^:·AGÍÿa>HÍS\7Éñ·ÉÍ[ÐÍ.(þ,ÂÿQÕÍ.ÑÈæßþA ãÍýPÐ*—A"™Aæ7õÍD[0Ð>HÍÆ[:µA!AÍÀüÂé^2¶Aÿ!AÍ”a:¶A!”AÍÒüÂé^:–AþÂ%_ñ8*™A"—A:¶Aÿÿ*—AÍÒü(þ
Âé^:¶AÍÃü:¶AGÍÿa*—A7ÈÃé^ÍRé!"™AÍD[Ð:µA!ÄSÍÀüÂé^ÿ!ÄSÍ”a2¶A!õAÍÒüÂé^ÍSS:¶A!õAÍÒüÂé^%Å:¶A!õAÍÒü 6!BËF 6þ(XË^ ËV(í[ÝåýåxAOÍ”K!óJO	Õ^#VëÑéÍ@KÃ8KÍWKÃ8K!ëÍ@KÃ8K!ëÍWKÍCIýáÝáÉÕ!wAÍý:wAË?Ë?Ë?Ë?ÑÉÕ!wAÍý:wAæÑÉ:pBþÈ>ÃZC~þÿÈ#^#V#ëÕÍ)ýÑëÃsK~þÿÈG#N#Í ýÃ†KPË(Ë(x‡‡‡G‡€ÆAË)a0ÆozæëÉÕ!wAÍý:ˆAO>!wA¦±wxAí°ÑÕ!wAÍýÑÉÕ!wAÍý:ˆAO>ð!wA¦±wÃÊK*I?å!RC"I?!xBÍN/á"I?Ã`/!vBËV Kþ(8O:pBþÈ:?·(ÍžC< !:kB!?® 
=2?ÍžC< ú:kB!?® >ÃyÃZCÕÍ¸GzÑ·> ½2vBÉþ(*Bw#"BB·íBÀÃ_*B¯2vBwÕyBíR}íSB*½AÍìLÍ.ÊÅLæß!›Ní±ÂüLÍ[5ÒüL!ªNFx·(G#ÍK.(#x…o0ï$Ã°LÑ*C?"E?*G?"I?Éx…o0$ÍÕ8Í.õN!sO	~#foñéÍ˜RÒüLÑÉ(ÍÊO8÷ÑÃ_:µA!AÍÀüÂé^2¶A!A:¶AÍ”a*™A|µ7ÈMDÅ:¶AÍ?boåÅg}þå| Íô\ÍÙ\áÊ_þÁ èx± ã7É*ÁAé*¿AéÍÝUõÍRCñÉ!/"I?>2vBñÉõÍRCñõþ 	:wBþ(â>2wB:¼A2·AÍ?b·õåüÙ\áñGæ"(?####^#Vr+sz³(-ñõþ *ñåÕÅÍô\ÁÑÕÅËxÄÙ\¯Íô\ÁÑz³ îá##^#V++r+sÉÍÊUñÍô\É:»A2¶AÍÙ\Ê_õ:»AÍ?bæ"(+####^#Vr+sz³(ñõþ åÕÍÙ\Ñz³ öá##^#V++r+sñÉÍ[Ð>AÍÆ[Í.(Í‹Y8qÉ!AÍbÒ"_å!AÍðü(:µA!AÍÀüÂé^áõ~#¶(ñ2»A!AÍ”a*E?>S½ >U¼7È"C?!SU"E?*K?"›A!V"K?7ÉO>¸y(Í%a!2¶A2»AÍÆü/åÕ·õÍY~#¶(gñå!AÍðü(Ó:µA!AÍÀüÂé^2»A!AÍ”aáF+NÅÕÅÅÍÙ\Áx± öÁÑz³ ëÑÅx± ÁÅÅÕÍÙ\SAVEBLOADBRUNCLOSEMON NOMON"LOAD$SAVE&FP(INT*INIT,RUN.RECOVER0NN!N(N/N6N=NDNKNRNYN`NgNnNwN€N‰N’NMMTMbM[MiMpMwMíLõLMMMMM#M*M1M8M?MFMMˆM‘MšM£MIllegal Form Of OS Command>>!>]2z7ÉÍ[ÐÍD[Ð>AÍÆ[:µA!AÍáü7È>HÍÆ[:µA!AÍáü7ÈÃé^Í[ÐÍ[ÐÍD[Ð>AÍÆ[>AÍÁ[:µAA!©AÍÞü7È>HÍÆ[>HÍÁ[:µAA!©AÍÞü7ÈÃé^Í[ÐÍD[Ð>AÍÆ[:µAA!õAÍÌü7È>HÍÆ[:µAA!õAÍÌü7È©A!Aí°>aÍÆ[>AÍÁ[:µAA!©AÍÞü7È>hÍÆ[>hÍÁ[:µAA!©AÍÞü7ÈÃé^æ7õÍ[ÁÐÅÍD[ÁÐÅ>AÍÆ[!õAA:µAÍÌüÊ×P>HÍÆ[!õAA:µAÍÌüÂé^:BGñËX xË/2B!õAA:µAÍÏü7ÈÃé^L!AÍÍÀüÂé^2»A!AÍ”aÍÐ["’B:µAÍáü*’BPY:µAÍÉüÂé^:µA*’BÍÀüÂé^2¼A˜!"™A*’BÍ”a:»AÍ?b##N#F:¼AÍ^bÁÁ:»A2¶A:¼A2·AÅÍÙ\Íô\Áx± óÃ
X!AÍbØÃ"_·Éþ,Â‰YÍ.ÈBæ_¸(R¸Â‰YÅÍúYáÐM*™A"—AÍ.(ÅÍíYÁÐÍ.À>B(¸í[—A*™A(ë>7É¸(	*—A¯7Éí[—A!>7ÉÍ[ÐÍ.Èæ_¸ îGÍQÉ!dZ!lZåæ_!tZÅí± D`i	ÁÊaZæþ <‡<<<€Gëãëëãë~#foÍ2Í.(þ,ÂaZÍ.ÃZx!xZí±á7È·ÉÁá·É¸Z£Z±ZªZœZ‡Z•ZŽZOICL
!øK"½AÉ!mU"ÁAÉ!WU"¿AÉ!RC"ÃAÉ!©Z"½AÉ!rU"ÁAÉ!ÝU"¿AÉ!©Z"ÃAÉ!#$%&'+-.@\^`{}~|_$$$$1A$$$$2ASVD#$	ÍY.ØÍm.ØÅå!¿ZÃüÂé^7ÈÃé^WÃØüÃçüBOOT>2pB2mB>€2lBýåÝå€Í ýÍYcÍYcÀÍ ýÝáýáÉ€8 ÿÿ!{A6#6!DcÍsK!TcÍ†K! >Í&ý!>Í&ý!‰A6Í fÉ>2pB¯2mB>€2lB!9B¶w>€!:B¶wÝåýå€Í ýÍYcÍYc!€€> Í&ý!5>ÿÍ&ý! `5Íý!>ðÍ&ý!>0>Í¶CÀÍ ýýáÝáÉ:pBæÈyHGýåÝåÅÕÍØeÕ! ëíSf!fÍýÑ!ë!fÍýÑÁPYÙÅÕåÙÕÙÑÙÍCeíKfÍïeÙáÑÁÙÝáýáÉyHG{ZW¯xº 	¯y» Í
dÉ:pBæÈÝåýåÅÕÍØeÕ! ëíSf!fÍýÑ!ë!fÍýÑÁË…ËË•z0íDËÅW{‘0íDËÍ_’8zS_ËÕÍÔdýáÝáÉQX!{AF#Ns+rÍ\dÉÙÅÕåÙåÅÙÁáÙ!zË/íDOÿÍe$åk&·íJúeJ·íBDMüÈÃé^*I?å!ô\"I?Í[Òz]ÍD[Òz]ÍÐ["”B:µAÍáüÍwb:µA*”BíK™Aí[—AÍÉüÂé^:µAÍÀüÂé^2·Aÿ*”BÍ”aÍ#^:·AÍÃüÂé^:·AGÍÿa:µAí[”BÍíüÂé^>AÍS\7á"I?ÉÍÙ\À*—A"E?*™A"I?*›A"K?:¶AÍÃüÂé^:¶AGÍÿa>ÉÍÙ]!]"E?*K?"›A*ÃA"K?*I?"™A!§]"I?ÃÔÍÙ]!ö]ÚÍá]öÍ[ÐÍD[ÐÍá[:¶Aÿ!AÍ”a*E?"—AÉÍÙ\À*—A"E?*™A"I?*›A"K?:¶AÍÃüÂé^:¶AGÍÿaÙÙÃ¯2?*Ù>íKÛ>Í“4x± ø> 2?ÉRange ErrorWrite ProtectedEnd of DataFile Not Found	I/O ErrorNo More RoomFile LockedSyntax ErrorNo Buffers AvailableFile Type MismatchControl Buffer Overflowþ(,þ((þ(þ(þ(%þ(ðÃ!g=Âg>øÃ!g=Âg>üÃ!g=Âg>þÃ!g>ÿ æËAÊ-gG>GÝ!€AyÍSg>æÍSg>æÍSg>æÍSgýáÝáÉ!`g‡_^#Vëépgzg‡g‘g›g¨g²g¿gÝpÝ6øÃÉgÝ6xíDÝwÃÉgÝ6ÝpÃÉgÝpÝ6ÃÉgxíDÝwÝ6ÃÉgÝ6øÝpÃÉgÝ6øxíDÝwÃÉgxíDÝwÝ6øÝ#Ý#É6?$$--66?:pBæÈyKXWÝåýåÅÕÍØeÕ! ëíSf!fÍýÑ!ë!fÍýÑÁÕ*~Ay‡O	^#V*~AÑÙÅÕåÙÕÙÑÙ~þÊdhGÍuhÕÙÁÙÍƒhxþÊ_hÍuhÕÙÁÙÍƒhxþÊ_hÍuhÕÙÁÙÍƒh#~Ã/híKfÍïeÙáÑÁÙýáÝáÉæWË8Ë8xæ_Ë8ÉÅÙ!€AxË'…oÒ‘h$~#ngyËÏÙõ:}AGñþÂ®hõÍCeñËÙx„GËxÊºhíDþÚÏhæËxÂÊhÃËhËÏËxÊÖhíDGy…OËyÊáhíDþÚöhæËyÂñhÃòhËÏËyÊýhíDOÙÃüÂé^:µAAÍíüÁÂé^Íÿa!AÍb?Øôÿ	67ÉõÍbñëFÅåõÍOa(òAañîÍKaáñwÉñÍGaöõÃé`õÃ£`î!ÆA
¾(ú¯+~·ÉÍzaÐÍ'/7ÉÍzaÐÍA/7É·ÉÍ.Èþ# öÍ.ÈÍm.ÐÖ0þÐo&ÉÕåÅõ!ÅA
~·(ùÃ"_ñÁp#wãåÅõÍðü 1ñÁëáã#s#rÅ( ÁÑÕÅõåëËX ÍbÒ"_ëá#ëí í ++í í ñÁáÑÉñÁááÑÉáxîíRw™AÙÕõåÅx!ÅA	#¾ +6#õÁáñÑÉÍkbA>ÙAõÍL.(å!ëáñ= ï·Éñ!7ÉÕÅO!ÅA
~·(#~+¹(óÃ
_ÁÑ~ÉÅÍ?b	Áq#pÉå>¾# ûáÉÕ*I?å!”b"I?!"—A"™AÍ#^á"I?ÑÉ*—A·íJ"—AÐ*™A#"™AÉBASICPGMÍ[ÐÍD[Ð!õA©b:µAÍÌü7È!AÍkb	w!A:µAÍ9Í½ü:µA!cÍÀüÂé^!cõÍÕüÂé^ñÍí±áÁ7È?ÉÍ.ÈÖ,7È?ÉÍ[Ð!©A!A
Í.ÈÍïZÐëí ëâ8[ÍïZ8ôþÍïZ8ú6A#67ÉÍ.(Åþ, Í.ÈÍ‰[Ðy±ÈþÐx!âZí±È·ÉÖC€G8ŸÍ.ÈÍm.ÐÍ.(‘þ, åÍ.ÈæßÅ!ßZí±ÁÀêk[ÈÍ.ÈÖ1þÐ!éZ…o0$~2µAÆÅ>í±Á++É!©A!AõÍµ[ñwÉ!ÑZÍðüÀ!ØZÍðüÀÃ"_>AÍÆ[:µA!AÍÀü2¶AÈ>HÍÆ[:µA!AÍÀüÂé^2¶A!¸AÍÒü 2:ºA= íK¸AÅ:¶A!¸AÍÒü Áx± ëÉ:¶AÍýÈ:¶AÍÃüÃ%_õ:¶AÍÃüñÃé^õ©A!Aí°>AÍÆ[:µAA!õAÍÌü(>HÍÆ[:µAA!õAÍÌü ?>aÍÁ[:µA!©AÍáü(>hÍÁ[:µA!©AÍáü!AÍµ[~õ!©AÍµ[ñö w:µAA!©AÍÞüÂé^ñÍÁ[:µAí[”B!©AÍÞüÈÃé^:¶A!¸AÍÒü x±!¸A~Éþ
ÈÃé^!¸Aw:·AÍÕá,ÃeDMáz=¼ÒêdíKfÍïeÙáÑÁÙÉåÙÑËUÊ&ezS_ËMÊ/e{íD_ËEÊ8ezíDW{_z€WÙÍCeÉÅÕåÙÕÙÁÅ:pBþ(	yþŸ8ÁÃ¯e!{Ap#qÍØe! íKfy½Â³ex¼Â³eÁyæ_!fNxæG¯7ýG:‰AËxÊœe/¡wÃ¯e±w!f>¦G:‰A°wáÑÁÉÕå"fÍïeáë!fÍýÑ!ë!fÍýÃveYÍ5ýKXÍ5ýQÍ2ýë)))ëÉ!fPYÕÍýÑ!àë!fÍýÉÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>€2lB¯2nBÉ:pB·À2lB2nBÉ>€2nB:pB·À2lBÉÕÍ¸GzÑÉÕÍ¸G{ÑÉåÕÍ³GyæWyæƒ_Í}f>ÍZCÑáÉåÕÍ³GYÍ}f>ÍZCÑáÉ:<Bº(8WÃf:=Bº0W:>B»È8_É:?B»Ð_É!¯ÅõåÍ&ýáñ#< òÁîÉ:pBæÈ!‰AËþÍÍf!‰AË¾É:pBæÈ!{AV#^ÍægÉy·Âäf>ÿ2}AÉAÝåýå>? GË/Ë/Ë/O:Ýf=Âg>>>>$>>>>>>>>> >!2?ÙËÐËpÙ(ÙíSú>"ü>Ë@ÙÂ’Íc_Í`/:?ÖG!>^(	~#…o0$÷ÍN/Í`/Ã£>!/"I?!‰C"E?!RC"K?!ÄAÅ#~#·(¯+w#~åÍÃüáå#~#fo]T	~ÍíüáÁ×!ÙA¯wüÉÍ[ÐÕÍúPá8ë!"™AÍD[Ð>AÍÆ[A!õA:µAÍÌü(þÂé^!APY:µAÍÉü(Ãé^!AÍðü ÍÆüÂé^!ÙA~·(ùÃ"_ë!Aí°*™Aës#r7ÉÍ[ÐÍD[Ð>AÍÆ[!AÍðü(E!AÍkbÅ!ÅA~#N·(8æ`(^#V+ãÅEM!AÍL.iÁã(##Øá:µAAÍíüÃaáyõÍ?b0ñõÍOaÊé`òé`ñîèæÀÊ÷`0Íô\ÍÙ\ ø:¶AÍÃü:¶AGÍÿa!‰C"E?ñõÍÃüÂé^:µAí[’BÍíü*’B"”B>AÍÆ[>AÍS\ÁÍÿa!/"I?,!‰C"E?!RC"K?!/"I?ñõÍ ÁÉ:pBæÈ!‰AËþÍÜg!‰AË¾ÉÝåýåÕÅÍài>ƒÝ!ŠAÝåÍ>ýÝ!ŠA>ƒÍ>ýÝáÁ!¼i		~#foéÝ~·(]>Ã§iÝ~ÃGiÝ~ÃGiÝ~ÃGiÝ~Æ0þ:8=(	þ; 
>#Ã§i>*Ã§i¯Ã§iÝ~ÃdiÝ~Ã§iÝ~Ã§iÝ~Ý~Ý~Ý~	:ÜiÑýáÝáÉ:Ýiõ:Þið:ßië¤i²i­i·ii•iDiOiUi[iai~i„iŠišiŸi€€€€ÝåýåÝ!ŠAÝå>Í>ýÝ!ŠA>Í>ýÝáÝ~!ÛjÅO		Á~#foéÝ~!õjÃjýáÝáÉ!ÜiÍÓjÃj!ÜiÍÊjÃj!ÝiÍÊjÃj!ÝiÍÓjÃj!ÜiÍÓj#ÍÊjÃj!ÜiÍÓj#ÍÓjÃj!ÜiÍÊj#ÍÊjÃj!ÜiÍÊj#ÍÓjÃj!ÞiÍÓjÃj!ÞiÍÊjÃj!ßiÍÊjÃj!ßiÍÓjÃj!ÞiÍÓj#ÍÊjÃj!ÞiÍÓj#ÍÓjÃj!ÞiÍÊj#ÍÊjÃj!ÞiÍÊj#ÍÓjÃj>†0>ÿwÉ~Ö0¯wÉjj,j>j#jjXjj5jKjjjejjrj„j–j{j257)=255 THEN POKE 17240, 241:POKE 17251, 20:TEXT:POKE 17251, 15:GOTO 7060POKE 17059, 4:POKE 17115, 244:POKE 17126, 26:TEXT70&              100CLEAR:DIM fl$(46)110 bk$=CHR$(8): zz=0150VTAB 2:? CHR$(24); " ONE MOMENT..CATALOGING "180CALL 28900185IF zz=1 THEN 260200HOME:INVERSE:VTAB 24:HTAB 1:? " PRESS ARROW KEYS - <RETURN>  "; :NORMAL210VTAB 1:HTAB 6:? "463..ADAM:"; :HTAB 17220FOR n=29000 TO 29011230IF PEEK(n)=3 THEN  n=55307:GOTO 250240? CHR$(PEEK(n)); 250NEXT:VTAB 5:HTAB 2:? "ONE MOMENT..":VTAÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ50 p=PEEK(64885):IF p=0 THEN 350360POKE 64885, 0365IF p=128 THEN ? bk$; " "; :GOTO 340367IF p=3 OR p=27 THEN 1000368IF p=13 THEN 600370IF p>159 THEN 400375IF p<160 THEN ? CHR$(7); bk$; " "; :GOTO 340400IF p=162 AND v<2+num/2 THEN HTAB h:? " "; bk$; : v=v+1:VTAB v:? CHR$(27); 410IF p=160 AND v>3 THEN HTAB h:? " "; bk$; : v=v-1:VTAB v:? CHR$(27); 420IF p=163 AND h=18 THEN HTAB h:? " "; : h=3:HTAB h:? CHR$(27); 430IF p=161 AND h=3 THEN HTAB h:? " "; : h=18:HTAB h:? CHR$(27); 440IF p>163 THEN ? CHR$(10&           *** CATMENU ***12&               by MIKE GUILL14&          20&           adapted from:22&              MENU-SELECT                by BOB LENNES30LOMEM :3025035POKE 16149, 255:POKE 16150, 255:POKE 64885, 040FOR a=28900 TO 28920:READ v:POKE a, v:NEXT43 cd=PEEK(16821)45DATA               205,138,252,62,8,33,72,113,1,0,0,17,1,0,205,243,252,50,71,113,20147POKE 28904, cd:REM   current drive for catalog50IF PEEK(257)<>255 THEN POKE 16150, 255:POKE 16953, 055IF PEEK(j°jjj£jjj½jÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÅåÕ!·l9-í°!kl¬Lí°Í¬ÑáÁ:oý2µAÍÌüÊA!;ÍN/Í`/Í`/!älÍN/Í`/ÃAÉÿþÐ Éÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     DISK enhanced by MMSGÿB 5260FOR i=29000 TO 30000 STEP 26270 p=PEEK(i+12):IF p<>16 AND p<>208 THEN 310280FOR t=0 TO 10:IF PEEK(t+i)=3 THEN  t=10:GOTO 300290 lt=PEEK(t+i): fl$(num)=fl$(num)+CHR$(lt)300NEXT t: num=num+1310NEXT i311IF zz=1 THEN 315313IF PEEK(29012)=2 THEN POKE 28912, 2: zz=1:GOTO 180315?:VTAB 3320FOR i=0 TO num-1 STEP 2325HTAB 4:? LEFT$(fl$(i), LEN(fl$(i))-1); :HTAB 19330 f$=fl$(i+1):IF f$<>"" THEN ? LEFT$(f$, LEN(f$)-1)335NEXT340&             345 h=3: v=3:VTAB v:HTAB h:? CHR$(27); 348POKE 64885, 03ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ7); :GOTO 340490GOTO 350600REM               Run File610 x=h/18: y=(v-3)*2615HTAB 1620IF fl$(x+y)="" THEN VTAB 2:FLASH:? CHR$(7); " CANNOT ACCESS-"; :GOTO 680630IF RIGHT$(fl$(x+y), 1)="A" THEN 648632IF RIGHT$(fl$(x+y), 1)="H" THEN 634633VTAB 2:FLASH:? CHR$(7); " *** '"; RIGHT$(fl$(x+y), 1); "' FILE-"; :GOTO 680634ONERR  GOTO 700:IF PEEK(257)<>255 THEN POKE 16953, 95635? CHR$(4); "brun "; LEFT$(fl$(x+y), LEN(fl$(x+y))-1)640ONERR  GOTO 700645IF PEEK(257)<>255 THEN POKE 16953, 95648ONERR  GOTO 700 and space programs.  ALSO, IF you want your contribution to be included in the    December 2003 special animated disk form ADAM NEWS NETWORK;  it is now time to submit your creations.  You can draw them  in HGR of HGR2, Powerpaint and/or SmartPaint format and send them email to me at A.N.N.  Email address is:                adamcomputer@netzero.net This is a personal address, so      please don't pass it around and make a gol-danged mess of my life by letting all the wierdo's on the net have it.         x	E(ñ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± ÁÅÅÕÍÙ\ÑÁz³                    November 2003 A.N.N. media============================================================This month we have a PD volume from the Puget Sound ADAM     Newletter (PSAN).  It is a self booting (with SmartBAASIC on it) disk of utilitiesååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååTHANKS.  HAPPY THANKSGIVING to ya'll !!!!!!(ñ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± ÁÅÅÕÍÙ\ÑÁz³                    November 2003 A.N.N. media============================================================This month we have a PD volume from the Puget Sound ADAM     Newletter (PSAN).  It is a self booting (with SmartBAASIC on it) disk of utilities:IF PEEK(257)<>255 THEN POKE 16953, 95650? CHR$(4); "RUN "; LEFT$(fl$(x+y), LEN(fl$(x+y))-1):IF d%=4 THEN ? 5655? 1660END680? "SELECT ANOTHER"; :NORMAL:FOR de=1 TO 2500:NEXT681VTAB 2:HTAB 1:? "                              "; 690VTAB v:HTAB h:? " "; :GOTO 340700 e=ERRNUM(0):CLRERR710IF e=8 THEN ? " READ ERROR. RE-INSERT MEDIA.":CLRERR:FOR t=1 TO 1400:NEXT:RUN720TEXT:? "ERROR#"; e790POKE 16953, 95:END1000POKE 16953, 95:TEXT:ENDTHEN HTAB h:? " "; : h=18:HTAB h:? CHR$(27); 440IF p>163 THEN ? CHR$(åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå and space programs.  ALSO, IF you want your contribution to be included in the    December 2003 special animated disk form ADAM NEWS NETWORK;  it is now time to submit your creations.  You can draw them  in HGR of HGR2, Powerpaint and/or SmartPaint format and send them email to me at A.N.N.  Email address is:                adamcomputer@netzero.net This is a personal address, so      please don't pass it around and make a gol-danged mess of my life by letting all the wierdo's on the net have it.         åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå