IMD 1.16: 16/08/2007 16:27:21 games, etc (mdos 2.2)  MDOS02200220082378JIM CARLSON \lx€ˆ�˜ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBIOR CM@RCHASE2 CM|RLIST CM4rMDOSOV0 SY\rDIR CM°rBLAKJACKLOTRMDOSOV4 SYˆrDEPR SB(ESTAR SB˜EMDOS SYrBIO CM$RBJ SA¸EMDOSOV6 SY˜rBJ SBðELANDER SB\ERASM CMlrMINTREK1LOdRBASIC CMØrFREE CM(rHAMURABISB8ELUNAR SBtEDUMP CMÄrEXBIN CMrNAME CMPrNIM CM\RREDBARONCMèRXTREK LO”RTTTDAT SAôEXTREK SAEMDOSOV1 SYlrCRTDOC SAìELIST CF°EDITM CMÜrLOAD CMHrSTORY SBÐEMDOSOV3 SY€rMDOSER SY eDEL CM¤rCHAIN CM\rBACKUP CM´rMDOSOV5 SY�rCOPY CMˆrESCAPE CMRTICTACTOLO„RSCRIBE CMxrMDOSOV2 SYxrTTTDAT CMðRROULETTESBŒE|½èu½ëÀΠ¦u—æ+XĦHYHY‹É×—¦wæv—׿z¦{67îxß–ÖÎHY &û›Ù— × Îÿ†Mæ§¡ç&œ &í†S6†è6~èm†?— ~èS†M ö@€?@Þ0220¨ÿ� €CN0 LP0 DK0MDOSER SY �}ÿO'0¦æÀ‚Îÿ¡&á'LŒÿ/&ñ0®431¯5¦X%;Á€$*÷IÎîÿZ0¦6¦æî2½Y06ç3ç3Ä„ï6;Æ!½þ~ÒþnWþnce¥¡g§à㨠Ù!*-9bdkt�Š”žÞ  ¾_a©þ[]Äaqw‰Š‹”§¨©¹ÆÚàæFI£ik'llllÒ}üý*26…'Ɔ}ÿO&Æ/†760Ʀ6 Z&ùþÿünþn�î§�#Z&õ9� î¡&�Z&ó90îî¦0îl&l90îl&l9† §Z&ú9�A%6‹¥29�0%6‹Æ2%„9«§$l9@«§%j96hiJ&ù296dfJ&ù29ÿ$Œ®&ÁP+ÆO?'ÿ&Î ?% ¦æî?.' 9Á 'ïÆ? ?6 ¶üô…'� 29…'ú¶üõ„�'÷ ä� �¶üõ¶üõ9O½ð¶üô…'ù9ö*Äß÷* Æ ŒÆÿ$ á&ûÿ&Î ?$~Óæ Ê ç æ¦0ç§æ¦9Æ ŒÆÿI á&ûÿKÎE?$Ú~Ó0¦æ9ÿ ö ¶ 90§ç90æ§çæ¦ç§~ü_0�§ç h0«6Šû§é¤§29_?&?.06§2§ç C0 6Šû§â Ù0á&¡9ÿ ñ &± 90gf90hi9† 440æçJ&ø0榧 ç ¦æ6¦290¦ æ §ç† æç J&ø110 Þ†€…OÎèi †€…OÎè�ÿNÄ×Î߯670îæ¦îß×—½$–�1'2�4'.�8'*�9'& 320îÖç$…€'90¦æ€Âî§çÆ? ?0j'ÕæÎ‚Á&Ö–?.Y$½èu V×—½èx~>Ö–?*ÎÑ?/%éÆ†Ñ ã÷6¶Š€·29þÿÿúŽÿŠ~èþÿúŒ/' Œ'Žÿн ¾ Îkÿÿ¶Š€·Î ÿ½è"½èu½èS~ûDK8LPECRRCP_CNlHRyr •Á€¥1€ )Q€ze€ W T  Q N�S¦*"¦ª' ¦"æ!¡â$½%3l&lî æ &¦ª&¦ §¦§îç�l&l¦"æ!¡â$�E0î11n0î~†‚Œ†AÿoèÄ' æÅ 'Å' ÆŒÆ  ç9Ä?„À§�Äþæ ë¦"æ!  â' ÆŒÆŒÆ ç 9�&ð†€¥' ¦æ â+æ¦æ�ÿÂÿ+Ùæ â&æ +ÍÄ|Ë$~(æ ¶6¶6î?240?31111½ö¶ç§†þ6L6î¦*5�i¦+`32P@$Z«é�€7Â3$O_§ç† ?(?!�I% ¦Š§~B~*„|‹_?3?*67�) â*0l&ll&l¶ö‹€É¡&˜á&”11~%0î 0îîî9î¦æ�ë§ç Ä|Ë?3?+?$�à§ç~Bî?2�Í6¦æ ÄHYHY0«É1674î�½æ ¦0+?Œ?31111�§¦ æ§ç¦æ¡ â +§ æç l&l 9    }�¦* |ÿS½ð6]3&l½ð f0îîî9~ç~  U Rz (&}ÿ* †V· (�H†7�F� $9�ц § 1Îÿ ' ¶üôG$÷öüõÄ 9 9†W· (}ÿ*�†7 ¶üý„_·üô†� 0î11n†~ù϶üý„?·üô†½ð}ÿ&�¯�­ ÛW~ J~ d~ �~ ��~—Á & }ÿ*Î]À &ý9� µ|ÿb}ÿ*�²†0�°†�¬† ¨†�¤ÿb}ÿ*“�˜†9½ðÆO��Z&û ‚�ËÆ2O�„Z&û† ½ð�§ Ï    ½ëÌ$0îî ½ëÀ0î11nÄ&~ ƒ÷  V$ý]&óæÄ×½èu0î ö Ä!' m&†§ Y½ Ë‹HHH0î§ ì0�'l >0î¦ö Ä!„ø�°'‹ ]'~ ‡†]&¡&ö Ä'~ } &~ ‹~ #§_½ Ÿ¦„HHHHî?(ÿ †ÿ¡&÷ ÿ  •m&~ ö Á&þ ÿ 0îÿ Î Æ?ö Á'B_9Á &Æ ?'¦æ0î¤ ¨ &äè& Æ~ ÿÿ 0îÿ Æ Î ?'~ ÿö ÄD'¦~ “þ ÆÀå '~ ›Æ†ÿ?0îÆ½ Ÿîÿ 0î†ÿ§§?"$Æ ? ?ö ¶ ç§~ “ö Ä!'~ „&\0îö ' çþ ÿ 0îö Á@'o o ooo?!]'Á'?Á';Æ ? ?_�Bÿ þ ÿ Î Æ?Æ0î�*ö Á'~ “Æ 9Æ úÆ öÆ òÆ îÆ êÆ æÆ âÿ ÷ æ¦îÿ „øDDD · Î } &? ?þ 9Æ ÷ _÷ · æÀ%*_¶ ù Yz &äVFFFFÄÁ#ÀÁ "GY9÷éîÿìÄ' V$ý]'~ �öéÅ&öÄ 'Á 'îöéÅP&çÅ &Å'ß ½�'ØÆ0·ý¶é…@& ?$ Á&~  Æ ? ?¦ …&~ ¤„�&÷½ °þñîxÿó½9öó¶ôþõ?)% ÿõþó½ ç$~ ¨þõöéÅ & Å'†?(%éÿ÷½%áöéÅ' þ÷_?]&ÐþùöéÅ'þì½ ÐÿêöéÅ'GÅ &CÅ&7½v½ŽÿŠöéÅ€&¾÷Å ' þêÆ7÷üü}üün¶êöë76¶ûöü76~èm½¹ÿê Á½öéÅ 'Æ2÷üü½èmöéÅ '†·üü%Å'Å'™Æ0÷ÿã÷üü½¹n¶óöô0î§ç¶ùöú§çÖÁ0&_9 9Æ0î¶ì§¶í§ 9Æ íÆ éÆ åÆ ᦠæ îÿñ·ï÷ðöýÎî?þñîzÿù9?$þó?/$11 Ïþõ?&?/%ó9 öéÅ &Å€'ö¶ ö¶?-9öéÅ & ö ¶ ?.9 90î¶ý—þïßþñ¦u‹„ø—îvßþóß9þñîv'# ÿõÎõ†?þñ¦u'‹„øJ»ö·ö$|õ911~ ¤ÎÿoŒÿc' ö9öéÅ 'þ ÿÿúþÿÿø½h9½ & S÷ÿú½ S÷ÿú9öÿú†0·üüÎÿú}üü¦6†·üü29þùÿÿþóÿÿþ÷öéÅ€'ÎÿŠÿÿ½h½vÅ &ÎÿÿúÎðó9èSÞÿ×÷ÝÁ#MÎÙ½·ÎÿœÿnÎÿÝÿpþ{' Îÿ{ÿ‡Îj?'Á &þÿœ¼Ù&íþlÆçÎÿž ÎÝÿ×Î)Æÿ Î#_HY?)îöÝ?#ÿÓÎÿ�Æ çÆ*ççÿÕþ×öÝ'>Á&æ¦Î~½²–Š0·ŒÖ–Î’½²þÓ¦�'_�\'0þÕ§ÿÕþÓÿÓ á}Þ&Ü|Þ¦Îðm'С&æ~  ïÿÓ¦Îßm'¶¡'Æ?' ò|Ô&|Óæîÿ ½ ˜þÕ†§Î )­ Îÿ�½ð$½ð! 9þÕÿÛþ×ÿÙÆÎÙ?þÛ†.§ÿÛÆÎÙ?þ׿þÛ†:§çÿÕþÙÿ×9þ×ÿÙþÕ»Ö·Ö$|Õ¶ÚÁ&öÙ½²9½·9þצÙ·ÚG»Ø·Ø$|× Å0î ÿ×~f6�26� §2�§9DDDD„‹0�9#‹90 &1f3�8§ "#$ % &  ' ( )*+,-.5BbINVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SY�ÿÿÿÿÿÿÿÿÿÿÿÿÿÿo«ý6ξöÑ 6ÎÈöÓ 6ÎÍöÕ 6ÎÏö×6ÿ0¦€§¦‚§¦Î_…\€$û÷ ¦H·/·,ΰæ¦÷¢·£¶6ΗÆ@?% 2·0æî 229†V— ½èS          ½ؽؽؽؽؽؽؽؽؽØ­ ˜~m  ½â½â½â½â½â   ½ì½ì ½ö¿ |Î ˆ†Mæ§¡ç'ñ ÿ þÿúÿþÿøÿÎ/ÿÿúÎÿÿÿø¾ †/ΰ·ž|žÿ ~ΗÆ?%(æ ¦ þ ~§çŒ¾&ßÎ €?Î …Æ?Î €?¾ |9†V— ½èS�°µååå €  oo~�~�½ؽؽؽؽؽؽؽØÿäæ÷ãî'ƆнÎ$~y ÿæÎæ†?þæ Î ÿæþÿëþäî ';½° îÿíZ†9þæ ÿñÎñ†?_þñ½Î$~�þí½w?'ÿóÿû Îÿó ÿûÎÿéöãÎè?þó'~bÿõ½&.%,þóÿùÎÿï½M%½& % þïÿï ë½\ ½\~—½M$È~—ÿ÷õö½%'þäÆå &Îÿó~$þõÿõ¼æ'½M$Ö Ûþõ&~}öæ¶ç?&½Î$ þäî&éþõÿæþäm &m 'Æå ' þû¼÷'~}þ÷ÿóþæÿï½êçþóÿóþï ÿï&éöãÎè?þäî &þëÆ€O?Zþëçþ÷?1?1ÿé ÿéöãÎè?þëm+ øÿñþ÷¼û'Kþæÿï_† ½Î$÷ï·ð¶ð?,ÿæþ÷ÿí?)ÿ÷öðþí½‰þñç§ÿñ îÿûþæ&¸~éþñ ÿñî½w÷ï† & þñÿñ –·õ_þæ?&½Î$¶ç·õ¶õþæ?,ÿæþ÷?(ÿ÷öïûõþí½‰þñç§~yÎÿÿÿùþëÿíîöû¶ü½Î&^þû½wXXZþù?'ÿó½gÊ€þñç§öãÎè?þäî &öé¶êþäç § _9þäöû¶üç§öù¶úç§öó¶ôç § Û½wXXþù?'ÿùþí~òÆ 9Æ úÆ öÆ òÆ îÆ êÿäæ÷ãþÿëþäî &~u½°ÆtÎÿÿþëÿýÎý?þäîŒÿÿ'~fþäæ÷ñÄøTTTÁ-Á#~…é÷êöãÎè?öñÄXXXXþë?'¦�ÿ'~‰þäo o Îm*~;ÿñÎÿéöãÎè?þñî* öãÎè?~;½w÷æÿó½%SäçþóÿóöæZ÷æ&æþñÿñ Á?0?0ÿïþëÿñþñî*~y½wæ÷çÿóþæöï¶ð½Î%R?.÷ï·ðþñÿñþï&ǽ™þäæ¦Ê€þñç§ÿñþëÆ†t?)¼ñ' þñoo äöãÎè?þí~½™öçðð¶ðþó?(½‰þíç§þóöð½‰þñç§ÿñ~±öó¶ôνÎ$9� þë?( å9ÄTFVFVD6YYYO FZ,ü29þóÿóƆÿ½Î9þïöõ¶ö½Î$ þïÿõþùÿ÷9½gÄ|WW\7½gÄ?%39ZXX7½gÄ?%3O?*9þñöë¶ì?-½gÎ?)ÿí9ƆнÎ$11~uÿéöãÎè?þëÆm+ \Á:/õ11~uÁ'÷9 åå€ ( oo½ؽØ~›~¥~~ì~!~~90îî¦90êç9½X0oƽ]'Á'd�*&Æ�à�Ö�.&PÆ‚½]' �*&Æ�Ê�À�:&† 0î?ÆÁ½† 0î?�£0æ90î î¦�;'� ' 0î l&lî¦9Æ�u ¼�#'zÆ€½• ‘„?6½îÅ€&� 'õÅ@'?$ @?%Ä?0îî]'§Z0½Y�¡?%äŠ0 äÄ?')760á'î î?0¦î ?23�*& ½î?$ù?$õ†*190î6?29ƽ•0î†?ƈ½~ 6Á'-þ ¶ öÿ?-?&0 5?&þ?) ö ¶ ?/%(ö¶?/$!ö¶ ÿ0m& ¶‹öÉç§_ŒÆŒÆ2W9¦ …@&-„� $*¦?%$¦ ?%þÿçî'?/'þç ì~·~º~½þçî'ðÿéþçîŒDK&~Âþé¦J0îæ Ä%Zþé]'† ?(Z ÷ÿéî'»þéoo¦…€' 0¦æþé§ç¶êöé0î§ ç¦ Š@§ ¦„?Ч Æ0¦îç9ÆŒÆŒÆ í0îæ Äþ馷ë¦ $ à † ?(zë&ð Ù~q6¦ …@'¦…'¦ „¿§ ?2îoo?3oo Æ ÆŒÆ 2ç9ÆŒÆÿŒÆÿ˜÷š¦…'~n… '~q„�&~q�|�¦„·›�'�'�'~t¦…&�榧çî ¦…'| þ˜æ ¦ Áÿ&�ÿ&o o î …'s îÿ–­˜$~wþ˜¦„?Š@§}š&~ʶ›�'~ÊŸ}š*~Mœþ˜¦æî½Î%xæþ˜l&l¶›�&Á'ÜÁ &} /%}�& |œ†±œ&Ľ[ 0}�& }œ'7½[3%!¶›�&¶š' Á & ½® ¶ž·ž½0$~h~ԟƽ0$6~h¶›�&%}š' þ˜îæÁ '!} ,þ˜Œ &æ Å ' � $~h½®%ø~}}š&|Ÿ ¶›�&ôöžP½09ŸÆ ½0%} . Æ ½0%ƽ09ÆE}š+ ÆH}š'ÆDŸ½0$~hžO}š+þ˜æ¦î ?.]'~z�ÿ$ùL»ž·žŸ}š&|Ÿ ¶›�'ô½0%C}š*~†~É}Ÿ'7ÄðTTTT�þ–½�3% Ä�þ–½�9Ê0Á:%Ë9öœœÊ€Ÿ Èþ˜æŒÆŒÆ ŒÆ ŒÆŒÖŒÆÁ' 7þ–­˜3þ˜ç]' 9€`««~¾~º½â½â½âÆ _÷õÿóîÿñþóÆå'~Û†¤�&~߆ ¥&÷½$~êöüþóæ¦ç§}õ&†¤�'�'�'~æ~)øþñ†÷¥'|÷þóæÁ - ÁZ.½$~ê½¶%_ Æ÷ù½3$~ê}÷'ZÁ& ½ª'ÝM&ZJþóç§ö?%æ½$Å~êÁ&½�~ïÁ&(½�%êþóîÿúþóæ¦þú?/'™æÿú½%É åÎÿá'…¶¡&ôÁ &8þóîç}÷'}ù&½¤ ½�$~ê}ü'~ó}ö'~ü½þóo_9½é'Á&|ü]*Ä'÷úÆ ½Ízú' ô½Í~B½3$~ê}õ'ÁH' ½é' ÁE&|ü ÁD'½“ Öý}õ&tþó†¤�&i†·ø½~%¾½‹÷þ&~}ü'Á&ô}õ'Á&ëzþ' ½~%—½‹½Í î½~%н‹}ý&̽3%äÁ &÷þóæ¦á&¡'m&jj~ç†ÿ •0îç] 9Æ ôÆ ½ íÆ ÷0îæÁ &î}õ&Æ åÆ áÆ ÝÆ Ù7þñî­ó39þñî­ó9þó†@ª„§þñî­ ó9þ󆀪„¿ é½3%%½“�"$1111~XXXX÷i½3% ½“�%æûi 9À0%Ëé% Ë*Ë%Ë 9}ø+½39½>9¶ý·ý97Á &½39Æ ½%Æ ½9þóæ¦î?/9þóæ¦î}ø&M&ZJ½Î97½¶%3ç½gþóç§9†·ö39þñ†¥9 ÿ € ««½â½â~º~~„ÿú†¥'~îæ¦ ÷ü·ý†¤�&þüî­ úþú†ª§o_9þü†¥'ᆥ' þú† ¥'~pþú†¤�'�'�&¼?8'¸~æþú†@¥' Dæ ¦ Áÿ&�ÿ'8æ¦&]'/î?/')þúæ!¦"î?/%o ÷þú† ª§?†ß¤§]'~æþúoo†¥&~Øî Œÿÿ&Qþú†À¥'~ò¦·þæ îÿ„øDDD�-�#~ö·Îÿ?öþÄXXXXþ?'†ÿÆ?þúæ Îÿ?þúÆ ?'?"%~Ø0îç] 9Æ ôÆ ðÆ ìîÆå&0îo_90î?&\æÄøTTTÁ-RÁ# L€÷�æ þÿ‚Î?0îæÄXXXXþ‚?'æÁÿ''ÿ€0îÆ ?'ÿ‚΀6Æ ?20î?90îç 9Æ õÆ ñÄ&~{÷´îÿµ¦·¿0îîÿ·Ä' „æÄ&ÛþµÆ?$~½˜ÿ½ö´Ä'Mþµ¦ æ„Äÿ·¹÷ºþ·¦ æ·»÷¼„Äÿ±¹'~‡ñº&øö´Ä&þ½¶»ö¼§ ç ö¿ÎÀ?_9Æþ·?%~ƒþµö´Ä' ¶»ö¼§ çÆ ?'ÿÅþ·?'ÿÇÎÅÆ?ö¿ÎÀ?þ½Æ½‹þ·Æ@?%!ö¿ÎÀ?þ½†ÿ¡&ƽ‹~Æ 9Æ úÆ öÆ ò†ÿ?ö¿ÎÀ?9¦îÿÄHHHH?(ÄøVVVÁ÷Â9"€(~%½ìÿÆå&~φ@¥ &~Ó?îÿ þ†¥'¦„�'~÷þ †€¥&.~×½o_9þ †¥'þ†?¤§†¤�'�&~­~­|? àþ † ¥&~Û½ þ †¥&~IþÆ ?'Æ?$Á'Æ ? ?þ†¤�&~¼~ßþ†¤�' †€¥'~ó†÷¤§oo†ÿ§ § §§ooîÿ#þæ îÿ%Î"?þ%æ*~ã¦þç §þ%Æ:m+Z&÷~ãæ¦Äþç§~b}?'~b½?6'~¤m 'Æ ?'ÿ#þîÿ%Æ Î#?&þîÿ#þÆ ?'ÿ%ÆÎ#?~bþî¦ þ§?'üÁ 'øÁ '¦ «þ †@¥&~Û½ þ¦„§„�&þ †¥&† †þæÄø6§2�'�'�& þ Æå&~÷þ Æå&~>þÆ ?'Æ?$Á&~çÁ&~ëÁ&~ïÆ ? ?þ†ª§~ï�' �'�'~÷}?'~bþîÿ;þîÿ=þÆ ?'?$þç§?%Æ?'?$þç§½?7ö;¶<ç§ö=¶>ç§m&~e†ª§~Çþ †¥&~׆`¤�`&½ ~­0îç] 9Æ ôÆ ðÆ ìÆ èÆ äÆ àÆ ÜÆ ØÆ ÔÆ ÐÆ ÌÆ ÈÆ Äþ†ï¤§9þ î­$11~û9$€X½ì~%~=‘ƒeS¢9@„ÿÿ²°£"LIST ROULETTE.SB;L :0;V D MANUALLY FROM 0 TO 1 UP;A END CHAIN¶HHHHC„ð´'Æ1~#? $Æ0 õþKÿ(þ? ÿ?Î.æÊ ç?'Æ ×þ(ÿK½“? %ÑÎS¦�@'C�\&ÿ(0æî�$§� ']'Z ñ¶„·0¦¦î9Æ)~#ÿ*þ(¦ÿ(þ*9¦�*'.�.'*½�J't�C'f�L'_ÿ,½ �S&~vÿ.½ �T'%Æ2 ¹6ö*'ÎS? 2�.&4Î:? ? $~U½ð #6¶+·?ö¶ô,´-þ.?/  ½�2~}¶+„·* óÿ.|+½�þSŒ@L&õÎS½¼.&ê+ Ò¶ö´,ô-º*ú+·÷ ¸O †6Î.æÄßç?&%2M' ¶*&ÎS? þ(ÿ(þ,ÿ$Î#_?ÎS9Á &4¶+'Æ3~#¶+Æ4 ô¶/Š·/Îÿÿÿ9Î.?& ?&Î0? ~%~sÆ?'ÿ(þ(ÿ(Î(6½:2&þ*9Æ ? þÿ‘Î.???ooÆ0+(� # €+ �.‹ ÿ(7Æx+y*Z&÷»+·+3Z&Ò9&€€ýý~ Î!qÆ?έoßþ_Î!l?þ!oîÿ!B¼&%þ!oî ÿ!E¼&ΰÿ!qÎ!žÿ!sÆÎ!q?' †RŒ†I— ½èS úÆ? ¶�ÿ'~ †U~ HÎ ¦ …@'ÎE¦ …@' þ{'3Îj? ,Î ?%È?%ÄÆêçÎE?%·?%³Îj?%¬?%¨Î!ÞMßQ|-Æ7½&(3%.Z&ö–$'-Îß*ÞOß,κÖ,–-?-$?)ß,ÎßY½&(ÞY&è~0 ~/ÿ~/ñÖO–PTFTF—[—\ÎßYß*Îß,Þ9¦ÆHZ&ü—;Æ×lÿ>j~)±Þ.ß<ß6ÎußeÎD0ß_Þ*ßFÆ?$Æ ? ?þßDß”•O§ œ*&ù~,x½0n†·ANÞŒŒB¾'†ÿ·ANÞ4½(ì')½(÷ß4½(Æß$Þ4½(ì'½(÷OÆÛ1×1™0—0½(ÆÞ$ Þ*ß,Þ.œ,'œ*'öAN+zAN& Æ�Æ<÷AN½#' ßöANZ/�†·AN~3½"™Z&ú9½)&Î,xÿÿ~õd½0nÞ.|ÿb}ÿ' †½"Y†0½"Y†½"Y�|�z½+§œ*'½#'�o ô†½"Y�o†½"Y}ÿ' †½"Y†9½"Yÿb~)±½)ˆ½0n}ÿ*�, ¶üý„_·üô†½"Y—…|ÿS½"f� &ö}ÿ*� ½!ùΰ�. ï|ÿb†½"Y†7½"Yÿb9�_OJ&ýZ&ù9Æ2†ÿ½"YZ&ø† ½"Y9½(÷½(¼$Þ¬½(ì'Þ,œ*'�E Þ¬½(ì& Þ*œ.'� � �.9�+Þ0ß2 ÷Ÿ(Þ,ž*44¦4M&ùŸ*ŸF5Þ,œ*'2§ öž(9Þ¬½)CŸ(ßHÞ*ß Ö¯Ð­ËÛ+†™*‘D$3×+—*Þ*ßF5Þ œ,' ¦6 öÞ,–0§–1§–I§ž¬42§M&ùž(9Æ~*Þ*¼>a'Æ6~*Þ[ß6? $~-^Î ßHÎC²ß]ޔ߈Þ6œ*&~)±}6'øß[}‡' ½"«½0j½"À†[½"Y† ½"Y½ð†]½"Y½"™ ¦ß4—IÞHînÞ4½(ì½$€$I~5YÆ ~*Þ4½%̽$Å]'ðZ×U½)CîŒ-$',Œ-' ÜUÞ6½)&ÞeŒ…&Æ ~*–6§–7§ße UÞ4½(÷zU+ ½(ì�,&¦ î½(¼$Æ~*ß6~,xÞeŒu&Æ~* ßeî ç½0jΠ½"’½#wÞ6½ð½)&ß[Þ*ÿ>a~)±½"«Æÿ×C�Z�½"À9C߈½$–Ÿ(Þˆ5Þ]îÆ2M'0�"&}>_'>_ ·>_}>`'æ§}C& }>_&�,' � 'Z&Î o40ž(>_>`96Þˆœ”' œ”' ¦&÷2߈9½0n–4&Æ~*Þ4½(ì�"& ½&�,&ëß4½0Vþ>h'¶>ðö>ñ§ç?'~>'îoÎ>l߬ ½!òΰ߬Þ4½2“$Pß4Þ¬}†&%�i$,M'ö>h' Î>l½"ˆÆ4~>0Î!˽"ˆ½!òΰ Ö½(ì½-‹ ½"Ù½(ì�,&߬Þ4½(ì�,'« @M&~3Æα¦îŒXI& �T&žD~B€~*½(ì—J�-' JO—L—M—N½/{Ö]×&Ö^×'ƽ(ì½$€$ �.&—M ï 9 ¦½$€%B€0&}L& }M'êzK å—L½"«Þ&]'}N&«§Z HHHH§sNß&}M&|K½"À ¶}M&�.&—M ©_�E&¦�-' �+&�6 �1P–K½"«Þ]§½$�½"À}J'½&² 9½"«7ÆÞ]oZ&úK3½"À9¦½$€$Æ~*€0¦½$€% XXX¦€09Þ4½2“$hß4Þ<œ.'>}†' ½(ì'*�"'½-‹ :ß<ޔ߈Þ<½&N% ½-| (½.»$ ¦'Æ~*œ*'÷¦M&ö¦±!ç&ï ¶½"Ù¦�,&ß<Þ4½(ì�,'“ M&Ë~3Þ4½(ì�#&¦�3-�9. ½0©~<°?~3~>Þ.ß<Þ4~3½"«½-ߦ'½1‡ ö½"À9† #Îÿ>hÞ4½(ì�#&í½%Ì'�,'~2­ß4½$Å�$…'-ÎðߌÎð +� .‹0Î>ò¡'Œ>û&ôÆ(22~*îÿ>h9ÎB¾ßŒÎðߎHH‹ð—‘†ü—�Þ�¦�ÿ&Æ&~*9½0nÞ4½(ìM&X ¦�;'-ö>h'"?2þ>j ?$Î>lÿ>jþ>h~'?3 ½"™@ß6~,x~* '½6r½"Ľ$ÅZÐ@/½#wZ&úžD ½&}†&�o ½0V½(ì�,&–@Äð' ½#w ó�;&~0íM'úÆ °†. O„‹06}>c&}>h'ÿAOþ>jŒ>ï'§ÿ>jþAO ½"Y27Ö@\Ñ“# Ñ’$� &½"™_×@39½"«–T—©½$–O—Mm& }©& �¦½"À~#wm*†-��½&»¦� .>�ÿ-:M.�†�€—Mm*)½1‚z©'Ðl ð}M&¦½1ƒ½&æj&ô}©&�R$²½1~�2 «¦½1ƒ½&æ½1~�#†E½1‡æZ*†-½1‡POLÀ *ûJË ½1ƒ½1ƒ~1ÜÖ©�$ ¦½1ƒ½&æZ&ñ }T&î9½"«Þ]7Æm&Z&ø  ½"À39½#î% 9Þ4�õ%Æ~*½(ì�='Æ ñ}†& ½%ÌM&ñ½"Ù @½&}†&~&IM&Þ½-| -Þ4½%̽$Ž0‘Þ4×– Þ4½%̽$ÅÁ %Æ ×T †ÿ—‡ ‡½)&~,x½"«Þ4½%Ì�,' �)&ß4½"À 9½%&ß4½"À 9Þ4†½#)%Æ~*M*øß4Þcç§�À$½$Å _ç½$ŧ�Þ4½(ì�,'È ~3½"«æÁ¤&׆æ�}†'½$¥½$©ßF½"À–F§–G§9M&Æ~*¡"÷á"ó6¦—Q]'Z'–Q½$©}†'½$¥J&ò ë2½$©}†'½$¥J&ò9Þ4½2“%~2 }†&øß4Þ]½$�¦æ—Q×RÎD0–QÖRœ_'¡&á& –6Ö7¡&á'½$§ ߌD°&Æ~*§çß_Þ4½(ì�='~2­½%̽"Ù½):Œ!&ïÞ4½%Ìß4Þ_½"˽$©ß_Þ4½):Œ! & Þ4½%Ìß4 ½:gÞ_½"˽$©ß_Þ4½(ì&·ß6Þ_Ö6çÖ7çß_~,xÞ4½2“%~2 ½(ì&Ûß6½$–¦æÞ_ŒD0'fß_ŒD0'[½$œ½$œ¡&ïá&ëßaî½"þÞa½$§†m*‹—O½"þ½'‘Îo½"˽$�Þa½"þ½5ž$Þaß_~,xÎo½"þÞaî½"ËÞaîß6 èÆ Æ~*Þ4½&�I—O}†'-½&}†&~&Iß4½-ßß ½-ߟ(5Þ 2M' & õ¦ž(�[ ½%Ìß4�J$~3Þ4½)Cîn½(ì�=&†9æ�<&Á=&†9Á>&  †9†9�>'Æ~*Á=&†9Á<'ä†9½'޽$–¦6–OHHÎ5Àß ›!—!†™ — 2Þ Mn' + + ô& '+* 9 9½6l½"«Þg­½"À9½6lÆ à]/½' lZ õo½$�½'2½$–9�c¦'—J½:g½$–}J*½&»9�Lm*ù ôÞ4½(ì�(&ß4�8½2z$½$� Îil½"þÎ;†½"þ½(p½$–½&ææ¦§ço½$�½'2Îi½"Ë9�½$–9Þ4½%&ß49½3%~%2½$Å7½$Ë×R—QÞQ3çÞ4~3–@L�9�Ó½$Ë×R—QÞQ¦�9½"«Þ]½/{Æ ç_€d\$ûZ‹dç½&ñ_€ \$ûZ‹ ëç½&ñ«§½$�½'2½$–½"À9�G¦�)'~%2ß4½-ߦ½6­†9�äOLæ]&ùJ½6­9�Õ½.»$Æ'~*½$–9�½(ì�,'~%7ß49Þ4½&}†&~&I9�à½%&ß4½$Å\7ÁI$ �ν3ÆG$½$ÅÁH%Æ%~*\7½$ÅÁH$òJ½-ßJ*ü 2JŸ(5ÞˆM+3çJ]&õ ož(߈Æÿ׆½$–9�„½%&ß4½$ÅÁH$¸½-ß7æL]&ùJ36*OÞˆ ´|>`½6r½$ÅÞˆço ¾Þ4½%̽$Å×’WW—“~3½3$~&IÞŒ½"«–@6@Î8ߌ|>c½1Ä>c2—@½"Àߌވ o~7‘Þˆ§߈9Þ4½(ì'k�F&g¦�N&`¦½$s%X½(ò�(&Q½(ò*~3Š€§½#)@�$'<Ä×R—Qß4ÞcçÞ4½(ì�)&'½(ò�=& æ'ÑR&÷¦½$€$† ‘Q&êÊ€ç ä ~3Æ"~*Þ4æ½(ò�(&M½"«Þ.œ*'C¦±!é'½)( î½(ò¦&ñ½(ò½#î%"½(ò½(òß$½"À½%&½"Ù½"«Þ$½%̽$–½"Àß49Æ#~*½6r�ZÎ;˜½"þ½'ø½$–½5ì½$�Î;˜½"þ½(p½'޽9SÎ;’½"þ½'޽$–m+ Î;˜½"þ½'Ž9�;½$��N½$�½'ø½9Æ9� � ½(pΗ½"Ë9Þ]½$�¦§œ]&÷~$�Î�½"˽/{½$�9½8ô�Ï�ìÆÎ<�" E½8ô�¿½$–½:g�ÖÆÎ<.� �/¦�ú,½/{9ßA7Η½"þ½(pÞA½"þ½$ž½'‘3Z&åÎ�½"þ½(p9½/{Þ]½$�æç m' ÆPç ½$�½'‘½$–o9½6r½/{Þ]½$�¦Æç×Næ/aÁ%oN½$�Î;¤‘N'* 6½"þ½'Ž2L ì6½"þ½'‘2J áΣ½"Ë�3½'޽9S�:½'‘½'ø½9E½9dÆ Î;Ú½9¡�$½(pΣ½"þ½'‘½$–9Æ5~*Þ]½/{†§§½$�9Þ]½/{†§J î½6r½9SÎ;¤½"þ½'ø½$–½5ìæ½$�½9S]* ½&²½$ÅP ½$Å7Î;¤½"þ½(p½'ŽÎ;ž½"þ½(pΗ½"˽:g½9dÆ Îh$oo î ?$þ>hç§~1þ>h¦ÄCÁC&Ч~0EÞ4½(ì�#&¦ÿ>d�3-�9/~>Î>òæ' 'óŒ>û'~ ï§îÿAOÆ ?'ÿ>f†0§†SÆA§ ç Î>d?]&]þ>d¦ÿ>dÆ�U' Z�O'Z�I&GþAOêçæ À0ç ÆçÆD†Kç§ ?&?'½A1 %¦„�&$þ>d¦'~=r~3Æ( Æ) Æ0 Æ1 _? Æ2 Æ3~*þAO½A1 õ7Î@{¦ÄÁ&…€&Ч??†%?(Œ@ê&â39>l>ï@{@ @Å>l>ïDK >û?z>l>ïDK ?{?ú>l>ïDK ?û@zÞ4½(ì�#&8¦�3-2�9..½0©þ>h�,¦ÄÁ&…€&Ч?&?&ÆçÎÿ>h~3~>~>'¼>ó&>ò ¼>ö&>õ ¼>ù&>ø9¶C…'ÎDKÿCÎC o?&?'_? ?~)±„�&ÎC ?Þ.œ*&9½A¡?2ÎC ?&?3 ê?3Æ? 9ÿAQ¦æΰ½BÚ† §ß þAQ¦ÿAQÎ ßH—IÞH ¦&û�Þ Æ çß þAQ� ÿAOÞ ÿCþAO9¦„&9ÿAOÞ §ß þAO éÎC ?&m?&i¦„�'~>.ÎC ?&þCo߮ΰ½+· êÁ &D¶C„�&:ÎC ?&4?&0ÎDKÿCÎÿC*ÎCÿBþÎCÿCÎBþÆ ?†·CÎC ?&?&9Æ? ?  ÎB´? ΰÆ? ¦�N'�Y&ê½AU¶CÄÁ&Š·C½>;ÎC ???SAVE(Y/N)½ëÌ%9ÎBÌ? ~)±PRINTER ERROR � 7DDDD��39„Š0�:%‹§9C0 SA MDOS BASIC 2.01 COPYRIGHT(C)- 1977 ŽÿŠÎC2ÿC,ÎC±ÿC.ÞþÿBú½EWÅ&`]+YÎCÿBþÎCÿCÎBþÆ ?½EWÅ&C]+† ÆÎC?Z'† |AS†ºC·CÎDKÿCΰÿCÎÿÿC†·C$†·AN~)¤Æ Æ? ?ÎCÿBü†0·CÎSAÿC ÎCÆ?ÎBú?¶C€0·C9I€H |N2õÖ¸™z\= &+/121-)#  $)-01210-)$  "'*-0121/,)%   Ž,HÎ* ½ð$½ð�Y'ÎðßI ÎëÌßIÎ(0½ð$ÆÎ3? Î3½$%ëÞ3ßQÞ6ßSÞ9ßUÎ(x½ð$Î<Æ? Á&ïÎ<½$Ɔ Î(·§Z&úÎ)î½ð$Î(·Æ? Î(½ð$ÆÎ*? Î*½$%ëÞIŒëÌ'Î(µ½ð$Î%}½ð$Î(ý½ð$ Î(µ½ëòÎ%}½ëòÎ(ý½ëòA@ Þ0œ9&| –*Ö+�'Ë ÷ Î ½#’¦Ö-Á'Á'Á'Ö.Ë Ö. Ö.Ë Ö.Ë×?�?+—A A¶ IÎ ½#¤¦æ›AÙ@—A×@†‘ &†mÆ�AÒ@CS‹É—A×@ SÎ9½#ü—FÎ0½#ü—!„&¶ �. †Æ›AÙ@—A×@–!‹—!‘F& †mÆ›AÙ@—A×@–!„& †Æ›AÙ@—A×@ Ô–3Ö4�'Ë ×"†‘"'· Î ½#¤æÛA×AÆÙ@×@L äÎ6½#ü—#›A—A†™@—@–F„&Ö"Á/ †›A—A†™@—@†½%—$Î )½#¤¦—C†½%—%Î @½#¤¦—D†!½%—&Î \½#¤¦—EÎ<½#ü—)ÞIŒëÌ'Î)B½ð$ Î)B½ëò½$н$Äz)†‘)'%–#L—#Ö"÷ Î ½#’æ×B‘B.–7‹�,g—7 l~#¶ÆÑ"'FÆ×#×76|"Æ Ñ"'–4‹�,—4 D„—4|3 ;†—"—43|F–:‹�-„|9—: –F„�&²–#�'–�,¨ „—7|6 –$L—$�&O$Î )½#¤¦—C–%L—%�&O%Î @½#¤¦—D–&L—&�!&O&Î \½#¤¦—E~"ª67ßGOÛH™G—G×HÞG32967ßG_›HÙG—H×GÞG329Ɔ ½$ † ½$ ZÁ.øÞIŒëÌ&Î*½ëò Î*½ð$Î)Ͻð$½ð„�N&?ÞQß3ÞSß6ÞUß9~ Ðæ¦Á/‹ Z ÷9ßGÞI­ÞG9Á&eßW½$ÞWæ¦'Ë Á .R÷ ¦æ'Á'Á'‹ ‹ ‹Î ö ½#’æM').ÞW¦- æ-Á .� . 9�&ÞWƽ#’½#ü„'Ú 9¦„§Z&ö9† ½$ † ½$ ÆÎ3¦‹0½$ \Á' Á' Á' é†/½$ 鯆 ½$ Z' õ9ÆÁ3'8ÑC'ÑD' ÑE'Á' † ½$ \ ã†P½$ \ Û†I½$ \ Ó†E½$ \ ˆ.½$ \ ƽ$ †½$ ½$ 9—K–@ÖA—L×M½%*–LÖPÁ'FZ ø9ÆNO\Á.4xK$ö×PvK–L‘K% yOyN�K—L  yOyNZ' yMyL–L%Þ ØÎÿÿßNÖPÀ Á%À×P9  THE PURPOSE OF BIORHYTHM IS TO PREDICT A PHYSICAL, EMOTIONAL AND INTELLECTUAL PATTERN THAT INDICATES YOUR UP AND DOWN DAYS FOR ANY PERIOD OF TIME. BIORHYTHM CAN SHOW WHICH DAYS WERE GOOD OR BAD FOR YOU BEGINNING WITH YOUR BIRTH. IT CAN ALSO SHOW YOU WHICH FUTURE DAYS WILL BE GOOD OR BAD FOR YOU. THESE PREDICTIONS ARE BASED ON SCIENTIFIC STUDIES TO DETERMINE WHY ACCIDENTS OCCUR. IT WAS LEARNED THROUGH THESE STUDIES THAT A PHYSICAL CYCLE OCCURS EVERY 23 DAYS, AN EMOTIONAL CYCLE OCCURS EVERY 28 DAYS, AND AN INTELLECTUAL CYCLE OCCURS EVERY 33 DAYS. DO YOU WISH AN INTRODUCTION TO BIORHYTHMS? TYPE Y FOR YES, OR N FOR NO. ?  PLEASE TYPE YOUR BIRTH DATE (MM/DD/YR) ? AT WHAT DATE ARE YOU INTERESTED IN BEGINNING BIORHYTHM? (MM/DD/YR) ? HOW MANY DAYS DO YOU WISH TO HAVE PLOTTED? (01 THRU 99) ? HERE'S YOUR BIORHYTHM AS PREDICTED BY MOTOROLA: PHYSICAL CYCLE = P EMOTIONAL CYCLE = E INTELLECTUAL CYCLE = I  DATE DOWN CRITICAL   UP -------------------------------------------------------- DO YOU WISH ANOTHER CHART?  PLEASE ENTER YOUR NAME ?PRINTER? MOTOROLA MICROSYSTEMS WOULD LIKE TO PLAY A SIGNIFICANT ROLE IN YOUR FUTURE MICROPROCESSOR APPLICATIONS. NOW THAT YOU HAVE A BIORYTHM PROFILE OF WHEN YOU MAKE YOUR BEST DECISIONS, YOU'LL KNOW WHEN TO GET IN TOUCH WITH US FOR ALL YOUR MICRO-PRODUCT NEEDS; COMPONENTS, DEVELOPMENT SUPPORT TOOLS, INSTRUMENTATION, SOFTWARE, MICROMODULES AND THANK YOU AGAIN FOR YOUR INTEREST IN MOTOROLA MICROSYSTEMS AND YOUR FUTURE. MOTOROLA MICROSYSTEMS 3102 N. 56TH STREET PHOENIX ARIZONA 85018 PH: 602-244-6815 ååP€H |N2õÖ¸™z\= &+/121-)#  $)-01210-)$  "'*-0121/,)%   Ž,HÎ* ½ð$½ð�Y'ÎðßI ÎëÌßIÎ(0½ð$ÆÎ3? Î3½$%ëÞ3ßQÞ6ßSÞ9ßUÎ(x½ð$Î<Æ? Á&ïÎ<½$Ɔ Î(·§Z&úÎ)î½ð$Î(·Æ? Î(½ð$ÆÎ*? Î*½$%ëÞIŒëÌ'Î(µ½ð$Î%}½ð$Î(ý½ð$ Î(µ½ëòÎ%}½ëòÎ(ý½ëòA@ Þ0œ9&| –*Ö+�'Ë ÷ Î ½#’¦Ö-Á'Á'Á'Ö.Ë Ö. Ö.Ë Ö.Ë×?�?+—A A¶ IÎ ½#¤¦æ›AÙ@—A×@†‘ &†mÆ�AÒ@CS‹É—A×@ SÎ9½#ü—FÎ0½#ü—!„&¶ �. †Æ›AÙ@—A×@–!‹—!‘F& †mÆ›AÙ@—A×@–!„& †Æ›AÙ@—A×@ Ô–3Ö4�'Ë ×"†‘"'· Î ½#¤æÛA×AÆÙ@×@L äÎ6½#ü—#›A—A†™@—@–F„&Ö"Á/ †›A—A†™@—@†½%—$Î )½#¤¦—C†½%—%Î @½#¤¦—D†!½%—&Î \½#¤¦—EÎ<½#ü—)ÞIŒëÌ'Î)B½ð$ Î)B½ëò½$н$Äz)†‘)'%–#L—#Ö"÷ Î ½#’æ×B‘B.–7‹�,g—7 l~#¶ÆÑ"'FÆ×#×76|"Æ Ñ"'–4‹�,—4 D„—4|3 ;†—"—43|F–:‹�-„|9—: –F„�&²–#�'–�,¨ „—7|6 –$L—$�&O$Î )½#¤¦—C–%L—%�&O%Î @½#¤¦—D–&L—&�!&O&Î \½#¤¦—E~"ª67ßGOÛH™G—G×HÞG32967ßG_›HÙG—H×GÞG329Ɔ ½$ † ½$ ZÁ.øÞIŒëÌ&Î*½ëò Î*½ð$Î)Ͻð$½ð„�N&?ÞQß3ÞSß6ÞUß9~ Ðæ¦Á/‹ Z ÷9ßGÞI­ÞG9Á&eßW½$ÞWæ¦'Ë Á .R÷ ¦æ'Á'Á'‹ ‹ ‹Î ö ½#’æM').ÞW¦- æ-Á .� . 9�&ÞWƽ#’½#ü„'Ú 9¦„§Z&ö9† ½$ † ½$ ÆÎ3¦‹0½$ \Á' Á' Á' é†/½$ 鯆 ½$ Z' õ9ÆÁ3'8ÑC'ÑD' ÑE'Á' † ½$ \ ã†P½$ \ Û†I½$ \ Ó†E½$ \ ˆ.½$ \ ƽ$ †½$ ½$ 9—K–@ÖA—L×M½%*–LÖPÁ'FZ ø9ÆNO\Á.4xK$ö×PvK–L‘K% yOyN�K—L  yOyNZ' yMyL–L%Þ ØÎÿÿßNÖPÀ Á%À×P9  THE PURPOSE OF BIORHYTHM IS TO PREDICT A PHYSICAL, EMOTIONAL AND INTELLECTUAL PATTERN THAT INDICATES YOUR UP AND DOWN DAYS FOR ANY PERIOD OF TIME. BIORHYTHM CAN SHOW WHICH DAYS WERE GOOD OR BAD FOR YOU BEGINNING WITH YOUR BIRTH. IT CAN ALSO SHOW YOU WHICH FUTURE DAYS WILL BE GOOD OR BAD FOR YOU. THESE PREDICTIONS ARE BASED ON SCIENTIFIC STUDIES TO DETERMINE WHY ACCIDENTS OCCUR. IT WAS LEARNED THROUGH THESE STUDIES THAT A PHYSICAL CYCLE OCCURS EVERY 23 DAYS, AN EMOTIONAL CYCLE OCCURS EVERY 28 DAYS, AND AN INTELLECTUAL CYCLE OCCURS EVERY 33 DAYS. DO YOU WISH AN INTRODUCTION TO BIORHYTHMS? TYPE Y FOR YES, OR N FOR NO. ?  PLEASE TYPE YOUR BIRTH DATE (MM/DD/YR) ? AT WHAT DATE ARE YOU INTERESTED IN BEGINNING BIORHYTHM? (MM/DD/YR) ? HOW MA  NY DAYS DO YOU WISH TO HAVE PLOTTED? (01 THRU 99) ? HERE'S YOUR BIORHYTHM AS PREDICTED BY JIM: PHYSICAL CYCLE = P EMOTIONAL CYCLE = E INTELLECTUAL CYCLE = I  DATE DOWN CRITICAL  UP -------------------------------------------------------- DO YOU WISH ANOTHER CHART?  PLEASE ENTER YOUR NAME ?PRINTER? OTOROLA MICROSYSTEMS WOULD LIKE TO PLAY A SIGNIFICANT ROLE IN YOUR FUTURE MICROPROCESSOR APPLICATIONS. NOW THAT YOU HAVE A BIORYTHM PROFILE OF WHEN YOU MAKE YOUR BEST DECISIONS, YOU'LL KNOW WHEN TO GET IN TOUCH WITH US FOR ALL YOUR MICRO-PRODUCT NEEDS; COMPONENTS, DEVELOPMENT SUPPORT TOOLS, INSTRUMENTATION, SOFTWARE, MICROMODULES AND THANK YOU AGAIN FOR YOUR INTEREST IN MOTOROLA MICROSYSTEMS AND YOUR FUTURE. MOTOROLA MICROSYSTEMS 3102 N. 56TH STREET PHOENIX ARIZONA 85018 PH: 602-244-6815 02E�LDAAƒ#$01 ‡LDABƒ#$FF ‡BRA„LB0026 LB002F�LDAAƒ#$01 ‡LDABƒ#$00 ‡BRA„LB0026 LB0030�LDAAƒ#$01 ‡LDABƒ#$01 ‡BRA„LB0026 LB0031�CMPAƒ#$20 ‡BLT„LB0033 ‡CMPAƒ#$37 ‡BGT„LB0034 LB0032�RTS LB0033�LDAAƒ#$20 ‡NOP ‡NOP ‡NOP ‡BRA„LB0032 LB0034�LDAAƒ#$37 ‡NOP ‡NOP ‡NOP W€ &0203 �MDOSOV5 SY!!! �!î"=DKCF">"½ "ã#2DKCHAIN SY#3#² } }"äHM"¾ ¬!Ç!Ã Ë É É Ë!à É"Û"Ý Ë ÉILLEGAL NESTING OF CHAIN COMMANDSCHAIN.SY DOES NOT EXISTLABEL TABLE OVERFLOW ON LINE :SOURCE SYNTAX ERRORILLEGAL OPERATORINVALID CONDITIONAL EXPRESSIONILLEGAL NESTING OF CONDITIONALSEXECUTION OPERATOR OPERAND ERRORVALUE TOO LARGE FOR FIELDEND FILE REACHED BEFORE LAST XIF FOUNDUNDEFINED LABELS FOUNDOUTPUT RECORD BUFFER OVERFLOWŽ$ÆÎ!¦?'Æ/~.þ!±ÿ!¢ÿ ª¶…'O½,…Î ¬½,÷?Á &NÞþßNÎ!ÓßPÎN?]&~&çÅ~&<Å'B¶!Ô' �N&/¶!Õ� &(Î"ÈÆ?%$¶!Ô')�N&¶Š·Îÿ‘?Î$C~-ÍÆ~.Î$e óÆ~.O½,…Î ¬½,÷?&Aþ ¦' ÿ ¦ßRÞR' ßRÎ ¬?&( ðþ!¿ÿ °þ!Áÿ ²Î$3½,þþ!Ãÿ Ëþ!Åÿ Í_Î!¡? Œ~.Î ß&ÞNß[� 'J�;' � &=ßN¦ ëO½+ð$0'.� '/�,'ð�%&"_ßN½-?� '�%'§\ ïß&ÞN ç½-?�%&ÒÆ ~.Î!É?&Ÿ| ?&˜| Î"¾?'~.| ?&ö†ª§| þß ß"Æ?Ö –!?)ß$†€—* Îß(Î+ß;? $~-ÏÞ(ß(Î!É?'Á &\~+fÎ!íß[Î"ãß]½-?Ö*&�/&ѽ-½-K�*'ÇÞ[îŒAB'¾ �@'�/&½-½-K �\'�%'=� 'T�\&½-?� ' ½-½-? å~.Î$¢? Þ(ßNÎ$ ßPÆÎN½.Î$’? Î!î? ~-φ½+ð$'Ô�%&Ð]'Ŧ½-Z&÷ º½-¶"ã�@'#�/' Î"¾?&ª~'ж"ä�*'ÆÎ(Ð @Î"å? èÎ"èß] ¦� & ß[½-KÞ[ ß[¶"ä�.'Ã�*'¿¶"ç� ' �,'� '~(ÆÎ(ô7ÿ$Î$½-¹3'7Ëþ$?'3Œ(ô'Œ) &àÎ$¶~(Þ=înELSE)!IFC ) IFS ) XIF )-XIF )-ABOR)5CMD)¦JMP)ÎLBL)èSET* TST*(OÖ*'½)]—*ˆ€º"ä�~'Š�"�I&0–*×* ì�Ú*×* é~-ÏÞ;Œ;'§ß;9Þ;Œ+' ¦ß;„Ä€9Î$æ~(Î"çß[½-KÞ[ ß[†€—N†½+ð$ ')ö"æÁC' ö"æÁS'N�.'à� '�,& –N&Á &Ë9Î$Ç~(Þ[¦�O&îŒN ' ŒFF&Îÿÿ ν+I~(LÎ%~(O½+Ð$'ò� &î]'¦+ç ½*l ÚO½+Ð$'Ø� &Ô]'¦+Í ½*l¦Š€§~)½*†%½-R� &ÞP½+E† ·"ç½*Ý~)Â~)Ƚ*†%ø½+%óÎßE� '½-R� &ã½*Ý%Þ–S*ßN…@'ÎßT„?—SRÞN½+EÞT½+EÞR~) ÆçßLßH?'ß" ßJÎH½.©ÞL9Î_¶"ç�,&<½-?6½-?� '� &;½-KÞ[ ß[2Î�W'�S'�T'�M&ÎðÿÆ ÎÿÆ Îÿ×RßNßPsNsO 9 9|RÖE–FzR' HY$÷Î%'~(ÕP&ö•Q&ò?%ßT9½-?½-?Î+-á&¡' Œ+E&ð 9æ×S½-?� '�,&ï 9EQ'NE>"LT%GE$LE#BS§BCç† † 6ßHÎ$#½-™ÆÎJ¦½-Z&÷2~-Þ;Œ+'Î%A~-ÍÞ œ"'½,l¦*½,l ðÎ%h æÎ!É??†½,…Î"¾?'Á&,?Îÿ ¦þ"Ïÿ"Ïþ"Ýÿ"Û ¨ ©Î$'Æ&½-�Î$;½,þ~&¾~.—GÞ ßHÎ"ßLîßJ_†&?*Þ$?/%Î$}~-Í—GÎ ßHÎ&ßLîßJÎ }_½-?½,r'Œ �'§\ í_ 9]'ú6ÞHœJ'á&ÿ$Î$½-¹'0þ$ æ�0�. à–G&çÿ$Î$½-�ÞCo?$ÞLç§î_2M 9Þ=æ2 9¦L?(9� '�.' �,'�%'� 96_Î!¡?þ!¢ÿ ªþ °ÿ!¿þ ²ÿ!Áþ Ëÿ!Ãþ Íÿ!Åþ Éÿ!ÇÎ Ñÿ °Î!Pÿ ²Î!!ÿ ËÎ! ÿ ÍÎ$+½,þ2M&þ ½ ÿ ½þ É?2Î ¬� ?&?3ÿ É9½.æÊ ç9æÄßç9ßVîæ¦ÞVî âÞVî«éÞVîç§9ßYÞ]Œ#3' §ÿ"Äß]ÞY9Î%~-ÍßYÞ[ ßYÞ[ß[¦ÞY9�ò� 'ú9Æ Æ7ßVÎßE�ݽ.ö%ÎE½.êšF—FZ&ì�É—X2–XÞV]9ŸV®ŸA®ŸCžVÎA?9Æ Æ6¦·-·¦·-¸îîÿ-µÎ-µ½.©29ŸV®Ÿ=®Ÿ?žVÎ=?9? ¶ '"J'J'J' Î"¾?'_? Î"¾?Î!É?Î!É?þÿ‘?_? É]&~.’l&l÷.¥ÿ.§Î.“ÿ.¢†·.¦þ.§¦æÎ.�oîà¢%Î.�l ñë©Î.�67¦‹0æ 'Z&ü§32Î.�l&ll&lj ,Ãïî¦Î.�î m&jjî§Î.�l&lj&Þþ.§O9'èd ]'/l&lÿ.Üþ.ܦ„� #‹‹0m&jjî§þ.Ü� Z&Ýþ.Ü96†dfJ&ù296†hiJ&ù29�A% 6‹¹2%€ �0%6‹Æ2%„9_€0 !IOPKL;,./8* *QWEASDZXC1+ 7ÎÝ ÞÎÝ*ÞÎÝ ÞÎÝ+ÞŽ#©½!y½!¸½!Û½!¬½!ÛÎ ½!ò½!Ûþ .ÿ (þ ÿ .Î &½!¾½!Ûþ .¼ ;'&Î ½!ò½!Ûþ ;ÿ 5þ ÿ ;Î 3½!¾½!Ûþ .¼ ;&«½!¸Î"â½!¾½!Ë$û�C'��Q&ó½!¸?Î7oÿ .ÿ ÿ (Îÿ Î ÿ ÿ ; ÿ 5Îÿ Î"õÿ ÿ ÿ G9ΆÿJ&ý &ø9†Ø½ùÏ9¦�'½ùÏ ô9¶üôG$¶üõ„ O9½!Ë$þ GŒ#F&Î"õ§ÿ G9ÿ @î Œ#F& þ @Æõç Æ"çî ¼ G'G¦þ @æËçæ Éç ¡'P¡'R¡'T¡'V¡'X¡ 'Z¡ '\¡ '^¡ '`¡'f� '^�H'f §çþ @¦«½"º$`§¦«½"Î$`§9†ÿÆÿ ؆ÿÆ Ò†ÿÆ ̆Æÿ Æ†Æ À†Æ º†Æÿ ´†Æ ®†Æ ¨† ¦î§  ½!¸ ›� -�7. 9† ú†7 õ� -�o. 9† ú†o õÎÝ,CG O T C H A !Þå ååb€8 0204Þþÿ'Î*Uÿ'Î'?'Å&~!Æ Å&~%ÆÆþ*VŒDK&~%Êÿ*Sú*4÷*4Î*zÿ'Î'?'Å& Æ Å'ÌÆþ*{ŒDK'Ïÿ*xú*4÷*4þ'_¦� 'W�;' ó¦ÿ'� 'G� 'òÎ*<¡&3êþ'�D&â†=¡&*Î*•ÿ'Î'7?'Å'_~%Æ3� '�,& þ' ¸m&Ã~%Î÷*7ÎUDÅ€'ö*4Å'¼*V''Å'¼*{'~%ÖÅ&ùö*4Å'¼*V'í Å'¼*{'âÄ Á &~%»…'… &Æ ñ*z&ñ*ƒ'銷*4„�'~#Æ ñ*z&¶*U·*zñ*ƒ&þ*^ÿ*ƒñ*{&Î*Vÿ' Î*{ÿ'¢Î' Æ?ÆPSõ*7'~%ÖÆPñ*7'öÆ ú*L÷*LÆ ú*q÷*qÎ*K?'~%²?&ùö*7Å@'~"Sö*bÄ÷*‡ö*c÷*ˆþ*dÿ*‰þ*^ÿ*�½&dÆú*q÷*qÎ*p?&Á?'}*�&}*Ž'³Á&¯*�*Ž æ½%ñÎ*K?'UÁ &™ö*bÄÁ&CÎÿÿÿ*\ÿ*�Î*K?&?Î' ÿ*�Î(ÿ*‘Î*p?&,Î'•ÿ'Î(ÿ'Î'Æ ?Îÿÿÿ*�Î*p?& ½%û?Î*p?'š~%²Î' ÿ*�Î(ÿ*‘Î*p½&E½%ñÎ*K?'LÁ '~%²Î*p?'dÁ &òö*bÄÁ'~"DÎÿÿÿ*\ÿ*�Î*K?&ÖÎ*p?&ÏÎ'•ÿ'Î(ÿ'Î'Æ ?'Ñ &Î*p?'Á '~%²Î' ÿ'Î' ÿ'Î'Æ€?&~"eþ*\}*K& ÿ'Î+ ÿ'Î'ƽ+ Î*ò? Æ�?#~"Dö*7Å€'Sþÿ*:þÿÆÎ*•?þ*:ÿ$Á&~%¿Á&~%æÁ&~%Ú~%Òö*7Å'¶*96¶*8644446ÎÿÿúþnÆ ñ*z&Æ0÷*zö*4Å&~$øÎ*Vÿ'Î*{ÿ'Î'Æ ?Î*K?'~%²?&ùö*bÄÁ'Á'~%Þ¶*7…'~%Ö… ' …@&õÎHP¼*x&í…'Á&åÆ Á'ƶ*b„x·*‡¶*7…'Á&džº*q·*q |'¶*7…@&RÆú*q÷*qÎ*p½&æ'?'~%²?&ùö*7Å '½%ñÎ*K?'Á &ä~"D}'& þ*O¼*M'â|'þ*Mÿ*vÎ*p?&Ä ÐÎCN¼*x&~%ÊÎ)*ÿ*tÎ*3ÿ*vö*7Å&|'½&E½%ñÎ*K?'Á &�Î*p?'Á &…~"DÎ*ä? ~#}'&î¼*M'ÐÎ*p?'Á 'á~$}'& î¼*r'æ|'þ*Oÿ'þ*tÿ'þ'¦þ'¡&·¼*r& þ'¼*M'Ž ¨ÿ'þ'¼*M'œÿ' ÓÎCN¼*S&~%Êö*7Å('~%ÖÅ'¶*4…'ò†º*L·*L†·*b |'*Vö*4Å' Æ ñ*ƒ&ÎSAÿ*ƒÎ*{ÿ'Î*Vÿ'Î'Æ ?Î*K½&æ'?'~%²?&ùö*bÄÁ' Á'Á'~%ÞÆ¶*b„x·*‡ö*4Å&Î*Vÿ'Î*{ÿ'Î'Æ ?ö*7Å@'~$N½&dÆ~#þÆ? ½%û?Æ õÆÎ*• îÆ êÆ æÆ âÆ ÞÆ ÚÆ ÖÆ ÒÆ ÎÆ ×Î*zÆ Ã? $½%û?9Î*K½&&ö*qÄÁ&Æõ*q&Îÿÿ¼*{'ú*q÷*qÎ*p½&&9ÿ&C?'Á'_? þ&C?'Á'_? 9Î*pÆêç½&æ'?& ?&Î*®? 9~%²Î*zÆ?'9ö*‡Å€'~%êĶ*b„' �'~%âÁ&ùö*4ÄÁ& ö*‡Ä¶*b„&ãö*7Å'9Î*{ÿ'Î*Áÿ'Î'Æ?þ*ƒÿ*Êö*z÷*ÍÎ*Á? Î' Æ? ö' ÁY'ÍÆ€?#½%û?¦�H&¦ �R&¶*5§¶*6§ ¦ Š@§ o9¦�U&ù¦ �D&ó¶*¤§¶*¥ ß+Ã#bNCWH V@D€M( ))DK0 SA' 'Ÿ( ))DK  ' 'Ÿ0 LO' 'ŸVERIFY IN PROGRESSXXXXXXXX.XX:X EXISTS. OVERWRITE? VERIFY FAILEDVERIFY FAILED AT LSN XXXX]'/l&lÿ+?þ+?¦„� #‹‹0m&jjî§þ+?� Z&Ýþ+?96†dfJ&ù29  ½+q ½+ƒ$ 0îîî† §0î11nÿ+Ëþ+Çoo†<§þ +Ë9ÿ+Ëþ+Ǧ†4§†<§ +Í+Φ+ +Î&÷z+Í&ò ¦%0îîîæÄÁ&„ þ+Ë9+Mä°„ååi€8 0203O—"—%—&Þþÿ"è¦� '.�;' � 'ñ|& ì¦� '�Y&|" ð�S&|% ç� 'ãÆ :† ·"?Î"@Æ ?Î"?ÿ"êÎ"è?× _¶"?� '„'\J'Æ ÷"?– '…'Æ? ?…& † ±"?&}&&ê† ±"?&"?"P½!j ? $?Î"?Ö!?$~!CÖ!Å&½!â&â–%&¶"L… &×¶"L„À'Æ�?#Î#½"Î#? DÖ!Å&$–"& Î"ó½"Î"ì? ? %CÎ"ØÆ? ? %8¦�Y&œÆÎ"??$Æ ? ?Î#½"Î#? –!J&~ ¤þ"è¦� '�;'~ F?–!J'Å'Æ€?#Î#4½"Î#4? ÔÆ ? ?Á&ö~!1O—#—$Æ Î"@¦&z# %– „&†—!9– …&†—# |#Œ"H'¦&òÎ"H¦&z$ – …&†—$ |$Œ"H'¦&òÎ"@ÿ"ÚÎ"Þÿ"ÜÆ Î"Ú?†—!9Ö#+Î"@ÿ"ÚÎ"Þÿ"ÜÎ"Ú?&–$*O J'þ"H¼"æ ¶"H±"æ9ÿ"ÜÎ"@ÿ"ÚÆÎ"Ú?†.þ"ܧ¶"Hö"I§ç†:§¶"?Š0§9 "X"× DELETE  ? IS PROTECTED DELETED DOES NOT EXIST ååål€ 0200O—$—%—&—#L—-† ·$ž·$´$j†0·$YÎ$ZÆ ?Þþÿ%ØÎ$Yÿ%ÚÎ%Ø?× _þ%ئ� '@�;&õ¦� '5�E& ʆ ·$ž ì�A& ʆ ·$ž·$´ Ü�L&Ê Ô�S&Ê Ì� 'ÈÆ ×!_¶$Y·$z„' \J'Æ~#)÷$Y– …'Æ ðÎÿ%ÆÎ$Åÿ%ÈÎ%Å?$Æ~#)Î$Åÿ%ÊÎ$Šÿ%ÌÎ%ÊÆ?Î$r½$%Æ Î$Y¦&¦ '~"¥Ö Å&÷Å&óÆ×" Æ×"? $~#–Ö"Î$Y?$~#–#'½#Å&ä–"J& –!…&¶$f… &Ò|&½#¦–!„&~"“½#õþ$dÿ%ÎÎ$«ÿ%ÐÆÎ%ν&·Oö$j—'×(Þ'ÿ%ÎÎ$³ÿ%ÐÆÎ%ν&·ö$Yþ$dÿ%ÆÎ%Eÿ%ÈÎ%Å?$Æ~#)Îÿ$­Î%Eß'¦+„|‹Î$­?Þ'ß'¦*íþ$­–%Ö$?)ß$þ$­ÿ%ÎÎ$°ÿ%ÐÆÎ%ν&·–!…&~"“¶%E*Î&"ÿ%ÊÎ$·ÿ%ÌÆ Î%Ê?~"“Î00ÿ$·Æ Î$¹?Î%Eß)¦æÄ—(×'Î'†?Þ'ÿ%ÎÎ$½ÿ%ÐÆÎ%ν&·Þ)¦„ü‹—('Þ'ÿ%ÎÎ$Áÿ%ÐÆÎ%ν&·Î$“½$%ö$“Á 'Î$“ö$Ä?Î$¸Æ½'›þ$·Œ57&Þ)¦+*†@Æ�?#Î&’½$% Þ)ß)¦æ+? $~#–~"Î$“½$%–"…'~#-~ ÿ_×+×,Æ Î$Z¦&z+ – …&†—+ |+Œ$b'¦&òÎ$b¦&z, – …&† |,Œ$d'¦&ò|#Î$Zÿ%ÊÎ%Üÿ%ÌÎ%ÊÆ ?~ ûÁ&Æ€†@?#Î&-½$% sÁ'Æ ? i–&'ä–!„',Þ$ÿ%ÎÎ&cÿ%ÐÆÎ%ν&øÞ$ÿ%ÎÎ&hÿ%ÐÆÎ%ν&·Î&F½$%–&—('Þ'ÿ%ÎÎ&Œÿ%ÐÆÎ%ν&øÞ'ÿ%ÎÎ&�ÿ%ÐÆÎ%ν&·Î&j½$%–!…'Ö-Z'½$>?Î$Zÿ%ÊÎ$“ÿ%ÌÎ%ÊÆ?†.·$›þ$bÿ$œ9Ö++Î$Zÿ%ÊÎ%Üÿ%ÌÎ%Ê?&–,*O J'þ$b¼%ä ¶$b±%ä9Î%Òÿ%ÊÎ$¡ÿ%ÌÎ%ÊÆ?Æ.¶$fÎ$¡H%çŒ$¦&õ¶$f„ª§9–!…&? 9z-&†<—-Æ�?49?2Î%æ† Z'§ ø†§Î%æ?5?390 $Å%DDRIVE : DI SK I.D. : . !WDSCN0 *NO SDW'S* NO DIRECTORY ENTRY FOUND TOTAL NUMBER OF SECTORS : /$ TOTAL DIRECTORY ENTRIES SHOWN : /$ NO TERMINATOR FOUND IN FILE'S R.I.B. ]'/l&lÿ&êþ&ꦄ� #‹‹0m&jjî§þ&ê� Z&Ýþ&ê96†dfJ&ù29]&~'„l&l÷'—ÿ'™Î'…ÿ'”†·'˜þ'™¦æÎ'�oîà¢%Î'�l ñë©Î'�67¦‹0æ 'Z&ü§32Î'�l&ll&lj ,Ãïî¦Î'�î m&jjî§Î'�l&lj&Þþ'™O9'èd †«Š§‹Æ$†0§ Z&ì9ååq€ $0201!h èDK h ç UNIT=0  CHANGE BUFFERFILE= . CLUSTER ALLOCATION MAP DIRECTORY  PSN=0000 LSN=0000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  h!Ú!Û"0#*7#'>"ˆ1"…"Ï"l"+""=""U" è h h è : SYNTAX ERROR MODE ERROR BOUNDARY ERROR INVALID SECTOR ADDRESS PHYSICAL MODE WHAT? Ž!ˆ—C†0—0/,Þþ½)Î# ? Î Æc? +Î ß%–,'~'#½*y� 'Þ— Î*Œ¡' Œ*°&ó~$îæ×"îß#½*y—!�B'�C'�D&0Îß'Îß) Îß'ß)Å''}/&* Å '½*yÁB&� & TÖ"� '� &NÅ&FÎ#Æ€~%Î#Æ� ö|+Å'êÅ&,½* 'áÖ"ÞHß'ß)� &Å'Ñ �,&ËÅ'ǽ* 'Â� &¾ÞHß)Þ#nÎ ß%½*'�/&–I�"—(|,N~&Î#aÆ„ Î#-Æ‚,Ž!Ë?#? ~$½)z–A—@½(ü?Þ%½)~$½)z ø½*y�0-�9.6½*y� &½)z2%7—0~$Î#Æ€~%–!�D&–'&q–(�"kÎ?(ß'½)¤%Î"ÿÆ€½*9þ"Ïß3Þ1ß5†—7~$Î#Æ€~%–!Ö+&�B''�D')–7'-Þ3–/'Þ5 �D&–'&–(�" Î?(ß'½)˜~$Î#Æ€~%Î#<ƃ ö½*&�"&$½*y½*y�"&½*y ÖI� &Î èÆ€?7~$Î#Æ€~%-Þ%ß)–(Î è?(ß'ÿ"Û–N& |N½*y� &~&ü.Þ)ß%–.'½*s—I½*y� &~&à�"&½*y. "†, ½*&�"& ½*y�"&½*y � 'Z|. ÃÖ-'ÖIþ"Ûçþ"Ûÿ"Û�,'©Ö-&J6� '½*y� &.Á^'Á/&& ö!̶!Í?/##2�^& ö!ζ!Ï?/"|-Þ'ÿ"Û~&CÎ#Æ€~%Î#-Æ‚ ö�/'7�^& ÿ"Ûö!ζ!Ï?-?$—8Î"ß½*Oþ"Û ÿ"ÛÎ"Û½*OÎ#&? ~$–8—(~&,~$@ †—@—A½(ü–!Ö+&B�B&~'õ�C&~'æ�D'Î"½(dž Ö/&†·"mÎ"ûÆ€½*9Þ3ÿ"ÏÞ5ß1Þ'ß)–7& ~(>~(,�C&Þ'½(¸%Uß'Þ)½(¸%Lß)–/'Î"ï† P–!�D&>–'&2Ö)&.Þ' ß1–(Ö*Á"!Î?'ß)Î?(ß' Îß)Îÿÿß1Î"÷† Î#Æ€~%†·" †Î"óƽ*9·"mÞ'Ö)–*?/$ –/'ÖŒÿÿ&Ñ–0·!ü†—BÎ!õ½(ǽ)¤$~(µÎ"ë½*SÎ"ç½*SÎ"`½(Ç?Î gß9Î"Œß;Î"½ß=Î"ã½*OÎ9½*OÞ9¦ß9� -�z/†.Þ=§ß=Þ;–?L—?„�&ß;M&Ì? %'Î"‡½(Ç–?�€&¬Þ'œ)'ß'–@&~($zB&ø½(ü~(~$?1% ?1%}/' 9}@&? 9?2¦� '�' óÖCZ& 6Î#?52Æ:×C?3�'?4 Ö?59}@' –CJ'Î# �Ä ô9ßL½)z%Z!ÚÞLÿ"ÓÎ!Úÿ"Õ–0·!ÚÎ ÿ!ãÎ"Ó?Å&9� &5¶!Ú—0Å€&,Î"ׯ½*9þ!ãÿ"9† ·!ÑÎDKÿ!ØÎ!Ð?&?&\×/7 9Î#S? 9~)�–/'Î!Ð?& O—/—7?& 9Î!Ð_? 9Î"ûÆ€½*9† OÖ/':Þ'ÿ!áß1Î!ÐM&? ?&ö!ݶ!ÞÄHYHYÞ'?)ö!ß¶!à?-ÿ"Ï 9Î!Ð_? 9Þ'ÿ"ÏÞ1ß1Ö0Î"ÎM&?9 ?:%9¶"Î60Æ? 2 9Æ Æ7ßOÎßH�_½*ý%ÎH½*ñšI—IZ&ì�K—Q2–QÞO]96ŸJ®ŸD®ŸFžJÎD?29Æ Æ6¦·*q¦·*rîîÿ*oÎ*o½*°29ßLÞ% ßLÞ%ß%¦ÞL9�ò� 'ú9C%:F%êL'57O%2Q%&R%hS'07U%?W%¤]'/l&lÿ*ãþ*㦄� #‹‹0m&jjî§þ*ã� Z&Ýþ*ã96†dfJ&ù296†hiJ&ù29�A% 6‹¹2%€ �0%6‹Æ2%„90w€0 1 !¼~!¼~"v~ëÌ~>~ð~Â8 OLD NEW END LISTSAVEDELELOADRESEMERGBUILNUMBCHANFINDPRINBLOCVERIMOVEDUPLAPPEQUITOLD NEW END L SAV DEL LD RSQ MRG BLD N C F P B V M DUP APP Q ON OFF IN OUT I O EDITM RELEASE 2.9A COPYRIGHT BY MOTOROLA 1978 WHAT?  NOT THERE OLD/NEW? EXISTS READY SAVE IN .SA:0 SYNTAX ERROR NO ROOM CREATED END=0000 MEM=00000 0000 RECORDS DELETED  NOT ASCII INCREMENT TOO LARGE ALL (Y/N)? RESEQUENCE NEEDED Ž8¿Î oŒ¡&ø†Æ½4·þßn½&†—U†_—GD†:—T½1¨þ5T½1tþ5R½1t†—V+þ5P½1tŽ8¿†—/B!½"» *'{'Ä'à"U"U"U'{"U"U'Ä"U"U"U"U1`1j"U"U"U'à"UÖ'XÎ"½7ðînþ5N½1t þ5L½1t~"þ5J½1t þ5H½1t–!&~"~"|þ5P½1tŽ8¿½"» *'{'Ä'à'ú(%(;'{-",'Ä0­(˜(�'ñ1`1j.¼.¹(•'à+GÖ'XÎ"‚½7ðînEF;=Îß><I½4½þ5Fßb†A½#5–pšqšršsšt„ð—#�0&†—'9†þ5D½$–''9†þ5B½$–''9þ5N½1t~"»†A½#5†þ5@½$–''„—' †—'9—"ö5>¶5?×d—eÎ59ÿ8Îpƽ7´Îß-$Þb¦� &ßb~#WÞbßf¦�9# †z—#†ÿ—- †0—"†9—#Þb¦‘"%\‘#"X–$�,6–--2Þb¦�9"*Ö-–.HYHY›.Ù-HY÷8·8¦„_M,S»8ù8×-—.|$Þd¼57' Þb¦„ßÞd§ßdÞbßb~#�–$/!Î-ÿ8Îp†Æ½5V–$_M,S›gÙf×b—c †ÿ—-9—#ßd†—'Îpÿ8Þd½5â 'ƽ7™&9–'‘#$L~$'9·8êÞb ÿ8å†A½#5–p� '†·8êÎ!*ÿ8Î8ËÆ½7´þ!3ÿ8Ó¶!6·8Êþ55ÿ8ç†þ53½4·÷8éþ8åßbÎ8Ëÿ8Î!*ƽ7´þ8Óÿ!3¶8Ê·!6¶8é,¶8ê/ –F'½$µ~"^9Î0ÿ8Î!*ƽ7´Þ8ÿ!3–:·!6½.œ9—%×&½$=–&&†·8ê –&�&†·8ê †·8ꆷ8×8ØÎÿ8Ýþ51ÿ8ßþ5/ÿ8á†ö8êþ55½4·÷8é–&&¶8é&†—!9½1‚þ5-½1~–F'½$µ~"l¶8é�' –&�&¶8é&½1‚þ5+½1t–F'~%ò†—!9¶8é�'�&~"f–&�& ¶8é&†—!9½1‚þ5)½1t~"l†0½#5–p� &†—I–U�&9½&9Îpÿ8Î|½63Îpÿ8΀½63–-—)Þb¦�-&ßb†0½#5Îpÿ8΀½63–)-–-, –F'½$µ½.œ~"^9Îß|ß~ ߀߂9–/'9–D—(Dþ5'½1…þ5%½1…–(—D† Æþ5#½4·–ž�Y'G–B�&;Î!*ÿ8Î8ËÆ½7´þ!3ÿ8Ó¶!6·8ÊÎÿ8Ýþ51ÿ8߆Æþ55½4·÷8é¶8é'~2 |/~"l11Î!*ÿ8Î8ËÆ½7´þ!3ÿ8Ó¶!6·8Ê~(,þ5!ß^Î5ÿ8Î![ƽ7´Þ^ß\îß^Œ&iÎ5ÿ8ÎOƽ7´–oÖn�{Òz×M—NÁ. &�$Î5ÿ8ÎOƽ7´–NÖM„ÿÄ×M—NÎMÿ8Î!e†Æ½5VÎ!iÿ8ÿ8ÎSƽ6b½1‚þ5½1t9Þ^ƽ7ðÿ8Î![ƽ7´Þ^ƽ7ðÿ8Î|ƽ7™$~&²~'\Þ^ß\îß^Þ^Œ'ƽ7ðÿ8΀ƽ7™#Îß^9½& B†ƽ$цA½#5A–p�N&†—Aþ5ßzÿ9k† Þz§½1èÎ9m¦� &Îÿ9k†—/½&~"v½& †Æ½$ц—BÎÿ9kþ5ßz~0­½& ½1ÇD½1¨†½4·|D½1¨~(–D'½1ÇD½%�½&ŸÞ^Œ' ½(½'T~( ~"|Þ^½1t9†Æ½$Ñþ9k½3ìB|/~"v½.†0½#5–--)½%”½&ŸÞ^Œ'Þ>ß>Þ^æ¦Þ\ç§ß^½'T~(M~(s~"^Î>ÿ8Î!k†Æ ½5Vþ5 ½1t½.œ~"||;~(›|=½.½%�–;&+–I''–D—(Dþ5 ½1…–(—D† Æþ5#½4·–ž�Y&~(Í~"|Þb¦� &ßb~(ÍHLÞb¦‘G&ßb¦—GÎß^~)ˆÞb¦�,&!ßb¦�A& ßb|H~)!†0½#5–-�ÿ'–.—LÞb¦—)ßb–='–)� &~"^†ÿ—,~)�,–;'~)�Þbß`Þ`¦‘)'� &~)dß`|,~)LÞ`ß`Þ`¦‘)'� &~)�ß`z,~)iÞbßj½&ŸÞ^Œ& –;&½.œ~"|KJ–,,½+3Þ^ƽ7ðÿ8Þzƽ7ðƽ7´Þ^ß`Þzßd–='HÆ Þ`½+Ö)Þb½+~* ÞbæÞ`½+–'� &~*ôÞfß`ßhÞbßfÞf¦� '‘)'‘G' Þh¡'~**ÞfßfÞhßh~*Þf¦—'–'� &~*ô‘)'Þ`¦Þd§ßdÞ`ß`~)è–L' |K‘K'~*=–;'½(~*ôÞfßbÞdßlÆ Þ`½+ÞlßdÖ)Þb½+–H'ÞjßbÞhß`†—J~)èJÆ Þh½+† Þd§–,-"Þ^ßdÞzß`Æ ½+† Þd§~*êÖz–{Þ\ç§Þ^æ¦Þzç§ß^Þdßz–V'½(/–J' Æ Þf½+J~* ½'TÞjßb~)ˆßfÞfÑG'¦'� 'ßfÞd‘G'§ßd á—'9–z‘n% –*'½3J½.œ~"f9½+M~"|Þb¦� '½+3/þ5!ß^Þ^ß\îß^Œ&~+¥Æ½7ðÿ8Îpƽ7™$~+`Þ^ƽ7ðÿ8Îpƽ7™& Þ^æ¦Þ\ç§Þb¦� &þ5 ½1t9Îpÿ8Þzƽ7ðƽ7´ÞzßdÞb¦Þd§ßdÞbßbÞd¦� '~+ÎÞ\æ¦Þzç§Öz–{Þ\ç§Þdßz9½.†—FÎ!*ÿ8Î0ƽ7´þ!3ß8¶!6—:†ƽ$ÑAÞb¦�('~-ßb½%�Î|ÿ8΄Æ½7´Î€ÿ8ΈÆ½7´Þb¦�)'~-ßb¦�,&ßb†0½#5–-�ÿ&~-Î-ÿ8Î|†Æ½5VÎ|ÿ8΀ƽ7´½&ŸÞ^Œ' ƽ7ðÿ8Î|ƽ7™&þ5½1~Þ^ß\îß^Þzßj½1èÞ\æ¦Þdç§Öj–kÞ\ç§ÞdîŒ'$Þdîß\Þdƽ7ðÿ8Þ\ƽ7ðƽ7™%þ5½1~½$µ/~"v½$µ~"^†—™—˜½.†0½#5–p�N&(þ9kß\Þ\Œ'oooo¦� &†§îß\~-;~.v–-�ÿ&Î ß-Î-ÿ8Î|†Æ½5VÎ5ÿ8Κƽ7´Þb¦�,&#ßb†0½#5–-�ÿ&Î ß-Î-ÿ8Κ†Æ½5Vþ9kß\Þ\Œ&~.v–˜&$ƽ7ðÿ8Î�ƽ7™%Î|ÿ8Î�ƽ7´†—˜–™&&Þ\ƽ7ðÿ8ΔÆ½7™%Î|ÿ8ΔÆ½7´†—™Î|ÿ8Þ\ƽ7ðƽ7´Þ\¦&† §Îÿ8΃ÿ8Î�ƽ6b΀ÿ8Î|ƽ7™$ þ5½1t½.œ~"v΀ÿ8Î|ƽ7´Þ\îß\~-·/½.œ~"vÎ|ÿ8Î�ƽ7´Î€ÿ8ΔÆ½7´9Î�ÿ8Î|ƽ7´Î”ÿ8΀ƽ7´9|<½./W½%�Þb¦�,'½.œ~"^ÞbßbÎ|ÿ8΄Æ½7´Î€ÿ8ΈÆ½7´†0½#5–-�ÿ&~.ÐÎ-ÿ8΀†Æ½5V΀ÿ8Î|ƽ7´Î|ÿ8Όƽ7´Þb¦�,'Îß-~/TÞbßb†0½#5–-�ÿ&~.ÐÎ-ÿ8Κ†Æ½5V½&ŸÎß`Þ\îß^Þ\ßXÞ^ßZ–W�&~/Í΄ÿ8Î|ƽ7´Îˆÿ8΀ƽ7´Î|ÿ8΀ƽ7™#~/ÍÞ`Œ&½&Ÿ Þ`ß\îß^Þ^Œ&½.œ~"|Þ^œX'œZ&ß`~/ý–<&Þ^æ¦Þ\ç§ß` ½+3Þ^ß`Þ^îß\Œ&†—Wƽ7ðÿ8΄Æ½7´–<'&Þ^ßfÞzß^ßdÆ Þf½+† Þd§ßzÞ^œX'œZ&~0eÖZ–[ç§Ö^–_ÞXç§ÎŒÿ8Þ^ƽ7ðƽ7´–V'½(–<'ÎŒÿ8ΈÆ½7™&~/ÍÞ^ß\Î�ÿ8ÿ8Î�ƽ6b~/l|E½.†0½#5–-�ÿ&Î ß-Î-ÿ8Î|†Æ½5VÎ5ÿ8ΚÆ½7´Þb¦�,&#ßb†0½#5–-�ÿ&Î ß-Î-ÿ8Κ†Æ½5VÎ|ÿ8Îpƽ7´~1.Îsÿ8ÿ8Î�ƽ6bÎpÿ8þ ƽ7´† þ §½4½þ ¦� &½.œ~"|þ4ÿßb½+M~1½#–'—U~"l½#–'—V~"l† ½4·$~"l� &Î!*¦� '� õ9}D'}E&~ ~ † �åÎ1¡�Ô}D'|T–T�:-�B-åT9ÖTÁ:'† ½ † ½ ÁB&_ ï\Á:&ê†:—T9ßd–+'½3eÎDKÿ8È8À†þ4ý½4·¶8À'%!† Æþ4ý½4·–*'½3J–+'½3e–F'½$µ~"l†—+†·8ÁÞdÿ8Ķ8Åö8Ä‹…É÷8Æ·8džþ4ý½4·¶8À'~2†—*@¶8ׄ�'½1‚þ4û½1~!–F'½$µ½3J~"l†þ4ý½4·¶8À� &~3JM'~2 –F'dþ8Ħ�0% þ8Ħ�9#~2 þ8Äÿ8΄Æ½7™$~2…þ8Äÿ8ΈÆ½7™#~3JÎ|ÿ8þ8ÄÆ½7´–V'þ8Ľ1~Îÿ8ÿ8Î4úƽ6b¶8Åö8Ä€ÂÞdç§þ8Ä ßd½3„þ8Âÿ8ÄÞdooþ8Âßz½+3¶8Åö8Ä‹…É÷8Æ·8Ç~2…¶8ÁŠ·8Á*†þ4ý½4·¶8À'~2 +†þ4ý½4·¶8À'~2 –@&9þ5½1~9–A'=þ8Âßbÿ8Âß`Þb¼8Ä'¦Þ`§ ß`Þb ßb~3—Þb¦Þ`§þ8Äooooo9þ8Ħ�0%�9"þ8Ħ�0% þ8Ħ�9"9†—@~3ˆß^†—@–+'½3eÎDKÿ8È8À†þ4ý½4·¶8À'~2 †—+†·8ÁÞzÿ8Ķ8Åö8Ä‹…É÷8Æ·8džþ4ý½4·¶8À'~2 †—*†þ4ý½4·¶8À'~2 Þ^ß\îß^Œ&†—C CÞ\ÿ8Æþ8Ʀ&ÿ8Æ~4qþ8Æÿ8Äþ8Ʀ� 'ÿ8Æ~4…†þ4ý½4·¶8À'~2 –C�&~4±~4T~3J?9·4µ~4´†?6–E'2Î8 † §½1…Î8% 2½ Î8 † Æy½4·90001!€8À8$!‹0010!ª!x!Ÿ!k9m!V327670000000009kž!¢!"!!M!9j8ë8å8Êu p ´ d 8 !E!8! ú! ß Ìÿ8678]*|8S÷8†·8,@†0½7Ô23þ8Z&¦ *@ ¦æ,½7ÍÄp8Î7á8 â%|8 õ«é6¶8z8±8"ÿ8þ8¶8‹0§ÿ8þ82Œ7ë&ÆÆ }8' *Æ-þ8ç9ÿ8670î¦6ÿ8æî¦&Æÿ J½6»8ù8÷8·8þ82JJJ&Óþ83297Æ70_F$ëVFj&ö119ÿ80îæ'†0½7Ô0îæ'½7·0îæ'†0½7Ô0î11nÿ88÷8*0Sþ8¦ ÿ8þ8 ÿ8þ8 ÿ8¡'þ8§½7@S½7|S þ8§ þ8¦‰0 ÿ8þ8«„Š0 ÿ8þ8§ ÿ8Z&Û%¶8'þ8ö8*S½7‚*S¦ˆ § ö8*Sþ8'J ú¦�:& € §Z' l î9ÿ88]*&¦ˆ §ÿ8þ8¼8&88½6hþ8'¦ˆ §9÷8½7@½7|~6�þ8¼8&þ8ÿ8þ8ÿ8ñ8'¦ˆ §þ8¦ ÿ8þ8§ ÿ8Z&ëÿ8ö89z8þ8†i §Z&ö lÿ8ÿ8ö89ÿ8þ8¦ÿ8þ8¡&ÿ8Z&é9ÿ8þ8¦ÿ8þ8§ÿ8Z&ë9CS‰É9þ8§ÿ8Z.ô9'èd & 9Zÿ8û8÷8$|8þ89åå„€X !ÎÝ ÞÎÝ*ÞÎÝ*ÞÎÝ*ÞÎÝ*ÞÎÝ ÞÎÝ+ÞŽ#R½!D½!‹½!Î ½!‘½!®Î '½!‘þ /¼ '½"i~! ½!‹Î"ã½!‘½!ž$û�C'Å�Q&ó½!‹?Î7iÿ ÿ ÿ ÿ ÿ "ÿ Îÿÿÿ Î ÿ ÿ /ÿ )Îÿ †· 9 :9ΆÿJ&ý &ø9†Ø½ùÏ9¦�'½ùÏ ô9¶üôG$¶üõ„ O9_½!ž$,�I'M�O'O�P'Q�K'S�L'U�;'W�,'Y�.'[�/']O_· ÷ ¶ » ½";· ¶ » ½"R· þ /ÿ )þ ÿ /9†ÿÆÿ φÿÆ É†ÿÆ ÆÆÿ ½†Æ ·†Æ ±†Æÿ «†Æ ¥†Æ Ÿ� -�7.9†  ø†7 ñ� -�o.9†  ø†o ñ¶ 9&;†· 9  ¶ :ˆ· :&¶ ± ' "z  |  ö ñ ' "z  | ¶ » ½";· ¶ » ½"R· þ "ÿ þ ÿ "þ ÿ þ ÿ þ ÿ z 99ÎÝ,EP O WÞ †€ X #0203ÿÿÿÿ!¨"'� ²!DK0LX!!�cDK0LO!¨"' – –!Œ!Œ SOURCE FILE NOT ASCIIRECORD FORMAT ERRORSTART ADDRESS OUT OF RANGECHECKSUM ERRORŽ ‹Þþÿ"(Î"(?]&H6Î",Æ ?2�;')� 'MÎ!Œÿ"*Î"(?Å&0� ':�;'� &)îÿ"(¦ êþ"(ß ½& '� 'Æ Å&Æ Æ~&cÆ ùÞ+ÿ Î"0Æ ?Î Æ?Á'ÆÎ!Œ~&cÎ Œ?&| ?&| ¶ £„�' Î"4Æ€~&:~&b&½%&% Ö"–#þ ?/$÷ · þ ?/#ã÷ · ÛÁ '~%þ &þ ÿ ?$þ ?/%þ ?/#Î"^Æ‚~&:ö ¶ ?-ß-?$„&†€‹„ø6Î-†?Þ-ß5ÿ!ŸÎ!‚?&| ?'~&b| Îÿÿÿ!“Î!‚?&íÞ5ÿ"2·"þ ÿ""þ ÿ" Îÿÿÿ!“Î!‚?&Ë6Æ×4Î ßþ!—ßÞ5ß ö!ŒÄ×½è{$z4&öÖ2×'Î$‡ß(Î'Æ~&c2? $~%Î Œ?'~$5&½%&%:þ Ö"–#?.6„€HYI?%½&¿¼ '½% ÿ ÿ!“Î!‚?&Î!¨2„?(–$§ Ä~&bÁ &½% ~&LÎÿÿÿ!�~&>?2þ Œÿÿ' ÿ!“Î!‚?&?39~&bÖ&&lÎ Œ?'~%¶? $~%½Î ±ß † ¡'ä½&� 'r�S&õ½%ø�0'Ò�1'�9&_6Þ ß'ÆÎ'½&g%OÖ*×%À%G×&ÆÎ'½&g%;–)›%›*—%Þ) ß"2�9'1ÆÎ'½&g%–*—$›%—%Þ"ß"z&&�- 9Á '~&b 9Î"JÆ�~&:þ &Þ)ÿ –&&ê� ~%*Î"yƃ ãÆÎ'½&g%Ô–*C‘%&èß2Þ ß2Þ ß ¦Þ29�ò� 'ú9Æ Æ7ß/Îß+�ݽ&¤%Î+½&˜š,—,Z&ì�É—12–1Þ/]9?#? ¶ 'J'J' J'Î!‚?Î!‚?Î Œ?Î Œ??_? ×]'+ÿ&–ooþ&–î¦þ&–l&l½&¤%½&˜ª§Z&ßþ&–96†hiJ&ù29�A% 6‹¹2%€ �0%6‹Æ2%„9676ÿ&Ó¶&Óö&Ô?%2329劀( 0202†0·!ÙÞþÿ!ÐÎ!Ùÿ!ÒÎ!Ð?† ±!Ú&,±!â&'ö!ÙÁ0, Æ? Æ€?#?Á3.òþ!Ц� ' �;'� 'ñÆ Þ¦� ' � 'õ�L&í|!Ï ì÷"~Îÿ!ÕÎ!Ô?Îÿ"jÿ"n†€·"ÜÎ!䦯H%|"i&|"h|"k&#|"j ?276þ"hö"d¶"e?/$ÿ"d23?3"h"iZ&Êz"Ü&À†·"ܶ"jö"kz"Ü/û"k¹"j ó·"j÷"k†·"ܶ"dö"ez"Ü/û"e¹"d ó·"d÷"eÎÿ!Õö"~Î!Ô?†·"ÜÎ!ä¦'�ÿ&|"o†?(z"Ü&ìþ!ÕŒ'ÿ!Õ Îþ"jÿ!ÐÎ"šÿ!ÒÎ!ÐÆ½#€Î"jƽ"Ýþ"nÿ!ÐÎ"«ÿ!ÒÎ!ÐÆ½#€Î"nƽ"Ýþ"dÿ!ÐÎ"Áÿ!ÒÎ!ÐÆ½#€Î"dƽ"ÝÎÿ!Õö"~Î!Ô?Î!äÿ!ÐÎ"ƒÿ!ÒÎ!ÐÆ?}!Ï&Î"x? ?Î"r?5†9·!Ï'òÎ"Û?5z!Ï ô!Ù!ä "¼"•"§ DRIVE X : XXXXXXXX XXXX/$XXX SECTORS XXX/$XX FILES XXXX/$XXX LARGEST CONTIGUOUS BLOCK]&~#il&l÷#|ÿ#~Î#jÿ#y†·#}þ#~¦æÎ#toîà¢%Î#tl ñë©Î#t67¦‹0æ 'Z&ü§32Î#tl&ll&lj ,Ãïî¦Î#tî m&jjî§Î#tl&lj&Þþ#~O9'èd ]'/l&lÿ#³þ#³¦„� #‹‹0m&jjî§þ#³� Z&Ýþ#³96†dfJ&ù29åå�€0 0200Þþÿ#÷Î$ÿ#ùÎ#÷?' Å'~"“~"�Î%Bÿ#ùÎ#÷?'+~"©Î%Mÿ#ùÎ#÷?'*îÎ%C½"û%æÎ%N½"û%Þö%C'}%N'ñ%N&Ïö%O¶%Pþ%D?/%Âþ#÷¦� '{�;'ÿ#÷ ðþ#÷ÿ#÷¦� 'd� 'ï�H&|%> æ�L&|%= Ý�N&|%? Ô�F'~"—½"±'$~"­ö%a#øÁ„"ô÷%@þ#÷¦� '�.&·½"±'%Ýö%aÁ #ÖÁc"Ò÷%Aþ#÷~ ˆÎ$ÿ#÷Î%tÿ#ùÎ#÷Æ?Î%}ÿ#ùÎ#÷Æ?ö$÷%€Î#û?'~"†?&ùæÄÁ'~"�}%>'Î%ê? Î%ƒÆd? ?'ÿ%è}%=' †L·$(†P·$)Î$ ?'~"†?&ùÆSñ%C&þ%Dÿ$ Î$8}%?'Î$@ÿ#ÿÎ$¼ÿ$}%?'Î$8Æ?Î$<ÿ#ùþ%[ÿ#÷Î#÷ƽ%ûÎ#û?':Á &/}%Z'}%='}%]' ö%Að%]½#à½#´?ÆSñ%C'ñ%N'~"¡~"¥Á '~"†ÆLñ%C&:ö%[¶%\þ%D?/$-? %·þ%[ÿ%[}%N&~!qÆLñ%N& ö%O¶%P?/$ì~!°þ$ í}%]&3Î%qÿ#ùþ%Xÿ#÷ÿ%XÆÎ#÷½%ûÎ%dÿ$$þ%èÿ$&½#g&1ƽ#àÆ÷%]Î$8ÿ$$þ#ýÿ$&Æ÷%Z½#g&|%]ö%]ñ%A-%]~!úÆ? ½#´?Æ Æ Æ ? ?Æ çÆ ãÆ ߯ ìÆ èÎ%Qÿ%^ÿ%F_þ#÷ÿ#÷¦� '�0-�9.\Á# þ%F§ÿ%F ØÎ%^]'½&ž%ç)å}%`&à †9O9æ'e÷#fÁL'ÁS' 9m&úÿ%^ÿ%b_† ¡'\†L±#f'Á.ß ëÁ.Ù åÎ%^]'цL±#f'½&ð ½&ž)À%¾ö%`¶%aþ%bç§ö#fÁL&î'¦ 9þ$&ö$$¶$%?-_¶%@?/$ þ$$J? (ÿ$&þ$$† ¡' † ¡#†%§?$þ$?/$?% â? $11~!µÎ$ ?9Î$ ½#ÁÎ#û½#Á9ÿ#Þ?'Á'_? þ#Þ?'Á'_? 9Î%úÿ$$Î%úÿ$&Î$ 7?3Z&ù9$8$¼DK0 SA$½%<CNPB PAGE XXX XXXXXXXX.XX:X %‚ENTER HEADING:  ]&~&‡l&l÷&šÿ&œÎ&ˆÿ&—†·&›þ&œ¦æÎ&’oîà¢%Î&’l ñë©Î&’67¦‹0æ 'Z&ü§32Î&’l&ll&lj ,Ãïî¦Î&’î m&jjî§Î&’l&lj&Þþ&œO9'èd ]'Gÿ&í÷&ïoo þ&íHY%5HY%1«é%+HY%'§çî¦þ&íl&l?%_«§éç%z&ï&ÆO9 û]'+ÿ'ooþ'î¦þ'l&l½'!%½'<ª§Z&ßþ'9�A% 6‹¹2%€ �0%6‹Æ2%„96†hiJ&ù29ååå’€x 0203Þþÿ!pÎ!xÿ!rÎ!p?Å' ÆŒÆ ? ?X%|!oή† §ßþþ!p¦� 'ù� &~ Ðÿ!p�;&Óþ!p¦� 'ùÿ!p� 'v�M'�V'*�P',�('4�G'*�U' ¨† Æ� †Æº!m·!mú!n÷!n ½†€Æ0 ì†Æ€ æ†Æ à_\¦�)'� &ô~ ήÿ!r ßþZ'Î!p?þ!r† §þ!pÿ!p~ Iö!mÅ&ÊÅ& Å &ÊÅ'}!o'Aõ!n&<Å€'Å'4}!o'5Î!x?%?Æ $Z'ZZ&ÆÎ!x Z&Æ Z&Æ Z&ÝÆŒÆ ? ?Å &öÅ€'Žÿ„Îèÿÿ‰6þÿÿúnÅ'ß¶!l6¶!k644446Îÿÿúþn!20LO!“"å唀X 0200Þþÿ#¶Î"„ÿ#¸Î#¶?÷#º'Å'~"h~"n*Å'ôÅ& Æ ñ"�&ÎSAÿ"�ö"„÷"�Î"žÆ ?Î"�ÿ#¸Î#¶#»?]'Ä'~"rö"¦Á '|#»ö"„ñ"�&¯Î#åÿ#¸Æþ#¶¦� 'P�;'ÿ#¶ ðþ#¶ÿ#¶¦� '9� 'ïÎ#Õm&~ !¡' ðZ,~ !7¦æþ#¸§çÿ#¸3†º#»·#» ºþ#¸oö#»&~"hÄ'!ö#ºÄÁ&~"rö#ºÄ'ö"žÁ 'ö"¦Á &èÆ Î"Œ¶#º…' á& z#Ò&öÎ"Ž…' á& z#Ó&ö"•#ÔÎ"„ÿ#¶Î#¼ÿ#¸Æ Î#¶?Î"�ÿ#¶Î#Çÿ#¸Æ Î#¶?? $?Î"¶ÿ"™Î#5ÿ"›Î"„ö#ºÄ'Æ?]'#Á'Æ ? ?}#Ô&Ò~"vÆ?]':Á'òÆ ? ?Î#½ÿ#¶Î"…ÿ#¸Î#¶ö#Ò'?&¢Î#Åÿ#¶Î"�ÿ#¸Î#¶ö#Ó'?&Š|#Ôö#»Ä'8ö#ÈÁ 'Î#È Î"…ÿ#¶Î"žÿ#¸ÆÎ#¶?ö#ÐÁ 'Î#Ð Î"�ÿ#¶ÆÎ#¶?þ"‘ÿ"ªÎ#å¦'m& º"ª·"ª îC´"ª óÎ"„ÿ#¶Î"�ÿ#¸Î#6ÿ"™Î#µÿ"›ö#»Î#¶?]& ö#ºÄ' ~!XÁ'Æ ? ?Æ? ?Æ øÆ ôÎ#¼Æ íÎ"� Æ æ0 #6#µD@W€S N XÀåå —€  Ž Î!×½!º½ _�Y&Î" ½!º†—†—†—½!†Î#s½!º½ _�Y'�N'Î#¡½!º ís–››�&~ þ}' ~!>–L�&O—¶üô…'ï¶üõ„½ð9Î#½!º–˜˜—&�b$†—Άÿ— — — ' ¦˜¡,õ§ ñÞ ¦ �ÿ&Œ&ôÎ '¦ �ÿ'÷§�"%m&l~!�~!~Þ ' ¦'ùj~!�Î ï–šš…þ& 9 9–& Î#×½!º~ – ‹— „Š0·%|TTTTÊ0÷%{–L—Î#÷Œ$&Î$ J&ñî ÇÎ#˽!ºÎ½ _ˆ@ 'J&ú½ _ˆ0' �*¦*|–Î#ñŒ#ù& ôJ&ôî½!º ÀO§�~ GÎ�ΆA—½ð† ½ð†Xæ'½ðZ ø† ½ð½ð† ½ð–L &×9† ½ð½ð† ½ð½ð¦�'½ð ô9DO YOU WANT THE RULES? TYPE "Y" FOR YES, "N" FOR NO.THE RULES ARE AS FOLLOWS: 1) YOU MAY TAKE ANY NUMBER OF X'S FROM A COLUMN 2) YOU MUST TAKE AT LEAST ONE X EACH TURN 3) YOU CAN ONLY TAKE X'S FROM ONE COLUMN AT A TIME 4) TAKE X'S BY TYPING IN THE COLUMN LETTER THEN THE NUMBER OF X'S YOU WISH TO REMOVE THE OBJECT OF THE GAME IS TO LEAVE ME WITH THE LAST X THE BOARD LOOKS LIKE THIS: DO YOU WANT ME TO GO FIRST? "Y"=YES, "N"=NO. I SAID "Y" OR "N", PIMPLE BRAIN!MY MOVE YOUR MOVE YOU WIN; YOU MUST BE LUCKY!$$#$T$�$–$À$ï%%F%iYOU CAN'T DO THAT, TURKEY! HOW DO YOU EXPECT TO WIN IF YOU CANT EVEN TYPE? YOU KNOW YOUR PRETTY BRIGHT FOR A DIM BULB! YOU LOSE, TOAD! KEEP TRYING; MAYBE YOU'LL GET LUCKY! BOY! I SURE AM GLAD I'M NOT BUYING THE PAPER! WHAT YOU NEED IS A POWER FAILURE! I'VE PLAYED DUMMIES BEFORE, BUT YOU TAKE THE CAKE! MAYBE YOUR BETTER AT TIC TAC TOE! YOU HAVE NOW LOST GAMES åååx›€xy (0200  --- PAGE00000 #ÌTOTAL ERRORS 00000****ERROR 00000**** UNDEFINED SYMBOLS ÿÿbNARG bŽVf~VgÎAO§ŒÀ&øÎ&†§ § L§§L§§L§§†·&�Î&%ÿ&ÎVgߺ߸Î&ßµ†A—´Þ;ß°ß²ŽVf†—9Ö·'?–1&Î!©?&?'~)KÎ'aßFΠƽST½0öÎAO§Œ”&øÎ&ooƽSQŒ&&ò–.*½C°Î!óß/Þ/¦�ÿ&†Û½R«_×o×p×q–·'~B5~BVßFÆ ?'ß/Î!ؽSTÎDKÿ!ÖÎ!Î?&?&~2é~)KÎ!Î?&ö?&ò~(¡? %GÎ!Î?'Á &J\9¶&Áþ&¿?( ÿ!¯þ&¿ ÿ!­Î!©?&-9ÿ!ˆ:Î!„?&9–:&|:_? ? $ê –-&Ö9Z' ½)Ù Æ? Î!Î??Î!©??Î!„???½)Å%= –2& ? %Ƚ)ï½)9�G%û–-&–9/—9�L9�5%–-&Ö9Z'�<†—9½)ï|99–l/–2'?2þ!І §?3? 9½)ï½)9–2&–(- –d'–!' 9 9Î"І §Z&ú ÿ!ŠÎ"н)9–-'9z9'9ßF–3—9Þfßf–fÖgÎ#¼½Rì† ·#¼·#½þ!ŠßHþ$ ÿ!ŠÎ#¯½)ÞHÿ!ŠÞF9R †—R–·&9Þ�ßS×UÅ€'–�Ö‚Î"×½R‹–´·"ÕÖUÅ'–“Î"ܽR�Æ–“½+–ÖUÅ'5Å'–eÎ"ß½R�–oÖpÎ"â½R‹–eƽ+– 6–pÎ"ß½R�–s·"å–pÆ�½+– Å '–oÖpÎ"ß½R‹–s·"åÖUÅ'ÞoÆ‚½+––l'~+gÎ"õßPÞ}ßNÖUÅ@'/ŸF5ÞP2� '§œ5'� &ð2� ' � '÷ŸNžFßP žFßP Dœ5'@Å 'm–R&ÞXßP –PÖQ±+”" &ñ+•"Î"þ ÞPœ5'ŸFžN42� '§œ5&ôžFßPÖUÅ '+–,''Þ7–ŒÖ�½RìÞ5 Î"çŸFŽ#I2� '§œ5&ôžF ÞP ¦� 'ùÿ!ŠÎ"н)f9"þ×M—LßJÞS–*'<Å' –J�1–K�, -Å'–L�" #Å@'ÞoßNÞS–L�zO&ö}N' zN ì ~-ð–1'ÞSßS9–.&-Å' –J�"–K�9Å'–L�9Å@'Þo' –L�Þo ßo&õ9~.0–„�&†æ½R«~,¸––&½.…ÖMÅ'–•�"½0uÞS–J� ÞS–K� Å'ÞS–L� Å@'\ÞS–L�9~.©ÖMÅ€'L–q'5�' �/ –yJ&Å'½-�? –ž&½/½/Œ½/-Þ¤OÖr§ç—£½/Œ� –v'½,Ò�–�'½0u�ÞSÖMÅ'ßS9ÞSÖMÅ'ß¡9–ž&½/–Ÿ'½/Œ½/-Þt¦—£î¦æßNÞ¤§çÖMÅ'–£Š—£Þtßt½/Œzv&Î9–ž&½/–Ÿ&½/K–r‘¦',‘§'2‘¨'=�&Ö¦& �&Ö§& �&Ö¨& Ö¦&—¦Æ@ Ö§&—§Æ€ Ö¨'½/Œ ©—¨ÆÀ×OÖTТ×N'lÁ#Q–œ�#C½0K–N…€'–©� ".Þ«†ÿ§ß«|©zœÖNÀ×N–©�"Þ«–NŠ€§ß«zœ|© +½/Œ~-|�½0u õ–©� "ì–œ�#ìO½0 zN&÷ –œ�#Û–O½0 9ßF 76–FÖGÐ<’;%2§¡' 6*†ë½R«239|–ÞSß—Î$–SÖT—›–S½R‹ß™†—•96––&�ÜÞ—œS'�! ô2Û›×›Þ™½R�ߙޗß—z•&�ÞSßS9–†�•Û›×›Î$ ½R�–›CÞ™½R� ÿ!¯Î$  ½)9|–OÖ…·$ ÷$ ·$ÞSÿ$ß—–…—”Î$ß™†ø—•9ßN—P––'œ—&–•'–”‘…& ÖMÅ@'*†ø‘•'�4½0u�³ÖMÅ@'|$Þoÿ$–P·$–•JJJ—•�9Þ™–P§ߙޗß—z•9––'–†þ�•—•·&ÁÎ$ ÿ&¿†D½)9|ž†ý—œŸÎ% ߤ9–œ�"�N–œ€—œÞ¤ß­ß«£ &–œ� "�0–œ€ —œÆ€×£O—¦—§—¨— —©Þ¤Æ ½SQß«|ŸÞ¤–SÖT§ç—¡×¢9½0u�•|�9–Ÿ'x–ž't–£„À'a�€&U½0KÞ¤OÖ¦çÁ#LÖ§ç'Á'LÖ¨ç'Á'LM' O§§§ &Þ­ ß­Þ¤¦§œ­&÷–œ‹—œ†À—£ �V–£š©—£Þ¤–£§ޭߤŸ96– '–ª�&�5Þ«ß­O—¯—ªzœ| –¯&zœ|ªÞ­æ2HYHYç–¯L—¯�&ß­¯9– '%Þ«–ª§Þ­–¯'æXXL�&ùç¯ß­ß«|© 9½/–ž'½/Œž†þ�œ—œÎ% ÿ&¿·&Á†D½)9–1&4–.&1––'½.`†9·$ Î$ ßH_†�>–o�:–p�6C�2ÞH ÿ!¯Î$ ½) #9½0u†6·$ –q·$ Þoÿ$ †·&ÁÎ$ ÿ&¿†D½)9~2§–1&:–.&7ÎS0ÿ$ Î$ ßH_† �åO�âO�ßÎ#Ħ�ØŒ#Ê&öC�ÎÞH ÿ!¯Î$ ½)|$ 9Î2ÿ$ Î#ÄßFÆÎ$ ½STÎOBÿ$ö&‚' Î&ƒßFÎ$½ST¶&‚‹ ·&ÁÎ$ ÿ&¿†D½)†3·$ Î$ ßJ†ý—RÆ�noooooÎ& ßNÆ�[ßFÞN¦6¦æÞF§ç2§ÆÞN½SQŒ&%&ÚÎßPþ& '4ßNÆ�+ßFÞN¦æà¢76¦æÞF§ç23§ço|QÞNî&Ñ ~2·Þ¸ßLœº&~2Œæ Å€'*ßFÆ �æßHƽSTÞLî–Q§¦6¦æÞH§ç2Ч LÅ'$ßFÆ �`ßHƽSTÞL¦6¦æÞH§ç2Š § $Å'%ßFÆ�8ßHƽSTÞL–PÖQ§ç¦ÞHŠ0§ÞPßP–LÖM½Aí'~1ö½2»†4·$ L·% 9 ßFÞH§ßHÞF9—FÛFßFÞH½R�ßHÞF9ÑR#7†þ�R·&ÁÎ$ ÿ&¿†D½)Î$ ßJ†ý—R3–R—RÞJßC½SQßJÞC9ŽVfO—lÎ#Jßm½4x½4…'~(ä–ˆ&|ˆ¶#J�0-�9.—‰½4 � <–‰'7½:+L:4R:?�(&~;²3×J3×K—NL�.'D�A-�Z/<�0-�9/6�$'�@'�%'�&'�''[�*'a†Ø½R«~;¥½ ÷ÖH'6†ã½R«20î11_77ÖG7ÖF7nÎßF†€—H9XI%9�)9—I–FÖG9�÷ �ó �ï �ã�á�ß�ÝÛI—F×GÖHÄ×H97ÖHÊ×H39½Rf�0-�9/ �A- �F.‹ „ 9 9½Rf�0-÷�7.ó„ 9½Rf�0-è�9.ä„ 9½Rf�0-Ù�1.Õ„ 9ÎP§½Rf�A-�Z/�0-�9/ �.'�_'�$&ŒV'ÜŒV&Ô†é½R« ÏŒV' Æ ŒV'ç ö9�¶6–Q� &–P�A'�B'�X& †Þ½R«Î'K~>I–d'-–T� &'–P�N&!–Q�A&–R�R&–S�G&Þ² ¦·'\Î'U~>IÞ¸ßFœº'3ÖPá&ÖQá&ÖRá&ÖSá& ÖTá&ÖUá'gOÆ ÛG™F—F×GÞF ÉÆ –+'Æ�2ŸHOžº4Ö+'666666Ö‹7ÖŠ7Æ766666ÎU¦6 ŒO&÷žHÞF29OÛ»™º‘°"& ѱ#†Ý½R«~BQ—º×»9–·'¦ …`&†Ó½R«¦ …'†ê½R«–+'Ä–·&ÀßFÆ ½SQ¦'î øßP†ŸT®'0J&÷ßHÞPlŸPÞºßRžTÆ �‘ÞHžR¯ÞRžP¯žŠ¯ޝ¯¯ žŠ¯ÞF¦ …@&l žTÞF29–·&½A 9O—J—KÞ¸ßPœº'òM–J& ¦ …`&�| *½?Þ ½@ –PÖQ½Aí'ßP Û–J&H–K'–M' ÞR ÿ!ŠÎ"н)m–+'ƽ)€|JOÖ4ÀÎ?†½Qý×L �–%''ƽ)€zJOÖ4Î?ˆ½Qý×L „*–M' ÞR ÿ!ŠÎ"н)m9 –K&(ƽ)€Î'Jÿ!ŠÎ'5½)m|KOÖ4Î?ܽQý×LÎ"ÐßR–L—M–M'óÞPßFÞRƽST† §ßRzM& ÿ!ŠÎ"н)m9–M& –L—MÎ"ÐßRÞP¦æ76ßFÞRƽST† §23½R‹† §§ßRzM& ÿ!ŠÎ"н)m9½4xÞP¦½S&÷"ÑÁN&÷"нS;¦½S&÷"ÑÞPæ Å€'3 ;æ Å`&ÆU÷"Ð .Å'ÆM Å'ÆD Å'ÆR÷"Ð Å'ÆS÷"ЦæÎ"Ó½R‹ÞPßFÎ"ØÆ½STÞP¦ —O¦ —KÆ ½SQßT†—N–L—MÎ"ßßRzN&–O'ÞTOßT†—NÞT¦&æ';æßTÞR½RìÞRƽSQßRzK& †*§–N'zM&¶ÞR ÿ!ŠÎ"н)m½4x œzM–M‘L' ÞR ÿ!ŠÎ"н)m9ŸH† Ö+'†—K–ºÖ»Ð¹’¸ÎAë½Qý—L×MM& Á"'9–+&û–LÖMˉDV—L×MXI—F×GXIXIÛG™FÛ¹™¸½Añ'lßNÞ¸ßPÞNßRJžP42¡"#&92¡"&22¡"&+2¡"&$2¡"&2¡#žP4–K—F2æ7§1zF&ó†—JžH–PÖQ�"ßP–RÖS�'ßR ¥–J&––L&–M�'~AL9 Ë ‰—F×GÞFœº' ¦�"–F è9–·'LÞ}ßm½Rf� & _×o×p×q ½7‚½7c$ †÷½R«ÎßoÆh½*5½0—–jÖkÎ'!½RìÎ'%ÿ!ŠÎ'½)m½>ê�~)O½K‡½>ê|·Î!Î??�~(<–-& ½)Å%Ö9Z'½)Ù9Þ}ßVU½Rf�N& ½Rf�O&|U ÞVßmÆÎP½DQ$§Z&õZ+'Z'!~C"ÎDºßSÎDœÆ½C)%ÎDØßSÎDºÆ½C)%ÎDøßSÎDØÆ½C)$?],ÖU&nŒC`' ŒDd'ŒCÀ&'noØU&†§½Rf½7c$ �,&ôÞmßV~B�Æ`½*5~2é†Ù½R« Þ¦‘P&$Á& ¦‘Q&Á& ¦‘R& æî 9œS'J&ø Ë 9–1&–U'|1~C–)' –.'õ†ò½R« î–·'ê|) å–.+á–)&è–„&äÞ�&à|.�–·&Þ–'&Ú†·!ÀÎROÿ!¼ ͆—„—…†P—´Î&ßµ9–U—-'~CÞVßm½DQ$ô�=&÷½ENDÀBEQU DøFCBˆFèFCC€EŽFDBˆGwNAMÀHÿOPTÀB}ORGÀJhPAGÀILRMB€HiSPCÀISET E/BSZ€HTTLÀH¦IFCÀP.IDNTÀIVXDEFÀIgXRE FÀI¼COMM JµASCTÀKfBSCTÀKkCSCTÀKqDSCTÀKwPSCTÀK}PAGEÀILMACR L!ENDMÀOÉIFGTÀOíIFGEÀOøIFLTÀPIFLEÀP IFEQÀPIFNEÀP IFNCÀP3ENDCÀP“FAILÀQñÎZ°? Î Æ!O?†:—3†H—4Î!óß/L—2Þþÿ[¶Î[ÿ[¸†0·[Î[Æ?ÎSAÿ[½Wq]'&.\&Æ Þ/Œ!ó&HÆ Æ¶[‹0·[Î[? ~)O¶["„�'Æ ãÞ/ÿ[´Œ"Ï&Æ à† ?(ß/ÆÿçÎ[ÿ[²Æ Î[²?þ[¶¦� &~Z�;'~V‰þ[¶=¦� 'ù� &ÿ[¶ à�-&Æ×= æÿ[¶ÎZææÄ' Œ[&ñÆ ~VÈö[¶[?/#¦II„îo˜=&l~WæînÎ[¶?]'Å'Æÿ9¶[€0·[Î[Æ?9–=' —2¶!…Š·!…~W¶!……'öÎß>2þ[¶¦�=' †LÆP—>×?~X>¦�#&ÿ[¶îŒCN' ŒLP'Æ ~VÈß>þ[¶ ? ÿ[¶Î[ÿ[¸¶!ó‹0·[Î[Æ?ÎALÿ[½Wq]+'*ö[Ë0÷[Î[Æ~VÈÎDKß>þ[¶¦� & �,'Æ ~VÈÿ[¶†º!…·!…Þ>ÿ!ŒŒDK&Î[ÿ[²Î!Žÿ[´Æ Î[²?Î ÿ!£Î ƒÿ!¥Î"Ðÿ!ˆ†·!›Î!„?&?&~WÆ~VÈ|@–='|1~Wþ[¶¦�='"Î!óÿ[²Î!³ÿ[´Æ Î[²?ÎLX–.'ÎROÿ!¼ _ÿ[¶Î!³ÿ[¸¶!ó‹0·!³Î!´Æ ?Î[¶?]'Æ ~Vȶ!³€0·!³�.ïþ!¼Œ '|' ÎLX–.'ÎROÿ!¼þ[¶¦� & ÿ[¶ �,&ÂÎDKÿ!±†º!ª·!ª†Ö.'†·!ÀÎ$ ÿ!­Î „ÿ!ÈÎ!ÿ!Ê~Wþ[¶–='|- $¦�=&½Y¹%)_† þ[°?/"†ÿ?/%¶[±—3~WÆ~VÈþ[¶¦�=&½Y¹%)_†2þ[°?/"†x?/%¶[±—4~WÆ~VÈÿ[®_¦� & �,'\ ïÿ[¶Î[®½[º9–=&z.Ö'&ÎLX–.'†·!ÀÎROÿ!¼|)~WÎZ¢? Î#ËÆ&~/E/S/a/z/ˆ/¡00B1÷½=0&//.:½=$‚.:.:/½=$‚/ &½=0&/"/".:½=$€.:.:/$½=$€/&&½=0&/(/(.:½=$p/,&½=/*&&½=$‚/0*½=/.**½=&**½=*$€$~½="*4"$~½=q"/2/2.:½=+$j*v½=.A*H½=1þ.$n½="*4"$~½=@"/4&½4½=#ø/6&½=0&/8/8/:½=#ô/>&½=/<&$€þ/@ÿ$x~0Š0È0ÿ112dd ç1æ½=$x$€$‚½="*$$‚½=$„$&½="*>$$x½=$†$&½9$„$†½="*>"$x½=@"$†&½=/B0b0[½=#ø0f&½=0&0h0h0j½=+$j*r½=.A*>½=.A*H½=1þ0ln½=+$j*t½=.A*>½=.A*H½=1þ0nÿ$x½="*>$$x½=$~$&½=$~0t$p½=0v$p&½=$~&$€½=$€0x$‚½= 0z$‚&½=$€&$€½=$p0~&½=0|&&½=$‚0‚*½=0€**½=&**½=*$€$~½="*4"$~½=@"0„&½=0p0r15½:þ-n~2#212ƒ2ddd ç½=#ô1ú1ú1üþ$pÿ$x½="*$$x½=#ô$&½="*4"#ô½=q"1ü1ü2½=1þ224½=+$j*|½=.A*H½=1þ-n½="*4"#ô½=@"2&½=$„#ô&½=$†#ô&½9$„$†½=#ô$†&½=$„#ö&½=$†#ö&½9$„$†½=#ö$†&½=+$j*€½=.#ô½=.#ö½=.#ø½=1½:þ.$n½Rj2½=4~4, ˜ ˜`"ø(# Tÿ$ì~4[#t€L4§7þ5Lþ4<ÿ$î½="4"$î½=@"4B&½=4D$î$ð½=$ð4F$òþ$òÿ$ô½="4$$ô½=$ö$&½="4"$î½="4$$î½="42&$ö½=T$&"½=$ð4H4�½=4>4@4^þ4Lÿ$î½=#ø$î&½="4"$$î½=$ø$&½=$ø4R4T4T½="4"$$î½=$ú$&½="4"$$î½=$ü$&þ4Vÿ$ô~5x7õ5›85´7ì5ý8"6 L7ã64L½="4"$ô½=@"$ø&½=0&5R5T5R½=$î5V&½=0&5X5X5Z½=5\$ô$þ½=$þ5^%þ%ÿ$ö½="4$$ö½=#ô$&½="42"#ô½=q"5b5d5b½=$ú5f5h5hþ5jÿ%½="4"%½=@"$ú&½=0&5p5r5p½=%$ô&~6k6y7Ú6¸6Æ7Ñ6ùL7È7"7;7T½=0&6B5p6B½=6D%%½=%6F%þ%ÿ%½="4$%½=#ô$&½=0&6J6L6J½=$ü5f6N6Nþ%ÿ% ½="4$% ½=#ö$&½="42"#ö½=q"6R6T6Rþ6Vÿ% ½="4"% ½=@"$ü&½=0&6\6^6\½=% $ô&½=0&6`6\6`½=% %&½=0&6b6\6b½=6d% %½=%6f%þ%ÿ%~7œ7¿8-L½="4$%½=#ö$&½=0&7t7v7t½=%6h7m½=6X6Z6ü½=%6P6ɽ=%6H6’½=5l5n6½=$þ5`5ͽ=4X5P5I½=4N4P4å½=#ô7x&þ5fn½=#ô$ô&½=#ö7z&9~9,9F9Rd ÿ%½=(%% ½=@%999½=P% %&9½=@%9&½=&9 %*½=9 %*&½=@%&%,½=%,9&½=&9%.½=%*9&½=9&&½=%.9*½=9**½=&**½=*%,*½=9%..½=*.% 9~:,%2  ˜ ˜`"ø(ÿ%0~:[# T#t€X O - W :‡:œ½=%R:F&½=%T:H&½=%V:J&½=%X:L&~:œ    ~:§þ:Rÿ%Z~:Ù@ç;d;J;Ð;‡;¡;»;Ù½=%\:X&½=%Z:°&½=&:²&½=&:´%^þ%^ÿ%`½=%`:º%bþ%`ÿ%d½=%\:¾%\½=":<"%d½=@":À&½=0&:Â:Ä:Ľ=":"%\½=@"%X&þ:Æn½=":<"%d½=@":È&½=0&:Ê:Ì:ν=":"%\½=@"%V&þ:Æn½=":"%\½=@"%R&þ:Æn½=":"%\½=@"%T&½=%b:¼;½=:¶:¸;½=+#ú:Nþ:Òÿ%f½=":$%f½=.@$~<,<8@ç½=:Ô:Ö;í½=1½=:T:V:ª½=+#ú:P½=19Î=½P¶%š&Î=½P~PSTOP~=ù~=C~=’~Av~=@~B ~F-~FÀ~JS~=~J’~F~=@~P0îÿ%|¦î…@'î¦+-&¦'þ%|î' þ%| þ%|î î11nþ%|m&çî ïþ%|î&êþ%|î á0îÿ%|_†»%}ù%|0ç§þ%|¦Dî$ î¦æþ%|îÿ%hîë©·%n÷%oþ%|¦Dî$ %n. -¦±%o$ ö%h¶%i0ç§þ%n9¿%~0îÿ%|_¦�/€�&L� /€ †·%�÷%€¦î…@'îÿ%„þ%|î…'îÿ%†þ%|î…'îÿ%ˆ„¨·%›'`þ%|¦�&þ%„ÿ%ˆþ%†ÿ%„¶%›HI„�·%›þ%„æ¦îÿ%u÷% sÆ€Î%r�=¶%�'�,�.þ%†æ¦îÿ%z÷%xÆ Î%w�¶%�Î@C ¶%�Î?M'J øîn§ô%›'9æ%p]*|%p�@ç§ooo_¦ª'†dffffJ&ó\ è¶%pXFVç9???’?Ú?j?z?Z>O?&?3?9CS‰É9þ%„¦þ%†9�õC_H†$�å �èª ð�⤠êþ%„榽?þ%ˆç§¾%~þ%|11nþ%†æ¦þ%„ç§ æþ%„¦æþ%†«é Ïþ%„æ¦þ%† â}%€'¼½@ —½?´0HYhi$«éj&ð6¦¨2*½?~?I†6þ%†¦æ7*½?67þ%„¦æ7*½?670în½?´0†m+ Lhi+�&õ§¦æoo â$«é  iidfj&ææ¦~?¦M'ʶ%€Î@6J.ü]„ ¡'¡'C9@s@}@‚@�@’A A@W@c@k¶%sC½AiM+ N¶%sº%x ð¶%s´%x è¶%sˆ€·%s 4ÎBV ½BX%x%s%s $ÎBR ÎBT­%s%x%s¶%€'ö%s¶%t'ʽ@ ª¶%›„'þ%ˆö%u¶%vç§ö%s¶%t~?IÎ%r¦_HYG·%q÷%pooö%q/ †�J&ûZ&öæ¦}%p'½?~?Ihiiii9¶%›„ ¥þ%sÿ%xþ%uÿ%zþ%†î&�C ‰ÿ%†¶%†+þ%† ÿ%†'í½BV%s%x%s ìþ%†ÿ%†' ½BV%s%x%s ìþ%sÿ%xþ%uÿ%z�~@‚Îÿ%s%u%v90îÿ%h†·%”¦·%•¦æîÿ%Šë©67ÿ%Œî'Fÿ%’þ%h¦Dî'"$ îî 'ÿ%޽=ù%Ž%’%�32û%‘¹%� 32þ%hÿ%hz%”' þ%Œ~A“%”32þ%”§çþ%Šà¢+ à¢*þ%h11nư~P0îÿ%–0îÿ%˜æ¦Ä@'î¦ æþ%–î'§çþ%–ÿ%–þ%˜~B11¶%˜ö%™0§çþ%–n   _ Æ Æ Æ0îîO6¦6¦6¦6¦60îîO6¦6¦6¦6¦6O66666660]'^Á'T Tm*)l&%l&!l& †ffff J&ôhfll)'if13îî2§2§2§2§† 1J&ü0î11]' n s m S ¨† �c†�_†§_f ffj'$ë ¦© §¦©§ffVf Ýç¦ èÄ€oHh«) F§†�m'¯l 4*"6¦…ð2&�€& †?§ Ý p l ‘Ä€Ê?†ÿl _O§§§oç æ ¹7† �M†�I†§¦ HæXj-1'@. ����‹ ë����Ë ß f fff9 ff f f 9. ” ] Y š ¦ Œ§�Ö�Þ¦ *† �y¦*†�q2�&n¦« §¦© §¦© §¦ ©((§†f gfffJ&õll(iV ­ ¡ * * ¡ ¡§m *†�! )åfiiii¦…ð&؆�, Ò ( o Ò Ò q¦  §¦¢ §¦¢ §¦ ¢% � Š ¦6_J&ü¦ªªª'3hY¦…ð&j)j� ðlÊVf2 J&ü„9†hiiiJ&õ9Æo á H � � ­J&üccccl& l& l&l) Z&ü9 ‡ ‡ Ô Р̆ ffffJ&ôll Û†�à† �Ü)Ø'Ö†df f f J&õd fffæ †6Xi i ihiiiঠ¢§ ¦ ¢§ ¦¢ §$  › — “ë¦ ©§ ¦ ©§ ¦© § l2J&¶†hiiiJ&õ¦è Ä€oHh   (* Á‹ »‹) ³ õ%›%š|%šÎÿ%Šÿ%Œÿ%Žÿ%�ÿ%’ÿ%”ÿ%–ÿ%˜†~·&\½P90îÿ% 11þPÿ&]þ% ¦·&A%¾�,~F”¦Dî$ î¦�d'�e' �f&þPÿ&]%š†·&A~FŒ&A ø·%¾&X¶&A€·&Aÿ%œþ% ÿ% þ% îÿ&Bîÿ&Bÿ&DþNÿ%¿þNÿ&V¶&A&½HÐþ% n0îÿ% 11þ% ¦·%¤îÿ%¢¶%¤„@'îÿ%¢¶%¤„'Aþ% îîÿ&Y¶&Zö&Y»%£ù%¢÷&Y·&Zþ&Y¼%¢&~G,½G1þ%¢ÿ%¢¶%¤„€'ÿ%¢~G½G1þ% nþ&B¦L·%ž¦·%©·%Ÿ¶%žJ„�&¶%©DGGG·&_¶%Ÿ„»&_·%©¶&A'~Hð G�G¯IuIjGµGµGµGµIÑIïJ ö%žXÎGi½Oînþ&D¼&B'ÿ&B~G1¶%¤„€'½J¯ ½H2~I¹½HÐ~Ijþ%¿ö%©½O¦·%ª†þ%¿ö%©½O§¶%ž�&½H2 ¶%ž�&½Gö ½J¯¶%ªþ%¿§~I±½H·† ·%¥·%¦¶%§�'·%¥¶%Ÿ�&~H½H·�'·%¦¶%©�/ z%©½H·~H~H©þNÿ%¥%¨½H·¶%§�-&|%¨~H;�0-5�9.1ö%¥¶%¦HYHY»%¦ù%¥HY÷&_·&`¶%§„_M,S»&`·%¦ù&_÷%¥~H;¶%§�,'�'~H;¶%¨'¶%¦ö%¥CS‰É÷%¥·%¦ö%¥¶%¦þ%¢ç§9þ%¿¦·%§� &† õ�'ÿ%¿9þNÿ%¿¶%¾&~Hí¶&X'†§§9~P ~P¶%©_M,S»%Àù%¿ñN- &±N%½Ja¶%¤L&& JaIgIuJaJaJaJaJaIÑIïJ ö%žXÎI½Oîn I_IgIuI‰IŒIºIËIËIÑIïJ ö%žXÎI9½Oînþ&D ÿ&B½Jaþ&Bÿ&B~G1ö%Ÿþ%¿† §Z&úÿ%¿~Ij~Ijþ%¢ÿ&_†ö%Ÿþ%¿½N²¶%Ÿ_M,S»%À·%Àù%¿÷%¿þ&Bÿ&B9þ%¢æ¦þ%¿ç§~I�½L™~I±ö%Ÿþ&B¦þ%¿§ÿ%¿þ&Bÿ&BZ&è~Ij¶&[·%œ¶%Ÿ·&[þ&Vÿ&VþN¼&V&Æ@~Pö&B¶&Cþ&Vç§~Ijz&[¶&[' þ&Vîÿ&B þ&V ÿ&V¶%œ·&[~IjÎ%¤ÿ&_Î%Á†Æ€½N²¶&A&9†ÿ·%¤~G1þ%¿Œ%Á' ¦� 'ô†§ÿ%œÎ%Á¶%¾'½J� ½&\þNÿ%¿9~P 0îÿ% 11þ% îÿ%œ¦·%¾½Pþ% nÎÿ%œþ%¿¦�.'�'�,&ñ¶%Ÿ'DDDD_»%Àù%¿÷%œ·%�Îÿ%²ÿ%´%­%°%±þ%œ¼%¿'½L%½L½L ëÁ.&½L% ½L½Lz%° ð¶%­·%¨%­ÁE&O½L% ·%ºHH»%ºH ï}%­'@»%°·%°oooo¦ªªª'5†dfffffffJ&í|%±¦ªªª&Þö%°/  Î%µ½Lz%°Î%² ã'PÎ%¶½K™|%°&ø C½LgŠ€·%½oooo½LZƽLZ½LZ½LZ½L|½LZ½L|Z&름ð&z%±ÆhiiiZ&õ9&½¶%±„ö%¨'Š€·%µþ%¢¶%µ§¶%¶§¶%·§¶%¸§9�b�J�H�q�D9ëç$ l&l&l9þ%¿æÁ 'ùÁ+'õÁ-&|%­ ìÿ%¿Á& ÿ%¿Î%²Á0-Á9.À09 9hiii9t%ºv%»v%¼v%½9¦·%º¦·%»¦·%¼¦·%½9¶%½«§¶%¼©§¶%»©§¶%º©§9¶%Ÿ„·%¬¶%ŸDDDD»%¬·%«%­¶%ž�'|%­þ%¢¦_HYG·%±÷%¨¦î…ð&·%¶·%··%¸·%¹J·%°·%± N·%¶ÿ%·%¹%°ö%±. ½Mí¦'†dffffJ&ó|%± èz%° ÛÁ-. ¶%¶„ð��#Î%¶½K™|%°ö%± ãÆ¶%­&_¶%¬L·%®¶%«·%«°%¬€]&ö%°\/·%¯M/þ%¿Æ çz%«J&÷ÿ%¿ö%±'Î%µo†½LQJ&úZ&õ† }%¨'†-ö%«Zñ%®& }%¯/þ%¿ §†0½Mö'|%°,}%­'ï¶%µŠ0½Mö/�- ò¶%­'"†E§Æ+¶%°*@Æ-ç_\€ ,ûË/ç‹:§ÿ%¿9%µÎ%µ~Lþ%¿§¶%«J±%®&Æ.çJÿ%¿·%«9&V&A&F%Áhÿ&a67&h]*|&hS÷&f†·&g,@†0½Nä23þ&_Z&¦*@ ¦æ,½NÝÄp&hÎO&e â%|&e õ«é6¶&gz&g±&f"ÿ&cþ&a¶&e‹0§ÿ&aþ&c2ŒO&ÆÆ }&h' *Æ-þ&aç9½N&¶&fþ&a J&üÿ&c½Nñ¼&c' ÿ&aþ&_m*þ&a†-§9CS‰É9þ&a§ÿ&aZ.ô9Æ †0¡- çz&f&ô §9'èd & 9Zÿ&eû&f÷&f$|&eþ&e9~T~T~T~T ~T ~T~T~T~PŒ*** EXECUTION TIME ERROR # Î%Á†?§†§? Æ€Î%Á?Î%ÁÆ? ?'†§§9?59? 9999Î&’oçÎ&�†§?$Î&’ç§Æ½P©Î&s½Pa?ÎP?$Î&’ç§Î&s?$Î&’ç§Æ?9]'/l&lÿPÜþPܦ„� #‹‹0m&jjî§þPÜ� Z&ÝþPÜ96†dfJ&ù29}&—&j|&—ÎSÿP ÎSDÿP ÎStÿPÎ(¤îß:Î)Dß<îß>–:Ö;§ç Þ:Æ?'ß:Þ>–:Ö;§!ç"Þ:ß:Î%Áß@Þ>–@ÖA§ç†DÆK§ç †§Þ<Œ)T&µ0îß:½Q±&–½Qæ�&ÆH~P·&–O½Qæ�&sÆE~P~S³?&ù?&õ22Þ:ß:–;6–:69¦Î&žß<½Q¾¦9Î&˜æ' œ<&ôÆ=~PînÞ:î9Þ:îî9 ò õÎ)Dæ' Œ)T&ò9¶&–§ß<îß>9Þ:ß:¦Î&¤ß<½Q¾ ÿ)T†0Þ>§ † ?(Æ?Þ>†S§ÆAç† ?(ÿ)VÎ)T?'Æ~S´Þ>¦ €0§ Þ:ß:¦Î&žß<½Q¾¦Þ>ª§Þ>~Q™0îß:½Q±½Rx~RŽ&–½Qæ�'ÆD~PÞ9?&?&†DÆK§ç †§~Q¡~S³0îß:½Q±½RxÞ>¦ŠŠ§†ÿ§ § ~RŽ0îß:½Q±·&–½Qæ'ÆF~PÞ<æÁ'%Á'†—>_Þ:ß:Á'¦Î&žß<½Q¾–>§~Q¡†§—> Û½S‹Æ€Î%Á?Î%ÁÆ?'ß@Þ>–@ÖA§ç?'xÁ &}Þ<¦�'u†§ f½S‹þ%œ ÿ%œÞ>¶%œö%�§ç¦„ƒ�ƒ& î ?$Þ>ç§?'A~S³½S‹¦„�&ÆG~P?'*~S³Î)D¦±%¾'Œ)T&ðÆD~Pß<îß>9Þ>9_? ?~P:~Pa~P^~Pd~Pe~Pf~PŠ~Pgåå Õ€ P ŽðÎê½iÎ00ÿ´ÿÇ  ½…¶üôG$÷¶üõÎÿ½Ͻ”΄½i½&½x½B½ÒÎ^½i½&½x½Pö'· ½Ò† ½ð† ½ð|¶�&Ķ�&Tνi| ~*} ' ÎÇ�} ' δ�9¦æ„ÄXXXX‹ÄË0çDDDD‹0§9ÎO&ýL�&ø9¶�&Î^½i¶½ÒÎ.½i| ~*ÎĽi½s�1'~G½&½x½B½Ò¶�" Û¶' z¶€ · ÉÎ^½i¶½ÒÎɽi ZÎ^½i¶½Ò† ½ð† ½ð¶�"'ÎÒ½i½&½x½P½Ò åÄ\Á'Á "9Æ 9Æ 9�"±" '1Îç½i| Îô½i| ~*¶' z¶€ · žÎɽi ÏÎV½i Û~*6„_Îcÿ»ù·÷½ÏþÆ�%†/½ð2„0DΤ_ÿ»ù·÷þƽ9¦½ðZ&÷9þŒ9& νi11~þ¦|9Á &|û÷9Á &|û÷9  ACE TWOTHREE FOUR FIVE SI! XSEVENEIGHT NINE TEN JACKQUEEN KINGSPADES HEARTS CLUBS DIAMONDS ? BUST DEALER DRAWS A  YOU WIN  DEALER WINS  B L A C K J A C K Y O U W I N ! ! B L A C K J A C K I W I N ! ! ! PUSH MY DOWN CARD WAS ¶üôG$ú¶üõ„9νi½v½”½½½Í$õ9¶ººº&s¶DDD¸GGvvvv9¶„� /€ Ä09Îæ+ ' Œ9' ñ§Œ8' 9 9 THIS IS MOTOROLA BLACKJACK...............TRY YOUR LUCK.....! DEALER MUST HIT ON 16 OR LESS AND STAND ON 17. ACES COUNT 1 OR 11 , FACE CARDS COUNT TEN. BLACKJACK WITH ACE AND A FACE CARD OR TEN TIES COUNT AS A PUSH NO WINNER. DURING PLAY TYPE 1 FOR A HIT,0 TO STAND PAT SHUFFLE NOW IN PROGRESS.............TYPE ANY KEY TO HALT AND DEAL ¦�&9½ð óΆÿ§Œ9&ø9 PLAYER DEALER ½ † åååÙ€0ÁÁÿÿÿÿÿÿ.*KB œ× Ž |p ¯ ‡~á0~àþ~àú~á€~á~á~ JÿÿŽ BÎ U½®Î O§ŒÁ&÷Î h½®½ø�S'|UÎqÆ@½û�ü#† �÷#† �à#† � #† OV}U'—V½û�ð#† �À#† O›V§›T—T½û„8ª§Z'~*½û„½û„—!×"| Îq½Ô†@ª§�&½û‹—8½û„Š‹—7�/}U'�'€—9 *W†0—X—<Y=†—FÎaoŒg&ø9½û„Š"‹9½û„—G½û„—H½¾Î v½®–!�N½­–"�GÎS½®Îmƽø§Z&÷Î ˜½®�0Î ¡½®�9Î ¬½®1–9—2½EÎ ´½®�GÎ ¿½®�I~»‹1~õÞ7ß1½E†.½õ–(~ì–T12Æ % |2Ñ2&ö|1 ìÖ2XXXX—2~E–G�À�–H º–I�¶�–J °†-~õß1›2—2Þ19–9‘;"~ L}T&~ Q}g' Τ½®~ �½ z†‘N'HN}&'J—N½û�ü# Î󽮆—f~p½û�ü#~ °½ ú}X*~ D†‘X#—N}<*O—W—<—=ΠȽ®)p½cHÎÕ½²înM–1'„ð'–1½ï–1½ì|M–2}M&„ð'½ï–2~ìWÎ Ó½®~»–<�#÷}f&é|WÎ<†—12½»Î á Ú}b'~ ½³P–N�&½Êαß3½WÎ L½é½b½WÎ W½é–N'�'�'Î � Î a½é Î h öÎ l ñ�eÎ r½é½™�ZÎ }½é½£�OÎ ˆ½éÞXß1½E�@Î “½é½s�5Î  ½éÞ<ß1½E}W'Î r Î ˆ½é�Î ª½é1–F‹—2½E~»½³†—0O†—QÞ3¦—V–J‘P& –I‘O&†E½õ –VÎÑ„½²¦½õ½òÞ3|OzQ'–VDD Éß3¦z0&·|P9�~éß5Î ¶½éÞ59&αÆO§Z&úÎq–GÖH—V]' †J&üZ&÷–V'J&ü} ' 9ßkæ×R'6Ä' ×0×&†—S�bÖRÄ8' TTT×0†—S�QÖRÅ@' †—0†—S�AÖR*|g½û„—K½û„—L½³}M&ê–K—I–L—JÖ&XÎ>oo½û‹1—2½¸Z&ï9α½û„—Z½²æ½û„—V'VVJ&ûÅ&ßÚS–V'YYJ&ûçz0&Í–S�&ÖZ V–V$‹—#×$9Mß5α–L'J&û–K�#€æ—V'TTJ&ûÄ'×M})' }p&Á'Þ59Æü–V' YYJ&ûäç ë}e'~ }F&~Z|p½û„Š—-zF*%Î ì½®½c�"4—,}p&"Î õ½®½c—-}+& —*}a&µ ½ø� &ù–,ÎÁH½²–-&~»—0}*'†—0–IÖJ«ë½6}.'~ }/'~ —K×L}p'½³�|)½³–M'+}p'~ï�&~™Î ½®–K½]½­–L½]}p'9~Z}p' –KÖLz0&˜~-–K—I–L—J½û�€# †½€†½¨z0'~u}*&~Z}p'~-–-—0–GÖH}*'`«ë—K×L½6}.'~Ì}/'~Ì–K—G–L—H|%†½€†0½¨z0&½¾N–!‘G&Ö"ÑH&–#Ö$L�I�" \ÐJÁ"†—N~»›.Û/�"BÁ">—G×H†½€ ¾Î ½®†—0*|[zTz&|p½½ÎÀ½®Æj½ éÎ`½®½s~äÎ $½®–`L�& ν®~ Y—`}%&~Z~WÎ 1½®–M�&z&zT|[ÎK½éÎ`½®½s �& |\ÎA½é~»ÎF|] òÎ >½®~Z./M*z" . �#|.]*z/9Á#|/9Î Œ½®~»O—+½ø�.'÷�9"�/#€09Î=½é ã›(� #€ —(1†—2ß5Î7½¸Î:½¸½  Þ59—(9ß5ÎX1—2½»Þ59 †™�1—1†™�2—2 ¦™2§¦™1§9}c'~ BCDEÎ ½½®½™½³½³–G&|D�&|E–H&|B�&|CÞk†÷½²}B'�[ �†½²�†½²}C'�D �~»¦}D'O�¦� ¦}E'O�~³„€ II½ì„@DD½ï„8H½ï„½ì~ò†—0O�×z0&ø~³}d'~ }W'Î É 'Πܽ®ÞXß1½EÎ ï½®½ K–@‘X"&–A‘Y# Î ù½®~»½û�ô#ν® b–@‘>"&J–A‘?#D>?ν®Î`½®Ö&×[–T—T½s&α†—0ƦF%F$ Z&öF§z0&é F ïÞ@ß1Î>½»Î/½®Þ@ß1ÎX½»~»@A½ø�/# �}'&ÆxAy@Z&÷›A—A áÎ=½é Ù9'�9"„9|'9ÎS½®Îmƽø¡& Z&õΩ½®~ Yν®~»†‘;"!}h&%½û�°#|h½û�°"–!—G–"—H~WÎÛ½®~»ÎÆ õ½û„—G½û„—HÎæ½® Ù}&&9½û�°"0ÎiÖ&X½UÞiß1}W&ÎX½»½³½³Þiß1½EÎq½éÆú½ é9Î<½»Î‡~®Î4½® Î@ öÎJ½® Îy½® ΋½®Îñ½®½ø�N'~~à@Þk¦�[Ö\XXX}]' „¿Æ ×!×"N§O—[—\—]9ÎaÆm'jZ&ö9½û„½û„×ZÎq| ½ÔæÄ–T—T†€§Î¯½®–V½]½­–Z½]~»Îa½û# ½û„ ©§Œg&ê}f'W9Îƽ®~»Îν®ÎÙß3Îam'!ß^Þ3½®ß3Þ^ƽòZ&ú¦½uŒg&Ý Êß^Þ3ß3Þ^ ê SPACE VOYAGE V3.2 S OR L?  UP BASE IN QDOCKED DNTUBES EMPTY DATE: KLINGONS: YEARS: QUADRANT: SECTOR:  COMMAND: SHIELDS DOWN!SHIELDS UPCOURSE: WARP FACTOR: BLOCKED AT SRAMMED KLINGON AT SGALAXY LIMITTORPEDO HIT OUT OF ENERGY S.DATE:  CNDTN: YELLOWREDGREEN QUDRNT:  SECTOR:  ENERGY:  KLINGONS:  SHLDS:  TORPEDO:   SCAN FOR QMUST LOWER SHIELDSENERGY AVAILABLE: ENERGY = ENERGY TOO LOWMISFIRE!ALL LOCAL KLINGONS DESTROYED!ENEMY DAMAGED ? STARBASEKLINGON PASSWORD.. KLINGONS LEFT =  UNITS HIT ENTERPRISE KLINGONS ATTACK: SHIELDS HOLDINGENTERPRISE DISINTEGRATESSEQUENCE ABORT: PASSWORDTOO EARLY!MALFUNCTION! SPACE STORM: SHIELDS DAMAGED! SHIP IS FRIED FOR 3RD ATTEMPT!ENERGY = 0TIME UP! CONGRATULATIONS! ALL KLINGONS DESTROYEDMISSION A FAILURETHE FEDERATION IS SAVED!SUPERNOVA! SUPERNOVA IN QBADLY DAMAGED DEV STATENGSRSLRSPHSTRPSHL ဠx  1 ! 2 ! 3 ---!---!--- 4 ! 5 ! 6 ---!---!--- 7 ! 8 ! 9 `"&*;?CTX\ I TAKE: SKILL = ºÀÆÌe~èHELLO! I AM A MOTOROLA M6800 MICROCOMPUTER. I AM PROGRAMMED TO PLAY TIC-TAC-TOE. YOU ARE "O" AND YOU PLAY FIRST. YOU PLAY BY TYPING A NUMBER FROM 1 TO 9 AS FOLLOWS:INVALID REPLY! PLEASE TYPE AGAIN:THAT LOCATION IS ALREADY TAKEN; PLEASE TRY ANOTHER.YOUR PLAY: YOU WIN!I WIN!TIE GAME.WOULD YOU LIKE TO PLAY AGAIN? TYPE NEW SKILL: 0(LOW) TO 9(HIGH) OR P(PERFECT). THANK YOU. I HOPE YOU HAVE ENJOYED THE GAME. YOU MAY RESTART BY TYPING ANY CHARACTER. PLEASE TYPE "Y" OR "N".Ö"–T—"–\—T–*—\×*Ö&–;—&–X—;–C—X×C0î11zt&†—tnîn0Ÿ’®4–2M+CÄXוޔî`æ…'ÁX' … 'ÁO' Á '…@&|–t–x– É…@&Å|–t– y– ¹0ž’11}–&n„—•Þ”î—n–w„€—x–u�&+–v�.�. -1}x*, }x+%½#"%‚½#!†½ï¯~¿½#!bc!ei"ehˆ½ïÂ|{½#SAYAWA‚½#SBXB„½#YEXE†½ïÔ{–v�. -<}x*7 –v�'�&}x+&½#"cA%iA$gA‚½#!cB%hB„½#!iE"hE†½ï–u�&_–v� - .}x+R �&L}x*G½#bUgfhIceBSgcWh‚½#dUUfaicgdgfi„½#bdQbgQcdQa# fhY†½ïbÖw–u�. 'Á .Á0.�'Á@. Á€.½#† Á€. ½#‚½ïÒ½#„½ïÜ ßÎb†1ß`î§�9'Þ`L ïνð$Î ½ð$Îb† Æ ß`î§Z'Þ` ñ†—t†—u{|½ð!–v� , Š0—ŽÎ‡½ð$νð'|w&|y¶üôG$ò½ð�S&"–u�&HÎF½ð$½ð�0-�9/† „—v½ð! Ã�1-(�9.$„H—•Þ”î`¦� &†O§–y„—zL—t½ï¢~‰Î«½ð$ •Îͽð$ �†Z—" †Z—& †Z—? ||–t‹�z—t½ï×}|&NÆÎbß`î¦�Z'Þ`\ ï†X§Ê0×…Î}½ð$Î ½ð$}{&-–u|u�'~AÎbß`î¦� 'Þ` ðÎ ½ð$Î ½ð' 0νð' (†O§ß`½#!bc!ei"ehнïKνð' Þ`† § ÈÎ'½ð$½ð�Y&~ �N& Îx½ð$½ð~èÎ× Þåå å€ ÁÁÿÿÿÿÿÿ.*KB&ŸÛ ’ s ³ ‹½ð ~ð½ð ~ðŽÎ [½±Î O§ŒÁ&÷Î n½±½ð�S'|UÎqÆ@½0�ü#† �÷#† �à#† � #† OV}U'—V½0�ð#† �À#† O›V§›T—T½0„8ª§Z'~*½0„½0„—!×"| Îq½׆@ª§�&½0‹—8½0„Š‹—7�2}U'�*€—9 -Wh†0—X—<Y=†—FÎaoŒg&ø9½0„Š"‹9½0„—G½0„—H½ÁÎ |½±–!�N½°–"�GÎY½±Îmƽð§Z&÷Î ž½±�0Î §½±�9Î ²½±1–9—2½HÎ º½±�GΠŽ±�I~¾‹1~ðÞ7ß1½H†.½ð–(~é–T12Æ % |2Ñ2&ö|1 ìÖ2XXXX—2~H–G�À�–H º–I�¶�–J °†-~ðß1›2—2Þ19–9‘;"~ P}T&~ U}g' Ϊ½±~ ¡½ ~†‘N'HN}&'J—N½0�ü# Îù½±†—f~s½0�ü#~ ´½ þ}X*~ H†‘X#—N}<*O—W—<—=Πν±)p½gHÎÕ½µînM–1'„ð'–1½ï–1½é|M–2}M&„ð'½ï–2~éWÎ Ù½±~¾–<�#÷}f&é|WÎ<†—12½¿Î ç Ú}b'~ ½¶P–N�&½Êαß3½ZÎ R½ð'½e½ZÎ ]½ð'–N'�'�'Î ‡ Î g½ð' Î n öÎ r ñ�eÎ x½ð'½œ�ZÎ ƒ½ð'½¦�OÎ Ž½ð'ÞXß1½H�@Î ™½ð'½v�5Î ¦½ð'Þ<ß1½H}W'Î x Î Ž½ð'�Î °½ð'1–F‹—2½H~¾½¶†—0O†—QÞ3¦—V–J‘P& –I‘O&†E½ð –VÎÑ„½µ¦½ð½ð*Þ3|OzQ'–VDD Éß3¦z0&·|P9�~ð'ß5Î ¼½ð'Þ59&αÆO§Z&úÎq–GÖH—V]' †J&üZ&÷–V'J&ü} ' 9ßkæ×R'6Ä' ×0×&†—S�eÖRÄ8' TTT×0†—S�TÖRÅ@' †—0†—S�DÖR*|g½0„—K½0„—L½¹}M&ê–K—I–L—JÖ&XÎ>oo]'½0‹1—2½¼Z&ï9α½0„—Z½µæ½0„—V'VVJ&ûÅ&ßÚS–V'YYJ&ûçz0&Í–S�&ÖZ V–V$‹—#×$9Mß5α–L'J&û–K�#€æ—V'TTJ&ûÄ'×M})' }p&Á'Þ59Æü–V' YYJ&ûäç ë}e'~ }F&~^|p½0„Š—-zF*%Î ò½±½g�"2—,}p& Î û½±½g—-}+&—*}a&µ½ð� &ù–,ÎÁH½µ–-&~¾—0}*'†—0–IÖJ«ë½:}.'~}/'~—K×L}p'½¶�|)½¹–M'+}p'~ó�&~�Î ½±–K½`½°–L½`}p'9~^}p' –KÖLz0&˜~1–K—I–L—J½0�€# †½„†½¬z0'~y}*&~^}p'~1–-—0–GÖH}*'`«ë—K×L½:}.'~Ð}/'~ЖK—G–L—H|%†½„†0½¬z0&½ÁN–!‘G&Ö"ÑH&–#Ö$L�I�" \ÐJÁ"†—N~¾›.Û/�"BÁ">—G×H†½„ ¾Î ½±†—0*|[zTz&|p½ÁÎƽ±Æj½ íÎf½±½v~èÎ *½±–`L�& ν±~ ]—`}%&~^~[Î 7½±–M�&z&zT|[ÎQ½ð'Îf½±½v �& |\ÎG½ð'~¾ÎL|] òÎ D½±~^./M*z. �#|.]*z/9Á#|/9Î ’½±~¾O—+½ð�.'÷�9"�/#€09ÎC½ð' ã›(� #€ —(1†—2ß5Î7½¼Î:½¼½ ¤Þ59—(9ß5ÎX1—2½¿Þ59 †™�1—1†™�2—2 ¦™2§¦™1§9}c'~ BCDEΠý±½œ½¶½¶–G&|D�&|E–H&|B�&|CÞk†÷½µ}B'�[ �†½µ�†½µ}C'�D �~¾¦}D'O�¦� ¦}E'O�~¶„€ II½é„@DD½ï„8H½ï„½é~ð*†—0O�×z0&ø~¶}d'~ }W'Î Ï 'Î â½±ÞXß1½HÎ õ½±½ O–@‘X"&–A‘Y# Î ÿ½±~¾½0�ô#ν± b–@‘>"&J–A‘?#D>?ν±Îf½±Ö&×[–T—T½v&α†—0ƦF%F$ Z&öF§z0&é F ïÞ@ß1Î>½¿Î5½$ ±Þ@ß1ÎX½¿~¾@A½ð�/# �}'&ÆxAy@Z&÷›A—A áÎC½ð' Ù9'�9"„9|'9ÎY½±Îmƽð¡& Z&õί½±~ ]ÎȽ±~¾†‘;"!}h&%½0�°#|h½0�°"–!—G–"—H~[Îá½±~¾ÎÌ õ½0„—G½0„—HÎì½± Ù}&&9½0�°"0ÎiÖ&X½XÞiß1}W&ÎX½¿½¶½¶Þiß1½HÎw½ð'Æú½ í9Î<½¿Î�~±Î:½± ÎF öÎP½± ν± Α½±Î"½±½ð�N'~~õÂÞk¦�[Ö\XXX}]' „¿Æ ×!×"N§O—[—\—]9ÎaÆm'jZ&ö9½0„½0„×ZÎq| ½׿Ä–T—T†€§Îµ½±–V½`½°–Z½`~¾Îa½0# ½0„ ©§Œg&ê}f'W9Î̽±~¾ÎÔ½±Îìß3Îam'!ß^Þ3½±ß3Þ^ƽð*Z&ú¦½xŒg&Ý Êß^Þ3Æ Z&üß3Þ^ è SPACE VOYAGE V3.2 S OR L?  UP BASE IN QDOCKED DNTUBES EMPTY DATE: KLINGONS: YEARS: QUADRANT: SECTOR:  COMMAND: SHIELDS DOWN!SHIELDS UPCOURSE: WARP FACTOR: BLOCKED AT SRAMMED KLINGON AT SGALAXY LIMITTORPEDO HIT OUT OF ENERGY S.DATE:  CNDTN: YELLOWREDGREEN QUDRNT:  SECTOR:  ENERGY:  KLINGONS:  SHLDS:  TORPEDO:   SCAN FOR QMUST LOWER SHIELDSENERGY AVAILABLE: ENERGY = ENERGY TOO LOWMISFIRE!ALL LOCAL KLINGONS DESTROYED!ENEMY DAMAGED ? STARBASEKLINGON PASSWORD.. KLINGONS LEFT =  UNITS HIT ENTERPRISE KLINGONS ATTACK: SHIELDS HOLDINGENTERPRISE DISINTEGRATESSEQUENCE ABORT: PASSWORDTOO EARLY!MALFUNCTION! SPACE STORM: SHIELDS DAMAGED! SHIP IS FRIED FOR 3RD ATTEMPT!ENERGY = 0TIME UP! CONGRATULATIONS! ALL KLINGONS DESTROYEDMISSION A FAILURETHE FEDERATION IS SAVED!SUPERNOVA! SUPERNOVA IN QBADLY DAMAGED DEVICE/YEARS TO REPAIRENGINES SR SCAN LR SCAN PHASERS TORPEDOSSHIELDS  PLAY AGAIN? ÷VƶZHHH¸ZHHyWyXyYyZZ&æöV¶W9ååå8î€70005�REM�BLACKJACK�GAME�WITH�CHANCE�FOR�PRIZE 0010�DIM�C(52),V$(10) 0020�PRINT 0050�PRINT�"WELCOME�TO�JIM'S�HONEST�BLACKJACK�GAME." 0055�PRINT�"IF�YOU�CAN'T�WIN�HERE,�YOU�CAN'T�WIN�ANYWHERE!!!" 0060�PRINT�"YOU�HAVE�$1000�AND�MAY�PLAY�20�HANDS�TO�TRY�FOR�A�CHANCE�" 0070�PRINT�"IN�OUR�DRAWING.‚THE�BET�LIMIT�IS�$500." 0071�PRINT�"NORMAL�LAS�VEGAS�RULES�APPLY." 0072�PRINT�"‚" 0080�PRINT�"…WHAT�IS�YOUR�NAME"; 0090�INPUT�N$ 0091�PRINT�"DO�YOU�WANT�INSTRUCTIONS,�";N$; 0092�INPUT�I$ 0093��I$=MID$(I$,1,1) 0095�IF�I$="Y"�THEN�3310 0100��C=1000 0101��H1=0 0110�FOR�K=0�TO�3 0120�FOR�J=1�TO�10 0130��C(J+10*K)=J 0140�NEXT�J 0150�NEXT�K 0160�FOR�J=41�TO�52 0170��C(J)=10 0180�NEXT�J 0190��V$(1)="�A" 0200��V$(2)="�2" 0210��V$(3)="�3" 0220��V$(4)="�4" 0230��V$(5)="�5" 0240��V$(6)="�6" 0250��V$(7)="�7" 0260��V$(8)="�8" 0270��V$(9)="�9" 0280��V$(10)="�10" 0290��L=40 0300�IF�L<40�THEN�420 0305�PRINT�"SHUFFLE�IN�PROGRESS." 0310�FOR�J=1�TO�52 0320��Z=C(J) 0330��K=INT(52*RND(0)+1) 0360��C(J)=C(K) 0370��C(K)=Z 0380�NEXT�J 0390��L=1 0400�PRINT�"NEW�DECK" 0410�PRINT�"‚" 0415�PRINT�"YOUR�CARDSŒDEALER�CARDS" 0420��T=0 0430��T1=0 0440��S=0 % 0450��S1=0 0455��H1=H1+1 0460�IF�C<=0�THEN�3620 0465�INPUT�"WHAT�IS�YOUR�BET",B 0480�IF�B>500�THEN�500 0485�IF�B<=0�THEN�3610 0490�IF�B>C�THEN�530 0495�GOTO�550 0500�PRINT�"THE�BET�LIMIT�IS�$500,�DUMMY;�CAN'T�YOU�COUNT???" 0510�PRINT�"PLEASE�TRY�AGAIN,�AND�DO�IT�RIGHT." 0511�GOTO�465 0515�GOTO�550 0530�PRINT�"SORRY,�YOU�DON'T�HAVE�THAT�MUCH." 0540�GOTO�460 0550��B1=B 0552��B2=0 0555�GOSUB�2940 0560�GOSUB�3090 0570�PRINT�"“";V$(C(L-1)) 0580�GOSUB�2940 0590�GOSUB�3090 0600��H=C(L-1) 0610�IF�C(L-3)=1�THEN�2820 0620�IF�T=21�THEN�1880 0630�IF�T1=21�THEN�1960 0640�INPUT�D$ 0645��D$=MID$(D$,1,1) 0650�IF�D$="G"�THEN�1360 0660�IF�D$="D"�THEN�1330 0670�IF�D$="H"�THEN�1410 0680�IF�D$="S"�THEN�710 0690�PRINT�"„RETYPE" 0700�GOTO�640 0710�IF�C(L-2)<>C(L-4)�THEN�690 0720�PRINT�"FIRST�HAND" 0730��B1=B 0740�PRINT�V$(C(L-2)); 0750��X=C(L-2) 0760��T1=X 0770�GOSUB�2940 0780�IF�X<>1�THEN�810 0790��T1=T1+10 0800�GOTO�1020 0810�INPUT�E$ 0815��E$=MID$(E$,1,1) 0820�IF�E$="G"�THEN�1020 0830�IF�E$="D"�THEN�990 0840�IF�E$="H"�THEN�870 0850�PRINT�"„RETYPE" 0860�GOTO�810 0870�GOSUB�2940 0880�IF�T1>0�THEN�940 0890��X1=0 0900��C=C-B1 0910��B1=0 0920�PRINT�"BUST" 0930�GOTO�1050 0940�INPUT�E$ 0945��E$=MID$(E$,1,1) 0950�IF�E$="G"�THEN�1020 0960�IF�E$="H"�THEN�870 0970�PRINT�"RETYPE" 0980�GOTO�940 0990��B1=2*B 1000�GOSUB�2940 1010�IF�T1=0�THEN�890 1020�PRINT�"‚" 1030�PRINT�"TOTAL=";T1 1040��X1=T1 1050�PRINT�"‚SECOND�HAND" 1060��B2=B 1070�PRINT�V$(X); 1080��T1=X 1090�GOSUB�2940 1100�IF�X<>1�THEN�1130 1110��T1=T1+10 1120�GOTO�1360 1130�INPUT�E$ 1135��E$=MID$(E$,1,1) 1140�IF�E$="G"�THEN�1360 1150�IF�E$="D"�THEN�1340 1160�IF�E$="H"�THEN�1190 1170�PRINT�"‚RETYPE" 1180�GOTO�1130 1190�GOSUB�2940 1200�IF�T1>0�THEN�1280 1210��X2=0 1220��C=C-B2 1230��B2=0 1240�PRINT�"�BUST" 1250�IF�X1>0�THEN�1560 1260�PRINT�"•";V$(H) 1270�GOTO�1660 1280�INPUT�E$ 1285��E$=MID$(E$,1,1) 1290�IF�E$="G"�THEN�1360 1300�IF�E$="H"�THEN�1190 1310�PRINT�"‚RETYPE" 1320�GOTO�1280 1330��B2=B 1340�GOSUB�2940 1350�IF�T1=0�THEN�1210 1360�PRINT�"�" 1370�PRINT�"TOTAL=";T1 1380��B=B1+B2 1390��X2=T1 1400�GOTO�1560 1410�GOSUB�2940 1420�IF�T1>0�THEN�1460 1430�PRINT�"BUST" 1440�PRINT�"•";V$(H) 1450�GOTO�1750 1460�INPUT�D$ 1465��D$=MID$(D$,1,1) 1470�IF�D$="G"�THEN�1540 1480�IF�D$="H"�THEN�1410 1490�PRINT�"‚RETYPE" 1500�GOTO�1460 1510��B=2*B 1520�GOSUB�2940 1530�IF�T1=0�THEN�1430 1540�PRINT�"�" 1550�PRINT�"TOTAL=";T1 1560�PRINT�"•";V$(H) 1570�GOTO�1600 1580�GOSUB�3090 1590�PRINT�"•";V$(C(L-1)) 1600�IF�T<17�THEN�1580 1610�IF�T>21�THEN�1640 1620�PRINT�"�TOTAL=";T 1630�GOTO�1720 1640�PRINT�"�BUST" 1650��C=C+B 1660�PRINT�"YOU�NOW�HAVE�$";C 1670�IF�H1>20�THEN�3600 1680�GOTO�300 1720�IF�D$="S"�THEN�1770 1730�IF�T1>T�THEN�1650 1740�IF�T1=T�THEN�1660 1750��B=-B 1760�GOTO�1650 1770�IF�T>X1�THEN�1860 1780�IF�T=X1�THEN�1800 1790��C=C+B1 1800�IF�T>X2�THEN�1840 1810�IF�T=X2�THEN�1660 1820��C=C+B2 1830�GOTO�1660 1840��C=C-B2 1850�GOTO�1660 1860��C=C-B1 1870�GOTO�1800 1880�IF�T1=21�THEN�1930 1890��C=C-B 1900�PRINT�"•";V$(H) 1910�PRINT�"ƒBLACKJACK�!!!" 1920�GOTO�1660 1930�PRINT�"ƒBLACKJACK�!!!" 1940�PRINT�"�" 1950�GOTO�1900 1960�PRINT�"ƒBLACKJACK�!!!" 1970�PRINT�"•";V$(H) 1980�PRINT�"�" 1990��C=C+1.5*B 2000�GOTO�1660 2820�PRINT�"ƒINSURANCE?" 2830�INPUT�I$ 2835��I$=MID$(I$,1,1) 2840�IF�I$="Y"�THEN�2870 2850�PRINT 2860�GOTO�620 2870�& IF�T=21�THEN�2900 2880��C=C-B/2 2890�GOTO�2850 2900�PRINT�"–10" 2910�IF�T1<>21�THEN�1910 2920��C=C+B 2930�GOTO�1910 2940�IF�T1>10�THEN�2980 2950�IF�C(L)<>1�THEN�2980 2960��T1=T1+10 2970��S1=1 2980��T1=T1+C(L) 2990�PRINT�V$(C(L)); 3000��L=L+1 3010�IF�T1<=21�THEN�3080 3020�IF�S1=0�THEN�3060 3030��T1=T1-10 3040��S1=0 3050�GOTO�3080 3060��T1=0 3070�PRINT 3080�RETURN 3090�IF�T>10�THEN�3130 3100�IF�C(L)<>1�THEN�3130 3110��T=T+10 3120��S=1 3130��T=T+C(L) 3140��L=L+1 3150�IF�T<=21�THEN�3190 3160�IF�S=0�THEN�3190 3170��T=T-10 3180��S=0 3190�RETURN 3310�PRINT�"THIS�BLACKJACK�GAME�ENABLES�THE�OPERATOR�TO�PLAY�HEAD-" 3320�PRINT�"TO-HEAD�WITH�THE�COMPUTER,�SIMULATING�THE�EXACT�RULES�AS" 3330�PRINT�"THOSE�ON�THE�LAS�VEGAS�STRIP.‚THE�CARDS�ARE�DEALT�FROM�A�" 3340�PRINT�"52-CARD�DECK�UNTIL�A�HAND�STARTS�WITH�LESS�THAN�12�CARDS" 3350�PRINT�"REMAINING,�IN�WHICH�CASE�IT�RESHUFFLES.‚THE�DEALER�MUST�HIT" 3360�PRINT�"THROUGH�A�TOTAL�OF�16�AND�STAND�ON�ALL�"; 3365�PRINT�"TOTALS�OF�17�AND�ABOVE." 3370�PRINT�"�" 3371�PRINT�"THE�INSURANCE�BET�IS�OFFERED�AT�HALF�THE�" 3375�PRINT�"PLAYERS�BET�WHEN�"; 3380�PRINT�"THE�DEALER'S�UP-CARD�IS�AN�ACE." 3390�PRINT�"YOU�MAY�DOUBLE-DOWN�ON�ANY�TWO�CARDS,�AND�RECEIVE�ONE�MORE" 3395�PRINT�"CARD�WHILE�THE�ORIGINAL�BET�IS�DOUBLED." 3400�PRINT�"YOU�MAY�SPLIT�ANY�HAND�BUT�RESPLITTING�IS�NOT�ALLOWED." 3410�PRINT�"ALSO,�ONLY�ONE�CARD�IS�DEALT�ON�EACH�PAIR�OF�ACES." 3415�PRINT�"YOUR�CARDS�APPEAR�IN�THE�FAR�LEFT�COLUMN;�THE�DEALER�ON" 3420�PRINT�"THE�FAR�RIGHT." 3425�PRINT 3426�INPUT�X$ 3430�PRINT�"�THE�COMMANDS�ARE�AS�FOLLOWS:" 3440�PRINT�"„HIT�(DRAW�ANOTHER�CARD)" 3450�PRINT�"„GOOD�(STAND�ON�CURRENT�TOTAL)" 3460�PRINT�"„DOUBLE�(DOUBLE�YOUR�BET�AND�DRAW�ONE�CARD)" 3470�PRINT�"„SPLIT�(FORM�TWO�HANDS�FROM�A�PAIR�WITH�THE�ORIGINAL" 3480�PRINT�"‹BET�ON�EACH�HAND" 3490�PRINT�"�" 3491�PRINT�"COMMANDS�MUST�BE�TYPED�IN�AS�THE�FIRST�LETTER." 3495�PRINT�"GOOD�LUCK" 3500�GOTO�100 3600�PRINT�"YOU�ARE�ALLOWED�ONLY�20�HANDS,�",N$ 3610�IF�C>�1500�THEN�3700 3620�PRINT�"I'M�VERY�SORRY,�",N$;"," 3625�PRINT�"BUT�YOU�DID�NOT�WIN�A�CHANCE�AT�OUR�DRAWING." 3630�IF�C>100�THEN�3650 3640�PRINT�"MY�ADVICE�WOULD�BE�TO�STAY�CLEAR�OF�LAS�VEGAS!" 3650�PRINT�"PLEASE�LET�THE�NEXT�PERSON�PLAY." 3655�PRINT�"IF�YOU�HAVE�ANY�QUESTIONS,�PLEASE�SEE�" 3656�PRINT�"JIM,�HE�HAS�ALL�OF�THE�ANSWERS!!!!!!!!!" 3680�GOTO�20 3700�PRINT�"CONGRATULATIONS!!!ƒYOU�HAVE�JUST�WON�A�CHANCE�IN�OUR�", 3701�PRINT�"DRAWING!!!" 3720�FOR�J=1�TO�20�STEP�2 3725��X=1 3726��X=SIN(X)*SIN(X)*SIN(X) 3730�PRINT�TAB(J);N$;"�IS�A�WINNER!!!!!!!!" 3732�NEXT�J 3740�GOTO�20 3750�END ååå ý€ �22�43�64�01�23�42�61�04�26�39�52�13�27�38�49�16�22�42�62�02�23�43�63�03 �23�38�53�08�27�42�57�12�26�38�50�14�27�39�51�15�22�39�' 56�05�26�43�60�09 �22�38�54�06�23�39�55�07�26�42�58�10�27�43�59�11�22�23�24�21�26�27�28�25 �22�26�30�18�23�27�31�19�22�27�32�17�23�26�29�20�38�39�40�37�42�43�44�41 �38�42�46�34�39�43�47�35�38�43�48�33�39�42�45�36�61�01�21�41�64�04�24�44 �49�04�19�34�61�16�31�46�49�13�25�37�52�16�28�40�52�01�18�35�64�13�30�47 �49�01�17�33�52�04�20�36�61�13�29�45�64�16�32�48�04�01�02�03�16�13�14�15 �13�01�05�09�16�04�08�12�16�01�06�11�13�04�07�10�52�49�50�51�64�61�62�63 �61�49�53�57�64�52�56�60�64�49�54�59�61�52�55�58�18�34�50�02�19�35�51�03 �21�37�53�05�24�40�56�08�25�41�57�09�28�44�60�12�30�46�62�14�31�47�63�15 �06�07�08�05�10�11�12�09�06�10�14�02�07�11�15�03�18�19�20�17�30�31�32�29 �21�25�29�17�24�28�32�20�34�35�36�33�46�47�48�45�37�41�45�33�40�44�48�36 �54�55�56�53�58�59�60�57�54�58�62�50�55�59�63�51 �22�43�23�42�26�39�27�38�01�64�13�52�04�61�16�49�22�43�23�42 �04�-1�-1 �15�-1�-1 �03�-1�-1 �10�10�-1 �10�05�10 �02�02�-1 �02�01�02 �02�01�01 �02�00�02 �05�05�10 �05�05�05 �05�00�10 �05�00�05 �-1�-1�-1 THIS�PROGRAM�PLAYS�THREE-DIMENSIONAL�TIC-TAC-TOE�ON�A� BOARD�CONSISTING�OF�64�SQUARES�ARRANGED�ON�4�LEVELS OF�16�(4X4)�SQUARES�EACH. THE�PURPOSE�OF�THE�GAME�IS�TO�GET�4�MOVES�IN�A�ROW. WINNING�ROWS�MAY�BE�SET�UP�VERTICALLY,�HORIZONTALLY OR�DIAGONALLY�IN�ANY�DIRECTION.�TO�ENTER�YOUR�MOVE TYPE�IN�A�3-DIGIT�NUMBER.‚FOR�EXAMPLE,�243�WOULD�BE 2ND�LEVEL,�4TH�ROW,�3RD�COLUMN.‚TO�LET�ME�MOVE�FIRST YOU�CAN�SKIP�YOUR�MOVE�BY�TYPING�IN�ZERO�(000).‚WHEN YOU�WISH�TO�START�A�NEW�GAME,�TYPE�IN�A�NEGATIVE�MOVE SUCH�AS�-11.‚TO�GET�OFF�THE�COMPUTER�TYPE�999. å}i!€é�NAM�STARTREK�GAME†V1.4 �OPT�LOAD,LLEN=80,CREF,NOGEN �SPC�3 ****************************************************************** * *…TYPED�BY�R.�EBY *…DATE�12-20-76 *…CORRECTED�1-6-77 * ****************************************************************** �SPC�3 �ORG�$20 �SPC�3 *�TEMP�STORAGE�AREA �SPC�1 STPSFL�RMB�1�SETUP�ROUTINE�FLAG BASEX�RMB�1�BASE�QUADRANT,�X BASEY�RMB�1�BASE�QUADRANT,�Y BASESX�RMB�1�BASE�SECTOR,�X BASESY�RMB�1�BASE�SECTOR,�Y GLMFLG�RMB�1�MOVED�TO�NEW�QUAD�FLAG SECKLN�RMB�1�#KLINGONS�IN�CUR.�QUAD FLAGC�RMB�1 TIMDEC�RMB�1�DECREMENT�TIME� STCFLG�RMB�1�SET�COURSE�FLAG SQFLG�RMB�1�QUAD�MOVE�FLAG PNTFLG�RMB�1�DECIMAL�POINT�FLAG COURSE�RMB�1�COURSE WARP�RMB�1�WARP�FACTOR FINCX�RMB�1�OUT�OF�BOUNDS�FLAG,�X FINCY�RMB�1�OUT�OF�BOUNDS�FLAG,�Y COUNT�RMB�1�TEMP�COUNT�STORE TEMP�RMB�2�BCD�ADD/SUB�PARAM TEMP2�RMB�2 XTEMP�RMB�2�TEMP�X�STORE TIME0�RMB�2�STAR�DATE GAMTIM�RMB�1�LENGTH�OF�GAME TIMUSE�RMB�2�TIME�USED�UP SHENGY�RMB�2�SHIELD�ENERGY KLNENG�RMB�2�LOCAL�KLINGON�ENERGY PHSENG�RMB�2�PHASER�ENERGY TOPFLG�RMB�1�LRS�FLAGS�TOP�QUAD�OUT�OF�GALAX BOTFLG�RMB�1�BOTTOM�FLAG LSDFLG�RMB�1�L�SIDE�FLAG RSDFLG�RMB�1�R�SIDE�FLAG PHOTON�RMB�1�#TORPEDOS CURQUX�RMB�1�CUR�SHIP�QUAD,�X CURQUY�RMB�1�CUR�SHIP�QUAD,�Y CURSCX�RMB�1�CUR�SHIP�SECTOR,�X CURSCY�RMB�1�CUR�SHIP�SECTOR,�Y TRIALX�RMB�1�TRIAL�POSITION,�X TRIALY�RMB�1�TRIAL�POSITION,�Y FLAG�RMB�1�POSITION�OCCUPPIED�FLAG CNDFLG�RMB�1�CONDITION�FLA( G SCANX�RMB�1�SHORT�SCAN�COLUMN SCANY�RMB�1�SS�ROW COUNT1�RMB�1 SECINF�RMB�1�DATA�FOR�CUR�QUAD MASK�RMB�1 KLNGCT�RMB�1�TOTAL�#�OF�KLINGONS LENGTH�RMB�1�PROGRAM�LENGTH ASAVE�RMB�1�TEMP�STORAGE SHIELD�RMB�1�SHIELD�POSITION ENERGY�RMB�2�SHIP�ENERGY TSAVE1�RMB�1�TEMP�STORAGE HITKLS�RMB�1�HIT�KLINGON HITSTR�RMB�1�HIT�STAR HITBAS�RMB�1�HIT�BASE TEMP3�RMB�2 GALCNT�RMB�1�GALAXY�LIMIT�HIT�COUNT� DAMENG�RMB�1�DAMAGE�STATUS,�ENG DAMSRS�RMB�1�"�"�,�SRS DAMLRS�RMB�1�"�"�,�LRS DAMPHS�RMB�1�"�"�,�PHS DAMPHT�RMB�1�"�"�,�PHT DAMSHL�RMB�1�"�"�,�SHL SUPFLG�RMB�1�SUPERNOVA�FLAG TELFLG�RMB�1�TELEPORTER ATKENG�RMB�2�ATTACK�ENERGY QUDPTR�RMB�2�CUR�QUAD�PTR PASWRD�RMB�3�PASSWORD PHTFLG�RMB�1�TORPEDO�FLAG QUDMAP�RMB�64�QUADRANT�MAP SECMAP�RMB�16�SECTOR�MAP �PAGE *‚TABLE�OF�MOVE�VECTORS �SPC�1 MOVTBL�FCB�0,$FF,1,$FF,1,0,1,1,0,1,$FF,1,$FF,0 �FCB�$FF,$FF �SPC�1 *‚SPECIAL�CHARACTER�TABLE �SPC�1 CHRTBL�FCC�'.*KB' �SPC�1 *‚COMMAND�JUMP�TABLE �SPC�1 JMPTBL�FDB�SETCRS�COMMAND�=�0 �FDB�SRSCAN�"�=�1 �FDB�LRSCAN�"�=�2 �FDB�PHASER�"�=�3 �FDB�PHOTOR�"�=�4 �FDB�DAMRPT�"�=�5 �FDB�SHLDUP�"�=�6 �FDB�SHLDWN�"�=�7 �FDB�TELEPT�"�=�8 �FDB�SELFDE�"�=�9 �SPC�1 *‚EXTERNAL�I-O�JUMPS �SPC�1 PDATA1�EQU�$F027 OUTHR�JSR�$F00C �JMP�$F018 OUTHL�JSR�$F009 �JMP�$F018 OUTS�EQU�$F02A OUTCH�EQU�$F018 INCH�EQU�$F015 MONTOR�EQU�$F5C2 �PAGE *‚SETUP�OF�GALAXY �SPC�1 �ORG�$100 START�EQU�* SPAVOY�LDS�#$1100�SETUP�STACK �LDX�#TITLE �JSR�PSTRNG�OUTPUT�TITLE �LDX�#STPSFL SETUP�CLRA�CLEAR�ALL�TEMP�STORAGE �STAA�0,X� �INX �CPX�#MOVTBL �BNE�SETUP �LDX�#SHTLNG�SHORT�OR�LONG�VERSION? �JSR�PSTRNG �JSR�INCH �CMPA�#'S �BEQ�SHORT �INC�LENGTH�IF�LONG�SET�FLAG SHORT�LDX�#QUDMAP�POINT�TO�QUADRANT�MAP �LDAB�#64 SETUP0�JSR�RANDOM�SETUP�NUMBER�OF�KLINGONS �CMPA�#$FC�IN�EACH�QUADRANT �BLS�SETUP1�PROBABILITY�LOW�FOR�4 �LDAA�#4 �BRA�SETUP5 SETUP1�CMPA�#$F7 �BLS�SETUP2 �LDAA�#3 �BRA�SETUP5 SETUP2�CMPA�#$E0 �BLS�SETUP3 �LDAA�#2 �BRA�SETUP5 SETUP3�CMPA�#$A0�PROBABILITY�MUCH�HIGHER �BLS�SETUP4�FOR�ONE�KLINGON �LDAA�#1 �BRA�SETUP5 SETUP4�CLRA SETUP5�CLR�ASAVE �TST�LENGTH�CHECK�FOR�LONG�VERSION �BEQ�SETUP8�IF�NOT�JUMP�AHEAD �STAA�ASAVE�ELSE�GENERATE�ADDITIONAL �JSR�RANDOM�KLINGONS�AND�ADD�TO�THE� �CMPA�#$F0�PREVIOUSLY�GENERATED �BLS�SETUP6 �LDAA�#3 �BRA�SETUP8 SETUP6�CMPA�#$C0 �BLS�SETUP7 �LDAA�#2 �BRA�SETUP8 SETUP7�CLRA SETUP8�ADDA�ASAVE �STAA�0,X�SAVE�KLINGONS �ADDA�KLNGCT�UPDATE�TOTAL�COUNT �STAA�KLNGCT STARS�JSR�RANDOM�GENERATE�SOME�STARS �ANDA�#$38 �ORAA�0,X �STAA�0,X CONT�INX �DECB �BEQ�CONT1�IF�NOT�DONE�WITH�ALL �JMP�SETUP0�QUADRANTS,�REPEAT CONT1�JSR�RANDOM�GENERATE�STARBASE �ANDA�#7 �TAB �JSR�RANDOM �ANDA�#7 �STAA�BASEX�SAVE�ITS�POSITION �STAB�BASEY �INC�STPSFL �LDX�#QUDMAP �JSR�STPSEX �LDAA�#$40�PUT�IN�QUADRANT�MAP �ORAA�0,X �STAA�0,X CONT2�BSR�REFUEL�SETUP�INITIAL�ENERGY �JSR�RANDOM�CALCULATE�STARDATE �ADDA�#0 �DAA �STAA�TIME0+1 �JSR�RANDOM �ANDA�#$7F �ORAA�#$10 �ADDA�#0 �DAA �STAA�TIME0 �BSR�MAKTIM�CALCULATE�GAME�TIME �TST�LENGTH�IF�LONG,�MORE�TIME �BEQ�GATM �TAB �BSR�MAKTIM �SUBA�#0 �ABA �DAA GATM�STAA�GAMTIM �BRA�CONT3 �SPC�1 *‚REFUEL�THE�ENTERPRISE �SPC�1 REFUEL�CLR�SHIELD�LOWER�SHIELD �CLR�TELFLG �LDAA�#$30 �STAA�ENERGY�SET�ENERGY�TO�3000 �STAA�SHENGY�SHIELD�ENERGY�ALSO �CLR�ENERGY+1 �CLR�SHENGY+1 �LDAA�#15�INITIALIZE�TORPEDOES �STAA�PHOTON �LDX�#DAMENG�FIX�ALL�DAMAGE REFUL1�CLR�0,X �INX �CPX�#SUPFLG �BNE�REFUL1 �RTS �SPC�1 *‚CALCULATE�GAME�TIM) E �SPC�1 MAKTIM�JSR�RANDOM�GET�RANDOM�NUMBER �ANDA�#$0F �ORAA�#$22�NO�LESS�THAN�22�YEARS �ADDA�#0 �DAA �RTS �SPC�1 *‚SETUP�CONTINUED �SPC�1 CONT3�JSR�RANDOM�GENERATE�POSITION�OF �ANDA�#7�ENTERPRISE �STAA�CURQUX �JSR�RANDOM �ANDA�#7 �STAA�CURQUY �JSR�SETUPS �LDX�#BASINF�REPORT�BASE�POSITION �JSR�PSTRNG �LDAA�BASEX �BSR�FIXOUT �JSR�OUTDSH �LDAA�BASEY �BSR�FIXOUT �LDX�#INTRO0�OUT�PASSWORD�PROMPT �JSR�PSTRNG �LDX�#PASWRD�GET�PASSWORD �LDAB�#3 CONT4�JSR�INCH �STAA�0,X�SAVE�IT �INX �DECB �BNE�CONT4 �LDX�#INTRO1 �JSR�PSTRNG�OUTPUT�STARDATE �BSR�OUTDAT �LDX�#INTRO2 �JSR�PSTRNG�OUT�#�OF�KLINGONS �BSR�OUTKLN �LDX�#INTRO3 �JSR�PSTRNG�OUT�YEARS�TO�WIN �CLR�TEMP �LDAA�GAMTIM �STAA�TEMP+1 �JSR�OUTBCD �LDX�#INTRO4 �JSR�PSTRNG�OUTPUT�QUADRANT �BSR�OUTQUD �LDX�#INTRO6 �JSR�PSTRNG�OUTPUT�SECTOR �BSR�OUTSEC �JMP�COMAND �SPC�1 *‚OUTPUT�A�NUMBER �SPC�1 FIXOUT�ADDA�#$31�BIAS�AND�OUTPUT �JMP�OUTCH �SPC�1 *‚OUTPUT�STARDATE �SPC�1 OUTDAT�LDX�TIME0�LOAD�DATE �STX�TEMP �JSR�OUTBCD �LDAA�#'. �JSR�OUTCH�OUTPUT�DECIMAL�POINT �LDAA�TIMDEC �JMP�OUTHR �SPC�1 *‚OUTPUT�KLINGON�COUNT �SPC�1 OUTKLN�LDAA�KLNGCT�GET�COUNT OUTK0�CLR�TEMP OUTK1�CLR�TEMP+1 �LDAB�#10�CONVERT�TO�BCD OUTK2�SBA �BCS�OUTK3 �INC�TEMP+1�TENS �CMPB�TEMP+1 �BNE�OUTK2 �INC�TEMP�HUNDREDS �BRA�OUTK1 OUTK3�ABA �LDAB�TEMP+1 �ASLB �ASLB �ASLB �ASLB �ABA�ADD�UNITS �STAA�TEMP+1 �JMP�OUTBCD �SPC�1 *‚OUTPUT�QUADRANT �SPC�1 OUTQUD�LDAA�CURQUX�GET�QUADRANT�INFO. �BSR�FIXOUT�OUTPUT�IT �BSR�OUTDSH�OUTPUT�DASH �LDAA�CURQUY �BRA�FIXOUT �SPC�1 *‚OUTPUT�SECTOR �SPC�1 OUTSEC�LDAA�CURSCX�GET�SECTOR�INFO. �BSR�FIXOUT�OUTPUT�IT �BSR�OUTDSH�OUTPUT�A�DASH �LDAA�CURSCY �BRA�FIXOUT �SPC�1 *‚OUTPUT�A�DASH �SPC�1 OUTDSH�LDAA�#'-�LOAD�UP�A�DASH �JMP�OUTCH�OUTPUT�IT �SPC�1 *‚FIX�THE�INDEX�REGISTER �SPC�1 FIXXRG�STX�TEMP�ADD�VALUE�IN�A �ADDA�TEMP+1�TO�THE�INDEX�REGISTER �STAA�TEMP+1 �LDX�TEMP �RTS �SPC�1 *‚MAIN�PROGRAM�LOOP �SPC�1 COMAND�LDAA�GAMTIM�CHECK�TIME �CMPA�TIMUSE+1 �BHI�NOEXTC�IS�IT�UP? �JMP�NOMTIM NOEXTC�TST�KLNGCT�ALL�KLINGONS�GONE? �BNE�NOEXT2 �JMP�NOMKLN NOEXT2�TST�SUPFLG�SUPERNOVA�HERE? �BEQ�NOEXT4 �LDX�#SUPDES �JSR�PSTRNG �JMP�SELFDA NOEXT4�JSR�CLRCQU�CLEAR�KLINGONS�&�STARS �LDAA�#2 �CMPA�CNDFLG�ARE�WE�DOCKED? �BEQ�CMND27 �CLR�CNDFLG �TST�SECKLN�CONDITION�RED? �BEQ�CMNDAC �DECA �STAA�CNDFLG CMNDAC�JSR�RANDOM �CMPA�#$FC�SPACE�STORM? �BLS�COMND2 �LDX�#SPSTRM �JSR�PSTRNG �LDAA�#2 �STAA�DAMSHL �JMP�SHLDWN COMND2�JSR�RANDOM �CMPA�#$FC�SUPERNOVA? �BLS�CMND25 �JMP�SUPNOV CMND25�JSR�ATTACK�GO�GET�ATTACKED �TST�ENERGY�ANY�ENERGY�LEFT? �BPL�COMND0 �JMP�NRGOUT COMND0�LDAA�#3�IS�CONDITION�YELLOW? �CMPA�ENERGY �BLS�CMNDAD �STAA�CNDFLG CMNDAD�TST�SHENGY�SHIELD�ENERGY�LEFT? �BPL�CMND27 �CLRA �STAA�SHIELD�IF�NOT�LOWER�SHIELD �STAA�SHENGY �STAA�SHENGY+1 CMND27�LDX�#COMST�OUTPUT�COMMAND�PROMPT �JSR�PSTRNG �CLR�STCFLG �CLR�PHTFLG COMND3�JSR�INCHCK�INPUT�COMMAND COMND4�ASLA �LDX�#JMPTBL �JSR�FIXXRG�FIND�IN�JUMP�TABLE �LDX�0,X �JMP�0,X�JUMP�TO�IT �SPC�1 *‚OUTPUT�4�DIGIT�BCD�NUMBER �SPC�1 OUTBCD�CLR�FLAG�OUTPUT�A�BCD�NUMBER �LDAA�TEMP�FROM�LOCATION�TEMP �BEQ�OUTBC2�AND�TEMP+1 �ANDA�#$F0 �BEQ�OUTBC1 �LDAA�TEMP �JSR�OUTHL�FIRST�DIGIT OUTBC1�LDAA�TEMP �JSR�OUTHR�SECOND�DIGIT �INC�FLAG OUTBC2�LDAA�TEMP+1 �TST�FLAG �BNE�NOZERO �ANDA�#$F0 �BEQ�OUTBC3 NOZERO�JSR�OUTHL�THIRD�DIGIT OUTBC3�LDAA�TEMP+1 �JMP�OUTHR�FOURTH�DIGIT �SPC�1 *‚LOWER�SHIELDS �SPC�1 SHLDWN�CLR�SHIELD�SHIELDS�* DOWN �LDX�#DWNST SHLD0�JSR�PSTRNG�REPORT SHLD1�JMP�COMAND �SPC�1 *‚RAISE�SHIELDS �SPC�1 SHLDUP�LDAA�SHENGY�HAVE�ENOUGH�ENERGY? �CMPA�#1 �BLS�SHLD1 �TST�DAMSHL�SHIELDS�DAMAGED? �BNE�SHLDWN �INC�SHIELD�RAISE�SHIELDS �LDX�#SHENGY �LDAA�#2�DEDUCT�ENERGY �STAA�TEMP �CLR�TEMP+1 �JSR�BCDSUB �LDX�#UPSTR �BRA�SHLD0�REPORT �SPC�1 *‚SHORT�RANGE�SCAN �SPC�1 SRSCAN�TST�DAMSRS�DAMAGED? �BEQ�SSCAN1 �JMP�RPTDAM SSCAN1�JSR�PCRLF�OUTPUT�A�CR�&�LF �CLR�SCANY �LDAA�CNDFLG�ARE�WE�DOCKED? �CMPA�#2 �BNE�SSCAN2 �JSR�REFUEL�IF�SO,�REFUEL SSCAN2�LDX�#SECMAP�POINT�TO�SECTOR�MAP �STX�TEMP2 �JSR�DOSCAN�OUTPUT�FIRST�LINE �LDX�#SDATE�OUTPUT�DATE �JSR�PDATA1 �JSR�OUTDAT �JSR�DOSCAN�OUTPUT�NEXT�LINE�2 �LDX�#CNDTNS �JSR�PDATA1�OUTPUT�CONDITION �LDAA�CNDFLG �BEQ�SRSCN1�CHECK�CONDITION �CMPA�#1�CNDFLG�STATUS �BEQ�SRSCN0�0�=�GREEN �CMPA�#3�1�=�RED �BEQ�OUTCN1�2�=�DOCKED �LDX�#DOCKED�3�=�YELLOW �BRA�OUTCND OUTCN1�LDX�#YELLOW�YELLOW OUTCND�JSR�PDATA1 �BRA�SRSCN2 SRSCN0�LDX�#RED�CONDITION�RED �BRA�OUTCND SRSCN1�LDX�#GREEN�GREEN �BRA�OUTCND SRSCN2�BSR�DOSCAN�OUTPUT�NEXT�LINE�3 �LDX�#QUADP �JSR�PDATA1�OUT�QUADRANT �JSR�OUTQUD �BSR�DOSCAN�OUTPUT�NEXT�LINE�4 �LDX�#SECP �JSR�PDATA1�OUT�SECTOR �JSR�OUTSEC �BSR�DOSCAN�NEXT�LINE�5 �LDX�#ENGSTR �JSR�PDATA1�OUTPUT�ENERGY �LDX�ENERGY �STX�TEMP �JSR�OUTBCD �BSR�DOSCAN�OUTPUT�NEXT�LINE�6 �LDX�#KLSTR �JSR�PDATA1�OUT�KLINGON�COUNT �JSR�OUTKLN �BSR�DOSCAN�OUT�NEXT�LINE�7 �LDX�#SHSTR �JSR�PDATA1�OUTPUT�SHIELDS �LDX�SHENGY �STX�TEMP �JSR�OUTBCD�SHIELD�ENERGY �TST�SHIELD �BEQ�SRSCN4 �LDX�#UPSCAS�UP �BRA�SRSCN5 SRSCN4�LDX�#DNSCAS�DOWN SRSCN5�JSR�PDATA1 �BSR�DOSCAN�OUTPUT�LAST�LINE �LDX�#TRPSTR �JSR�PDATA1�OUTPUT�TORPEDOES �CLR�TEMP �LDAA�PHOTON �ADDA�#0 �DAA �STAA�TEMP+1 �JSR�OUTBCD �JMP�COMAND�RETURN �SPC�1 *‚OUTPUT�ONE�SHORT�RANGE�SCAN�LINE �SPC�1 DOSCAN�JSR�PCRLF�OUTPUT�A�CR�&�LF �LDAA�#2 �STAA�COUNT�SETUP�COUNTER �CLR�SCANX DOSCN�LDAA�#4 �STAA�COUNT1�SETUP�END�COUNTER �LDX�TEMP2 �LDAA�0,X DOSCN0�STAA�ASAVE �LDAA�CURSCY �CMPA�SCANY�IS�IT�Y�LOCATION�OF�ENTERP. �BNE�CHK0 �LDAA�CURSCX �CMPA�SCANX�IS�IT�X�LOCATION�OF�ENTERP. �BNE�CHK0 �LDAA�#'E�IF�SO,�PRINT�'E' �JSR�OUTCH �BRA�GOAHD CHK0�LDAA�ASAVE DOSCN1�LDX�#CHRTBL�FIND�CHARACHTER �ANDA�#3 �JSR�FIXXRG �LDAA�0,X �JSR�OUTCH�OUTPUT�IT GOAHD�JSR�OUTS�OUTPUT�A�SPACE �LDX�TEMP2 �INC�SCANX �DEC�COUNT1�DECRIMENT�THE�COUNTER �BEQ�DOSCN2�ARE�WE�DONE? �LDAA�ASAVE �LSRA�IF�NOT,�GET�TO�NEXT�SECTOR �LSRA�IN�BYTE�REPEAT �BRA�DOSCN0 DOSCN2�INX �STX�TEMP2 �LDAA�0,X �DEC�COUNT�DECRIMENT�THE�COUNTER �BNE�DOSCN�IF�NOT�0,�REPEAT �INC�SCANY �RTS �SPC�1 *‚PRINT�STRING�ROUTINE �SPC�1 PSTRNG�BSR�PCRLF �JMP�PDATA1 �SPC�1 *‚PRINT�CARRIAGE�RETURN�AND�LINE�FEED �SPC�1 PCRLF�STX�XTEMP�SAVE�THE�INDEX�REGISTER �LDX�#CRLFST�OUTPUT�A�CR�&�LF �JSR�PDATA1 �LDX�XTEMP�RESTORE�INDEX �RTS �SPC�1 *‚SETUP�SECTOR�MAP �SPC�1 SETUPS�CLR�SECKLN�CLEAR�LOCAL�KLINGS �LDX�#SECMAP�POINT�TO�SECTOR�MAP �LDAB�#16 �CLRA SETPS1�STAA�0,X�CLEAR�OUT�MAP �INX �DECB �BNE�SETPS1 �LDX�#QUDMAP�POINT�TO�QUAD�MAP �LDAA�CURQUX�GET�CURRENT�POSITION �LDAB�CURQUY� STPSEX�STAA�ASAVE �TSTB �BEQ�SETPS4 SETPS2�LDAA�#8 SETPS3�INX �DECA�FIND�CURRENT�Y�QUAD. �BNE�SETPS3 �DECB �BNE�SETPS2 SETPS4�LDAA�ASAVE �BEQ�SETPS6 SETPS5�INX �DECA�FIND�CURRENT�X�QUAD. �BNE�SETPS5 SETPS6�TST�STPSFL �BEQ�STPSNX �CLR�STPSFL�IF�ENTERED�EXTERNAL �RTS�RETURN STPSNX�STX�QUDPTR�SAVE�CURRENT�QUADRANT �LDAB�0,X �STAB�SECINF + �BEQ�SETP10 �ANDB�#7�CHECK�FOR�KLINGONS �BEQ�SETPS7 �STAB�COUNT �STAB�SECKLN �LDAA�#2 �STAA�MASK �BSR�PUTINM�GO�PUT�IN�MAP SETPS7�LDAB�SECINF �ANDB�#$38�CHECK�FOR�STARS �BEQ�SETPS8 �LSRB �LSRB �LSRB �STAB�COUNT �LDAA�#1 �STAA�MASK �BSR�PUTINM�PUT�STARS�IN�MAP SETPS8�LDAB�SECINF �BITB�#$40�CHECK�FOR�BASE �BEQ�SETPS9 �LDAA�#1 �STAA�COUNT �LDAA�#3 �STAA�MASK �BSR�PUTINM�PUT�BASE�IN�MAP SETPS9�LDAB�SECINF �BPL�SETP10�CHECK�FOR�SUPERNOVA �INC�SUPFLG�IF�SO,�SET�FLAG SETP10�JSR�RANDOM�GET�RANDOM�X �ANDA�#7 �STAA�TRIALX �JSR�RANDOM�GET�RANDOM�Y �ANDA�#7 �STAA�TRIALY �JSR�CHKPOS�LOCATION�EMPTY? �TST�FLAG �BNE�SETP10 �LDAA�TRIALX�IF�SO,�THIS�IS �STAA�CURSCX�CURRENT�LOCATION �LDAA�TRIALY�OF�ENTERPRISE �STAA�CURSCY �SPC�1 *‚CALCULATE�LOCAL�KLINGON�ENERGY �SPC�1 CSCKEN�LDAB�SECKLN�GET�#�OF�KLINGONS �ASLB�MULTIPLY�BY�TWO �LDX�#KLNENG�POINT�TO�K�ENERGY CSCEXT�CLR�0,X �CLR�1,X �TST�B �BEQ�CSCKN2 CSCKN1�JSR�RANDOM�GENERATE�RANDOM�ENERGY �ADDA�#0�FOR�EACH�KLINGON� �DAA �CLR�TEMP �STAA�TEMP+1 �JSR�BCDADD�ADD�UP�ENERGY �DECB �BNE�CSCKN1 CSCKN2�RTS �SPC�1 *‚PUT�OBJECTS�IN�SECTOR�MAP �SPC�1 PUTINM�LDX�#SECMAP�POINT�TO�MAP �JSR�RANDOM �ANDA�#$F�GENERATE�RANDOM�POSITION �STAA�TSAVE1 �JSR�FIXXRG�FIND�IN�MAP �LDAB�0,X �JSR�RANDOM�GENERATE�RANDOM�X �ANDA�#3 �STAA�ASAVE �BEQ�PUTIN2 PUTIN1�RORB�FIND�X�POSITION �RORB �DECA �BNE�PUTIN1 PUTIN2�BITB�#3�IS�POSITION�EMPTY? �BNE�PUTINM�IF�NOT,�REPEAT �ORAB�MASK �LDAA�ASAVE �BEQ�PUTIN4 PUTIN3�ROLB�PUT�OBJECT�IN�MAP �ROLB�MAP�MASK �DECA�0�=�EMPTY �BNE�PUTIN3�1�=�STAR PUTIN4�STAB�0,X�2�=�KLINGON �DEC�COUNT�3�=�BASE �BNE�PUTINM �LDAA�MASK �CMPA�#3�WAS�OBJECT�A�BASE? �BNE�PUTIN6 �LDAB�TSAVE1 �CLC �RORB�FIND�POSITION �LDAA�ASAVE �BCC�PUTIN5 �ADDA�#4 PUTIN5�STAA�BASESX�SAVE�X�POSITION �STAB�BASESY�AND�Y�POSITION PUTIN6�RTS �SPC�1 *‚CHECK�FOR�EMPTY�SECTOR �SPC�1 CHKPOS�CLR�FLAG �STX�XTEMP�SAVE�POINTER �LDX�#SECMAP�POINT�TO�MAP �LDAA�TRIALY�GET�Y�POSITION �BEQ�CHKPO2 CHKPO1�INX�FIND�IN�MAP �INX �DECA �BNE�CHKPO1 CHKPO2�LDAA�TRIALX�GET�X�POSITION �CMPA�#3 �BLS�CHKPO3 �INX �SUBA�#4 CHKPO3�LDAB�0,X�FIND�IN�MAP �STAA�ASAVE �BEQ�CHKPO5 CHKPO4�LSRB �LSRB �DECA �BNE�CHKPO4 CHKPO5�ANDB�#3�IS�POSITION�EMPTY? �BEQ�CHKPO6 �STAB�FLAG�IF�NOT,�SET�FLAG �TST�STCFLG �BEQ�CHKPO6 �TST�PHTFLG �BNE�CHKPO7 �CMPB�#2�IS�IT�A�KLINGON? �BEQ�CHKPO7 CHKPO6�LDX�XTEMP �RTS CHKPO7�LDAB�#$FC�SETUP�MASK �LDAA�ASAVE �BEQ�CHKPO9 �SEC CHKPO8�ROLB�POSITION�MASK �ROLB �DECA �BNE�CHKPO8 CHKPO9�ANDB�0,X�CLEAR�OUT�KLINGON �STAB�0,X �BRA�CHKPO6 �SPC�1 *‚FIRE�PHOTON�TORPEDOES �SPC�1 PHOTOR�TST�DAMPHT�DAMAGED? �BEQ�PTRNDM PTRND9�JMP�RPTDAM PTRNDM�TST�PHOTON�ANY�LEFT? �BNE�PHOTR0 �JMP�PTEMPT�REPORT�EMPTY PHOTR0�INC�PHTFLG �JSR�RANDOM �ANDA�#$F�SET�ENERGY �ORAA�#4�MIN�=�4 �STAA�WARP�MAX�=�F �DEC�PHOTON �SPC�1 *�WARP�ENGINES �SPC�1 SETCRS�CLR�SQFLG �CLR�GLMFLG �LDX�#CRSSTR�COURSE�PROMPT �JSR�PSTRNG �JSR�INCHCK�INPUT�COURSE �CMPA�#7 �BHI�ABC29�GREATER�THAN�7? �STAA�COURSE �TST�PHTFLG �BNE�PHTOR1 �LDX�#WRPSTR�WARP�PROMPT �JSR�PSTRNG �JSR�INCHCK�INPUT�W.�FACTOR �STAA�WARP �TST�PNTFLG�TEST�FOR�DEC�PNT �BNE�STCRS2 �STAA�SQFLG�SET�QUAD�FLAG �TST�DAMENG�DAMAGED? �BNE�PTRND9 STCRS2�JSR�INCH�WAIT�FOR�C.R. �CMPA�#$D �BNE�STCRS2 �LDAA�COURSE PHTOR1�LDX�#MOVTBL�FIND�MOVE�VECTOR �ASLA �JSR�FIXXRG �LDAA�WARP�WARP=0? �BNE�ABC30 ABC29�JMP�COMAND ABC30�STAA�COUNT�SET�COUNTER �TST�SQFLG �BEQ�STCRS3 �LDAA�#$0F �STAA�COUNT STC, RS3�LDAA�CURSCX�GET�CUR�POSITION �LDAB�CURSCY PHTOR2�ADDA�0,X �ADDB�1,X �JSR�TSTBND�OUT�OF�BOUNDS? �TST�FINCX �BEQ�ABC1 �JMP�STCRS5�IF�SO,�JMP�AHEAD ABC1�TST�FINCY �BEQ�ABC5 �JMP�STCRS5 ABC5�STAA�TRIALX�SAVE�TRIAL�POS �STAB�TRIALY �TST�PHTFLG �BEQ�ABC4�IF�FIRING�TORP. �JSR�PCRLF�OUTPUT�CR�&�LF �BSR�OBATSO�AND�SECTOR�LOC. ABC4�INC�STCFLG �JSR�CHKPOS�CHECK�IF�BLOCKED �LDAA�FLAG �BEQ�STCRS4 �TST�PHTFLG �BEQ�ABC2 �JMP�PHTOR3 ABC2�CMPA�#2�RAMMED�KLINGON? �BNE�ABC3 �JMP�KLGRAM ABC3�LDX�#BLOKST�BLOCKED �JSR�PSTRNG OBATSO�LDAA�TRIALX�OUTPUT�SECTOR �JSR�FIXOUT �JSR�OUTDSH �LDAA�TRIALY �JSR�FIXOUT �TST�PHTFLG �BEQ�STCRET �RTS STCRET�JMP�STCRS6 STCRS4�TST�PHTFLG�TORPEDO? �BEQ�STCRSB�IF�NOT,�JUMP�AHEAD �LDAA�TRIALX�GET�TRIAL�POS. �LDAB�TRIALY �DEC�COUNT�DEC�COUNTER �BNE�PHTOR2�IF�NOT�DONE,�REPEAT �JMP�PHTOR4 STCRSB�LDAA�TRIALX �STAA�CURSCX�UPDATE�CUR�QUAD�POS �LDAA�TRIALY �STAA�CURSCY �JSR�RANDOM �CMPA�#$80�INC�TIME? �BLS�STCRSC �LDAA�#1�INC�TIME�BY�1 �JSR�FIXTIM �LDAA�#3�INC�ENERGY �JSR�FIXENG STCRSC�DEC�COUNT�DEC�COUNTER �BEQ�STCRSD �JMP�STCRS3 STCRSD�TST�SQFLG�QUADRANT�MOVE? �BNE�STCRS5 �JMP�STCRS6 STCRS5�TST�PHTFLG �BEQ�ABC6 �JMP�PHTOR4 ABC6�LDAA�WARP�RESTORE�WARP �STAA�COUNT ABC7�LDAA�CURQUX�GET�CUR�Q�POS �LDAB�CURQUY �TST�SQFLG �BEQ�STCRS7 �ADDA�0,X�ADD�IN�MOVE�VEC. �ADDB�1,X �STAA�TRIALX �STAB�TRIALY �JSR�TSTBND�OUT�OF�BOUNDS? �TST�FINCX �BEQ�ABCD0 �JMP�GALBND�IF�SO,�REPORT ABCD0�TST�FINCY �BEQ�ABCD1 �JMP�GALBND ABCD1�LDAA�TRIALX �STAA�CURQUX�UPDATE�CUR�POSITION �LDAA�TRIALY �STAA�CURQUY �INC�GLMFLG�SET�MOVE�TO�NEW�QUAD�FLAG �LDAA�#6�INC�TIME �JSR�FIXTIM �LDAA�#$30�INC�ENERGY �JSR�FIXENG �DEC�COUNT �BNE�ABC7�NOT�DONE�YET?�REPEAT STCRSA�JSR�SETUPS�GO�SETUP�QUAD STCRS6�CLR�CNDFLG �LDAA�BASEX�CHECK�IF�IN �CMPA�CURQUX�SAME�QUADRANT�AS �BNE�SEXIT1�STARBASE �LDAB�BASEY �CMPB�CURQUY �BNE�SEXIT1 �LDAA�BASESX �LDAB�BASESY�DOCKED? �INCA �SUBA�CURSCX �CMPA�#2 �BHI�SEXIT1 SEXIT0�INCB �SUBB�CURSCY �CMPB�#2 �BHI�SEXIT1 SDOCK�LDAA�#2�SET�CND�FLAG�TO �STAA�CNDFLG�SHOW�DOCKED SEXIT1�JMP�COMAND� STCRS7�ADDA�FINCX�RESTORE�CUR�POS �ADDB�FINCY �CMPA�#7�OUT�OF�GALAXY? �BHI�GALBND �CMPB�#7 �BHI�GALBND �STAA�CURQUX�SAVE�POSITION �STAB�CURQUY �LDAA�#7�INC�TIME �JSR�FIXTIM �BRA�STCRSA �SPC�1 *�RAMMED�KLINGON �SPC�1 KLGRAM�LDX�#KRMSTR�REPORT�RAM �JSR�PSTRNG �LDAA�#1 �STAA�COUNT �CLR�SQFLG �INC�HITKLS �DEC�KLNGCT�DEC�KLING�COUNT �DEC�SECKLN �INC�PHTFLG �JSR�OBATSO�OUTPUT�SECTOR �LDX�#HEVDAM�HEAVY�DAMAGE! �JSR�PSTRNG �LDAB�#$6A �JSR�MANDAM�GO�MAKE�DAMAGE �LDX�#STILFT�REPORT�K'S�LEFT �JSR�PSTRNG �JSR�OUTKLN �JMP�STCRSB �SPC�1 *�REPORT�GALAXY�LIMIT �SPC�1 GALBND�LDX�#GLBNDS�OUT�GALAXY�LIMIT �JSR�PSTRNG �LDAA�GALCNT �INCA �CMPA�#3�WAS�IT�3RD�TIME? �BNE�GALBN2 �LDX�#GALDUM�IF�SO,�REPORT �JSR�PSTRNG �JMP�ENDGAM�END�GAME GALBN2�STAA�GALCNT �TST�GLMFLG �BNE�ABC20 �JMP�STCRS6 ABC20�JMP�STCRSA �SPC�1 *�TORDEDO�HIT�OBJECT �SPC�1 PHTOR3�LDX�#PHITST�REPORT �JSR�PSTRNG �LDAA�FLAG �CMPA�#2�WAS�IT�A�KLINGON? �BNE�ABC8 �DEC�SECKLN �DEC�KLNGCT�DEC�KLINGON�COUNT �INC�HITKLS �LDX�#KLGSTR�REPORT�KLINGON �JSR�PDATA1 �LDX�#STILFT�REPORT�#�LEFT �JSR�PSTRNG �JSR�OUTKLN �BRA�ABC10 ABC8�CMPA�#1 �BNE�ABC11 �INC�HITSTR�HIT�STAR �LDX�#STARST ABC9�JSR�PDATA1�REPORT ABC10�JMP�COMAND ABC11�LDX�#BASEST�HIT�BASE �INC�HITBAS�REPORT �BRA�ABC9 �SPC�1 *�TORPEDO�OUT�OF�ENERGY �SPC�1 PHTOR4�LDX�#PNOENG �JSR�PSTRNG�REPORT �JMP�STCRS6 �SPC�1 - *�TEST�FOR�OUT�OF�BOUNDS �SPC�1 TSTBND�CLR�FINCX �CLR�FINCY �TSTA�TEST�X�POS. �BPL�TSTBN1 �DEC�FINCX �BRA�TSTBN2 TSTBN1�CMPA�#7 �BLS�TSTBN2 �INC�FINCX TSTBN2�TSTB�TEST�Y�POS �BPL�TSTBN3 �DEC�FINCY �RTS TSTBN3�CMPB�#7 �BLS�TSTBN4 �INC�FINCY TSTBN4�RTS �SPC�1 *�TORPEDO�TUBES�EMPTY �SPC�1 PTEMPT�LDX�#PTEMST�REPORT �JSR�PSTRNG �JMP�COMAND �SPC�1 *�INPUT�CHARACTER�AND�CHECK �SPC�1 INCHCK�CLRA INCHK0�STAA�PNTFLG �JSR�INCH�INPUT�CHAR. �CMPA�#'.�IS�IT�A�POINT? �BEQ�INCHK0 �CMPA�#$39�GREATER�THAN�9? �BHI�INCHK1 �CMPA�#$2F�LESS�THAN�0? �BLS�INCHK1 �SUBA�#$30�MASK�OFF�ASCII �RTS INCHK1�LDX�#ERR�REPORT�ERROR �JSR�PDATA1 �BRA�INCHCK �SPC�1 *�FIX�UP�TIME �SPC�1 FIXTIM�ADDA�TIMDEC�ADD�IN�DECIMAL �CMPA�#9�OVERFLOW? �BLS�FIXTM1 �SUBA�#10�SUBTRACT�TEN �STAA�TIMDEC�SAVE�DECIMAL �CLR�TEMP �LDAA�#1�ADD�IN�ONE �STAA�TEMP+1 �STX�XTEMP �LDX�#TIME0�ADD�TO�TIME �JSR�BCDADD �LDX�#TIMUSE�INC�TIME�USED �JSR�BCDADD �JSR�FIXDAM�GO�FIX�DAMAGE �LDX�XTEMP �RTS FIXTM1�STAA�TIMDEC �RTS�RETURN �SPC�1 *�FIX�UP�ENERGY �SPC�1 FIXENG�STX�XTEMP �LDX�#ENERGY�POINT�TO�ENERGY �CLR�TEMP �STAA�TEMP+1 �JSR�BCDSUB�GO�SUBTRACT �LDX�XTEMP �RTS�RETURN �SPC�1 *�BCD�ADDITION �SPC�1 BCDADD�CLC �BRA�BCDFIX �SPC�1 *�BCD�SUBTRACT �SPC�1 BCDSUB�LDAA�#$99�FIND�10'S�COMP. �SUBA�TEMP �STAA�TEMP �LDAA�#$99 �SUBA�TEMP+1 �STAA�TEMP+1 �SEC �SPC�1 *�BCD�FIX �SPC�1 BCDFIX�LDAA�1,X �ADCA�TEMP+1�ADD�L.S.�BYTE �DAA �STAA�1,X�SAVE�IT �LDAA�0,X �ADCA�TEMP �DAA �STAA�0,X�SAVE�IT �RTS�RETURN �SPC�1 *�LONG�RANGE�SCAN �SPC�1 LRSCAN�TST�DAMLRS�DAMAGED? �BEQ�LRSNDM �JMP�RPTDAM LRSNDM�CLR�TOPFLG�CLEAR�FLAGS �CLR�BOTFLG �CLR�LSDFLG �CLR�RSDFLG �LDX�#LRSCST�OUTPUT�QUADRANT �JSR�PSTRNG�BEING�SCANNED �JSR�OUTQUD �JSR�PCRLF �JSR�PCRLF �LDAA�CURQUX�ON�LEFT�SIDE? �BNE�LRSCN1 �INC�LSDFLG LRSCN1�CMPA�#7�RIGHT�SIDE? �BNE�LRSCN2 �INC�RSDFLG LRSCN2�LDAA�CURQUY �BNE�LRSCN3�TOP�OF�GALAXY? �INC�TOPFLG LRSCN3�CMPA�#7�BOTTOM? �BNE�LRSCN4 �INC�BOTFLG LRSCN4�LDX�QUDPTR�POINT�TO�QUAD. LRSCNC�LDAA�#$F7�FIND�UPPER�LEFT �JSR�FIXXRG �TST�TOPFLG �BEQ�LRSCN7 �BSR�OUTTH0 �BRA�LRSCN8 LRSCN7�BSR�OUTLIN�OUTPUT�1ST�LINE LRSCN8�LDAA�#5�FIX�X�REG �JSR�FIXXRG �BSR�OUTLIN�OUTPUT�2ND�LINE �LDAA�#5 �JSR�FIXXRG�FIX�X �TST�BOTFLG �BEQ�LRSCN9 �BSR�OUTTH0 �BRA�LRSC10 LRSCN9�BSR�OUTLIN�OUTPUT�3RD�LINE LRSC10�JMP�COMAND �SPC�1 *�OUTPUT�1�LINE�OF�LONG�RANGE�SCAN �SPC�1 OUTLIN�LDAA�0,X�GET�QUAD�INFO �TST�LSDFLG �BEQ�OUTLN1 �CLRA OUTLN1�BSR�OUTQIN�OUTPUT�QUAD�INFO �LDAA�0,X �BSR�OUTQIN�AGAIN �LDAA�0,X �TST�RSDFLG �BEQ�OUTLN2 �CLRA OUTLN2�BSR�OUTQIN�OUT�3RD�QUADRANT �JMP�PCRLF�OF�LINE �SPC�1 *�OUTPUT�QUADRANT�INFORMATION �SPC�1 OUTQIN�TAB �ANDA�#$80�SUPERNOVA? �CLC �ROLA �ROLA �JSR�OUTHR�IF�SO,�OUTPUT �TBA �ANDA�#$40�BASE? �LSRA �LSRA �JSR�OUTHL�IF�SO�OUTPUT �TBA �ANDA�#$38�STARS? �ASLA �JSR�OUTHL�OUTPUT�THEM �TBA �ANDA�#$07�KLINGONS? �JSR�OUTHR�OUTPUT �INX �JMP�OUTS�OUTPUT�SPACE �SPC�1 *�OUTPUT�A�LINE�OF�ZEROS �SPC�1 OUTTH0�LDAA�#3�SET�COUNTER �STAA�COUNT OUTTH1�CLRA �BSR�OUTQIN�OUTPUT�THEM �DEC�COUNT �BNE�OUTTH1 �JMP�PCRLF�OUTPUT�CR�&�LF �SPC�1 *�FIRE�PHASERS �SPC�1 PHASER�TST�DAMPHS�DAMAGED? �BEQ�PHSNDM �JMP�RPTDAM PHSNDM�TST�SHIELD�SHIELDS�DOWN? �BEQ�PHASR1 �LDX�#MLSHLD �BRA�TOOMC1 PHASR1�LDX�#ENAVLB�REPORT�ENERGY �JSR�PSTRNG �LDX�ENERGY �STX�TEMP �JSR�OUTBCD �LDX�#FIRENG�FIRE�PROMPT �JSR�PSTRNG �JSR�INBCD�GET�ENERGY �LDAA�PHSENG �CMPA�ENERGY �BHI�TOOMCH�TOO�MUCH? �BNE�PHASR2 �LDAA�PHSENG. +1 �CMPA�ENERGY+1 �BLS�PHASR2 TOOMCH�LDX�#TOMUCH�REPORT TOOMC1�JSR�PSTRNG �JMP�COMAND PHASR2�JSR�RANDOM�CHECK�IF�MISFIRE �CMPA�#$F4 �BLS�PHASR3 �LDX�#PHAMIS‚REPORT�IF�SO �JSR�PSTRNG �BRA�PHASR6 PHASR3�LDAA�PHSENG�FIRE�ENOUGH? �CMPA�KLNENG �BHI�PHASR4 �BNE�PHASR5 �LDAA�PHSENG+1 �CMPA�KLNENG+1 �BLS�PHASR5 PHASR4�CLR�KLNENG�CLEAR�K�ENERGY �CLR�KLNENG+1 �LDX�#ALKILL�REPORT�ALL�KILLED �JSR�PSTRNG �LDX�#STILFT�REPORT�#�LEFT �JSR�PSTRNG �LDAB�SECKLN �STAB�HITKLS �LDAA�KLNGCT�DEC�KLING�CNT �SBA �STAA�KLNGCT �JSR�OUTKLN �CLR�SECKLN KILALK�LDX�#SECMAP�REMOVE�K'S�FROM�Q �LDAA�#16 �STAA�COUNT�SETUP�COUNT KILAL1�LDAB�#4 �LDAA�0,X�FIND�ALL�KLINGONS KILAL2�RORA �BCS�KILAL4 �RORA �BCC�KILAL3 �CLC�CLEAR�OUT KILAL3�DECB �BNE�KILAL2 �RORA �STAA�0,X �INX �DEC�COUNT�IF�NOT�DONE�RPT �BNE�KILAL1 �BRA�PHASR6 KILAL4�RORA �BRA�KILAL3 PHASR5�LDX�PHSENG �STX�TEMP �LDX�#KLNENG�SUB�[�ENERGY �JSR�BCDSUB �LDX�#KHTADM�REPORT�DAMAGED �JSR�PSTRNG PHASR6�LDX�PHSENG �STX�TEMP �LDX�#ENERGY �JSR�BCDSUB �JMP�COMAND �SPC�1 *�INPUT�A�BCD�NUMBER �SPC�1 INBCD�CLR�PHSENG �CLR�PHSENG+1 INBCD1�JSR�INCH�INPUT�NUMBER �CMPA�#$2F �BLS�EXIT �BSR�CHECK�IS�IT�VALID? �TST�FLAGC �BNE�INEROR �LDAB�#4�SET�COUNTER INBCD2�ASL�PHSENG+1 �ROL�PHSENG �DECB �BNE�INBCD2 �ADDA�PHSENG+1�ADD�IN�NUMBER �STAA�PHSENG+1 �BRA�INBCD1 INEROR�LDX�#ERR �JSR�PDATA1�REPORT�ERROR �BRA�INBCD1 EXIT�RTS CHECK�CLR�FLAGC�CLEAR�FLAG �CMPA�#$39 �BHI�SETFLG �ANDA�#$0F�MASK�OFF �RTS�RETURN SETFLG�INC�FLAGC�INC�FLAG �RTS �SPC�1 *�SELF�DESTRUCT �SPC�1 SELFDE�LDX�#INTRO0�ASK�FOR�PASSWORD �JSR�PSTRNG �LDX�#PASWRD �LDAB�#3 SELFD1�JSR�INCH�INPUT�WORD �CMPA�0,X �BNE�SELFD2 �INX �DECB �BNE�SELFD1�IF�NOT�=,�JUMP�AHEAD SELFDA�LDX�#DISINT�DISINTEGRATE �JSR�PSTRNG �JMP�ENDGAM SELFD2�LDX�#ABORT�ABORT�SEQUENCE �JSR�PSTRNG �JMP�COMAND �SPC�1 *‚TELEPORTER �SPC�1 TELEPT�LDAA�#$12�12�YEARS�USED? �CMPA�TIMUSE+1 �BHI�TELEP2 �TST�TELFLG �BNE�TELEP4 �JSR�RANDOM�MAYBE�DAMAGE �CMPA�#$B0 �BLS�TELEP1 �INC�TELFLG TELEP1�JSR�RANDOM�MALFUNCTION? �CMPA�#$B0 �BHI�TELEP5�IF�NOT,�PUT� �LDAA�BASEX�ENTERPRISE�IN �STAA�CURQUX�QUADRANT�WITH�BASE �LDAA�BASEY �STAA�CURQUY TELEPA�JMP�STCRSA TELEP2�LDX�#CANTUS�TOO�EARLY TELEP3�JSR�PSTRNG �JMP�COMAND TELEP4�LDX�#DMGDST�DAMAGED �BRA�TELEP3 TELEP5�JSR�RANDOM�MALFUNCTION! �ANDA�#7�GENERATE�RANDOM �STAA�CURQUX�QUADRANT �JSR�RANDOM �ANDA�#7 �STAA�CURQUY �LDX�#SOMWHR�REPORT �JSR�PSTRNG �BRA�TELEPA �SPC�1 *‚KLINGONS�ATTACK �SPC�1 ATTACK�TST�SECKLN�ANY�KLINGONS? �BNE�ATTAC1�IF�NOT,�RETURN �RTS ATTAC1�JSR�RANDOM�MAYBE�WON'T �CMPA�#$B0 �BHI�ATTAC2 �LDX�#ATKENG�GET�K�ATTACK�ENERGY �LDAB�SECKLN �ASLB �JSR�CSCEXT�FIND�TOTAL�ENERGY �LDX�ATKENG �STX�TEMP �TST�SHIELD�SHIELDS�UP? �BNE�ATTAC3 �LDX�#ENERGY�IF�NOT,�MUST �JSR�BCDSUB�SUB�INTERNAL�ENERGY �JSR�PCRLF �JSR�PCRLF �LDX�ATKENG �STX�TEMP �JSR�OUTBCD �LDX�#KATKDN�REPORT�ATTACK �JSR�PDATA1 �LDAB�#$FA�GO�MAKE�DAMAGE �JSR�MANDAM ATTAC2�RTS ATTAC3�LDX�#SHENGY�SUB�ATTACK �JSR�BCDSUB�FROM�SHIELDS �LDX�#KATKUP�REPORT �JMP�PSTRNG �SPC�1 *‚END�OF�GAME�CLEANUP �SPC�1 NRGOUT�LDX�#NMENGS�OUT�OF�ENERGY NRGOU1�JSR�PSTRNG �BRA�ENDGAM NOMTIM�LDX�#NMTMST�OUT�OF�TIME �BRA�NRGOU1 NOMKLN�LDX�#NMKLST�ALL�KLINGONS�GONE! �JSR�PSTRNG �BRA�ENDGM2 ENDGAM�LDX�#FAILST�OUTPUT�FAILURE �JSR�PSTRNG �BRA�ENDGM3 ENDGM2�LDX�#SUCCST�OUTPUT�SUCCESS �JSR�PSTRNG ENDGM3�LDX�#PLAYAG�PLAY�AGAIN?? �JSR�PSTRNG �JSR�INCH�GET�RESPONSE �CMPA�#'N �BEQ�ENDGM4/  �JMP�SPAVOY ENDGM4�JMP�MONTOR�RETURN�TO�MONITOR �SPC�1 *‚CLEAR�OUT�CURRENT�QUADRANT �SPC�1 CLRCQU�LDX�QUDPTR�POINT�TO�QUADRANT �LDAA�0,X �SUBA�HITKLS�CLEAR�KLINGONS �LDAB�HITSTR�CLEAR�STARS �ASLB �ASLB �ASLB �SBA �TST�HITBAS�CLEAR�BASE �BEQ�CLRCQ2 �ANDA�#$BF �LDAB�#$A �STAB�BASEX �STAB�BASEY �CLR�CNDFLG CLRCQ2�STAA�0,X �CLRA�CLEAR�ALL�FLAGS �STAA�HITKLS �STAA�HITSTR �STAA�HITBAS �RTS�RETURN �SPC�1 *‚FIX�DAMAGES �SPC�1 FIXDAM�LDX�#DAMENG�POINT�TO�DAMAGE �LDAB�#6�SET�COUNTER FIXDM1�TST�0,X �BEQ�FIXDM2 �DEC�0,X FIXDM2�INX�LOOP�UNTIL�DONE �DECB �BNE�FIXDM1 �RTS �SPC�1 *‚SUPERNOVA�GENERATOR �SPC�1 SUPNOV�JSR�RANDOM�GET�RANDOM�COORD. �ANDA�#7 �TAB �JSR�RANDOM �ANDA�#7 �STAB�TSAVE1�SAVE �LDX�#QUDMAP�POINT�TO�MAP �INC�STPSFL �JSR�STPSEX �LDAB�0,X �ANDB�#7�CLEAR�ANY�KLINGONS �LDAA�KLNGCT �SBA �STAA�KLNGCT �LDAA�#$80�CLEAR�OUT�REST �STAA�0,X �LDX�#SUPSTR �JSR�PSTRNG�REPORT�SUPNOV �LDAA�ASAVE �JSR�FIXOUT�OUTPUT�ITS�LOCATION �JSR�OUTDSH �LDAA�TSAVE1 �JSR�FIXOUT �JMP�COMAND �SPC�1 *‚GENERATE�MAIN�DAMAGE �SPC�1 MANDAM�LDX�#DAMENG�POINT�TO�DAMAGE MANDM1�JSR�RANDOM �CBA�CHECK�IF�DAMAGE �BLS�MANDM2 �JSR�RANDOM�SET�RANDOM�YEARS �ANDA�#3 �SEC �ADCA�0,X�ADD�IN�DAMAGE �STAA�0,X MANDM2�INX �CPX�#SUPFLG �BNE�MANDM1�LOOP�UNTIL�DONE �TST�DAMSHL �BEQ�MANDM3�LOWER�SHIELDS �CLR�SHIELD�IF�DAMAGED MANDM3�RTS �SPC�1 *‚REPORT�DAMAGE �SPC�1 RPTDAM�LDX�#DMGDST�OUTPUT�DAMAGE �JSR�PSTRNG RPTDM8�JMP�COMAND �SPC�1 *‚DAMAGE�REPORT �SPC�1 DAMRPT�LDX�#DMRPST�POINT�TO�DAMAGE �JSR�PSTRNG �LDX�#DEVSTR�POINT�TO�DEVICE �STX�TEMP2 �LDX�#DAMENG DMRPT2�TST�0,X�SEE�IF�DAMAGED �BEQ�BMPX4 �STX�TEMP3 �LDX�TEMP2 �JSR�PSTRNG�IF�IT�IS,�REPORT �INX �STX�TEMP2 �LDX�TEMP3 �LDAB�#6�SETUP�SPACE�COUNT OUTS4�JSR�OUTS�OUTPUT�SPACE �DECB �BNE�OUTS4�IF�NOT�6,�REPEAT �LDAA�0,X �JSR�OUTK0�OUTPUT�STATUS DMRPT4�INX �CPX�#SUPFLG�LOOP�UNTIL�DONE �BNE�DMRPT2 �BRA�RPTDM8 BMPX4�STX�TEMP3�SAVE�INDEX �LDX�TEMP2 �LDAB�#$9�BUMP�9�TIMES INX9�DECB �INX �BNE�INX9 �STX�TEMP2 �LDX�TEMP3�RESTORE�INDEX �BRA�DMRPT4 �PAGE *‚STRINGS �SPC�1 TITLE�FCB�$A �FCC�'SPACE�VOYAGE�V3.2' �FCB�4 SHTLNG�FCB�$A �FCC�'S�OR�L?�' �FCB�4 UPSCAS�FCC�'�UP' �FCB�4 BASINF�FCB�$A �FCC�'BASE�IN�Q' �FCB�4 DOCKED�FCC�'DOCKED' �FCB�4 DNSCAS�FCC�'�DN' �FCB�4 PTEMST�FCC�'TUBES�EMPTY' �FCB�4 INTRO1�FCB�$A,$A �FCC�'DATE:�' �FCB�4 INTRO2�FCC�'KLINGONS:�' �FCB�4 INTRO3�FCC�'YEARS:�' �FCB�4 INTRO4�FCC�'QUADRANT:�' �FCB�4 INTRO6�FCC�'SECTOR:�' �FCB�4 COMST�FCB�$A �FCC�'COMMAND:�' �FCB�4 DWNST�FCC�'SHIELDS�DOWN!' �FCB�4 UPSTR�FCC�'SHIELDS�UP' �FCB�4 CRSSTR�FCC�'COURSE:�' �FCB�4 WRPSTR�FCC�'WARP�FACTOR:�' �FCB�4 BLOKST�FCC�'BLOCKED�AT�S' �FCB�4 KRMSTR�FCC�'RAMMED�KLINGON�AT�S' �FCB�4 GLBNDS�FCC�'GALAXY�LIMIT' �FCB�4 PHITST�FCC�'TORPEDO�HIT�' �FCB�4 PNOENG�FCC�'OUT�OF�ENERGY' �FCB�4 SDATE�FCC�'‚S.DATE:�' �FCB�4 CNDTNS�FCC�'‚CNDTN:�' �FCB�4 YELLOW�FCC�'YELLOW' �FCB�4 RED�FCC�'RED' �FCB�4 GREEN�FCC�'GREEN' �FCB�4 QUADP�FCC�'‚QUDRNT:�' �FCB�4 SECP�FCC�'‚SECTOR:�' �FCB�4 ENGSTR�FCC�'‚ENERGY:�' �FCB�4 KLSTR�FCC�'‚KLINGONS:�' �FCB�4 SHSTR�FCC�'‚SHLDS:�' �FCB�4 TRPSTR�FCC�'‚TORPEDO:�' �FCB�4 CRLFST�FCB�$D,$A,0,0,0,0,4 LRSCST�FCB�$A �FCC�'SCAN�FOR�Q' �FCB�4 MLSHLD�FCC�'MUST�LOWER�SHIELDS' �FCB�4 ENAVLB�FCC�'ENERGY�AVAILABLE:�' �FCB�4 FIRENG�FCC�'ENERGY�=�' �FCB�4 TOMUCH�FCC�'ENERGY�TOO�LOW' �FCB�4 PHAMIS�FCC�'MISFIRE!' �FCB�4 ALKILL�FCC�'ALL�LOCAL�KLINGONS�DESTROYED!' �FCB�4 KHTADM�FCC�'ENEMY�DAMAGE0 D' �FCB�4 ERR�FCC�'�?�' �FCB�4 STARST�FCC�'STAR' �FCB�4 BASEST�FCC�'BASE' �FCB�4 KLGSTR�FCC�'KLINGON' �FCB�4 INTRO0�FCB�$A �FCC�'PASSWORD..�' �FCB�4 STILFT�FCC�'KLINGONS�LEFT�=�' �FCB�4 KATKDN�FCC�'�UNITS�HIT�ENTERPRISE' �FCB�4 KATKUP�FCB�$A �FCC�'KLINGONS�ATTACK:�SHIELDS�HOLDING' �FCB�4 DISINT�FCC�'ENTERPRISE�DISINTEGRATES' �FCB�4 ABORT�FCC�'SEQUENCE�ABORT:�PASSWORD' �FCB�4 CANTUS�FCC�'TOO�EARLY!' �FCB�4 SOMWHR�FCC�'MALFUNCTION!' �FCB�4 SPSTRM�FCB�$A,7 �FCC�'SPACE�STORM:�SHIELDS�DAMAGED!' �FCB�4 GALDUM�FCB�$A,7 �FCC�'SHIP�IS�FRIED�FOR�3RD�ATTEMPT!' �FCB�4 NMENGS�FCB�7 �FCC�'ENERGY�=�0' �FCB�4 NMTMST�FCB�7 �FCC�'TIME�UP!' �FCB�4 NMKLST�FCB�$A,7 �FCC�'CONGRATULATIONS!' �FCB�$D,$A,0,0,0,0 �FCC�'ALL�KLINGONS�DESTROYED' �FCB�4 FAILST�FCC�'MISSION�A�FAILURE' �FCB�4 SUCCST�FCC�'THE�FEDERATION�IS�SAVED!' �FCB�4 SUPDES�FCC�'SUPERNOVA!' �FCB�4 SUPSTR�FCB�$A,7 �FCC�'SUPERNOVA�IN�Q' �FCB�4 HEVDAM�FCC�'BADLY�' DMGDST�FCC�'DAMAGED' �FCB�4 DMRPST�FCB�$A �FCC�'DEVICE/YEARS�TO�REPAIR' �FCB�4 DEVSTR�FCC�'ENGINES�' �FCB�4 �FCC�'SR�SCAN�' �FCB�4 �FCC�'LR�SCAN�' �FCB�4 �FCC�'PHASERS�' �FCB�4 �FCC�'TORPEDOS' �FCB�4 �FCC�'SHIELDS�' �FCB�4 PLAYAG�FCB�$A �FCC�'PLAY�AGAIN?�' �FCB�4 �PAGE *‚RANDOM�NUMBER�ROUTINE �SPC�1 RANDOM�STAB�BSAVE�SAVE�THE�B�ACCUMULATOR �LDAB�#8�SET�COUNTER RPT�LDAA�RNDM+3�GET�M.S.�BYTE�OF�RANDOM�NUMBER �ASLA�SHIFT�LEFT�THREE�TIMES �ASLA�TO�GET�BIT�28 �ASLA�IN�LINE�WITH�BIT�31 �EORA�RNDM+3�XOR�A�WITH�RANDOM�NUMBER �ASLA�PUT�BIT�28.XOR.31�IN �ASLA�CARRY�BY�SHIFTING�LEFT �ROL�RNDM�ROTATE�ALL�FOUR�BYTES�OF �ROL�RNDM+1�THE�RANDOM�#,�ROTATING �ROL�RNDM+2�THE�CARRY�INTO�THE�LSB �ROL�RNDM+3�THE�MSB�IS�LOST �DECB�DECRIMENT�THE�COUNTER �BNE�RPT�IF�ITS�NOT�0,�REPEAT �LDAB�BSAVE�RESTORE�THE�B�ACCUMULATOR �LDAA�RNDM�PUT�RANDOM�#�IN�A �RTS �SPC�1 *‚TEMPORARY�STORAGE�AREA �SPC�1 BSAVE�RMB�1 RNDM�RMB�4 �END å5<€50005�REM�BLACKJACK�GAME�WITH�CHANCE�FOR�PRIZE 0010�DIM�C(52),V$(10) 0020�PRINT�CHR$(26) 0050�PRINT�"WELCOME�TO�JIM�CARLSON'S�HONEST�BLACKJACK�GAME!!!" 0060�PRINT�"YOU�HAVE�$1000�AND�MAY�PLAY�20�HANDS�TO�TRY�FOR�A�CHANCE�" 0070�PRINT�"IN�OUR�DRAWING.�THE�BET�LIMIT�IS�$500�." 0071�PRINT�"NORMAL�LAS�VEGAS�RULES�APPLY." 0072�PRINT�"‚" 0080�PRINT�"…PLEASE�ENTER�YOUR�NAME.…GOOD�LUCK!" 0090�INPUT�N$ 0091�PRINT�"DO�YOU�WANT�INSTRUCTIONS,�";N$; 0092�INPUT�I$ 0093�PRINT�CHR$(26) 0094‚I$=MID$(I$,1,1) 0095�IF�I$="Y"�THEN�3310 0100‚C=1000 0101‚H1=0 0110�FOR�K=0�TO�3 0120�FOR�J=1�TO�10 0130‚C(J+10*K)=J 0140�NEXT�J 0150�NEXT�K 0160�FOR�J=41�TO�52 0170‚C(J)=10 0180�NEXT�J 0190‚V$(1)="�A" 0200‚V$(2)="�2" 0210‚V$(3)="�3" 0220‚V$(4)="�4" 0230‚V$(5)="�5" 0240‚V$(6)="�6" 0250‚V$(7)="�7" 0260‚V$(8)="�8" 0270‚V$(9)="�9" 0280‚V$(10)="�10" 0290‚L=40 0300�IF�L<40�THEN�420 0305�PRINT�"SHUFFLE�IN�PROGRESS." 0310�FOR�J=1�TO�52 0320‚Z=C(J) 0330‚K=INT(52*RND(0)+1) 0360‚C(J)=C(K) 0370‚C(K)=Z 0380�NEXT�J 0390‚L=1 0400�PRINT�"NEW�DECK" 0410�PRINT�"‚" 0415�PRINT�"YOUR�CARDSŒDEALER�CARDS" 0420‚T=0 0430‚T1=0 0440‚S=0 0450‚S1=0 0455‚H1=H1+1 0460�IF�C<=0�THEN�3620 0465�INP1 UT�"WHAT�IS�YOUR�BET",B 0480�IF�B>500�THEN�500 0485�IF�B<=0�THEN�3610 0490�IF�B>C�THEN�530 0495�GOTO�550 0500�PRINT�"THE�BET�LIMIT�IS�$500�DUMMY!" 0510‚B=500 0515�GOTO�550 0530�PRINT�"SORRY,�YOU�DON'T�HAVE�THAT�MUCH." 0540�GOTO�460 0550‚B1=B 0552‚B2=0 0555�GOSUB�2940 0560�GOSUB�3090 0570�PRINT�"“";V$(C(L-1)) 0580�GOSUB�2940 0590�GOSUB�3090 0600‚H=C(L-1) 0610�IF�C(L-3)=1�THEN�2820 0620�IF�T=21�THEN�1880 0630�IF�T1=21�THEN�1960 0640�INPUT�D$ 0645‚D$=MID$(D$,1,1) 0650�IF�D$="G"�THEN�1360 0660�IF�D$="D"�THEN�1330 0670�IF�D$="H"�THEN�1410 0680�IF�D$="S"�THEN�710 0690�PRINT�"„RETYPE" 0700�GOTO�640 0710�IF�C(L-2)<>C(L-4)�THEN�690 0720�PRINT�"FIRST�HAND" 0730‚B1=B 0740�PRINT�V$(C(L-2)); 0750‚X=C(L-2) 0760‚T1=X 0770�GOSUB�2940 0780�IF�X<>1�THEN�810 0790‚T1=T1+10 0800�GOTO�1020 0810�INPUT�E$ 0815‚E$=MID$(E$,1,1) 0820�IF�E$="G"�THEN�1020 0830�IF�E$="D"�THEN�990 0840�IF�E$="H"�THEN�870 0850�PRINT�"„RETYPE" 0860�GOTO�810 0870�GOSUB�2940 0880�IF�T1>0�THEN�940 0890‚X1=0 0900‚C=C-B1 0910‚B1=0 0920�PRINT�"BUST" 0930�GOTO�1050 0940�INPUT�E$ 0945‚E$=MID$(E$,1,1) 0950�IF�E$="G"�THEN�1020 0960�IF�E$="H"�THEN�870 0970�PRINT�"RETYPE" 0980�GOTO�940 0990‚B1=2*B 1000�GOSUB�2940 1010�IF�T1=0�THEN�890 1020�PRINT�"‚" 1030�PRINT�"TOTAL=";T1 1040‚X1=T1 1050�PRINT�"‚SECOND�HAND" 1060‚B2=B 1070�PRINT�V$(X); 1080‚T1=X 1090�GOSUB�2940 1100�IF�X<>1�THEN�1130 1110‚T1=T1+10 1120�GOTO�1360 1130�INPUT�E$ 1135‚E$=MID$(E$,1,1) 1140�IF�E$="G"�THEN�1360 1150�IF�E$="D"�THEN�1340 1160�IF�E$="H"�THEN�1190 1170�PRINT�"‚RETYPE" 1180�GOTO�1130 1190�GOSUB�2940 1200�IF�T1>0�THEN�1280 1210‚X2=0 1220‚C=C-B2 1230‚B2=0 1240�PRINT�"�BUST" 1250�IF�X1>0�THEN�1560 1260�PRINT�"•";V$(H) 1270�GOTO�1660 1280�INPUT�E$ 1285‚E$=MID$(E$,1,1) 1290�IF�E$="G"�THEN�1360 1300�IF�E$="H"�THEN�1190 1310�PRINT�"‚RETYPE" 1320�GOTO�1280 1330‚B2=B 1340�GOSUB�2940 1350�IF�T1=0�THEN�1210 1360�PRINT�"�" 1370�PRINT�"TOTAL=";T1 1380‚B=B1+B2 1390‚X2=T1 1400�GOTO�1560 1410�GOSUB�2940 1420�IF�T1>0�THEN�1460 1430�PRINT�"BUST" 1440�PRINT�"•";V$(H) 1450�GOTO�1750 1460�INPUT�D$ 1465‚D$=MID$(D$,1,1) 1470�IF�D$="G"�THEN�1540 1480�IF�D$="H"�THEN�1410 1490�PRINT�"‚RETYPE" 1500�GOTO�1460 1510‚B=2*B 1520�GOSUB�2940 1530�IF�T1=0�THEN�1430 1540�PRINT�"�" 1550�PRINT�"TOTAL=";T1 1560�PRINT�"•";V$(H) 1570�GOTO�1600 1580�GOSUB�3090 1590�PRINT�"•";V$(C(L-1)) 1600�IF�T<17�THEN�1580 1610�IF�T>21�THEN�1640 1620�PRINT�"�TOTAL=";T 1630�GOTO�1720 1640�PRINT�"�BUST" 1650‚C=C+B 1660�PRINT�"YOU�NOW�HAVE�$";C 1670�IF�H1>20�THEN�3600 1680�GOTO�300 1720�IF�D$="S"�THEN�1770 1730�IF�T1>T�THEN�1650 1740�IF�T1=T�THEN�1660 1750‚B=-B 1760�GOTO�1650 1770�IF�T>X1�THEN�1860 1780�IF�T=X1�THEN�1800 1790‚C=C+B1 1800�IF�T>X2�THEN�1840 1810�IF�T=X2�THEN�1660 1820‚C=C+B2 1830�GOTO�1660 1840‚C=C-B2 1850�GOTO�1660 1860‚C=C-B1 1870�GOTO�1800 1880�IF�T1=21�THEN�1930 1890‚C=C-B 1900�PRINT�"•";V$(H) 1910�PRINT�"ƒBLACKJACK�!!!" 1920�GOTO�1660 1930�PRINT�"ƒBLACKJACK�!!!" 1940�PRINT�"�" 1950�GOTO�1900 1960�PRINT�"ƒBLACKJACK�!!!" 1970�PRINT�"•";V$(H) 1980�PRINT�"�" 1990‚C=C+1.5*B 2000�GOTO�1660 2820�PRINT�"ƒINSURANCE?" 2830�INPUT�I$ 2835‚I$=MID$(I$,1,1) 2840�IF�I$="Y"�THEN�2870 2850�PRINT 2860�GOTO�620 2870�IF�T=21�THEN�2900 2880‚C=C-B/2 2890�GOTO�2850 2900�PRINT�"–10" 2910�IF�T1<>21�THEN�1910 2920‚C=C+B 2930�GOTO�1910 2940�IF�T1>10�THEN�2980 2950�IF�C(L)<>1�THEN�2980 2960‚T1=T1+10 2970‚S1=1 2980‚T1=T1+C(L)2  2990�PRINT�V$(C(L)); 3000‚L=L+1 3010�IF�T1<=21�THEN�3080 3020�IF�S1=0�THEN�3060 3030‚T1=T1-10 3040‚S1=0 3050�GOTO�3080 3060‚T1=0 3070�PRINT 3080�RETURN 3090�IF�T>10�THEN�3130 3100�IF�C(L)<>1�THEN�3130 3110‚T=T+10 3120‚S=1 3130‚T=T+C(L) 3140‚L=L+1 3150�IF�T<=21�THEN�3190 3160�IF�S=0�THEN�3190 3170‚T=T-10 3180‚S=0 3190�RETURN 3310�PRINT�"THIS�BLACKJACK�PROGRAM�ENABLES�THE�OPERATOR�TO�PLAY�HEAD-" 3320�PRINT�"TO-HEAD�WITH�THE�COMPUTER,�SIMULATING�THE�EXACT�RULES�AS" 3330�PRINT�"THOSE�ON�THE�LAS�VEGAS�STRIP.�THE�CARD�ARE�DEALT�FROM�A�" 3340�PRINT�"52-CARD�DECK�UNTIL�A�HAND�STARTS�WITH�LESS�THAN�12�CARDS" 3350�PRINT�"REMAINING,�IN�WHICH�CASE�IT�RESHUFFLES.‚THE�DEALER�MUST�HIT" 3360�PRINT�"THROUGH�A�TOTAL�OF�16�AND�STAND�ON�ALL�"; 3365�PRINT�"TOTALS�OF�17�AND�ABOVE" 3370�PRINT�"�" 3371�PRINT�"THE�INSURANCE�BET�IS�OFFERED�AT�HALF�THE�" 3375�PRINT�"PLAYERS�BET�WHEN�"; 3380�PRINT�"THE�DEALER'S�UP-CARD�IS�AN�ACE." 3390�PRINT�"YOU�MAY,�DOUBLE-DOWN�ON�ANY�TWO�CARDS,�AND�RECEIVE�ONE�MORE" 3395�PRINT�"CARD�WHILE�THE�ORIGINAL�BET�IS�DOUBLED." 3400�PRINT�"YOU�MAY�SPLIT�ANY�HAND�BUT�RESPLITTING�IS�NOT�ALLOWED." 3410�PRINT�"ALSO,�ONLY�ONE�CARD�IS�DEALT�ON�EACH�PAIR�OF�ACES." 3415�PRINT�"YOUR�CARDS�APPEAR�IN�THE�FAR�LEFT�COLUMN;�THE�DEALER�ON" 3420�PRINT�"THE�FAR�RIGHT." 3421�INPUT�"TYPE�THE�CARRIAGE�RETURN�FOR�THE�LIST�OF�COMMANDS",Z$ 3422�PRINT�CHR$(26) 3430�PRINT�"�THE�COMMANDS�ARE�AS�FOLLOWS:" 3440�PRINT�"„HIT�(DRAW�ANOTHER�CARD)" 3450�PRINT�"„GOOD�(STAND�ON�CURRENT�TOTAL)" 3460�PRINT�"„DOUBLE�(DOUBLE�YOUR�BET�AND�DRAW�ONE�CARD)" 3470�PRINT�"„SPLIT�(FORM�TWO�HANDS�FROM�A�PAIR�WITH�THE�ORIGINAL" 3480�PRINT�"‹BET�ON�EACH�HAND." 3490�PRINT�"�" 3491�PRINT�"COMMANDS�MUST�BE�TYPED�IN�AS�THE�FIRST�LETTER!!!" 3495�PRINT�"GOOD�LUCK" 3500�GOTO�100 3600�PRINT�"YOU�ARE�ALLOWED�ONLY�20�HANDS,",N$ 3610�IF�C>�1500�THEN�3700 3620�PRINT�"I'M�VERY�SORRY,�",N$ 3625�PRINT�"BUT�YOU�DID�NOT�WIN�A�CHANCE�AT�OUR�DRAWING." 3630�IF�C>100�THEN�3650 3640�PRINT�"MY�ADVICE�WOULD�BE�TO�STAY�CLEAR�OF�LAS�VEGAS!" 3645�PRINT�"YOU�REALLY�STINK!!!" 3650�PRINT�"PLEASE�LET�THE�NEXT�PERSON�PLAY." 3655�PRINT�"IF�YOU�HAVE�ANY�QUESTIONS,�SEE�JIM;�HE�KNOWS�ALL!!!" 3660�INPUT�"TYPE�CARRIAGE�RETURN�TO�CONTINUE",Z$ 3680�GOTO�20 3700�PRINT�"CONGRATULATIONS!!!ƒYOU�HAVE�JUST�WON�A�CHANCE�IN�OUR�"; 3701�PRINT�"DRAWING!!!" 3720�FOR�J=1�TO�20�STEP�2 3730�PRINT�TAB(J);N$;"�IS�A�WINNER!!!!!!!!" 3732�NEXT�J 3740�GOTO�20 3750�END !!!" 3720�FOR�J=1�TO�20�STEP�2 3730�PRINT�TAB(J);N$;"�IS�A�WINNER!!!!!!!!" 3732�NEXT�J 3740�GOTO�20 3750�END  J€0010�GOTO�600 0020�INPUT�"STARTING�BOOK�VALUE",B 0030�INPUT�"SALVAGE�VALUE",S 0040�INPUT�"LIFE",L 0050�LET�D=(B-S)/L 0060�PRINT 0070�DIGITS=�2 0080��F=ABS(INT(L)-L) 0090�RETURN 0100��D=(B-S)/L 0110�INPUT�"YEARS",Y 0120�IF�Y=0�THEN�RETURN 0130��T=Y*D 0140��R=(L-Y)*D 0150��Q=R+S 0160�GOSUB�180 0170�GOTO�100 0180�PRINT�"DEPRECIATION�";D 0190�PRINT�TAB(4);"REM�VAL�";Q 0200�PRINT�TAB(3);"REM�DEPR�";R 0210�PRINT 0220�PRINT�"TOT�DEPR�";T 0230�RETURN 0240��I=INT(L) 0250��X=((I+1)*(I+2*F))/2 0260�INPUT�"YEARS�",Y 0270�IF�Y=0�THEN�RETURN 0280��D=((L+1-Y)/X)*(B-S) 0290��T1=((I-Y+1)*(I-Y+2*F))/(2*X) 0300��T=(1-T1)*(B-S) 0310��R=T1*(B3 -S) 0320��Q=R+S 0330�GOSUB�180 0340�GOTO�260 0350�REM 0360�REM 0370�INPUT�"FACTOR",N 0380�INPUT�"YEARS",Y 0390�IF�Y=0�THEN�RETURN 0400�PRINT�TAB(8);"CALCULATING" 0410��X=N/L 0420��D=B*(1-X)^(Y-1)*X 0430��T=B*(1-((1-X)^Y)) 0440��R=(B-S)-T 0450��Q=R+S 0460�GOSUB�180 0470�GOTO�350 0600�REM 0610�REM 0620�GOSUB�1030 0630�PRINT�TAB(8);"************" 0640�PRINT�"‚DEPRECIATION�SCHEDULING�&�ANALYSIS" 0650�PRINT 0660�PRINT 0670�PRINT�"CHOOSE�OPERATION" 0680�PRINT 0690�PRINT 0700�PRINT�"„1.�STRAIGHT�LINE" 0710�PRINT�"„2.�SUM�OF�YRS�DIGITS" 0720�PRINT�"„3.�VAR�RATE�DECL�BAL" 0730�PRINT�"„4.�CALC�CROSSOVER�POINT" 0740�PRINT�"„5.�ENTER�DATA" 0750�INPUT�C 0760�GOSUB�1030 0770�ON�C�GOSUB�100,240,350,800,20 0780�GOSUB�1030 0790�GOTO�630 0800�REM 0810�REM 0820�INPUT�"FACTOR",N 0830��Y=0 0840��Y=Y+1 0850�PRINT�"CALCULATING.........." 0860��X=N/L 0870��X1=1-X 0880��G=(1-(X1^(Y-1)))/(X1-1) 0890��G=(G*B*X)+B-S 0900��P=G/(1+(L-Y)) 0910��O=(X1^(Y-1))*B*X 0920�IF�P0�THEN�GOTO�230 0110�LET�P=INT(P/2) 0115�PRINT�"A�HORRIBLE�PLAGUE�STRUCK!‚HALF�THE�PEOPLE�DIED." 0230�PRINT�"POPULATION�IS�NOW�";P 0232�PRINT�"THE�CITY�NOW�OWNS�";A;"�ACRES." 0235�PRINT�"YOU�HARVESTED�";Y;"�BUSHELS�PER�ACRE." 0250�PRINT�"RATS�ATE�";E;"�BUSHELS." 0260�PRINT�"YOU�NOW�HAVE�";S;"�BUSHELS�IN�STORE" 0265�PRINT 0270�IF�Z=11�THEN�GOTO�860 0310�LET�C=INT(RND*20) 0311�LET�Y=C+17 0312�PRINT�"LAND�IS�NOW�TRADING�AT�";Y;"�BUSHELS�PER�ACRE." 0320�PRINT�"HOW�MANY�ACRES�DO�YOU�WISH�TO�BUY"; 0321�INPUT�Q 0322�IF�Q<0�THEN�GOTO�850 0323�IF�Q<=INT(S/Y)�THEN�GOTO�330 0324�GOSUB�710 0325�GOTO�320 0330�IF�Q=0�THEN�GOTO�340 0331�LET�A=A+Q 0332�LET�S=S-Y*Q 0334�GOTO�354 0340�PRINT�"HOW�MANY�ACRES�DO�YOU�WISH�TO�SELL"; 0341�INPUT�Q 0342�IF�Q<0�THEN�GOTO�850 0343�IF�Q0�THEN�GOT�530 0525�LET�E=INT(S/C) 0530�LET�S=S-E+H 0531�GOSUB�800 0533�LET�I=INT((20*A+S)/P/100*C+1) 0540�LET�C=INT(Q/20) 0542�LET�Q=INT(RND*20) 0550�IF�PINT(P*45/100)�THEN�GOTO�560 0554�LET�R=INT(((Z-1)*B+D*100/P)/Z) 0555�LET�P=C 0556�LET�B=B+D 0557�GOTO�70 0560�PRINT�"YOU�HAVE�STARVED�";D;"�PEOPLE�IN�ONE�YEAR!!" 0565�PRINT�"DUE�TO�THIS�EXTREME�MISMANAGEMENT�YOU�HAVE�NOT�ONLY" 0566�PRINT�"BEEN�IMPEACHED�AND�THROWN�OUT�OF�OFFICE�BUT�YOU�HAVE" 0567�PRINT�"ALSO�BEEN�DECLARED�'NATIONAL�FINK'�!!" 0568�GOTO�990 0710�PRINT�"HAMURABI:‚THINK�AGAIN,�YOU�HAVE�ONLY" 0711�PRINT�"�";S;"�BUSHELS�OF�GRAIN.‚NOW�THEN," 0712�RETURN 0720�PRINT�"HAMURABI:‚THINK�AGAIN.�YOU�OWN�ONLY�";A; 0725�PRINT�"�ACRES.‚NOW�THEN," 0730�RETURN 0800�LET�C=INT(RND*10+1) 0801�RETURN 0850�PRINT 0851�PRINT�"HAMURABI:‚I�CANNOT�DO�WHAT�YOU�WISH." 0855�PRINT�"GET�YOURSELF�ANOTHER�STEWARD!!!!!" 0857�GOTO�990 0860�PRINT�"IN�YOUR�10-YEAR�TERM�OF�OFFICE,�";R;"�PERCENT�OF�THE" 0862�PRINT�"POPULATION�STARVED�PER�YEAR�ON�AVERAGE,�I.E.,�A�TOTAL�OF" 0865�PRINT�"�";B;"�PEOPLE�DIED!!" 0867�LET�L=INT(A/P) 0870�PRINT�"YOU�STARTED�WITH�10�ACRES�PER�PERSON�AND�ENDED�WITH" 0875�PRINT�"�";L;"�ACRES�PER�PERSON." 0877�PRINT 0880�IF�R>33�THEN�GOTO�565 0885�IF�L<7�THEN�GOTO�565 0890�IF�R>10�THEN�GOTO�940 0892�IF�L<9�THEN�GOTO�940 0895�IF�R>3�THEN�GOTO�960 0896�IF�L<10�THEN�GOTO�960 0900�PRINT�"A�FANTASTIC�PERFORMANCE!!!‚CHARLEMANGE,�DISRAELI,�AND" 0905�PRINT�"JEFFERSON�COMBINED�COULD�NOT�HAVE�DONE�BETTER!" 0907�GOTO�990 0940�PRINT�"YOUR�HEAVY-HANDED�PERFORMANCE�SMACKS�OF�NERO�"; 0942�PRINT�"AND�IVAN�IV." 0945�PRINT�"THE�PEOPLE�(REMAINING)�FIND�YOU�AN�UNPLEASANT"; 0947�PRINT�"�RULER,�AND," 0950�PRINT�"FRANKLY,�HATE�YOUR�GUTS!" 0955�GOTO�990 0960�PRINT�"YOUR�PERFORMANCE�COULD�HAVE�BEEN�SOMEWHAT�BETTER,�BUT" 0965�PRINT�"REALLY�WASN'T�TOO�BAD�AT�ALL.�";INT(RND*100+1)*P; 0966�PRINT�"�PEOPLE�WOULD" 0970�PRINT�"DEARLY�LIKE�TO�SEE�YOU�ASSINATED�BUT�WE�ALL�HAVE�OUR" 0975�PRINT�"TRIVIAL�PROBLEMS." 0990�PRINT 0995�PRINT�"SO�LONG�FOR�NOW" 0997�PRINT 0999�END ååW€0010�REM�ROCKT1 0070�PRINT�"LUNAR�LANDING�SIMULATION" 0080�PRINT�"-----�-------�----------" 0085�PRINT 0086�PRINT�"DO�YOU�WANT�INSTRUCTIONS?", 0100�INPUT�A$ 0120�IF�A$<>"YES"�THEN�390 0160�PRINT 0200�PRINT�"YOU�ARE�LANDING�ON�THE�MOON�AND�HAVE�TAKEN�OVER�MANUAL" 0210�PRINT�"CONTROL�500�FEET�ABOVE�THE�SURFACE.‚YOU�HAVE�A�DOWNWARD" 0220�PRINT�"VELOCITY�OF�50�FT/SEC�WITH�120�UNITS�OF�FUEL." 0230�PRINT 0240�PRINT�"YOU�WILL�RECEIVE�A�REPORT�EACH�SECOND.‚AFTER�THE�'?'" 0250�PRINT�"ENTER�THE�NUMBER�OF�UNITS�OF�FUEL�YOU�WISH�TO�BURN�DURING" 0260�PRINT�"THE�NEXT�SECOND.‚MAXIMUM�IS�30�UNITS�PER�SECOND." 0270�PRINT 0280�PRINT�"WHEN�YOU�CONTACT5 �THE�LUNAR�SURFACE,�YOUR�DESCENT�ENGINE" 0290�PRINT�"WILL�AUTOMATICALLY�CUT�OFF�AND�YOU�WILL�BE�GIVEN�A" 0300�PRINT�"REPORT�OF�YOUR�LANDING�SPEED�AND�REMAINING�FUEL." 0310�PRINT 0390�PRINT�"BEGINNING�OF�LANDING�PROCEDURE�........." 0410�PRINT�"�G�O�O�D‚L�U�C�K�!�!�!�!�!�!�" 0420�PRINT 0430�PRINT 0440�PRINT�"SEC‚FEETƒSPEED„FUEL†PLOT�OF�DISTANCE" 0450�PRINT 0455��T=0 0460��H=500 0465��V=50 0470��F=120 0490�PRINT�T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I"; 0495�PRINT�TAB(30+H/12);"*"; 0496�PRINT�TAB(72);"T="; 0500�INPUT�B 0510�IF�B<0�THEN�650 0520�IF�B>30�THEN�900 0530�IF�B>F�THEN�920 0540��V1=V-B+5 0560��F=F-B 0570��H=H-(V+V1)/2 0580�IF�H<=0�THEN�670 0585�IF�H>500�THEN�950 0590��T=T+1 0600��V=V1 0610�IF�F>0�THEN�490 0615�IF�B=0�THEN�640 0620�PRINT�"***�OUT�OF�FUEL�***" 0640�PRINT�T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I"; 0641�PRINT�TAB(30+H/12);"*" 0650��B=0 0660�GOTO�540 0670�PRINT�"***�CONTACT�***" 0760�PRINT�"ƒTOUCHDOWN�AT�";T;"�SECONDS!!!!!!!!" 0770�PRINT�"LANDING�VELOCITY�=";V1;"FT/SEC" 0780�PRINT�F;"UNITS�OF�FUEL�REMAINING" 0790�IF�ABS(V1)>1�THEN�805 0800�PRINT�"�CONGRATULATIONS!!�A�PERFECT�LANDING!!!!!" 0801�GOTO�850 0805�IF�ABS(V1)<5�THEN�840 0810�IF�ABS(V1)<10�THEN�842 0815�IF�ABS(V1)<15�THEN�845 0816�IF�ABS(V1)<20�THEN�970 0817�IF�ABS(V1)<25�THEN�980 0820�PRINT�"YOU�REALLY�BLEW�THAT�LANDING!!!" 0821�PRINT�"YOU'VE�JUST�CREATED�A�NEW�CRATER�";100*SIN(V1/180); 0822�PRINT�"FEET�DEEP!!!" 0825�GOTO�850 0840�PRINT�"NOT�A�BAD�LANDING,�BUT�YOU�NEED�SOME�PRACTICE!!!" 0841�GOTO�850 0842�PRINT�"WELL.....YOU�SURVIVED.‚I�HOPE�YOUR�ASCENT�ENGINE�WILL" 0843�PRINT�"STILL�WORK�WHEN�YOU�PREPARE�TO�LEAVE." 0844�GOTO�850 0845�PRINT�"PRETTY�SLOPPY.‚MISSION�CONTROL�HOPES�YOU�CAN�SURVIVE" 0846�PRINT�"UNTIL�A�RESCUE�SHIP�CAN�REACH�YOU.‚TILL�THEN�......" 0847�GOTO�850 0850�PRINT 0851�PRINT�"…TRY�ANOTHER�MISSION"; 0855�INPUT�A$ 0870�IF�A$<>"NO"�THEN�390 0885�PRINT�"CONTROL�OUT." 0886�GOTO�999 0900��B=30 0910�GOTO�530 0920��B=F 0930�GOTO�540 0950�PRINT�"YOU�ARE�NOW�LEAVING�THE�SOLAR�SYSTEM.‚STAY�IN�CONTACT." 0960�GOTO�850 0970�PRINT�"YOU�WERE�SUPPOSED�TO�LAND,�NOT�CRASH!!!!" 0975�GOTO�850 0980�PRINT�"WOW!!!�YOU�MUST�HAVE�DUG�SOME�CRATER!!!!" 0985�GOTO�850 0999�END ]€3�LINE=100 4�DIGITS=1 5�PRINT 7�PRINT�"�LUNAR�LANDER" 8�PRINT 400�LET�R=4 410�PRINT�"GOOD�LUCK" 420�PRINT 425�LET�H=167.3+RND*650 430�LET�V=H/5 435�LET�F=(H*4)/55*(R+13) 440�LET�T=0 445�PRINT�"SEC„ALT";TAB(14);"VEL";TAB(20);"FUEL" 450�PRINT�T;TAB(8);H; 451�LET�Q=V 452�IF�Q>=0�GOTO�456 453�LET�Q=Q*(-1) 454�PRINT�TAB(14);"-";Q;TAB(20);F; 455�GOTO�458 456�PRINT�TAB(13);V;TAB(20);F; 458�PRINT�TAB(26);"I";TAB(26+H/110);"+"; 459�IF�H<135�THEN�PRINT�TAB(27+H/3);">"; 460�PRINT 465�IF�F>0�GOTO�495 470�PRINT�"***�OUT�OF�FUEL�***" 475�LET�B=0 480�GOTO�515 495�PRINT�"BURN"; 500�INPUT�P 502�LET�B=P 504�IF�B<0�THEN�B=0 506�IF�B<=100�GOTO�515 508�LET�F=F-(B-100) 510�PRINT�"JETTISONING�";(B-100);"KILOS�FUEL�!!" 512�LET�B=B-(B-100) 515�LET�V=V*10 516�LET�Y=200 517�IF�H>300�GOTO�520 518�LET�H=H*10 519�LET�Y=20 520�FOR�I=1�TO�10 525�LET�A=(168-B*24-B*(6/((F/50)+1)))/100 530�LET�K=V+A 535�LET�H=H-(K+V)/6 Y 549�LET�V=K 550�LET�F=F-B/10 552�IF�F<0�THEN�F=0 555�IF�F=0�THEN�B=0 565�LET�T=T+.1 567�IF�H<.2�GOTO�602 570�NEXT�I 572�IF�Y=20�LET�H=H/10 575�LET�V=V/10 590�GOTO�450 602�LET�I=10 604�NEXT�I 608�PRINT 610�PRINT�"†*******" 612�PRINT�"******CONTACT******" 614�PRINT�"†*******" 620�PRINT 630�PRINT�"TOUCHDOWN�AT�";T;"�SECONDS" 640�PRINT�"LANDING�VELOCITY�=�";V/10;"�MTRS/SEC" 650�PRINT�"UNITS�OF�FUEL�REMAINING�=�";F 660�PRINT 675�IF�V>5�GOTO�700 680�PRINT�"CONGRATULATIONS�!!!!�A�PERFECT�LANDING" 690�PRINT 695�GOSUB�1000 697�GOTO�900 700�IF�V>10�GOTO�750 710�PRINT�"WELL,�YOU�BENT�IT,�BUT�YOU�WILL�PROBABLY�MAK�IT�BACK�HOME" 720�GOTO�900 750�IF�V>50�GOTO�800 760�PRINT�"YOU�BROKE�YOUR�NUMBER�THREE�LANDING�STRUT�AND�BENT" 765�PRINT�"YOUR�ROCKET�NOZZLE.‚HOUSTON�WILL�HAVE�TO�SEND�A�RESCUE" 767�PRINT�"CRAFT�AFTER�YOU.‚(HOPE�YOUR�OXYGEN�HOLDS�OUT!!)" 770�GOTO�900 800�PRINT�"CONGRATULATIONS!!!�YOU�HAVE�JUST�CREATED�A�NEW�LUNAR" 805�PRINT�"CRATER�";(13+RND*65);"�METERS�DEEP!!�YOUR�NEXT�OF�KIN�HAVE" 807�PRINT�"BEEN�NOTIFIED�THAT�IT�WILL�BE�NAMED�AFTER�YOU" 900�PRINT 910�PRINT 920�PRINT�"DO�YOU�WANT�TO�FLY�ANOTHER�MISSION" 930�PRINT�"1�=�YES;�2�=�NO"; 940�INPUT�X 950�IF�X=1�GOTO�410 960�IF�X<>2�GOTO�920 970�PRINT 980�PRINT�"MISSION�CONTROL�-�OUT�!!!" 990�PRINT 999�END 1000�REM 1010�IF�R=4�PRINT�"YOU�HAVE�NOW�EARNED�YOUR�'STUDENT�PILOT'�LICENSE" 1100�IF�R=3�PRINT�"YOU�ARE�NOW�A�RATED�'NOVICE�PILOT'" 1200�IF�R=2�PRINT�"YOU�HAVE�NOW�FINALLY�EARNED�YOUR�'MEDIOCRE'" 1210�IF�R=2�PRINT�"RATING.‚YOU�MAY�NOW�CARRY�PASSENGERS�AND�TRY" 1220�IF�R=2�PRINT�"TO�KILL�THEM�ALONG�WITH�YOURSELF!!" 1300�IF�R=1�PRINT�"WELL,�I�DIDN'T�THINK�YOU�COULD�DO�IT,�BUT�YOU�ARE" 1310�IF�R=1�PRINT�"NOW�A�'HOT�ROCK'�PILOT.‚THIS�QUALIFIES�YOU�TO�FLY" 1320�IF�R=1�PRINT�"THE�NEXT�LUNAR�LANDING�BY�NASA." 1400�IF�R=0�PRINT�"HEY!�YOU'RE�BETTER�THAN�ME.‚LET�SOMEBODY�ELSE�TRY." 1450�IF�R=0�END 1900�LET�R=R-1 2000�RETURN å c€0010�REM�THIS�IS�A�GAME�OF�RUSSIAN�ROULETTE 0012�PRINT�CHR$(26) 0013��Q�=�1E6 0020�PRINT�"HIT�THE�CARRIAGE�RETURN�WHEN�YOU'RE�READY�TO�TRY�YOUR�LUCK." 0030��A�=�INT(6*RND(0)) 0035�REM�WAIT�FOR�CARRIAGE�RETURN 0040�INPUT�A$ 0042�PRINT�CHR$(26) 0044�REM�TIME�DELAY�ONLY 0045��Z(1)�=�SIN(X)^SIN(X)^SIN(X)^SIN(X) 0050�IF�A�<>�3�THEN�100 0060�GOSUB�1000 0070�GOTO�110 0100�PRINT�CHR$(26) 0101�PRINT�TAB(10),"*�*�*�*�*�*�*�CLICK�*�*�*�*�*�*�*" 0102�FOR�N�=�1�TO�10 0103�PRINT 0104�NEXT�N 0110�PRINT�"WANT�TO�TRY�YOUR�LUCK�AGAIN"; 0120�INPUT�X$ 0121�PRINT 0130�IF�X$�=�"Y"�THEN�10 0140�IF�X$="N"�THEN�200 0150�PRINT�"WHAT???" 0151�PRINT 0160�GOTO�110 0200�PRINT�CHR$(26( 0201�PRINT�TAB(10),"YOU�BLOODY�COWARD!!!" 0202�FOR�N�=�1�TO�10 0203�PRINT 0204�NEXT�N 0210�END 1000�REM�CLEAR�SCREEN�AND�SHOOT 1010�PRINT�CHR$(26) 1020�PRINT�CHR$(7) 1030�PRINT�TAB(10),�"*�*�*�*�*�*�*�BANG,�YOU'RE�DEAD�*�*�*�*�*�*�*" 1050�FOR�N�=�1�TO�10 1060�PRINT 1070�NEXT�N 1080�RETURN å7 åå5f€60090�DIM�S(7,2) 0100�REM�INITIALIZE�VARIABLES 0110�FOR�I=1�TO�2 0120�FOR�J=1�TO�6 0130��S(J,I)=1 0140�NEXT�J 0145��S(5,I)=100 0150��S(7,I)=0 0160�NEXT�I 0165�INPUT�"DO�YOU�WANT�DIRECTIONS",A$ 0166�IF�A$="YES"�THEN�4070 0170�REM�GEN�RANGE�AND�BRNG 0180�PRINT�"ENTER�STARDATE"; 0190�INPUT�A 0200��R=20000*RND(A) 0220�GOSUB�3000 0222��B=18*N9/10 0230��I=1 0240�REM�ODD�MOVES�ENTERPRISE'S,�EVEN�KLINGON 0250�PRINT�"KLINGON�APPROACHING" 0260�PRINT 0261�PRINT 0262��R=INT(R) 0263��B=INT(B) 0264�PRINT�"RANGE=";R;"�KM.„BEARING�=";B;"�DEGREES" 0265�PRINT 0266�PRINT 0270�PRINT�"COMMAND"; 0280�INPUT�C 0285�IF�C>9�THEN�C=9 0290�ON�C�GOSUB�4000,4010,4020,4030,4040,4050,4060,5000,5020 0300��I=1 0310��J=2 0320��H=0 0330�ON�C�GOSUB�790,920,1040,1140,1180,1250,1310,5050,5070 0340�GOTO�1360 0350�REM�KLINGON�MOVE�SELECTION 0360��I=2 0370�REM�CHECK�KLINGON�PHASOR�STATUS 0380��W=S(1,I)+S(2,I) 0390��J=1 0400�IF�S(3,I)=1�THEN�405 0401�GOTO�410 0405�IF�R>10000�THEN�407 0406�GOTO�410 0407�IF�B<100�THEN�710 0410�IF�W>0�THEN�412 0411�GOTO�420 0412�IF�R<20000�THEN�540 0420�IF�W�<>0�THEN�480 0430�REM�ATTEMPT�TO�BREAK�CONTACT 0440�PRINT�"KLINGON�ATTEMPTS�TO�BREAK�CONTACT" 0450��C=5 0460�GOSUB�1180 0470�GOTO�1920 0480�PRINT�"KLINGON�MANEUVERING�TO�ATTACK" 0490��C=4 0500�GOSUB�1140 0510��B=0 0520��H=0 0530�GOTO�1920 0540�PRINT�"KLINGON�FIRES�PHASOR" 0560�IF�B<90�THEN�640 0570�IF�S(2,I)=0�THEN�600 0580�GOSUB�920 0590�GOTO�1360 0600��B=B-90 0610�GOSUB�790 0620��B=B+90 0630�GOTO�1360 0640�IF�S(1,I)=0�THEN�670 0650�GOSUB�790 0660�GOTO�1360 0670��B=B+90 0680�GOSUB�920 0690��B=B-90 0700�GOTO�1360 0710�PRINT�"KLINGON�FIRES�PHOTON�TORPEDO" 0720��C=3 0730��B2=B 0740�GOSUB�3000 0745��B=N9 0750�GOSUB�1040 0760��B=B2 0770�GOTO�1360 0780�REM�FIRE�FWD�PHASORS 0790��H=0 0800�IF�S(1,I)<>0�THEN�830 0810�PRINT�"FORWARD�PHASORS�INOPERABLE" 0820�IF�I=1�THEN�260 0830��R1=100-R/200 0850�IF�B>90�THEN�900 0855�IF�R>20000�THEN�900 0860�REM�GEN�RANDOM�NUMBER�IN�INTERVAL�0�TO�1 0870�GOSUB�3000 0872�IF�R10�THEN�960 0930�PRINT�"REAR�PHASORS�INOPERABLE" 0940�REM 0950�IF�I=1�THEN�260 0960��H=0 0970��R1=100-R/200 0980�REM�RANGE�BEARING�CHECK 0990�IF�R>20000�THEN�1030 0992�IF�B<90�THEN�1030 1000�GOSUB�3000 1002�IF�R10�THEN�1080 1060�PRINT�"PHOTON�TORPEDO�LAUNCHER�DESTROYED" 1070�IF�I=1�THEN�260 1080�IF�R<10000�THEN�1130 1081�IF�R>20000�THEN�1130 1085�IF�B>90�THEN�1130 1090��R2=(10-10*B/90)*(10-(R-10000)/1000) 1100�GOSUB�3000 1105�IF�R225000�THEN�1230 1200�PRINT�"CONTACT�NOT�BROKEN" 1210��H=0 1220�RETURN 1230�PRINT�"CONTACT�LOST" 1240�STOP 1250�PRINT�"SELF�DESTRUCT�ACTIVATED" 1260�FOR�I=10�TO�1�STEP�-1 1270�PRINT�I 1275��R=8 SIN(I)*SIN(I) 1280�NEXT�I 1290�PRINT�"BOOM" 1291��R=SIN(I)*SIN(I) 1292�PRINT 1293�PRINT 1300�STOP 1310�PRINT 1311��X=SIN(I)*SIN(I) 1312�PRINT�"MESSAGE�FROM�KLINGON‚***�I�ACCEPT�YOUR�SURRENDER!!" 1320�PRINT�"PREPARE�TO�BE�BOARDED." 1325�PRINT 1326��X=SIN(I)*SIN(I)*SIN(I) 1330�PRINT�"***MESSAGE�FROM�STAR�FLEET�COMMAND" 1340�PRINT�"YOU�DIRTY�COWARD" 1350�STOP 1360��J=3-I 1370�IF�I=1�THEN�1372 1371�GOTO�1390 1372�IF�C>3�THEN�1920 1380�REM�DAMAGE�ASSESSMENT 1390�IF�H<>0�THEN�1440 1400�PRINT�"MISS" 1405�PRINT 1406��X=SIN(I) 1410�GOTO�1920 1420�REM�P=DESTRUCTIVE�POWER�OF�WEAPON.D=INCREMENTAL�DAMAGE�DONE,LIMIT 1430�REM�TO�A�MAX�VALUE�OF�2. 1440�PRINT�"HIT" 1441�PRINT 1442��X=SIN(I) 1450��D=P*(100-S(5,J))/100 1480��S(7,J)=S(7,J)+D 1490��S(5,J)=S(5,J)-P 1500��Z=INT(10-S(7,J)) 1501�IF�Z>0�THEN�1510 1502��Z=1 1510�IF�J=1�THEN�1580 1520�PRINT 1522�PRINT 1530�PRINT�"SCANNER�REPORT�ON�KLINGON" 1540�IF�Z>1�THEN�1610 1550�PRINT�"KLINGON�DESTROYED!!!!!!ƒHURRAY�FOR�CAPTAIN�KIRK!!!!" 1555�PRINT�"YOU�ARE�MAGNIFICENT�SIR!!!!!" 1556�PRINT 1557�PRINT 1560�STOP 1570�REM�DAMAGE�TO�ENTERPRIZE 1580�PRINT�"ENTERPRISE�DAMAGE�REPORT." 1590�IF�Z>0�THEN�1610 1600��Z=1 1610�ON�Z�GOTO�1620,1640,1850,1730,1775,1780,1780,1780,1830,1830 1620�PRINT�"ENTERPRISE�DESTROYED!!!" 1630�STOP 1640�PRINT�"WEAPON�SYSTEM�DESTROYED" 1650�PRINT�"WARP�DRIVE�DESTROYED" 1660�PRINT�"MAJOR�STRUCTURAL�DAMAGE" 1670�PRINT�"SHIELDS�BUCKLING" 1680��S(1,J)=0 1690��S(2,J)=0 1700��S(3,J)=0 1710��S(4,J)=0 1720�GOTO�1920 1730�PRINT�"PHASORS�DESTROYED" 1740�PRINT�"MINOR�DAMAGE�AMIDSHIPS" 1750�PRINT�"SHIELDS�WEAKENING.�ENERGY�LEFT=";S(5,J) 1755��S(2,J)=0 1760��S(1,J)=S(2,J) 1770�GOTO�1920 1775�PRINT�"REAR�PHASOR�DESTROYED.�ENERGY�LEFT=";S(5,J) 1776��S(2,J)=0 1777�GOTO�1920 1780�PRINT�"FOREWARD�PHASORS�DESTROYED" 1790�PRINT�"MINOR�DAMAGE�AMIDSHIPS" 1800�PRINT�"SHIELDS�WEAKENING.�ENERGY�LEFT=";S(5,J) 1810��S(1,J)=0 1820�GOTO�1920 1830�PRINT�"NO�DAMAGE.�SHIELD�ENERGY�LEFT=";S(5,J) 1840�GOTO�1920 1850�PRINT�"WEAPONS�SYSTEMS�DEACTIVATED" 1860�PRINT�"DILITHIUM�CRYSTALS�OVERHEATING" 1870��S(1,J)=0 1880��S(2,J)=0 1890��S(3,J)=0 1900�GOTO�1920 1910�REM�NEW�RANGE,BEARING 1920�PRINT 1925��R3=(S(4,1)+S(4,2))*50+(S(6,1)+S(6,2))*5 1930�GOSUB�3000 1932��R=R+R3*(50-N9)/2 1940��R=ABS(R) 1950�GOSUB�3000 1952��B=ABS(B+(50-N9)/2) 1960�IF�B>180�THEN�2000 1970��I=J 1980��J=3-I 1990�ON�I�GOTO�260,360 2000��B=ABS(360-B) 2010�GOTO�1970 2090�REM�RANDOM�N9=0TO�100 3000��N9=100*RND(0) 3010�RETURN 4000�PRINT�"FIRE�FOWARD�PHASORS!!!" 4001�PRINT 4005�RETURN 4010�PRINT�"FIRE�REAR�PHASORS!!!" 4011�PRINT 4015�RETURN 4020�PRINT�"FIRE�PHOTON�TORPEDO!!!!!" 4021�PRINT 4025�RETURN 4030�PRINT�"CLOSE�IN�FOR�THE�KILL!�FULL�WARP!!!" 4031�PRINT 4035�RETURN 4040�PRINT�"BREAK�OFF!!!�EMERGENCY�WARP!!!" 4041�PRINT 4045�RETURN 4050�PRINT�"CAPTAIN�KIRK,�YOU�HAVE�GONE�MAD!!!" 4051�PRINT 4055�RETURN 4060�PRINT�"WE�HAVE�NO�CHOICE.‚CONTACT�THE�KLINGON�SHIP." 4065�RETURN 4070�PRINT�"YOU�ARE�COMMANDER�KIRK�OF�THE�STARSHIP�ENTERPRISE" 4071�PRINT 4072�PRINT�"YOUR�AVAILABLE�COMMANDS�ARE�AS�FOLLOWS:" 4073�PRINT 4074�PRINT�"…1�-�FIRE�FORWARD�PHASORS�(FORWARD�HEMISPHERE�ONLY)" 4075�PRINT�"…2�-�FIRE�REAR�PHASORS�(REAR�HEMISHPHERE�ONLY)" 4076�PRINT�"…3�-�FIRE�PHOTON�TORPEDO�(FORWARD�HEMISPHERE�ONLY" 4077�PRINT�"‰AND�AT�RANGES�BEYOND�10,000�KM." 4079�PRINT�"…4�-�CLOSE�I9 N�FOR�THE�KILL" 4081�PRINT�"…5�-�BREAK�CONTACT" 4083�PRINT�"…6�-�LET'S�TAKE�'EM�WITH�US!!!" 4084�PRINT�"…7�-�SURRENDER" 4085�PRINT�"…8�-�I'M�GETTING�OUT�OF�HERE" 4086�PRINT�"…9�-�TRY�IT" 4087�PRINT 4088�PRINT�"‰GOOD�LUCK!!!!" 4089�PRINT 4090�GOTO�170 5000�PRINT�"PREPARE�THE�EMERGENCY�LIFE�SHIP!!!!!" 5005�PRINT 5010�PRINT 5015�RETURN 5020�PRINT�"ANY�SUGGESTIONS�DR.�SPOCK?" 5025�PRINT 5030�PRINT 5035�RETURN 5050�PRINT�"GOODBYE�CREW!!‚GOOD�LUCK!!�PLEASE�DON'T�CRY�DR.�SPOCK!!" 5055�PRINT 5060�PRINT 5065�STOP 5070�PRINT�"I�WOULD�SUGGEST�WE�USE�OUR�RESERVE�ENERGY�CELL!!" 5075�PRINT 5080�PRINT�"GOOD�THINKING�DR.�SPOCK!!‚WISH�I�HAD�THOUGHT�OF�THAT!!" 5085�FOR�J=1�TO�6 5090��S(J,1)=1 5095�NEXT�J 5100��S(5,1)=90 5105�RETURN 5999�END t€0090�PRINT 0100�PRINT�"WE�ARE�GOING�TO�WRITE�A�STORY.‚YOU�WILL�PROVIDE�ME�WITH" 0110�PRINT�"THE�WORDS�THAT�I�REQUEST,�AND�I�WILL�WRITE�THE�STORY" 0120�PRINT 0130�INPUT�"PLEASE�ENTER�YOUR�NAME",A$ 0140�PRINT 0150�PRINT�"ALRIGHT�";A$;"�LETS�START�WITH�A�NICE�WARM�COLOR"; 0160�INPUT�B$ 0170�INPUT�"VERY�GOOD;‚NOW�ENTER�A�TYPE�OF�CONTAINER",C$ 0180�PRINT�"AND�SOMETHING�TO�PUT�IN�THE�";C$; 0190�INPUT�D$ 0200�INPUT�"NOW�PLEASE�ENTER�A�PIECE�OF�FURNITURE",E$ 0205‚T=70 0210�PRINT�"HMMM‚A�";E$;".‚NOW�THATS�DIFFERENT!!!" 0215�GOSUB�6000 0220�INPUT�"NOW�I�NEED�A�DARK�SINISTER�COLOR",F$ 0230�PRINT�"NOW�";A$;"�PLEASE�ENTER�A�PIECE�OF�CLOTHING"; 0240�INPUT�G$ 0245�INPUT�"ENTER�A�PERSONAL�VERB�(CHEW,LOOK).",O$ 0250�INPUT�"NOW�ENTER�A�DISCRIPTIVE�SIZE�(HUGE,LITTLE).",H$ 0255�INPUT�"ENTER�ANOTHER�DISCRIPTIVE�SIZE",N$ 0260�INPUT�"NOW�I�NEED�A�DISCRIPTIVE�ACTION�WORD�(JUMP)",I$ 0270�INPUT�"NOW�ENTER�PLURAL�BODY�PARTS",J$ 0280�PRINT�"YOU�KNOW�";A$;".‚YOU�WOULD�BE�SUPPRISED�HOW�MANY"; 0290�PRINT�"�PEOPLE�SAY�";J$ 0300�PRINT�"WELL�";A$;"�DON'T�WORRY�ABOUT�IT�WE�WILL�MOVE�RIGHT�ON" 0305�GOSUB�6000 0310�INPUT�"ENTER�YOUR�OCCUPATION�PLEASE.",K$ 0320�PRINT�"NOW�";A$;"�ENTER�A�TYPE�OF�DWELLING"; 0330�INPUT�L$ 0340�INPUT�"SELECT�A�TYPE�OF�FOOD",P$ 0350�INPUT�"AND�LAST�ENTER�ANOTHER�PIECE�OF�CLOTHING",M$ 0360�PRINT�"ALRIGHT�THAT�SHOULD�DO�IT�GIVE�ME�A�MINUTE�TO�THINK" 0370‚T=400 0380�GOSUB�6000 0500�PRINT�CHR$(27);CHR$(69) 0700�PRINT�TAB(26);H$;"�";B$;"�RIDING�";G$ 0710�PRINT 0720�PRINT 0750�PRINT�"ƒONE�DAY�";H$;"�";B$;"�RIDING�";G$;"'S�MOTHER�TOLD�HER�TO" 0760�PRINT�"TAKE�A�";C$;"�OF�";D$;"�TO�GRANDMOTHER'S�";L$;".‚";B$ 0770�PRINT�"TOOK�THE�";C$;"�AND�SET�OFF�THROUGH�THE�WOODS�WERE�SHE�CAME" 0780�PRINT�"ACROSS�A�";N$;"�";F$;"�";A$;"." 0790�PRINT�"‚WHAT�DO�YOU�HAVE�IN�THE�";C$;"�";H$;"�";B$;"�RIDING�";G$;"." 0800�PRINT�"SAID�THE�";N$;"�";F$;"�";A$ 0810�PRINT�"‚I�HAVE�";D$;"'S�THAT�IM�TAKING�TO�MY�GRANNIES�";L$;"." 0820�PRINT�"THE�";A$;"�QUICKLY�TOOK�THE�SHORT�CUT�TO�GRANNIES�";L$ 0830�PRINT�"ATE�GRANNIE,�AND�PUT�ON�HER�";M$;"�AND�CLIMBED�INTO�HER�";E$;"." 0840�PRINT�"‚ABOUT�THIS�TIME�";H$;"�";B$;"�RIDING�";G$;"�WAS�KNOCKING" 0850�PRINT�"AT�THE�DOOR." 0860�PRINT�"‚COME�IN.‚SAID�THE�";A$;"." 0870�PRINT�H$;"�";B$;"�RIDING�";G$;"�WENT�INTO�THE�ROOM�AND�SET�THE�" 0880�PRINT�C$;"�OF�";D$;"�DOWN�AND�SAID." 0890�PRINT�"‚GRANNIE�WHAT�BIG�";J$;"'S�YOU�HAVE!" 0900�PRINT�"‚THE�BETTER�TO�";O$;"�YOU�WITH�MY�DEAR.‚SAID�THE�";A$;"." 0: 910�PRINT�B$;"�RAN�FROM�THE�ROOM,�OUT�OF�THE�";L$;"�AND�FOUND�THE" 0920�PRINT�"LOCAL�";K$;"�WHO�CHOPPED�OFF�THE�HEAD�OF�THE�";A$;"." 0930�PRINT�"‚";H$;"�";B$;"�RIDING�";G$;"�AND�THE�";K$;"�WERE�SOON�MARRIED." 0940�PRINT 0960‚T=40 0970�GOSUB�6000 0980�PRINT�"ƒDONT�YOU�JUST�LIKE�A�STORY�WITH�A�HAPPY�ENDING"; 0990�INPUT�Q$ 1000�PRINT 1010�PRINT 1020�IF�Q$="Y"�THEN�5000 1025�PRINT�TAB(5); 1030�PRINT�"WELL�";A$;".‚THATS�JUST�TOUGH�SHIT..." 1040�PRINT 5000�END 6000�FOR�Y=1�TO�T 6010�REM�SLEEP�FOR�"T" 6020�NEXT�Y 6030�RETURN ååå}{}›}» Û�‰+em+pb„1+lp+RM80 +TC�+ts18+ts22+TS31+ts44+ts48+TS57+LM6+PG 1.1�INTRODUCTION +SL2  Motorola's�M68EDITORM�CRT�Editor�allows�the�M6800�EXORcisor�or�EXORterm�user�to create�and�modify�source�programs.‚The�Editor�is�designed�specifically�for�use with�the�EXORterm�200�and�220�Development�Systems,�or�in�an�EXORterm 150/EXORcisor�system.�Each�of�these�systems�provides�the�means�of�monitoring, controlling,and�debugging�user-defined�machine�operations,�as�well�as� providing�the�basic�control�and�interface�functions�of�a�microcomputer�system.� �Source�programs�can�be�loaded�into�system�memory�from�the�keyboard, optionally�listed�with�identifying�line�numbers�on�the�CRT�screen�and/or�line printer,�and�modified�with�edit�commands�from�the�keyboard.+sl2 Source�programs�already�formatted�on�diskette�can�be�loaded�into�memory,�listed, and�modified�with�the�Editor,�generating�a�modified�program�ready�for�assembly. +sl2 An�added�feature�of�the�Editor�is�its�ability�to�search�through�a�source program�and�point�to�a�specific�character�or�group�of�characters�(string), as�well�as�entire�lines�or�group�of�lines.+sl2 This�Editor,�as�well�as�a�number�of�other�utility�programs�(Macro�Assembler, Linking�Loader,�etc.),�operates�under�the�direction�of�the�Motorola�Disk Operating�System�-�MDOS.‚Prior�to�writing�or�compiling�source�programs,�the user�should�have�some�general�knowledge�of�MDOS,�and�should�be�aware�of�the various�MDOS�utility�programs�available�as�an�aid�to�software�development. +sl2 The�Editor�operates�in�a�minimum�configuration�of�an�EXORterm�200, EXORterm�220,�or�EXORterm�150/EXORciser�system�with�32K�Random�Access Memory,�and�EXORdisk�II/III�with�MDOS�3.0.‚The�Editor�determines�the�size of�memory�and�uses�all�available�memory�for�the�editing�buffer.�Use�of�a� line�printer�is�optional.+sl2 1.2‚TERMINAL�PREPARATION +SL2 The�heart�of�the�EXORterm�is�the�CRT�terminal�in�whose�housing�the�actual microcomputer,�memory,�interfaces,�and�other�elements�are�incorporated.‚ Considerable�flexibility�is�designed�into�the�CRT�to�accomodate�a�variety of�different�environments�and�configurations.�Three�groups�of�option switches�on�the�back�of�the�terminal�housing�its; elf�must�be�set�as follows�for�proper�operation�of�the�Editor.+sl2+tt2 GROUP�ONE+TT5GROUP�TWO+NL+TT1 ENABLE+TT3ON+TT4DUPLEX+TT6FULL+NL+TT1 DISPLAYƒ+TT3OFF+TT4PARITY…+TT6NO„+NL+TT1� TRANS�MODE+TT3OFF+TT4‹+TT6EVEN‚+NL+TT1 VIDEO�INV�+TT3OFF+TT4XMIT�WORDS�+TT6�8-BIT+NL+TT1 A‰+TT3ON�+TT4STOP�BITƒ+TT6�1„+NL+TT1 B‰+TT3OFF+TT4CONNECTION�+TT6DIRECT+NL+TT1 C‰+TT3OFF+TT4MODEM�TYPE�+TT6�103‚+NL+TT1 SPEC�CHAR�+TT3OFF+TT4TURN�AROUND+TT6�8-CHAN+NL+TT1� LINE�FREQ�+TT3OFF+TT4CODE�SELƒ+TT6�EDTƒ+SL2+TT2 GROUP�THREE+NL+TT1 BAUD�RATE�-�SELECT�ONLY�ONE.�9600�is�the�most�desirable.+sl2 1.3‚LOADING�THE�DISK�OPERATING�SYSTEM�(MDOS) +SL2 +TC+TS18+TS35 The�actual�procedure�for�initially�loading�the�MDOS�Disk�Operating�System will�vary�slightly�between�different�hardware�configurations.�Refer�to�the MDOS�user's�guide�for�the�exact�initializing�procedure�for�your�hardware configuration.‚Typical�procedures�are:+sl2+tt1 EXORterm�200+tt2depress�restart�key+nl+tt2 EXBUG�1.2�MAID�(no�carriage�return)+nl+tt2 *E800;G�(no�carriage�return)+nl+tt2 MDOS�3.0+nl+tt2 =+sl2+tt1 EXORterm�220+tt2depress�restart�key+nl+tt2 *E�MDOS�(carriage�return)+nl+tt2� MDOS�3.0+NL+TT2 =+SL2 The�equal�sign�is�an�MDOS�prompt�character.�MDOS�commands�may�now�be�entered.‚ +sl2 1.4‚INVOKING�THE�EDITOR The�MDOS�command�E�will�invoke�the�Editor�to�create�or�modify�a�named�file.‚ The�syntax�for�the�edit�command�is�as�follows.�All�elements�bounded�by brackets�are�optional;�e.g.,�[;options].‚All�elements�outside�the brackets�must�be�entered.‚all�user�input�is�terminated�by�a�carriage return�(RETURN). +TC+TS6+TS17+LM20 +sl2+tt1SYNTAX:+tt2E�FILENAME1 [,[FILENAME2][,:DRIVE]][;[TS][FN][S]]+SL2+TT1WHERE:+TT2 FILENAME1�is�the�file�to�be�edited.�If�FILENAME1�exists�it�will�be�edited. If�it�does�not�exist�it�will�be�created�and�made�available�for�editing. +sl2+tt2FILENAME2�is�the�file�name�of�the�edited�result.�FILENAME2‚is�only valid�if�FILENAME1�exists.�If�FILENAME2�is�not�specified,�the�original FILENAME1�will�be�deleted�at�the�end�of�the�edit�process�and�the�edited result�will�be�renamed�FILENAME1.�If�FILENAME2�is�specified,�FILENAME1�is retained�as�an�MDOS�file�without�any�alteration�by�the�Editor.+sl2+tt2 DRIVE�specifies�the�drive�on�which�to�put�scratch�file�2. The�Editor�will�pick�the�optimum�drive�if�DRIVE�is�not�specified.‚The Editor�uses�temporary�files�named�SCRATCH1�and�SCRATCH2.‚SCRATCH1�is used�whenever�FILENAME1�exists.�When�the�edit�is�terminated�via�QUIT�or a�SAVE�command�is�entered,�SCRATCH1�is�renamed�FILENAME2�(or�FILENAME1�if FILENAME2�was�not�specified).‚SCRATCH2�is�used�to�support�multiple edit�passes�in�a�single�edit�session. +sl2+tt2TS�specifies�the�initial�tab�stop�settings�for the�Editor�as�follows:+nlA�implies�assembler�tabs�(8,15,23)�with�the space�bar�as�a�special�tab�character�and�whereby�a�"*"�in�column�1�will disable�the�special�tab�character.+nlF�implies�Fortran�tabs�(7)�with�the space�bar�as�a�special�tab�character�and�whereby�a�"C"�in�column�1�will disable�the�special�tab�character.+nlC�implies�Cobol�tabs�(6,9,12)�with the�space�bar�as�a�special�tab�character.+sl2+tt2FN�is�the�file numbering�option.�A�N�implies�edit�with�line�numbers.�A�-N� implies�edit�without�line�numbers.‚FN�defaults�to�N�when FILENAME1�does�not�exist,�and�is�determined�by�the�first�line in�the�FILENAME1�when�it�does�exist.�Whenever�a�lin< e numbered�file�is�edited�without�using�the�line�numbers,�the�line numbers�are�treated�as�data.+sl2+tt2S�specifies�that�the�Editor�is to�be�initialized�in�the�scroll�mode,�and�that�the�user�is�editing�from a�non-EXORterm�type�device.�With�this�option�the�user�is�restricted�to scroll�mode�command�editing.+lm6+sl2+tc+ts17+ts20+pl The�response�to�the�E�command�is�shown�in�the�following�example.+sl2+tt1 EXAMPLE:+nl+tt2 =E�LTR2�(carriage�return)+nl+tt2 MDOS�EDITOR�RELEASE�X.X�(X.X�is�the�version�number)+nl+tt2 COPYRIGHT�BY�MOTOROLA�1978+SL2 When�FILENAME1�exists�the�Editor�will�check�to�determine�if�there�is� sufficient�disk�space�to�hold�the�edited�result�and�the�work�file�on�the drives�specified.�If�there�is�not�sufficient�space�the�Editor�will�display "INSUFFICIENT�DISK�SPACE�ON�DRIVE�N‚CONTINUE(Y/N)?".�A�"Y"�response�will cause�the�Editor�to�continue�and�an�"N"�response�will�cause�the�Editor�to return�control�to�MDOS. Once�the�Editor�has�been�invoked,�it�will�display�a�message�indicating that�the�file,�FILENAME1,�was�opened�or�created�new;�and�when�the�file� is�line�numbered�"with�line�numbers". +SL2 1.5�MODES�OF�OPERATION+SL2 The�Editor�has�two�processing�modes:�CRT-MODE�and�SCROLL-MODE.�The�Editor is�configured�to�come�up�in�the�CRT-MODE�when�it�is�loaded�(unless�the�(S) option�of�the�E�command�is�used).+sl2 1.5.1‚CRT-MODE+sl2 The�CRT-MODE�supports�both�page�editing�and�command�editing.‚When�the� Editor�is�used�to�edit�an�existing�file,�it�dynamically�adapts�to�command editing�(refer�to�Figure�1-1).�With�command�editing�the�user�enters�edit commands�at�the�cursor�position�following�the�prompt�(>)�on�line�22�while continually�viewing�a�portion�of�the�file�on�the�CRT�screen�(lines�1�through 20).‚Thus�the�screen�becomes�a�window�where�the�portion�of�the�file currently�acted�upon�is�displayed.‚The�Editor�prompt�in�this�window�(column 1)�serves�as�a�pointer�to�indicate�the�current�file�position.‚Table�1-1 provides�a�summary�of�the�commands.‚Table�1-2�lists�the�special�character commands�that�are�controlled�by�the�use�of�the�terminal's�special-purpose keys�when�performing�command�editing.+sl2 Page�editing�can�only�be�initiated�in�the�CRT-MODE.�It�is�initiated�when the�Editor�is�invoked�to�create�a�new�file�(refer�to�Figure�1-2),�or�when one�of�the�following�commands�is�entered:+nl+tt1 CHANGE�(without�a�STRING2)+nl+tt1 INSERT�(for�text�files�without�line�numbers)+nl+tt1 NUMBER�(for�source�files�with�line�numbers)+sl2 Page�editing�is�terminated�via�a�mode�change�request�(use�of�the�F1�or�F2 function�keys).+sl2 With�page�editing,�the�user�is�positioned�on�the�window�and�uses�the�CRT control�characters�to�insert,�change,�or�delete�characters�and/or�lines within�the�file.‚Table�1-3�lists�the�special�character�commands�that�are controlled�by�use�of�the�terminal's�special�purpose�keys�when�performing page�editing.+sl2 The�Editor�will�accept�only�valid�printable�ASCII�characters.‚Any non-printable�character�received�from�the�terminal�or�file�in�a�data�stream will�be�ignored.‚The�EXORterm�keyboard�provides�the�means�of�inputting the�full�128�character�ASCII�set,�plus�various�function�keys.‚The�function keys�F1�through�F7�are�used�to�select�the�special�character�commands�in�the CRT-MODE,�as�shown�in�Tables�1-1�and�1-2.‚In�this�mode,�the�bottom�two lines�on�the�screen�are�used�to�dis= play�the�mnemonic�function�name�for�each of�the�seven�function�keys.+sl2 1.5.2�SCROLL-MODE+SL2 In�the�SCROLL-MODE,�the�user�performs�command�editing�with�each�command line�scrolling�up�and�the�resultant�display�on�the�next�line.‚Table�1-4 lists�the�special�character�commands�used�in‚SCROLL-MODE.‚Figure�1-3 shows�a�typical�program�being�edited�in�SCROLL-MODE.+pg+LM1 +AS >0010‚NAM�POLL‹ �0020‚OPT�MEM �0030�PIA1AC�EQU�$4005 �0040�PIA1BC�EQU�$4007 �0050�PIA2AC�EQU�$4009 �0060�PIA2BC�EQU�$400B �0070‚ORG�$100 �0080�POLL�LDA�A�PIA1AC �0090‚BMI�ROUT1 �0100‚ROL�A �0110‚BMI�ROUT2 �0120‚LDA�A�PIA1BC �0130‚BMI�ROUT3 �0140‚ROL�A �0150‚BMI�ROUT4 �0160‚LDA�A�PIA2AC �0170‚BMI�ROUT5 �0180‚ROL�A �0190‚BMI�ROUT6 �0200‚LDA�A�PIA2BC EDITING�OLD�FILE:�LTR2„.SA:0�WITH�LINE�NUMBERS > F1‡F2ˆF3ˆF4ˆF5ˆF6ˆF7 CRT…SCROLL„PAGE�^„PAGEv…LINE�^„LINE�v…DUP‚LTR1….SA:0 šFIGURE�1-1.‚CRT-MODE�(Command�Editing) +//+PG+AS Figure�1-2�shows�the�data�displayed�on�the�CRT�screen�when�the�Editor�is invoked�to�edit�a�new�program. F�/EX >0010  EDITING�NEW�FILE:�LTR3„.SA:0�WITH�LINE�NUMBERS > F1‡F2ˆF3ˆF4ˆF5ˆF6ˆF7 CRT…SCROLL„PAGE�^„PAGEv…LINE�^„LINE�v…DUP‚LTR3….SA:0 šFIGURE�1-2.‚CRT-MODE�(Page�Editing) +//+pg+LM6+AS šTABLE�1-1.‚Edit�Commands �COMMAND DESCRIPTION C,�CHANGE†Change�a�string�within�a�record�(or�a�group�of�records). DEL,�DELETE„Delete�data�from�the�file. D,�DUPLICATEƒCopy�a�group�a�records‚from�one‚place�within�a�file�to� �another�place�within�the�file. EŽTerminate�the�edit�session.‚Begin�editing�another�file. EX,�EXTEND…Insert�data�at�the�end�of�records. F,�FINDˆFind�a�string�or�a�line. I,�INSERT†Insert�data�into�the�file.‚(For�editing‚files‚without �line�numbers.) L,�LISTˆDisplay�a�portion�of�the�file. MERGEŠRetrieve�records�from�another�MDOS�file�and�include�them �in�the�edited�file. MOVE‹Move�a�group‚of�records�from�one‚place�within�the�file� �to�another�place�within�the�file. N,�NUMBER†Insert�data�into�the�file�and�prompt‚with�the�next�line �number.‚(For�editing�files�with�line�numbers.) PRINTŠPrint�data�at�an�associated�line�printer. QUIT‹Terminate�the�edit�session�and�return�control�to�MDOS. R,RANGEˆEstablish�defaults�value�for�the�vertical�and�horizontal �ranges.‚(For�LIST,�PRINT,�CHANGE,�FIND,�and�SAVE.) RESEQUENCE…Number,�renumber,�or�unnumber�the�file. SAVE‹Save�the�edited�file�into�the�named�file. S,�SEARCH†Find�the�next�occurrence�of�a�string. TABŒAlter�the�tab�settings�used�for�data�input. V,�VERIFY†Display‚at�the‚terminal,‚any�time�a�change�is�made�to �the�file,�the�values�after�the�change. X,�XTRACT†Insert�the�data�in�the�buffer�into�the�file. 1-9999‰Insert,�modify,�or�delete‚a�line‚from�the�file.‚(This �command�type�is�for�editing�files�with�line�numbers.) +//+pg+AS šTABLE�1-2.‚Command�Editing�(CRT-MODE) �COMMAND¡DESCRIPTION „<-‰Move�the�cursor�to�the�left�one�column‚with�no�character �modification. „->‰Move�the�cursor�to�the�right�one�column�with�no�character �modification. �Move�the�display�pointer�up�one�line�on�the�display,�with �page�wrap�around. �Move‚the�display‚pointer�down‚one�line�on�the�display, �with�page�wrap�around. ƒCTL-W‡Pause�the�processing�of�this�list. ƒCTL-X‡Cancel�this�line. „|<-ˆMove�the�cursor�to�the�left�to�the�previous�tab�stop. „->|ˆMove�the�cursor�to�the�right�to�the�next�tab�stop. „DELˆDelete�the�previous�ch> aracter. ƒBREAK‡Stop�processing;�await�a�new�command. �INS�CHAR†All�columns�in�the�line,�starting�with�the�cursor�column, �are�moved�right�one�column.�The�cursor�is�then�set�at�the �inserted�space.� �DEL�CHAR†All�columns�in�the�line,�starting�with�the�cursor�column, �are�moved‚left�one�column.‚The�cursor‚does�not‚change �position. LINE�ERASE…All�data�from�the�cursor�position�to�the�end�of�the‚line �is�deleted. „F2‰Change�the�mode�to�SCROLL-MODE.� „F3‰Scroll�the�screen�forward�one�page. „F4‰Scroll�the�screen�back�one�page. „F5‰Scroll�the�screen�forward�one�line. „F6‰Scroll�the�screen�back�one�line. +//+pg+as šTABLE�1-3.‚Page�Editing�(CRT-MODE) �COMMAND¡DESCRIPTION „<-‰Move�the�cursor�to�the�left�one�column‚with�no�character �modification. „->‰Move�the�cursor�to�the�right�one�column�with�no�character �modification. �Move‚the�display‚pointer�and�the�cursor‚up�one�line�on� �the�display,�with�page�wrap�around. �Move�the�display�pointer�and�the�cursor‚down�one�line�on �the�display,�with�page�wrap�around.� ƒCTL-X‡Cancel�this�line. „|<-ˆMove�the�cursor�to�the�left�to�the�previous�tab�stop. „->|ˆMove�the�cursor�to�the�right�to�the�next�tab�stop. „DELˆDelete�the�previous�character. �INS�CHAR†All�columns�in�the�line,�starting�with�the�cursor�column, �are�moved�right�one�column.�The�cursor�is�then�set�at�the �inserted�space.� �DEL�CHAR†All�columns�in�the�line,�starting�with�the�cursor�column, �are�moved‚left�one�column.‚The�cursor‚does�not‚change �position. �INS�LINE†Insert�a�line�at�the�current�file�position. �DEL�LINE†Delete�the�line�at�the�current�file�position. LINE�ERASE…All�data�from�the�cursor�position�to�the�end�of�the‚line �is�deleted. „F1‰Stop�page�editing;�set�the�mode�to�the�CRT-MODE. „F2‰Stop�page�editing;�set�the�mode�to�the�SCROLL-MODE. „F3‰Scroll�the�screen�forward�one�page. „F4‰Scroll�the�screen�back�one�page. „F5‰Scroll�the�screen�forward�one�line. „F6‰Scroll�the�screen�back�one�line. „F7‰Duplicate�the�data�on�the�line�immediately�above�this�one. +//+pg+as šTABLE�1-4.‚Command�Editing�(SCROLL-MODE) �COMMAND¡DESCRIPTION ƒCTL-W‡Pause�the�processing�of�this�list. ƒCTL-X‡Cancel�this�line. ƒCTL-D‡Redisplay�this�line�without�character�deletions. „->|ˆEcho�spaces�to�move�to�the�right�to�the�next�tab�stop. „DELˆDelete�the�previous�character�and�indicate�so�by�echoing �the�deleted�character. ƒBREAK‡Stop�processing;�await�a�new�command. „F1‰Change�the�mode�to�CRT-MODE.� +//+pg +lm6+pl 1.6‚EDIT�COMMANDS +SL2 There�are�two�levels�of�edit�features�available:�a�basic�set,�which�the user�may�master�in�a�relatively�short�period�of�time,�and�an�advanced�set, which�gives�the�user�much�more�flexibility�in�editing.‚The�advanced�set may�be�mastered�as�needed.+sl2 The�basic�command�set�includes�the�1-9999,�CHANGE,�DELETE,�PRINT,�SAVE, and�QUIT�commands,�along�with�the�elementary�edit�feature.+sl2 The�Editor�prompts�the�user�for�the�next�command�by�displaying�a greater-than�sign�(>).‚The�command�is�entered�by�typing�a�carriage�return. Many�of�the�commands�have�an�abbreviated�form,�or�alias,�that�the� programmer�may�use�if�desired.‚It�is�never�necessary�to�use�more�than the�first�four�characters�of�any�of�the�commands.‚A�description�of�the Editor�commands�follows.+pg +tc+ts6+ts16+ts23+lm6+pl+tt1 1.6.1�COMMAND�SYNTAX+SL2+TT1 Editor�commands�may�be�e? ntered�in�either�upper�or�lower�case�and in�either�a�short�or�long�form.�Only�the�first�four�characters�of�any command�has�significance�so�that�all�commands�may�be�abbreviated�to�the first�four�characters.�In�all�of�the�commands�the�character�"*"�may�be used�to�indicate�the�current�line�position�when�referring�to�a� line�number.+nl +nl+tt1In�defining�the�commands�provided�by�the�editor the�most�common�syntactical�elements,�vertical�and�horizontal�range,�are defined�as�follows: +sl2+tt1VERTICAL-RANGE�=�[[BEGINNING-LINE-NUMBER]�[-�ENDING-LINE-NUMBER]] +nl+tt3OR +NL+TT3[[COUNT1�-�]�COUNT2]+NL+TT2 +lm20+NL+TT1WHERE+TT2BEGINNING-LINE-NUMBER�/�ENDING-LINE-NUMBER� apply�to�line�numbered�files.+nl+tt2COUNT1�/�COUNT2�apply�to�unlined files.+nl+tt2COUNT1�is�the�offset�from�the�current�line�at�which�to�begin the�function�performed.�The�offset�may�be�negative.+nl+tt2COUNT2�is the�number�of�lines�upon�which�to�perform�the�function. +nl+lm6+pl+nl+tt1The�default for�omitted�values�(where�not�overridden�by the�RANGE�command)�will‚result�in�the�function�being�performed on�the�current�line. +lm20+sl2+tt1HORIZONTAL-RANGE�=�[:COLUMN1�[�-�COLUMN2]]�OR�[:Fi�[�-�Fi++n]] +sl2+tt1WHERE+TT2COLUMN1�is�the�column�on�each�line�in�which�to�begin�the function�to�be�performed.+nl+tt2COLUMN2�is�the�column�on�each�line�in�which to�end�the�function�to�be�performed.+nl+tt2Fi�is�the�field�defined�by�the i'th�tab�stop�through�the�i'th�++�1�tab�stop.+nl+tt1 +lm6+plThe�default�values�where�no� horizontal‚range�is�specified�willƒresult�in�the�function�being performed�on�the�entire�line.+pg+pl +TC+TS6+TS17+LM20 +TT1�1.6.2�1-9999+SL2+TT1FUNCTION: +tt2Insert,�modify,�or�delete�a�line�from�the�file.�(This�command applies�to�line�numbered�files�only.) +sl2+tt1SYNTAX:+TT2LN�DATA� +sl2+tt1WHERE:�+TT2LN�is�the�line�number�of�the�line�to�be�inserted,� modified,�or�deleted.�+nl+tt2DATA�is�the�new�value�of�the�line.+lm6+sl2+tt1 The�entry�of�a�line�number�with�no�data�will�imply�a�request�to�delete�the line.+sl2+tt1CRT-MODE:+TT2The�line�number�inserted,�modified,�or�the�line immediately�following�the�line�deleted�is�at�the�current�line�position. +tc+ts6+TS17+LM20+sl2 +tt1EXAMPLES:+tt2�1.�To�insert�line�number�200�into�the�file.+nl+tt2 >200�DATA�ON�LINE�200cr+SL2+TT2 2.�To�change�line�number�200.+nl+tt2 >200�NEW�DATA�ON�LINE�200cr+sl2+tt2 3.�To�delete�line�number�200�from�the�file.+nl+tt2 >200cr+sl2+tt2 4.�To�insert�a�null�line�numbered�200�(line�200�does�not�currently�exist�in the�file).+nl+tt2 >200cr +PG+tc+ts6+TS17+LM20 +TT1�1.6.3�CHANGE+SL2� +TT1FUNCTION+TT2Change�a�string�within�a�record�(or�a�group�of�records.)+sl2 +tt1SYNTAX:+tt2CHANGE�[VERTICAL-RANGE]�[HORIZONTAL-RANGE]+nl� [[.TRANSPARENT-CHAR]�[;COUNT]�STRING1�[STRING2]�[REPETITION]]+SL2 +TT1ALIAS:+TT2C,change,c+sl2 +tt1WHERE:+TT2STRING1�is�the�target�string�to�be�found�and�changed.+nl+tt2 STRING2�is�the�value�to�which�STRING1�is�to�be�changed.+nl+tt2 COUNT�indicates�that�the�COUNT'th�occurrence�of�STRING1�in�a�line�is the�target�string.+nL+TT2REPETITION�indicates�the�number�of�times�STRING1 is�to�be�found�and�changed.+nl+tt2TRANSPARENT-CHAR�is�a�character�within STRING1�that�is�to�be�ignored�when�testing�for�equality�to�STRING1.+SL2 +LM6+PLAn�"A"�in�the�COUNT�or�REPETITION�field�indicates�all occurrences.‚The�default�value�for�COUNT�is�1�(the�first�occurrence) @ and�the�default�value�for�REPETITION�is�all lines�within�the�VERTICAL-RANGE.�String �data�is�delimited�by�the�first�non-blank�non-numeric�character.�The same�delimiter�must�also�terminate �STRING1�and�STRING2�(if�present).�Care�should�be�used�in�picking a�string�delimiter�as�the�use�of�"."�or�";"�when�the�TRANSPARENT-CHAR �or�COUNT�is�not�specified�will�cause�unpredictable�results. When�the�change�command�is�executed�with�no�parameters,�the�next� occurrence�of�the�string�data�last�specified�by�the�user�is�modified. A�null�STRING1�will�be�interpreted�to imply�insert�STRING2�at�the�beginning�of�the�HORIZONTAL-RANGE.�A�null STRING2�will�be�interpreted�to�imply�delete�STRING1.�If�STRING2�does�not�exist and�the�user�is�in�the�CRT-MODE,�the�user�will�begin�page�editing�with�the cursor�resting�on�the�first�character�of�STRING1. If�STRING2�does�not�exist� and�the�user�is�in�the�SCROLL-MODE,� the�target�line�will�be�displayed�to�STRING1�and�the�user�is�placed�in�the� input�process�(see�the�INSERT�and�NUMBER�commands). When�only�COLUMN1�(Fi)�of�the�HORIZONTAL-RANGE�is�specified�and�no�string�is specified,�the�following�will�occur: �if�the�user�is�in�the�CRT-MODE,�the�user�will�begin�page�editing with�the�cursor�resting�on�the�column�position�(or�the�field�position) specified;�if�the�user�is�in�the�SCROLL-MODE,�the�target�line�will�be displayed�to�COLUMN1�(Fi)�and�the�user�placed�in�the�input�process�(see�the INSERT�and�NUMBER�commands).�A�change�command�with�only�a�null�STRING1,�in the�CRT-MODE,�initiates�page�editing�at�the�current�line�position.+sl2 +tt1CRT-MODE:+tt2The�last�data�line�modified�by�the�change�is�at�the current�position�line. +sl2+lm20+tt1 EXAMPLES:�+TT2�1.�Change�the�string�SAM�to�BILL�on�the�current�position�line. +nl+tt2>C�/SAM/BILL/cr +sl2+tt2�2.�Change�the�first�occurrence�of�the�string�SAM�to�BILL�on�each line�from�line�numbers�100�through�200�inclusive.+nl+tt2 >C�100-200�/SAM/BILL/cr+sl2+tt2 3.�Change�the�first�occurrence�of�the�string�SAM�(that�occurs�after�column �30�and�before�column�60)�to�the�string�BILL�on�line�number�100.�+nl+tt2 >C�100�:30-60�/SAM/BILL/cr+sl2+tt2 4.�Change�the�third�occurrence�of�the�string�SAM�to�BILL on�the�current�position�line.+nl+tt2 >C�;3/SAM/BILL/cr+sl2+tt2 5.�Change�all�occurrences�of�the�string�SAM�to�BILL�on�the�each�of�the�lines from�line�number�100�to�200�inclusive.+nl+tt2 >C�100-200�;A/SAM/BILL/cr+sl2+tt2 6.�Delete�the�string�BOB�from�line�number�120.+nl+tt2 >C�120�/BOB//cr+sl2+tt2 7.�Insert�the�string�BOB�at�the�beginning�of�the�curent�line.+nl+tt2 >C�//BOB/cr+sl2+tt2 8.�Change�the�strings�LABELx�(where�x�can�be�any�character�or�digit)�to�the string�1.25� on�the�line�numbers�from�100�to�500�inclusive.+nl+tt2 >C�100-500�.X/LABELX/1.25/cr+sl2+tt2 9.�Change�the�first�occurrence�of�the�string�SAM�to�BILL�on�the�lines�from line�number�100�to�200.�Then�change�the�next�occurrence�of�the�string�SAM to�BILL�where�ever�it�is�from�that�point�to�the�end�of�the�file. +nl+tt2 >C�100-200�/SAM/BILL/1cr+nl+tt2 >Ccr+sl2+tt2 10.�Change�the�second�occurrence�of�the�string�LABxL�(where�x�can�be�any character�or�digit)�to�the�string�LABEL�where�it�occurs�between�columns 30�and�60‚on�line�numbers�100�to�130�inclusive.+nl+tt2 >C�100-130�:30-60�.X;2/LABXL/LABEL/cr +sl2+tt2 11.�Change�the�string�SAM�to�BILL�on�the�next�5�lines�(where�the�fileA  being�edited�does�not�have�line�numbers). +nl+tt2 >C�*-5�/SAM/BILL/cr+sl2+tt2 12.�Begin�page�editing�at�the�beginning�of�this�line.+nl+tt2 >C�//cr+sl2+tt2 13.�Begin�page�editing�at�the�beginning�of�the�string�SAM�on�this�line.+nl+tt2 >C�/SAM/cr+sl2+tt2 14.�Begin�page�editing�on�column�12�of�line�number�100.+nl+tt2 >C�100�:12cr+sl2+tt2 15.�Begin�page�editing�on�the�second�occurrence�of�the�string�X�on�line�200. +nl+tt2>C�200�;2/X/cr +pg +LM20+PL +TT1�1.6.4�DELETE+SL2+TT1FUNCTION: +TT2Delete�data�from�the�file.+sl2+tt1SYNTAX: +tt2DELETE�[VERTICAL-RANGE]�[HORIZONTAL-RANGE]+SL2+TT1ALIAS:+TT2DEL,delete,del +sl2+lm6+pl Specification�of�a�HORIZONTAL-RANGE�will�cause�the�data�within�the�range�to be�deleted�from�each�line�within�the�VERTICAL-RANGE.+sl2 +tt1CRT-MODE:+TT2The�line�immediately�following�the�last�line affected�is�at�the�current�position�line. +sl2+lm20+tt1EXAMPLES:+TT2�1.�Delete�the�line�at�the�current�file�position. +nl+tt2>DELcr+sl2+tt2 2.�Delete�the�lines�between�line�100�and�200�inclusive.+nl+tt2 >DEL�100-200cr+sl2+tt2 3.�Delete�the�data�between�columns�10�and�20�inclusive�on�line�210.+nl+tt2 >DEL�210�:10-20cr+sl2+tt2 4.�Delete�line�number�210.+nl+tt2 >DEL�210cr+sl2+tt2 5.�Delete�the�next�5�lines�(when�editing�a�file�without�line�numbers).+nl+tt2 >DEL�*-5cr+sl2+tt2 +pg+lm20+tt1�1.6.5�PRINT�+SL2+TT1FUNCTION: TT2Print�data�at�an�associated�line�printer. +sl2+tt1SYNTAX:+TT2PRINT�[VERTICAL-RANGE]�[SPACING] +sl2+tt1ALIAS:�+TT2print +sl2+tt1WHERE:�+TT2SPACING�is�"D"�to�indicate�double�spacing�and�"T"�to indicate�triple�spacing.+sl2+tt1 CRT-MODE:+TT2The�print�command�does�not�alter�the�display.+LM20 +sl2+tt1EXAMPLES:+TT2�1.�Print�the�entire�file.+nl+tt2>PRINTcr+sl2+tt2 2.�Print�this�line.+nl+tt2>PRINT�*cr+sl2+tt2 3.�Print�the�lines�between�line�number�100�and�200�inclusive�with�double spacing.+nl+tt2>PRINT�100-200�Dcr+sl2+tt2 4.�Print�the�next�10�lines�(when�editing�a�file�without�line�numbers) with�triple�spacing.�+nl+tt2>PRINT�*-10�Tcr‚ +pg+lm20+tt1�1.6.6�SAVE+SL2+TT1FUNCTION: +TT2�Save�the�edited�file�into�the�named�file. +sl2+tt1SYNTAX:+TT2SAVE�[[VERTICAL-RANGE]�FILENAME] +sl2+tt1ALIAS:+TT2�save +sl2+tt1WHERE:+TT2�FILENAME�implies�that�an�extract�function�is�to�be� performed.�The�refrenced�data�(as�modified�by�the�edit)�is�written�into�the new�file:�FILENAME.+LM6+SL2+TT1 FILENAME�must�not�already�exist�as�an�MDOS�file.�If�no�VERTICAL-RANGE�is specified�the�current�modified�version�of�the�file�is�written�into FILENAME.�When�FILENAME�is�not�specified�the�current�modified�version�of the�source�file�will�replace�the�old�version�and�the�old�version�is deleted�from�MDOS.�The�new�version�is�then�reopened�and�repositioned�to the�beginning�of�the�file�for�further�editing.+sl2+tt1CRT-MODE:+TT2 The�save�command�with�FILENAME�specified�does�not�alter�the�display�and without�FILENAME�specified� resets�the�display�to�the�beginning�of�the�file.+LM20 +sl2+tt1EXAMPLES:�+TT2�1.�Save�the�edited�file�to�disk.+nl+tt2 >SAVEcr+sl2+tt2�2.�Save�the�edited�file�into�a�new�file�named�SAM.+nl+tt2 >SAVE�SAMcr+sl2+tt2 3.�Extract�the�lines�between�line�number�100�and�500�inclusive�and�put�them into�a�new�file�named�SAM.+nl+tt2 >SAVE�100-500�SAMcr+sl2+tt2 4.�Extract�the�next�20�lines�(when�editing�a�file�without�line�numbers)�and put�them�into�a�new�file�named�SAM.+nl+tt2 >SAVE�*-20�SAMcr +PG+LB M20+TT1�1.6.7�QUIT+SL2+TT1FUNCTION: +TT2Terminate�the�edit and�return�control�to�MDOS.+SL2 +tt1SYNTAX:+TT2QUIT�[A] +sl2+tt1ALIAS:�+TT2quit +sl2+tt1WHERE:�+TT2A�implies�abort�the�edit.+lm6+sl2+tt1 The�quit�command�causes�the�results�of�the�edit�to�be�saved�prior�to termination�unless�the�A�option�is�specified. +sl2+tt1CRT-MODE:+TT2The�screen�is�cleared�and�the�terminal�is�reset.+LM20 +sl2+tt1EXAMPLES:�TT2�1.�Terminate�the�edit�and�save�the�results.+nl+tt2 >QUITcr+sl2+tt2 2.�Abort�the�edit�and�do�not�modify�the�source�file.+nl+tt2 >QUIT�Acr +PG+lm20+pl+TT1�1.6.8�DUPLICATE+SL2+TT1FUNCTION: +TT2Copy�a�group�of records�from�one�place�within�a�file�to�another�place�within�the�file.+sl2 +tt1SYNTAX:+TT2DUPLICATE�[VERTICAL-RANGE]� [/NEW-LINE-NUMBER�[,NEW-INCREMENT]] +SL2+TT1ALIAS:+TT2D,duplicate,d+sl2+tt1WHERE:+TT2NEW-LINE-NUMBER is�the�destination�line�number�for�the�first�line�copied�(line�numbered files�only).+nl+tt2NEW-INCREMENT�is�the�line�number�increment�to�be� applied�to�each�subsequent�line�of�the�copy.+sl2+lm6+pl The�duplicate�command�will�copy�the�requested�data�into�a�buffer�area.�The data�can�then�be�moved�from�the�buffer�via�the�XTRACT� command.�The�duplicate‚command,�when�used�with�line�numbered�files specifying�the�NEW-LINE-NUMBER,�will�automatically�invoke�the�XTRACT �command�to�copy�the�data�from�the�buffer�to�the�target�area. See�the�BLOCK/LINE�MERGE�RULES�on�the� following�page�for�the�treatment�of�line�number�conflicts.+sl2+lm6+pl +tt1CRT-MODE:+TT2If�the NEW-LINE-NUMBER�was�not�utilized�the�screen�is�unchanged.�If�it�was� specified�the�current�position�line�contains�the�line�following�the last�line�copied�at�its�new�location.+sl2+tt1+LM20 EXAMPLES:�+TT2�1.�Duplicate�this�line.�(put�this�line�into�the�XTRACT buffer)�+nl+tt2 >Dcr+sl2+tt2 2.�Duplicate�lines�100�to�300�inclusive.+nl+tt2 >D�100-200cr+sl2+tt2 3.�Duplicate�the�next�10�lines�(when�editing�a�file�without�line�numbers). >D�*-10cr+sl2+tt2 4.�Duplicate�this�line�and�put�it�at�line�number�111.+nl+tt2 >D�/111cr+sl2+tt2 5.�Duplicate�line�numbers�110�to�130�inclusive�and�put�them�at�line�number 151�with�an�increment�of�2�between�lines.+nl+tt2 >D�110-130/151,2 +sl2+tt2�6.�Duplicate�line�130�and�put�it�at�143.+nl+tt2 >D�130/143cr +pg +lm6+pl+tt1 1.6.9�BLOCK/LINE�MERGE�RULES+NL+TT1When�the�establishment�of�new�line�numbers for�a�block�insert�generates�a�conflict�(a�potential�duplication�or overlap�of�line�numbers)�the�editor�will�display:+sl2+tt2 "LINE�NUMBER�CONFLICT�AT�XXXX�RESEQUENCE�(Y/N)?"+SL2+TT1 If�the�user�responds�with�a�"Y"�the�balance�of�the�file�will�be�resequenced only�until�there�is�no�further�conflict.�If�the�user�responds�with�a�"N" the�duplicated�lines�in�the�file�will�be�overlayed�with�the�new�lines. Consider�the�following�example:+sl2+lm35+pl+tt2User�file�prior�to�any editing:+nl�010�1st�line+nl�020�2nd�line+nl�030�3rd�line+nl�040�4th�line+nl 050�5th�line+nl�060�6th�line+nl�070�7th�line+nl�080�8th�line+nl�090�9th�line+nl �100�10th�line+nl+nl+tt2User�enters:�DUPLICATE�10-50/74,4+NL+NL+TT2 The�editor�will�begin�processing:+nl� 010�1st�line+nl�020�2nd�line+NL�030�3rd�line+NL�040�4th�line+NL�050�5th�line+nl 060�6th�line+nl�070�7th�line+nl�074�1st�line+nl�078�2nd�line+nl+tt2 LINE�NUMBER�CONFLICT�ATƒ80�RESEQUENCE�(Y,N)?+SL2+TT1 If�the�user�types�"Y"�the�rest�of�the�file�will�be:+nl� 082�3rd�lineC +nl�086�4th�line+nl�090�5th�line+nl�091�8th�line+nl�092�9th�line+nl 100�10th�line+sl2+tt1If�the�user�types�"N"�the�rest�of�the�file�will�be:+nl 080�8th�line+nl�082�3rd�line +nl�086�4th�line+nl�090�5th�line+nl�100�10th�line+pg +lm20+tt1�1.6.10�E�+sl2+tt1FUNCTION: +TT2An�editor�command�that�will�terminate�this�edit� session�and�initiate�the�editing�of�another�named�file.�(For�command specifics�see�the�INVOKING�THE�EDITOR�section.)+sl4 +LM20+TT1�1.6.11�EXTEND +SL2+TT1FUNCTION:�+tt2Insert�data�at�the�end�of�records.+sl2+tt1SYNTAX: +TT2�EXTEND�[VERTICAL-RANGE]�STRING+SL2+TT1ALIAS:+TT2EX,extend,e +sl2+tt1WHERE:�+tt2STRING�is�the�value�to�be�appended�to�the�end�of�the records�in�the�VERTICAL-RANGE.+sl2+lm6+plThe�STRING�must�be�delimited by�the�first�non-blank�non-numeric�character. The�same�delimiter�must�be�used�to�terminate�the�string.+nl+nl+tt1 CRT-MODE:+tt2The�current�position�line�is�the�last�line�modified�by the�extend�command.+sl2+tt1+lm20EXAMPLES:+TT2 1.�Put�a�comma�at�the�end�of�the�line�at�the�current�file�position.+nl+tt2 >EX�/,/cr+sl2+tt2 2.�Put�a�period�at�the�end�of�line�100.+nl+tt2 >EX�/./cr+sl2+tt2 3.�Put�a�period�at�the�end�of�all�lines�between�line�number�100�and�200� inclusive.+nl+tt2 >EX�100-200�/./cr +pg+lm20+pl +TT1�1.6.12�FIND+SL2 +tt1FUNCTION:+tt2Find�a�string�or�a�line. +sl2+tt1SYNTAX:+TT2FIND�[VERTICAL-RANGE]�[[HORIZONTAL-RANGE]+nl [.TRANSPARENT-CHAR]�[;COUNT]�STRING�[REPETITION]]+SL2+TT1 ALIAS:+TT2F,find,f +sl2+tt1 WHERE:+TT2TRANSPARENT-CHAR�is�a�character�within�the�STRING�that�is�to�be ignored�in�determining�search�satisfaction.+nl+tt2 STRING�is�the�string�to�be�found. +nl+tt2COUNT�indicates�that�the�COUNT'th occurrence�of�the�STRING�in�a�line�is�the�target�string.+nl+tt2REPETITION� indicates�the�number�of�times�the�STRING‚is�to�be�found. +sl2+lm6+plThe�STRING�must�be�delimited�by�the�first�non-blank� non-numeric�character.�The�same�delimiter�must�be�used�to�terminate�the�string. When�a�find�command�is�executed�with�no�parameters�it�implies find�the�next�occurrence�of�the�last�STRING�entered by�the�find�command.�Used�in�this�fashion�the�FIND�command�begins�the�string search�at�the�current�position�line. When�the�find�command�is�executed�with�only�a�VERTICAL-RANGE specified�it�implies�position�the�editor�at�the�start�of�the�VERTICAL-RANGE. FIND�0�will�imply�a�request�to�position�the�editor�at�the�beginning�of�the file�and�conversely�FIND�9999�will�imply�a�request�to�position�the�editor�at the�end�of�the�file.�When�the�VERTICAL-RANGE�is�not�specified�the�string search�will�begin�at�the�beginning�of�the�file. An�"A"�in�the�COUNT�or�REPETITION�field�will�imply� a�request�to�find�all�the�occurrences�of�the�STRING.�The�default�value for�COUNT�is�1�and�the�default�value�for�REPETITION�is�1.‚When�the REPETITION�is�greater�than�1�the�screen,�in�the�CRT-MODE,�will display�only�the�lines�with�an�occurrence�of�the�STRING.�If�the screen�gets�full�the�display�will�scroll�up�until�the�list�is�exhausted�or the�user�types‚CTL-W�to�pause�the�list�or�BREAK�to�abort�the�list. The�screen�may�be�returned�to�the�normal�CRT-MODE�display�by�the�entering of�a�null�command�or�any�other�valid�editor�command. +sl2+tt1CRT-MODE:+tt2�The�current�position�line�will�always be�the�line�with�the�last�occurrence�of�the�STRING. +sl2+lm20+tt1EXAMPLES:+TT2�1.�Position�the�editor�to�theD �beginning�of�the file.+nl+tt2>F�0cr+sl2+tt2�2.�Position�the�editor�to�the�end�of�the�file.+nl +tt2>F�9999cr+sl2+tt2�3.�Position�the�editor�to�line�number�140.+nl+tt2 >F�140cr+sl2+tt2�4.�Position�the�editor�on�the�first�occurrence�of�the� string�SAM�in�the�file.+nl+tt2>F�/SAM/cr+sl2+tt2�5.�Position�the�editor on�the�first�line�with�two�occurrences�of�the�string�SAM�between�line number�100�and�200.+nl+tt2 >F�100-200�;2/SAM/cr+sl2+tt2�6.�List�all�occurrences�of�the�string�SAM.+nl +tt2>F�/SAM/Acr+sl2+tt2�7.�List�all�lines�with�2�or�more�occurrences�of the�string�SAM.+nl+tt2>F�;2/SAM/Acr +PG+LM20+PL+TT1�1.6.13�INSERT+SL2+TT1FUNCTION: +TT2Insert�data�into�the file.�(For�editing�files�without�line�numbers) +sl2+tt1SYNTAX:+TT2INSERT�[OFFSET] +SL2+TT1ALIAS:+TT2I,insert,i+sl2+tt1WHERE:+TT2OFFSET is�the�offset�from�the�current�position�line�at�which�to�begin�inserting. +lm6+sl2The�insert�command�initiates�the�input�process�in�which all�data�following�the�insert�command�is�inserted�into�the�file�until�a�null line�is�encountered�(SCROLL-MODE)�or�mode-change�is�input�(F1�or�F2�keys). +sl2+tt1CRT-MODE:+TT2When�the�insert�command�is�received�the�current�line� position�is�set�to�the�point�at�which�input�is�to�begin.�The�current�line�is� cleared�pushing�down�all�lines�on�the�screen�to�make�room�for�the�data�to�be inserted.�The�cursor�is�then�positioned�on�the�cleared�line�to�accept�input. When�page�editing�is�terminated the�data�below�the�current�line�is scrolled�up,�returning�the�current�line�position�to�the�line�it�was� positioned�on�prior�to�the�insert.�At�that�time�the�cursor�is�returned�to the�command�line.�The�insert�command�in�the�CRT-MODE�initiates�page�editing. +sl2+lm20+tt1EXAMPLES:+TT2�1.�To�insert�data�into�the�file�at�the�current�file position.+nl+tt2>Icr� +pg+lm20+tt1�1.6.14�LIST +SL2+TT1FUNCTION:+TT2�Display�a�portion�of�the�file.+sl2 +tt1SYNTAX:+TT2LIST�[VERTICAL-RANGE] +SL2+TT1ALIAS:+TT2L,list,l +sl2+lm6+plThe�list�command�will�cause�the�data�within�the�VERTICAL-RANGE�to be�displayed�on�the�screen.�If�the�list�is�too�long�for�the�screen,�the display�will�be�scrolled�up�until�the�list�is�exhausted�or�the�user�types �CTL-W�to�pause�the�list�or�BREAK�to�abort�the�list.�When�the listing�is�finished�or�aborted�the�user�can�return�the�screen�to�the�CRT-MODE by�entering�a�null�command�or�any�valid�editor�command.+sl2+lm20+tt1 EXAMPLES:�+TT2�1.�Display�the�entire�file.+nl+tt2 >Lcr+sl2+tt2�2.�Display�only�the�current�file�position.+nl+tt2>L�*cr+sl2+tt2 3.�Display�the�lines�between�line�number�100�and�200�inclusive.+nl+tt2 >L�100-200cr+sl2+tt2 4.�Display�the�next�10�lines�(when�editing�a�file�without�line�numbers).+nl+tt2 >L�*-10cr +pg+lm20+tt1 1.6.15�MERGE+SL2+TT1FUNCTION: +TT2�Retrieve�records�from�another�MDOS�file�and include�them�into�the�edited�file.+sl2 +TT1SYNTAX:+TT2MERGE�[VERTICAL-RANGE]�FILENAME�[NEW-LINE-NUMBER [,NEW-INCREMENT]]+SL2+TT1ALIAS:+TT2merge+sl2+tt1WHERE:+TT2 FILENAME�specifies�a�valid�MDOS�file. +NL+TT2VERTICAL-RANGE�specifies�the�range�in�FILENAME�to�be�copied�into the�edited�file.+nl+tt2NEW-LINE-NUMBER�is� the�line�number�to�be�assigned�to�the�first�line�from�FILENAME�when�it�is inserted�into�the�file.+nl+tt2NEW-INCREMENT�is�the�increment�to�be�added�to each�successive�line�number�as�the�lines�are�inserted�into�the�edited�file. +nl+nl+lm6+pl If�the�VERTE ICAL-RANGE�is�not�specified�it�will�imply�get the�entire�FILENAME.�If�the�user�is�editing�without�line�numbers,�the�data from�FILENAME�will�be�inserted�at�the�current�position�line.�The�line numbers�that�may�be�in�FILENAME�are�lost�upon�extract.�The�line numbers�applied�will�be�as�specified�via�NEW-LINE-NUMBER�and NEW-INCREMENT,�if�specified,�or�will�default�to�the�current�position�line plus�10�with�an�increment�of�10.�If�the�establishment�of�new�line numbers�causes�a�conflict,�the�BLOCK/LINE�MERGE�RULES shown�following DUPLICATE�command�description�will�apply.+sl2+tt1 CRT-MODE:+TT2The�current�position�line�following�a�merge�will�be�the line�following�the�last�line�inserted�by�the�merge.+sl2+lm20+tt1 EXAMPLES:+TT2�1.�Insert�all�the�lines�in�the�file�named�SAM�into the�edited�file�at�the�current�file�location.+nl+tt2>MERGE�SAMcr+sl2+tt2 2.�Insert�all�the�lines�in�the�file�named�SAM�into�the�edited�file� beginning�with�line�number�400�with�an�increment�of�1�between�line� numbers.+nl+tt2>MERGE�SAM�400,1cr+sl2+tt2�3.�Insert�line�numbers 100�to�300�inclusive�in�the�file�named�SAM�into�the�edited�file beginning�with�line�number�500�with�increments�of�2�between�lines.+nl+tt2 >MERGE�100-300�SAM�500,2cr +pg+lm20 +tt1�1.6.16�MOVE�+SL2+TT1FUNCTION: +TT2Move�a�group�of�records�from�one place�within�the�file�to�another�place�within�the�file.+sl2+tt1SYNTAX:+TT2 MOVE�[VERTICAL-RANGE]‚[/NEW-LINE-NUMBER�[,NEW-INCREMENT]] +SL2+TT1ALIAS:+TT2move+sl2+tt1WHERE:+TT2NEW-LINE-NUMBER�is�the�destination line�number�for�the�first�line�moved�(line�numbered�files�only). +nl+tt2NEW-INCREMENT�is�the�line�number increment‚to�be�applied�to�each�subsequent�line�of�the�move.+sl2+lm6+pl The�move�command�generates�a�DUPLICATE� command�followed�by�a�DELETE�command.�For�additional�information see�those�command�descriptions. +lm20+sl2+tt1EXAMPLES:+TT2�1.�Move�this�line�to�the�XTRACT�buffer.+nl+tt2 >MOVEcr+sl2+tt2�2.�Move�line�number�100�to�the�XTRACT�buffer.+nl+tt2 >MOVE�100cr+sl2+tt2�3.�Move�the�lines�between�line�number�100�and�200 inclusive�into�the�XTRACT�buffer.+nl+tt2>MOVE�100-200cr+sl2+tt2 4.�Move�the�next�10�lines�into�the�XTRACT�buffer�(when�editing�a�file without�line�numbers).+nl+tt2>MOVE�*-10cr+sl2+tt2 5.�Move�the�line�at�the�current�file�position�to�line�number�131.+nl+tt2 >MOVE�/131cr+sl2+tt2�6.�Move�line�120�to�123.+Nl+tt2 >MOVE�120/123cr+sl2+tt2�7.�Move�the�lines�between�150�and�200� inclusive�to�line�number�190�with�an�increment�of�1�between�lines.+nl+tt2 >MOVE�150-200/190,1cr +pg+lm20+pl+tt1 1.6.17�NUMBER+SL2+TT1FUNCTION: +TT2Insert�data�into�the�file�and�prompt�user�with the�next�line�number�for�insert.�(For�editing�line�numbered�files�only.) +sl2+tt1SYNTAX:+TT2NUMBER�[NEW-LINE-NUMBER�[,NEW-INCREMENT]] +sl2+tt1ALIAS:�+TT2N,number,n +sl2+tt1WHERE:�+TT2NEW-LINE-NUMBER�is�the�first�line�number�to�be�prompted. +nl�+tt2NEW-INCREMENT�is�the�value�to�be�added�to�the�NEW-LINE-NUMBER�to�form each�succeeding�line�number�prompted.+sl2+lm6+pl The�number�command�initiates�the�input�process�in�which�all�data�following the�command�is�inserted�into�the�file.�The�number�command�with�no�parameters will�cause�the�editor�to�form�the�line�number�prompt�by�adding�the�default increment�of�10�to�the�last�line�number�in�the�file.�Prompting�will�continue after�each�carriage�return�until:�a�null�line�is�encounteredF �(SCROLL-MODE) or�a�mode-change�is�encountered�(F1�and�F2�keys). At�that�time– the�editor�will�again�accept�edit�commands.+sl2+tt1 CRT-MODE:+TT2When�the�number�command�is�received�the�current�position�line is�set�to�the�point�at�which�input�is�to�begin.�The�current�line�is�cleared, pushing�down�all�lines�on�the�screen�to�make�room�for�the�data�to�be inserted.�The�cursor�is�then�positioned�on�the�cleared�line�following�the line�number�prompt.�When�page�editing�is�terminated‚the�data�below�the current�line�is�scrolled�up,�returning�the�current�position�line�to�the line�following�the�last�line�input.�At�that�time�the�cursor�is�returned to�the�command�line.+LM20+sl2+tt1EXAMPLES:+TT2�1.�Begin�page�editing�and begin�prompting�line�numbers�at�the�end�of�the�file�in�increments�of�10.+nl +tt2>Ncr+sl2+tt2�2.�Begin�page�editing�at�line�number�100.+Nl+tt2 >N�100cr+sl2+tt2�3.�Begin�page�editing�at�line�number�200�with line�number�prompts�in�increments�of�1.+nl+tt2>N�200,1cr +PG+LM20+TT1�1.6.18�RANGE+SL2+TT1FUNCTION: +TT2Establish�a�default�value�for�the�vertical�and horizontal�ranges. +sl2+tt1SYNTAX:+TT2RANGE�[VERTICAL-RANGE]�[HORIZONTAL-RANGE] +sl2+tt1ALIAS:�+TT2R,range,r+sl2+lm6+pl The�range�command�with�no�parameters�deletes�the�previously�established ranges.�The�range�command�provides�the�default�ranges�for�LIST,�PRINT, CHANGE,�FIND,�and�SAVE.+sl2+LM20+TT1EXAMPLES:�+TT2�1.�Set�the�default VERTICAL-RANGE�to�lines�100�to�300�inclusive.+nl+TT2>R�100-300cr+sl2+tt2 2.�Set�the�default�HORIZONTAL-RANGE�to�edit�a�full�132�character�line.+NL+TT2 >R�:1-132cr+sl2+tt2�3.�Set�the�VERTICAL-RANGE�default�to�lines�100�to�200 inclusive�and�set�the�HORIZONTAL-RANGE�to�columns�16�to�80�inclusive.+NL+tt2 >R�100-200�:16-80cr +PG+LM20+TT1�1.6.19�RESEQUENCE�+SL2‚ +tt1FUNCTION:+TT2�Number,�renumber,�orƒ unnumber�the�file. [,NEW-INCREMENT]�]�[N] +SL2+TT1ALIAS:+tt2resequence +SL2+TT1WHERE:+tt2BEGINNING-LINE-NUMBER�is�the�line�number�at�which�to begin�resequencing.+nl+tt2� NEW-LINE-NUMBER�is�the�line�number�to�be�assigned�to�the�first�line resequenced.+nl+tt2NEW-INCREMENT�is�the�increment�to�be�applied�to�form each�subsequent�line�number�within�the�file.+SL2+tt2N�implies�a�request�to strip�the�line�numbers�from�the�file.+sl2+lm6+plIf�BEGINNING-LINE-NUMBER is�not�specified�the�entire�file�will�be�resequenced.‚If� NEW-LINE-NUMBER�is�not�specified�resequencing�will�begin�with�the BEGINNING-LINE-NUMBER�plus�NEW-INCREMENT.‚If�NEW-INCREMENT�is�not specified�it�defaults�to�10. The�N�option�is�mutually‘ exclusive�to�the�other�options�on�this�command.+sl2+tt1CRT-MODE:+TT2 The�current�line�position�is�not�altered�by�this�command;�however,�the display�will�be�altered�to�show�the�effect�of�the�resequence.+sl2+lm20+tt1 EXAMPLES:+TT2�1.�Resequence�the�entire�file.�Begin�the�new�line�numbers with�line�number�10�with�increments�of�10�between�line�numbers.+nl+tt2 >RESEcr+sl2+tt2�2.�Resequence�the�file�from�line�number�150�to�the�end of�the�file.�Use�increments�of�10�between�line�numbers.+nl+tt2 >RESE�150cr+sl2+tt2�3.�Resequence�the�entire�file.�Begin�the�line�numbers with�line�number�100�with�a�increment�of�2�between�line�numbers.+nl+tt2 >RESE�/100,2cr +pg+lm20+tt1�1.6.20�SEARCH+SL2+TT1FUNCTION: +tt2Find�the�next�occurrence�of�a�string. +sl2+tt1SYNTAX:+TT2SEARCH�[STRING] +sl2+tt1ALIAS:�+TT2S,search,s +sl2+tt1WHERE:�+TT2G STRING�is�the�string�to�be�found. +sl2+lm6+pl+tt1The�STRING�is�delimited�by�the�first�non-blank�character.� The�same�delimiter�must�be�used�to�terminate�the�string.�The�search command�will�begin�a�string�search‚at�the�line�following�the�current line�position.�A�search�command�with�no�STRING�will�search�for�the�next occurrence�of�the�last�string�specified�by�a�search�command�or�a�find command.�Thus�the�search�command�is�equivalent�to�a�FIND�1-9999�/STRING/� in�an�unlined�file�or�FIND�n-9999�/STRING/�in�a�numbered�file�(where n�is�the�current�line�number�++�1).+sl2+tt1CRT-MODE:+TT2The�search command�places�the�current�line�position�at�the�next�occurrence�of�the string.+lm20+sl2+tt1EXAMPLES:�+TT2�1.�Find�the�next�occurrence�of�the string�SAM.+NL+TT2>S�/SAM/cr+sl2+tt2�2.�Find�the�first�occurrence�of�the string�BILL�and�then�find�the�next�occurrence.+nl+tt2 >F�/BILL/cr+nl+tt2>Scr +pg+tt1 1.6.21�TAB+SL2+TT1FUNCTION: +TT2Alter�the�tab�settings�used�for�data�input. +sl2+tt1SYNTAX:+TT2TAB�[CHAR]�[COUNTN]1-20 +sl2+tt1ALIAS:�+TT2tab +sl2+tt1WHERE:�+TT2CHAR�is�the�non-numeric�non-space�character�to� designate�a�tab�request�during�page�editing. +nl+tt2COUNTN�is�the�column�position�to�which�a�tab is�to�be�set.+sl2+lm6+tt1 When�no�CHAR�is�specified�the�default�tab�key�is�the�TAB�key.�The tabs�can�be�reset�by�entering�the�tab�command�with�no�parameters.�The 1�to�20�COUNTN's�specified�must�be�separated�by�commas.�The�COUNTN�values�will add�additional�tab�stops�until�the�tabs�are�reset�by�a�tab�command�with�no parameters.+sl2+tt1CRT-MODE:�+TT2The�display�is�unchanged�by�the�tab�command. +lm20+sl2+tt1EXAMPLES:+TT2�1.�Set�tabs�at�columns�10�and�20�and�use�the character�Z�as�a�special�tab�key.+nl+tt2>TAB�X�10,20cr+sl2+tt2�2.�Add�an additional�tab�stop�at�column�15.+NL+TT2>TAB�15cr+sl2+tt2�3.�Delete�all tab�stops.+Nl+tt2>TABcr +PG+LM20+TT1�1.6.22�VERIFY+SL2+TT1FUNCTION: +TT2Display�at�the�terminal,�any�time�a�change�is�made to�the�file,�the�value�after�the�change. +sl2+tt1SYNTAX:+TT2VERIFY�[OFF] +sl2+tt1ALIAS:�+TT2V,verify,v +sl2+tt1WHERE:�+TT2OFF�disables�the�verify.+lm6+sl2+tt1 The�verify�is�enabled�by�entering�the�verify�command�with�no�parameters. With�the�verify�enabled�in�the�CRT-MODE�certain�multiple�update�commands will�display�a�list�of�occurrences�rather�than�a�sequential�portion�of�the file�surrounding�the�changed�record.�Should�the�list�become�too�long�for�a� single�screen�the�display�will�scroll�up�until�the�list�is�exhausted�or�the user�types�CTL-W�to�pause�the�list�or�BREAK�to�abort�the�list.�The�screen can�be�returned�to�the�normal�display�by�entering�a�null�command�or�any other�valid�editor�command.�Use�of�the�BREAK�key�will�cause�the�update command�to�stop�processing�as�of�the�last�line�listed�on�the�screen.+sl2+tt1 CRT-MODE:+TT2Execution�of�the�verify�command�does�not�alter�the�display.�The verify�command�causes�other�update�commands�to�display�as�noted�above. +sl2+lm20+tt1EXAMPLES:+TT2�1.�Enable�verify.+nl+tt2>Vcr+sl2+tt2�2.�Disable verify.+nl+tt2>V�OFFcr+PG +lm20+tt1�1.6.23�XTRACT+SL2+TT1FUNCTION: +TT2Insert�the�data�in�the�buffer�into�the�file. +sl2+tt1SYNTAX:+TT2XTRACT�[NEW-LINE-NUMBER�[,NEW-INCREMENT]]�[A] +sl2+tt1ALIAS:�+TT2X,xtract,x +sl2+tt1WHERE:�+TT2NEW-LINE-NUMBER�is�the�point�at�which�to�insert�the first�line�from�the�buffer.+nl+tt2NEW-INCREMENT�is�the�incremH ent�to�be� applied�to�each�subsequent�line�number�inserted�into�the�file.+nl+tt2 A�indicates�that�the�xtract�buffer�is�to�be�deleted.+sl2+lm6+tt1 In�unlined�files�the�xtract�will�always�copy�the�data�in�the�buffer�into the�file�at�the�current�position�line.�If�the�establishment�of�new�line numbers�generates�a�conflict,�the�BLOCK/LINE�MERGE�RULES�(shown�following�the DUPLICATE�command�description) will�be�applied�to�resolve�the�conflict.+sl2+lm20+tt1EXAMPLES:+TT2�1.�Insert the�data�in�the�XTRACT�buffer�into�the�file�at�the�current�file�position.+nl +tt2>Xcr+sl2+tt2�2.�Insert�the�data�in�the�XTRACT�buffer�into�the�file beginning�with�line�number�200�with�an�increment�of�10�between�lines.+nl+tt2 >X�100cr+sl2+tt2�3.�Insert�the�data�in�the�XTRACT�buffer�into�the�file beginning�with�line�number�200�with�an�increment�of�1�between�lines.+nl+tt2 >X�200,1cr+nl +lm3 +PG+AS –TABLE�1-5ƒOperator�Messages ‚MESSAGE™PROBABLE�CAUSE EDITOR�OVERLAY�NOT�AVAILABLE �All�editor�overlay�files�must�be�in�drive�0�throughout�the �edit�session.‚Put�a�system�diskette�in�drive�0. NAME�REQUIRED �The�editor�was�invoked‚without‚specifying�the�file�to�be� �edited. ILLEGAL�FILE�NAME �The�name‚of�the�file‚specified‚is�not�a�valid�MDOS�file �name. INVALID�DEVICE �The�device�specified�is�not�a�valid�MDOS�device. INVALID�DRIVE �The�drive�number�specified�is�not�supported�by�MDOS. XXXXXXXX.XX‚DUPLICATE�FILE�NAME �The�file‚name�specified‚cannot�be�created‚as�it�already �exists. XXXXXXXX.XX�IS�WRITE�PROTECTED �The�file�name‚specified�has‚been�marked‚write�protected �and�cannot�be�edited�without�specifying�FILENAME2. XXXXXXXX.XX�IS�DELETE�PROTECTED �The�file�name‚specified�has‚been�marked�delete�protected �and�cannot�be�edited�without�specifying�FILENAME2. XXXXXXXX.XX�HAS�INVALID�FILE�TYPE �The�file�name�specified�is�not�an�ASCII�file�and�cannot�be �edited. OPTION�CONFLICT �The�options�specified‚are�conflicting.‚Pick�only�one�tab �option. INSUFFICIENT�DISK�SPACE�ON�DRIVE�X�CONTINUE�(Y/N)? �The�system�compared�the�free�space�on�drive�X‚to�the�file �size�of�the�file�to�be�edited.‚If�drive�X�is�the�drive�on �which�the�edited�result�is�to�be�stored,�a�DISK�SPACE�FULL �message�will�appear‚and�the�edit�will�be�aborted�when�the �file�is�written�to�disk.ƒIf�drive�X‚is�not�the�drive�on �which�the�edited�result�is�to�be�stored,�the�edit�may�con- �tinue�as�long�as‚the�edit�only�makes�one�pass�through�the �file.‚An�attempt‚to�reposition‚the�editor�to�the�begin-� �ning�of�the�file�may�result‚in�the�disk�space�full�abend. �If�DRIVE�was�specified�in�the�edit�command‚as�the�same�as �the�drive‚on�which�the�edited�result�is�to�be�stored,�the �first�time�this�message�appears,�it�is�the�caution�to�do�a �one�pass�edit.ƒA‚response�of‚Y‚will�allow�the�edit�to �continue.‚A�response�of�N�will�return�control�to�MDOS. SOURCE�FILE�SEQUENCE�ERROR.‚RESEQUENCE�REQUIRED� �The�source�file�contains�non-numeric�data�in�columns�1�-�4 �or�does‚not‚contain‚a�space�in‚column‚5;�or�the‚line �numbers�in�the�source�file�are�not�in�ascending�order;‚or �the�line�numbers�in�the�source�file�are�not�unique. WHAT? �An�invalid�edit�command�was�entered. COMMAND�SYNTAX�ERROR �A�valid‚edit‚command�was‚entered‚but�the�syntax�of�the� �command�was�not�correct. DEVICE�NOT�READY �A�MERGE‚or�PRINT‚comand�was�received�and�the�appropriate �device�is�not�I ready. XXXXXXXX.XX�DOES�NOT�EXIST �A�MERGE‚command�was�received‚but�the�specified‚FILENAME �does�not�exist. COMMAND�ABORTED �The�BREAK�key‚was�repressed‚during‚file�access‚and�the �command�last�entered�has�been�aborted�prior�to�completion. STRING�NOT�FOUND �The�string�specified�in�the‚CHANGE,�FIND,�or�SEARCH‚com- �mand�cannot�be�found�in�the�specified�ranges. INVALID�FIELD �The�field�specified‚within�the‚HORIZONTAL-RANGE‚has�not� �been�defined�via�tab-stops. LINE�NUMBER�OVERFLOW‚RESEQUENCE �An�attempt�to�generate‚a�line�number‚resulted�in�a�value �greater�thean‚9999�and�wrapped�around�to�or�beyond‚0000. �The�file‚must�be‚resequenced�or‚the�command�results�are �unpredictable. XTRACT�BUFFER�OVERFLOW �An�attempt‚to�move‚or�duplicate‚too‚large‚a�block�has� �occurred. SOURCE�LINES�NOT�FOUND �An�attempt�to�MERGE,�MOVE,�DUPLICATE,‚or�XTRACT‚occurred �and�the�referenced�data�does�not�exist;�or�the�xtract�buf- �fer�is�empty. EOF�ENCOUNTERED �An�attempt�to�MOVE�or�DUPLICATE‚a�block�of�data�was�term- �inated�by�the�end�of�file.‚Data�up�to�that�point�has�been �processed. BOF�OR�EOF�ENCOUNTERED �An�attempt�to‚page�or�scroll�beyond‚the�beginning�or�the �end�of�the�file�has�occurred. LINE�NUMBER�CONFLICT�AT�XXXX�RESEQUENCE�(Y/N)? �Block�editing�has�resulted�in�a�line�number�conflict.‚The �editor‚will�resolve‚the�conflict‚according�to�the�rules �described�in�paragraph�1.6.9. IS�THE�SOURCE�FILE�LINE�NUMBERED�(Y/N)? �A�MERGE�command�was�entered‚and�the�editor‚needs�to�know �whether�or�not�to�strip�the�first�five‚characters�of�each �record�extracted. +// å%Þ€&8' '0208A1'¹A2'¾AL'ÛAR'ìAS(2BH(BBL(mCM(šCN(¡D1)£D2)¨EM(¼EX(ÊF1(ÑF2(ÖFL(wFR)8HL(rIS)SKY)‘LJ)hLM'ûLP)pLT)ôNE*(NL*2NP*  Ê!PCN0 SA Ê!PLP0 SACOURTESY OF SCRIBE TEXT PROCESSOR 00.00 ** COMMAND ERROR --!!--INVALID NUMBER OF COPIESCANNOT USE MULTIPLE COPIES AND SECOND FILE SPECIFICATIONJ Ž&+þ ÿ$Nþ ÿ$QÎ$8? ½-ó½.¨%½,Ù%'­% ó½/ï½1Æ? $é–8…'½*2ÞŠŒ"Þ'Ô½' ½*¼}E&½3 ÄzE&½3~*DÎwßhÎ"yßjÆ Îh?Î"o½)½.¨½)£ Ÿl¦�:-†0§ Z&ð9� %�$9†% ûÎ Ì Î!Q9Æ„?9æ Å@'æÅ9S üÎ"o Î"”½'«&½(2Œ"o'½)¨ 9½)£ ù~+ÉÎ!�9% &K‘ $G§ 9Î �(%ø&:‘!$ï 4Î#�%é&+‘"$' ÞÎ"� %Ú&‘#$Ñ ß\½,£'†9�…$ùM'öÞ\_ ó~+Ɇš8—8 †þ”8—8 9½' Î!Qß.½1Î%�+&½1t � 'Þ.§ß.|9Œ!Õ&ß 9Î2 ÎA ÎBß\½,£%& M' �l$Þ\§O9Þ\Œ2&ï~+Ɇ· Ê 9†š8—8†Ï”8—8 9Þˆî? Þˆ½)–O9† š8—8†í”8—8 9†· Ë 9Î"o Î"”ß\Þˆî oß‚Þ\??† ?(ßjß„ÎlßhÎhÆ ?΂?]&æ¦Þˆç§Þ\†KÆDç§ ½/% ½)–9XÆ%Æ? ÞŠŒ"Þ'½+É 9Þ†Œ"o'Œ"”& ½'«&߈½)–_9~+ɽ,£% & M'�K$—CO9~+Ɇ͔8—8 9Î#ߊ�}D& |D†6½1�2J&ø9Î"Þߊ Î"¹ßˆæ¦‹Éç§9Î"o Î"”½'«&A߈œ†'à߆æ¦&]'Õ67æ¦&]'€§ç† ª§?&†ß¤§32§ç ª22_? ~+ÉÎ# Î"ß\½,£%!& ‘G$ÎH?(¦Þ\Œ"'‘"$ ‘#%§ 9~+ɽ/ï½1T09½/ï½1Y09Îÿ Ê 9�?Î"o�Î"”� Î"¹�Î"Þ�Î#??9Î!ܽ-v% &†š8—8 9~+Ɇû”8—8 9½/-½'› 9½,£%'½1t†�$ ½+–C›#½+n9~+ÉÎ!á½-v%&†š8—8 9~+É–3'½+–3‘2' ½,£% &‘3#–3'½+ 9½, ù~+ÉÎ"o Î"”½'«&?&9_? ~+ɆÝ”8—8†š8—8 9½,£%)&.M'+�l$'6½*23}3'Z'Ñ3%Ö3' 7½1�z33Z&õ 9½, ù~+ɽ,£%&M'�„$ Š€½/}0 9~+ɽ,£%&M'�„$ Î Ì?(ß,ß&09~+Ɇ—GÎHÆO? 9½,£%&M'�„$–G�" ÎH?(ç|G 9~+ɽ,£%&‘G$ ÎH?(¦½+n9~+ÉÎf¦½'Ž·$h¦½'Ž·$i½*2½*2ÞŠŒ"Þ'Î$U? Î$UßhÞ&ßjÆÎh?Þjß$½*2½*2 9½2r–8…'Î!áßhÎ!ÜßjÆÎh?&†÷”8—8–2—39<=Þ&ßhÎ!æßj½2ñ|=Þh¦ßh� ' z='=|<Þj§ßjZ&Ý9Î –f�)—^–g�#—_ßhîŒÿÿ'œ^'Þh ëÞhî9Î+É ú�a%�{$„ß 9½1Î%%?%"6½1Î%?%2½/Y6½1Î% ?% 2½/Y_9Š ú½1t2 ó0½1Î%Ö8Å&½-P'ð½-3% &½-�½/}O9� &÷½/}½1Î%ó½-3%î'èŒ(:'†+½/}–f½/}�+'Ù–g ÑÞ6o ß6Î(:OL Ç�+&½1Î%—f�+' ½1Î%—g½,g9_ ü� &† � &}F&}0& Þ, ¦½2h&|F|0_9ßjÆ×\½1Î% Þj§ßjz\&ï 9}0'6† ½/}}F' Ö0Á%½/}F209½1½'›–A'5_67½1�32J'*\Á&ñJ6Î!QßhÎ ÌßjÖ9'Îh?Þjßc½1·26½1�2J&ø½1‹9Î ÊßaÎ!PßcÎ †>§Î"¹½/ Î"Þ½/ Î#½/ DeEF†0—lÎSAßuÞþß‚Î"yß„ßh΂?]&ZÎwßjÎhÆ ?Î"o½/½)–Î"žß„΂?]&Î"”½/Þ‚¦� ')�;&õ¦?% 6¦?%2½/Y62—E' Î"”¦…' ½)–9Î$m? ?Î$†E ô½)‘½)н+~8½'›†—C† —#†F—"† —!†F— ½/-Î!ÜÆ†0?Æ1÷!áÎ!áÆ†0?½' †6—2—3†—A†—B½1ÆÎ$¿Æ„O?Î%CÆ„?9?%?%9_? 9�ð%û¦„�'ó¦Š§Æ æÎ Ìß&ß$ß*ß(Î&–#?Î$–"?Î*–!?Î(– ?Þ&ß,9H—`HH›`9}3&½, –2‘3&½-°Þ$ßc½1·z39Þ6§ß69Þ4 §ß49 Þ4œ6'¦oß4 9> |>½2Ô'D}:'?}>&t:'5½1Þ&Ö:?Ö:?'ßjÎ!æ?$›'Ù&Î Ì?.—i×hÞh ¦� 'ùßh½2ñÎh?9–-Ö,Þ$?/".½/�$U…€' J�€'½/…† Ö8Å& Þ,œ&&� 'Ó„Þ,§ß, ÈÖ8Å&!½1% ½� &æÞ,œ&'³Þ&¦� & œ,&õ½1p ¡½1m œ9½2Ô}:'½,1}<&~0íÖ:†ÿLÐ<*ûÛ<—?×@=½2ñ×1Þ&ßjÎ!æßhÆ–;…'P–1J›i—i–h‰—hÞ$ßjÞh¦� &H}=&*|=–?—\'† Þj§�7z\&÷ßj}@' † Þj§�#ßjz@Þh¦�ßhÞj§�ßjz1&´|;9= â67ß^O]*CÛ_™^×_—^Þ^329Þ&ß,½/�$Þ,§ß,Ö$–%?/$ì9Þ,–'Ö&?/' ß,¦½2U'½/…† Þ,§ ã½1 $}0&ë–8… '½0T –8…'½/� –8…'½/¢½/a½/-9Þˆm&jj9Î ÌßhÎ!æßj Î!æßhÎ ÌßjÆ„Îh?9–8…&Î Ìßc† §½2Π̆ §9–8…&½2%½'›9Î%Cß4ß69Þˆ¦æ â% î¦Þˆl&l9Œ"¹&Î#¨Æ„? ?'?$Î"¹ ¦æ‹„ɧç?¦æ§çæ¦ç§$³9ÞŠ–bÖaç§Öc–dç§e?%9}e&½/|eÞŠæÁ&? %ÞŠ à 9Î"kß^Î"j¡'œ^&÷9Î"oß^Î"k ë½1½'›–B'T_67½K 1�32J'I\Á&ñ6–8…'4–)Ö(�+Ò*€ ÂWF›+Ù*—k×jÎ!ÖßhÆ Îh?Þ(ßc½1·Î!àÆ½'}2J626½1�2J&ø½1‹9:Þ$¦� &|: œ&&ò¦� &:9–%Ö$�'Ò&�:‹É9†û”8—8½'›½-°Î$,ßhÎ ÖßjÆ'Îh?Þjßc½2z3½'›½*¼9ååååååååååååååååååååååååL åååååååååååååååååååååååååå