IMD 1.16: 15/08/2007 11:30:09 basic compiler  MDOS02010201112478BASIC COMPILER \lx€ˆ�˜ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿàÿÿàÿÿÿÿÿÿðÿ@óàzÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿLIST CMÌrPAYMENTSSAðEDAYS SCLISP LO\RMDOSOV0 SY\rDIR CM|rMERGE CMÜrCALLS SA¤PAYMENTSSCTEMDOSOV4 SYˆrBIO LX$ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿMDOS SYrCALLS SCˆEMDOSOV6 SY˜rDAYTEST SC„FACTORALSCøENAMESIN SCEBIOM SC¤FREE CMÀrDUMP CM¨rNAME CMðrDAYS LXHNOECHO SAÀEMDOSOV1 SYlrCOMPILE CM˜rLIFE SCEASSEMBLECM°rDAYS SAlRUN CM0rEDITM CM rMDOSOV3 SY€rMDOSER SY eDEL CMtrDAYTEST LXˆCREATE SAÐNAMESIN LXBIOM LXPCREATE SCÈEBACKUP CMtrREPAIR CMürBIO SCôEMDOSOV5 SY�rDOSGEN CM�rDISKNUM SA COPY CM\rCALLMDOSSA ESCRATCH SCTMDOSOV2 SYxrJUNK SAÜ|½èu½ëÀΠ¦u—æ+.ĦHYHY‹É×—¦wæv—׿z¦{67îx߆S6†è6~èm†?— ~èS@€?@Ù0201£ÿ� €CN0 LP0 DK0MDOSER SY �0¦æÀ‚Îÿ¡&á'LŒÿ/&ñ0®431¯5¦X%;Á€$*÷DÎzîÿU0¦6¦æî2½T06ç3ç3Ä„ï6;Æ!½b~ÍþnWþn·¹oùõ»ûáä£Ô%(4]_fo|…�™Ù  ¿³µýb¯±¿\lr„…†�¢£¤´ÁÕÛáAD÷½¿"ggggÍ}üý*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Îè�ÿIÄ×Î߯670îæ¦îß×—½$–�1'2�4'.�8'*�9'& 320îÖç$…€'90¦æ€Âî§çÆ? ?0j'ÕæÎ‚Á&Ö–?.Y$½èu V×—½èx~9Ö–?*ÎÑ?/%éÆ†Ñ ã÷6¶Š€·29þÿÿúŽÿŠ~èþÿúŒ*' Œ'Žÿн ¾ Îfÿÿ¶Š€·Î ÿ½è"½èu½èS|½èu~ûDK9LPFCRSCP`CNmHRzr –Á€¦1€ *Q€{e€ 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% ¦Š§~C~+„|‹_?3?*67�) â*0l&ll&l¶ö‹€É¡&˜á&”11~&0î 0îîî9î¦æ�ë§ç Ä|Ë?3?+?$�à§ç~Cî?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~ K~ e~ ‚~ ‚�~˜Á & }ÿ*Î]À &ý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÷JîÿOÄ' V$ý]'~ RöJÄ(&ööJ*Åx&íÅ'éÆ0·`¶J…@&"?$ Á&~ cÆ ? ?†¤ &~ g¦ „�&õ½ sþTîxÿV½ øöV¶WþX?)ÿXþV½ ª$~ kþXöJÄ'†?(ÿZ½ Ì%çöJÄ' þZ_?]&ÖöJÄ'böJÅ&8Å'þ\ þO½ “ÿK½5½ Õ}a&ŽÿŠ ¾Z¶KöL76¶^ö_76~èmþ\ÿÿþVÿÿþZÿÿ½'½5ÎÿÿúÎðó ´½ Õ½èm¶VöW0î§ç¶\ö]§çÖÁ0&_9 9Æ0î¶O§¶P§ 9Æ íÆ éÆ åÆ ᦠæ îÿT·R÷Sö`ÎQ?þTîzÿ\9?$þV?/$11 ÏþX?&?/%ó9aöJÅ8& Å'ö¶ ö¶|a?-9ö ¶ ?.90î¶`—þRßþT¦u‹„ø—îvßþVß9þTîv'# ÿXÎX†?þT¦u'‹„øJ»Y·Y$|X911~ gÎÿoŒÿc' ö9öJ*þÿÿúþÿÿø½'9èS>ÿ7÷=Á#IÎ9½ÎÿœÿnÎÿÜÿ pþ{'½ËÎj?'Á &þÿœ¼9&íþlÆçÎÿž Î=ÿ7·Æÿ Î�_HY?)îö=?#ÿ3Îÿ�Æ çÆ*ççÿ5þ7ö='>Á&æ¦Îܽ–Š0·êÖ–Îð½þ3¦�'_�\'0þ5§ÿ5þ3ÿ3 á}>&Ü|>¦ÎPm'С&æ~o ïÿ3¦Î?m'¶¡'Æ?' ò|4&|3æîÿi½h ˜þ5†§Î *­ Îÿ�½ð$½ð! 9þ5ÿ;þ7ÿ9ÆÎ9?þ;†.§ÿ;ÆÎ9?þ7æþ;†:§çÿ5þ9ÿ79þ7ÿ9þ5»6·6$|5¶:Á&ö9½9½9þ7¦9·:G»8·8$|7 Å0î ÿ7~Æ6�26� §2�§9DDDD„‹0�9#‹90 †1Æ3í8 "#$ % &  ' ( )*+,-. ÀINVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SY�ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿsý~Õö/ ~Þö1 ~çö3 ~ðö5ÿg0¦€§¦‚§¦Î_…\€$û÷u¦H·„·�Îæ¦÷·¶6ÎõÆ@?% 2·0æî ~ù†V— ½èS          ½6½6½6½6½6½6½6½6½6½6­ ì~Á  ½>½>½>½>½>  ½F½F Îÿ{ÿ‡966Î~966Î&~A66Î+~I66Î-~Q229 ½N¿ vÎ ‚†M§¡'ù ÿ þÿúÿþÿøÿÎ*ÿÿúÎúÿÿø¾ †/ηü|üÿ xÎõÆ?%(æ ¦ þ x§çŒ&ßÎ z?Î Æ?Î z?¾ v9†V— ½èS�µååå € ÃÃ~á~á½6½6½6½6½6½6½6½6ÿPæ÷Oî'ƆнÉ$~Í ÿRÎR†?þR Î ÿRþÿWþPî ';½ îÿYZ†9þR ÿ]Î]†?_þ]½É$~ÕþY½ã?'ÿ_ÿg Îÿ_ ÿgÎÿUöOÎT?þ_'~¶ÿa½Š&.%,þ_ÿeÎÿ[½¹%½Š& % þ[ÿ[ ë½È ½È~ë½¹$È~ëÿcab½Š%'þPÆå &Îÿ_~xþaÿa¼R'½¹$Ö Ûþa&~ÑöR¶S?&½É$ þPî&éþaÿRþPm &m 'Æå ' þg¼c'~Ñþcÿ_þRÿ[½Šêçþ_ÿ_þ[ ÿ[&éöOÎT?þPî &þWÆ€O?ZþWçþc?1?1ÿU ÿUöOÎT?þWm+ øÿ]þc¼g'KþRÿ[_† ½É$÷[·\¶\?,ÿRþcÿY?)ÿcö\þY½õþ]ç§ÿ] îÿgþR&¸~=þ] ÿ]î½ã÷[† & þ]ÿ] –·a_þR?&½É$¶S·a¶aþR?,ÿRþc?(ÿcö[ûaþY½õþ]ç§~ÍÎÿÿÿeþWÿYîög¶h½É&^þg½ãXXZþe?'ÿ_½bÊ€þ]ç§öOÎT?þPî &öU¶VþPç § _9þPög¶hç§öe¶fç§ö_¶`ç § Û½ãXXþe?'ÿeþY~FÆ 9Æ úÆ öÆ òÆ îÆ êÿPæ÷OþÿWþPî &~ɽÆtÎmÿkþWÿiÎi?þPîŒÿÿ'~ÒþPæ÷]ÄøTTTÁ-Á#~ÙU÷VöOÎT?ö]ÄXXXXþW?'¦�ÿ'~ÝÆ€þWO?þPî ÿUöOÎT?þPo o Îmm*~�ÿ]ÎÿUöOÎT?þ]î* öOÎT?~�½ã÷Rÿ_½Š%Säçþ_ÿ_öRZ÷R&æþ]ÿ] Á?0?0ÿ[þWÿ]þ]î*~ͽãR÷Sÿ_þRö[¶\½É%R?.÷[·\þ]ÿ]þ[&ǽþPæ¦Ê€þ]ç§ÿ]þWƆt?)¼]' þ]oo äöOÎT?þY~{½öSð\¶\þ_?(½õþYç§þ_ö\½õþ]ç§ÿ]~ö_¶`νÉ$9� þW?( å9ÄTFVFVD6YYYO FZ,ü29þ_ÿ_Ɔÿ½É9þ[öa¶b½É$ þ[ÿaþeÿc9½bÄ|WW\7½bÄ?%39ZXX7½bÄ?%3O?*9þ]öW¶X?-½bÎm?)ÿY9ƆнÉ$11~ÉÿUöOÎT?þWÆm+ \Á: /õ11~ÉÁ'÷9åå€ Ãý6½6~ï~ù~W~@~u~o~r90îî¦90êç9½S0oƽp]'Á'd�*&Æ�à�Ö�.&PÆ‚½p]' �*&Æ�Ê�À�:&† 0î?ÆÁ½p† 0î?�£0æ90î î¦�;'� ' 0î l&lî¦9Æ�u ¼�#'zÆ€½é ‘„?6½BÅ€&� 'õÅ@'?$ @?%Ä?0îî]'§Z0½T�¡?%äŠ0 äÄ?')760á'î î?0¦î ?23�*& ½B?$ù?$õ†*190î6?29ƽé0î†?ƈ½p~_6Á'-þ ¶ öÿ?-?&0 5?&þ?) ö ¶ ?/%(ö¶?/$!ö¶ ÿ0m& ¶‹öÉç§_ŒÆŒÆ2W9¦ …@&-„� $*¦?%$¦ ?%þÿ;î'?/'þ; ì~ ~~þ;î'ðÿ=þ;îŒDK&~þ=¦J0îæ Ä%Zþ=]'† ?(Z ÷ÿ=î'»þ=oo¦…€' 0¦æþ=§ç¶>ö=0î§ ç¦ Š@§ ¦„?Ч Æ0¦îç9ÆŒÆŒÆ í0îæ Äþ=¦·?¦ $ à † ?(z?&ð Ù~Å6¦ …@'¦…'¦ „¿§ ?2îoo?3oo Æ ÆŒÆ 2ç9ÆŒÆÿŒÆÿì÷'~»… '~¾„�&~¾ñ|ñ¦„·ï�'�'�'~Á¦…&ñ榧çîô¦…'|ôþìæ ¦ Áÿ&�ÿ&o o î …'sôîÿê­ì$~Äþ즄?Š@§}î&~¶ï�'~ó}î*~–ðþì¦æî½É%mæþìl&lÁ &}ô/%}ñ& |ð†±ð&Ͻ¨ 0}ñ& }ð'7½¨%"3¶ï�&¶î' Á & ½÷ ¶ò·ò½~$~µ~(óƽ~$6~µ¶ï�&%}î' þìîæÁ '!}ô,þìŒ &æ Å ' � $~µ½÷%ø~Ê}î&|ó ¶ï�&ôöòP½~9ó}ô.Æ ½~%Æ ½~% }ô.ƽ~9ÆE}î+ ÆH}î'ÆDó½~$~µòO}î+þìæ¦î ?.]'~Ç�ÿ$ùL»ò·òó}î&|ó ¶ï�'ô½~%B}î*~Ï~}ó'7ÄðTTTT�½˜3% Ä�þê½ã9Ê0Á:%Ë9öððÊ€ó ÉþìæŒÆŒÆ ŒÆ ŒÆŒÖŒÆÁ' 7þê­ì3þìç]' 9€Xÿÿ~~½>½>½>Æ _÷Bÿ@îÿ>þ@Æå'~/†¤�&~1† ¥&÷½a$~<CIþ@æ¦ç§}B&†¤�'�'�'~8~}Eþ>†D¥'|Dþ@æÁ - ÁZ.½k$~<½%_ Æ÷F½€$~@}D'ZÁ& ½÷'ÝM&ZJþ@ç§C?%æ½k$Å~<Á&½ê~CÁ&(½ê%êþ@îÿGþ@æ¦þG?/'™æÿG½k%É åÎLá'…¶S¡&ôÁ &8þ@îç}D'}F&½ñ ½ê$~<}I'~@}C'~I½Uþ@o_9½6'Á&|I]*Ä'÷GÆ ½zG' ô½~–½€$~@}B'ÁH' ½6' ÁE&|I ÁD'½à ÖJ}B&tþ@†¤�&i†·E½Ë%¾½Ø÷K&~Q}I'Á&ô}B'Á&ëzK' ½Ë%—½ؽ î½Ë%нØ}J&̽€%äÁ &÷þ@æ¦á&¡'m&jj~;†ÿ •0îç] 9ÆÆ ½U ïÆ ÷Æ ó}B&Æ êÆ æÆ âÆ Þ7þ>î­@39þ>î­@9þ@†@ª„§þ>î­ @9þ@†€ª„¿ é½€%%½à�"$1111~QXXXX÷¶½€% ½à�%æû¶ 9À0%Ëé% Ë*Ë%Ë 9}E+½€9½‹9¶J·J97Á &½a39Æ ½k%Æ ½k9þ@æ¦î?/9þ@æ¦î}E&M&ZJ½É97½%3ç½bþ@ç§9†·C39þ>†¥9 ÿ € ÿÿ½>½>~~X~ØÿN†¥'~Bæ¦ ÷P·Q†¤�&þPî­ NþN†ª§o_9þP†¥'ᆥ' þN† ¥'~ÄþN†¤�'�'�&¼?8'¸~:þN†@¥' Dæ ¦ Áÿ&�ÿ'8æ¦&]'/î?/')þNæ!¦"î?/%o ÷þN† ª§?†ß¤§]'~:þNoo†¥&~,î Œÿÿ&QþN†À¥'~F¦·Ræ îÿV„øDDD�-�#~JT·UÎS?öRÄXXXXþV?'†ÿÆ?þNæ ÎS?þNÆ ?'?"%~,0îç] 9Æ ôÆ ðÆ ìîÆå&0îo_90î?&\æÄøTTTÁ-RÁ# LÔ÷Õæ þÿÖÎÓ?0îæÄXXXXþÖ?'æÁÿ''ÿÔ0îÆ ?'ÿÖÎÔ6Æ ?20î?90îç 9Æ õÆ ñÄ&~Ï÷îÿ ¦·0îîÿ Ä' „æÄ&Ûþ Æ?$~Ó½ìÿöÄ'Mþ ¦ æ„Äÿ· ÷þ ¦ æ·÷„Äÿ± '~Ûñ&øöÄ&þ¶ö§ ç öÎ?_9Æþ ?%~×þ öÄ' ¶ö§ çÆ ?'ÿþ ?'ÿÎÆ?öÎ?þÆ ½ßþ Æ@?%!öÎ?þ†ÿ¡&ƽß~eÆ 9Æ úÆ öÆ ò†ÿ?öÎ?9¦îÿ„HHHH?(ÄøVVV÷9"€(ss~y½FÿrÆå&~#†@¥ &~'“îÿtþr†¥'¦„�'~Kþt†€¥&.~+½Wo_9þt†¥'þr†?¤§†¤�'�&~~|“ àþt† ¥&~/½aþt†¥&~�þrÆ ?'Æ?$Á'Æ ? ?þr†¤�&~~3þr†¤�' †€¥'~G†÷¤§oo†ÿ§ § §§ooîÿwþræ îÿyÎv?þyæ*~7¦þrç §þyÆ:m+Z&÷~7æ¦Äþrç§~¶}“'~¶½W?6'~øm 'Æ ?'ÿwþrîÿyÆ Îw?&þrîÿwþrÆ ?'ÿyÆÎw?~¶þrî¦ þr§?'üÁ 'øÁ '¦ «þt†@¥&~/½aþr¦„§„�&þt†¥&† †þræÄø6§2�'�'�& þtÆå&~KþtÆå&~’þrÆ ?'Æ?$Á&~;Á&~?Á&~CÆ ? ?þr†ª§~C�' �'�'~K}“'~¶þrîÿ�þrîÿ‘þrÆ ?'?$þrç§?%Æ?'?$þrç§½W?7ö�¶�ç§ö‘¶’ç§m&~¹†ª§~þt†¥&~+†`¤�`&½a~0îç] 9Æ ôÆ ðÆ ìÆ èÆ äÆ àÆ ÜÆ ØÆ ÔÆ ÐÆ ÌÆ ÈÆ Äþr†ï¤§9þtî­r$11~O9$€Xss½F~y~‘ ‘ƒ¨§ö:@¼ÿÿð³°÷vN FTWARE DYNAMICS TER DISK IN DRIVE 0, AND A SCRATCH DISK IN DRIVE 1 ? 9 sEND CHAIN¶HHHHC„ð´'Æ1~w? $Æ0 õþŸÿ|þ“ ÿ“΂æÊ ç?'Æ ×þ|ÿŸ½ç? %ÑΧ¦�@'C�\&ÿ|0æî�$§� ']'Z ñ¶„·0¦¦î9Æ)~wÿ~þ|¦ÿ|þ~9¦�*'.�.'*½W�J't�C'f�L'_ÿ€½^�S&~Êÿ‚½^�T'%Æ2 ¹6ö~'Χ? 2�.&4ÎŽ? ? $~©½ð #6¶·“ö¶ô€´�þ‚?/  ½ä2~Ѷ„·~ óÿ‚|½äþ§Œ@L&õΧ½W¼‚&ê Ò¶ö´€ô�º~ú·÷ ¸O †6΂æÄßç?&%2M' ¶~&Χ? þ|ÿ|þ€ÿxÎw_?Χ9Á &4¶'Æ3~w¶+Æ4 ô¶ƒŠ·ƒÎÿÿÿ�΂?& ?&΄? ~y~ÇÆ?'ÿ|þ|ÿ|Î|6½Ž2&þ~9Æ ? þÿŒÎ‚???ooÆ0+(� # €+ �.‹ ÿ|7Æxy~Z&÷»·3Z&Ò9&€pýý~ Î!_Æ?έoßþ_Î!Z?þ!]îÿ!0¼&%þ!]î ÿ!3¼&Îÿ!_Î!Œÿ!aÆÎ!_?' †RŒ†I— ½èS úÆ? ¶�ÿ'~ †U~ HÎ ¦ …@'ÎE¦ …@' þ{'3Îj? ,Î ?%È?%ÄÆêçÎE?%·?%³Îj?%¬?%¨Î!*? †=·3ήÆO? ? _÷3÷¶„·έßþÿ!6Î!:ÿ!8†0§§ÎCMÿ!CÎ!6?]&*þ!6ßþÆÎ!:?Á'†Á'†Á'†Á'† ? ~ Î!S? Æ€?#¶Š€·~  MDOS . !f!åWHAT?!f!cý½N ååå (€ 0B�COMMAND�SYNTAX�ERROR 05�NAME�REQUIRED 06�\0�DOES�NOT�EXIST 08�\0�DUPLICATE�FILE�NAME 1B�FILE�NAME�NOT�FOUND 1A�DUPLICATE�FILE�NAME 0D�OPTION�CONFLICT 30�CHAIN�ABORTED�--�BREAK�KEY 31�CHAIN�ABORTED�--�SYSTEM�ERROR�STATUS�WORD 1C�FILE�IS�DELETE�PROTECTED 24�DEVICE�NOT�READY�AT�\8 0E�INVALID�TYPE�OF�OBJECT�FILE 0F�INVALID�LOAD�ADDRESS 13�INVALID�FILE�TYPE 1E�CONFLICTING�FILE�TYPES 1F�\0�HAS�INVALID�FILE�TYPE 27�INVALID�DATA�TRANSFER�TYPE�AT�\8 22�DEVICE�ALREADY�RESERVED�AT�\8 23�DEVICE�NOT�RESERVED�AT�\8 25�FILE�NOT�OPEN�OR�ALREADY�OPEN�AT�\8 26�END�OF�FILE�AT�\8 29�BUFFER�OVERFLOW�AT�\8 2A�CHECKSUM�ERROR�AT�\8 15�LOGICAL�SECTOR�NUMBER�OUT�OF�RANGE 07�ILLEGAL�FILE�NAME 2B�FILE�IS�WRITE�PROTECTED�AT�\8 20�\0�IS�WRITE�PROTECTED 09�NO�SUCH�DEVICE 04�ILLEGAL�DRIVE�NUMBER 12�INVALID�EXECUTION�ADDRESS 0A�INVALID�DEVICE 11�INVALID�RIB 1D�TOO�MANY�SOURCE�FILES 16�ILLEGAL�START/END�SPECIFICATIONS 17�ILLEGAL�PAGE�FORMAT 14�FILE�EXHAUSTED�BEFORE�LINE�FOUND 28�END�OF�MEDIA�AT�\8 18�ILLEGAL�LINE�NUMBER�OR�RANGE 19�LINE�NUMBER�ENTERED�BEFORE�SOURCE�FILE 02�DIRECTORY�SPACE�FULL 03�DISK�SPACE�FULL 10�NOT�ENOUGH�SEGMENT�DESCRIPTOR�SPACE 2C�INVALID�DIRECTORY�ENTRY�NO.�AT�\8 2D�CANNOT�DE-ALLOCATE�ALL�SPACE-DIRECTORY�ENTRY�EXISTS�AT�\8 2E�RECORD�LENGTH�TOO�LONG�AT�\8 0C�INTERNAL�SYSTEM�ERROR�AT�\8 21�INVALID�SCALL 2F�CHAIN�OVERLAY�CANNOT�BE�FOUND�OR�LOADED 32�CHAIN�ABORTED�--�ILLEGAL�OPERATOR 33�CHAIN�ABORTED�--�UNDEFINED�LABEL 34�CHAIN�ABORTED�--�PREMATURE�END�OF�FILE ååå|,@L€¿xÀ ~!z~;So$~r¯~s:~s~uö~v,~vŒ~s±~só~tË~t©~se~vn~wc~wl~w�~wu~w{rzqNq~ðó9~xŽ~r{o&„píqpîCOPYRIGHT (C) 1976 TERRILL M. MOORE¾ ;½ 2½- ½-q�"½#–€'÷~,Z]'½"}–€&óÞ†'–y'½9-½5½9Î|½"=½;€–€'½"™Þ�ß(�+½2“½"L " "*!˜;!˜ !˜½2“½"L " ";!• !• ë–™…'½2“�i09!ô..!ô " " ½2œÞ(ß"9Æÿ�_½2“½"L " ";!’ !’Þ( ß$9½*ìÎz�Îß|9¦‹§¦‰§90î11¡' m&õnîn0î11¡-¡.înm&ìn�> �:�6�2�.�* �&@�"€������ �@�€0î116–v¥&ª—v–w¥&ª—w–x‹%—x– Š— 290î11¡'m&÷nm&ûn–y&5Þ†'+�3(�Þ† ߆.÷ ߆9½"•~#êÎÿÿ߆�(ñ½9-~5– Š@— ~5�)ín½3T&/½3c&*Þ8¦æÎ#u¡&á&Œ#•'†@š — î 9¬' ß 9*ÿ#›+#›+##›+b#›+K#¨+J#¨+Z#Ô)�#*,Z#Î#™|ƒ&н"•zƒ ‚–ƒ&ú–y-özy.ñÞ8îŒ+J& ½.7½9;Þ].|y~#0½"™~,Z–ƒ'zƒ É—yz„ ç~$Ž~$éÞ$ß&½3T&ôÁ,'ð†ÿ—TÖ`TÉþ&á% ÖdÀAT&×É×TÎ&x–a¡& –b¡&–c¡' #f åîßU–V.OÖT,!½3i½1)�&3½1&.ÎAOœ`'Lœ`& —T–V6½4Õ2½"èÿ&½3i–V˽0ì%BÞ$ß&–V,ܽ"¹O ÖÞ$ß&ÖT-ÎÎ'ë½3Å&SÞ8ß:¦…'6½4Õ2…'6½3i2…' |„&z„6½"•2…'ÆÚ × … 'Æ@Ú × Þ:î6­2…'…@&½1~5½4ÕÞ$ß(Z½2“½"L+%$-%$#%;½2œ½)@–]ÖWÅ&M'½8Í–^½8ͽ1)Ò~5½2œ½.(–]'é�ÿ&Ö^+á½"� ܽ.(–] Ò&9%P&& &'&=&–TDFFšUÖU—UÁ‡'%½%‹& –]' }^,C'½"�OšU½8ͽ1–^½8Í~5��h~&Þ&' ¦�#&½._99Þ&½15�&�:&O—]—^11–]'½"�† šU½8Í »Þ&ß(½1(н1)�&É�&ÅÞ&¦�,'ͽ. ÍÎXœ`&±~1 ˆ ”½.–W…&¡–]&�11†~%t–T- '†�OšU~%~½3i½%�½.†0šU½8Í–] Å–U½"è�Ï'½½%‹&¸O å–T ѽ.¦�,&½"…–W…'–R'Ö^–]Ђ’�À×^‚'- ½"¡†þ—^~%sC&óS],ö íABAADC‰ÿADD‹ÿAND„ÿASLHASRGBCC$BCS%BEQ'BGE,BGT.BHI"BIT…ÿBLE/BLS#BLT-BMI+BNE&BPL*BRA BSR�BVC(BVS)CBACLC CLICLROCLV CMP�ÿCOMCCPXŒDAADECJDES4DEX EORˆÿINCLINS1INXJMPNJSR�LDA†ÿLDSŽLDXÎLSRDNEG@NOPORAŠÿPSH6þPUL2þROLIRORFRTI;RTS9SBASBC‚ÿSEC SEISEV SK1�SK2ŒSTA‡ÿSTS�STXÏSUB€ÿSWI?TABTAPTBATPATSTMTSX0TXS5WAI>ÿ'í'ö)´BEQU'ÿ)¿BSET()ÊRMB()FCB().FDB(#)ŸBORG(,*‰BNAM(6*‰BNAME(@+~WITH(I,ZEND(S*©JPAGE(^*„JTITLE(i*� SPACE(r*� SPC({)äFCC(…)T LIST(Ž)PCC(—)ƒ PSR(¡)‹ PGEN(ª)‡ PCA(³)�&RPT(»*ÿ2DO(Å+K ELSE(Î+Z FIN(Ö+2IF(â+J ELSEIF(ì+b2CASE(÷+#2IFUND)*I TABS) ,ZMON)?OPT�+–]' C&–^-½"�–^½8ͽ1)æ9�–]½8Í–^½8ͽ1)ï9½1)|Z�&]^9~.(–™C… &䯖R'Þ7½.(3–W…&ˆÿ”…Þ]/—… 7½"¥ 2Æ ÚÆ ÖÆ@ ÒÆ ν.=&Þ],Î߆ ½.=&½1Þ]ß�½4Õ½9ž~9;½.(½1½4Ü ò½.=½1½4Þ ç½)@½.?½9–‚›^—‚–�™]—�½9ž ÍÎß]½0¯Á&½0¯Á'ù�,&HÞ&½15–],½"¥½2“½2“Á &Þ]/O ß]† ½8Í ò½2“„'ê� &½"± á7æÊ€ç½8Í3Þ] ß] ÝÞ&ß( ÁÎ>zß“Îÿ>y½.(–^Ö]' ½"¥Î7¡ß“9‹Þ“¡/ï§ß“Œ>ƒ'åo½1)ÕÎ>y ßÎ>¢ #Î>„† "½.=Þ].† –^Ö]'†ÿ‘S#I CÎ? †h� :ß4—]Þ&ß(½2“� '*�;&† Þ4æ'ÖR'_Þ4Š€§\ß4Ñ]' ½2“Þ4� &ëo9–S'Ö…Å'6½752J.ø9½.=–]-&–^�#½"¥ ½.=Þ].O—ƒL—y~9;]^½1)�&½1&½3À&¦…'Ú|^ Û½"… Ð}„'O—ƒJ—y9~"•–„'ùJ—„9½.=Þ]'·�µÞ]-á–^*½"¥ Ø—yƒ9½1)�&Á,'õ9�'½"… ëÎ+˽3Å&ó¦î­ Û6½1)�&Á5'|Z9½.(–]& 2—54–^Þ4§92~"¥+Í+Ö;%MCM+à;(þNMCM+è;%LN+ñ;(ïNLN+ù;% LF,;(ßNLF, ;%@DMP,;(¿NDMP,;%€EL,&;(NEL,.+£‘WI,6+£’DE,?;%LST,I;(÷NLST,Q;-DO;0þNDOÞ†-½"•–„'½"•–R'½5½9æ–…Š—…½<�½;5¾ ;½-ó½9ѽ-V~!ƒ|p�a½75½75Î7½8|Öx'%Á'&Á™&Î,ß½8|OÖx½8”Î,Õ½8|†½:7p~*ìÎ,Ó íÎ,é èNo Errors. At Least One Error. –™…€'uÖx'q½*ìÎ-H½8|½75Þt'aÖˆ7¦æ½8™†-½7Þt¦æîßt½8”Öˆ2‹ Á "† ½7Z.ø–ˆ‹ ‘‘#Å ÀError Lines: Æ Î?’ß4î'¦Š§ ôÞ4Z&ë9ÎpoŒ…&øÎÿÿ߆†PÖ™SÅ &Š—…Îß~ßzÎ7¡ß“Î>ßq9Î oŒ¤&øÎ>`oŒ@G&øþ  ß‹Î�ß4Î-ã¦ß6Þ4§ß4Þ6Œ-ó&íÎ?tß�½7©½:p9?á@E„B7¡?Ò?ÞÈ@GO—�—‚L—R–™„Η™~:Þ&ß('Z O—]—^—W~"…½1)|Z�'ì�Þ(9�'½1)|Z�'ó~"�½3i�ÈŒ�é–W…'âO—]—^—W½"¥L9Ÿ*O—W†6�`.ƒ.x.Á.°.Úž*O—]—^|Z~"�½4D–_„šW—W–^Ö]67�0.š.k.k|ZÆ×[0Ö[Äðá#8–™…&2Ö[7 ©�¤½1)�'Ê °½1)~"LÁQ'½"èAB$S&›Êp Ù–‚Ö� ­~.k¦½"L0 A/1B/AQ0R0$a/I!/k$/s"/{T0(S086/‹5/’2/ž3/¤1/˜4/ªq/ñr/ãs/øt/ý7/¶8/°:/¼9/Â~.k�P«é§ç111~.œ�@ â î�8m, TFl&úl-ö Ü.m'ÖHYj&äj ö�ªê Ä�¤ä ¼�¨è  ´0¦æ9�;'¨L ¥�4'ù Ÿ�..ó ™�(-í “�",ç ��/á ‡�%Û ��"Õ ø� #Ï ò�$É ì0¦ ¦¢&„ûÄ_729O_0 â§ç~/=0¦æ ò†ÿ è_O0î0.åL â~.­Ö[Á&÷2—]3×^19�%�k–1Ö00 �� õ�–1Ö0Þ2'ï‹É é� –3Ö2 á†�O0îß,0îß.M'9Þ.&ß0ß2~"�Þ,ß0Îß2Æh1i0i3i2–3�/6–2’.%—22—3l1�1Z&á9Æ×0O_Þ.ß2ÎXIi3i2$Û-™,j0.ð—0×1Þ2' 9½2“½"bAZ0Êaz0È090ÍÎ0Ð~2õ‹àÆ9Æ9:$@%'() ;,.€ 0î11Xë7æÉ70î11în�$|Z�&Á,…9�ï'û~"…��&úÁ, '|Z 9–Z' –XÖYZ9ß(�ø½0¯½0ì1?2@1Á2¼2Ã2r2¢2¥2·2©2ÃO—XO—]—^�@'½"� .!7x^y]$½"�T&ò3›^—^� '冗X×YÞ(96�'2‘X'í 1½2œ½"© Þ7½0¯½"b091¼AZ1¹†ZÁ'3~2œ€7Œ€0_39Þ(ß4€0—^]½0¯Á&!€06–]Ö^XI76XIXI0ë‰ë©—]×^111 ؽ2œÁ&†—X×Y½0¯Á'õÁ'ñ–XÖYÁ' ½2œ½"©~1�Î2-½2õ)ïÞ4 ß(€7~1VHOQB€$@%€~1UÎ26½2õ(õÆÎ`§×`ß4½0¯Á'Á& Ö`Á'ï\Þ4 ㆽ2œ~1ƒÞ(¦� 'Š€§ß(„—^]~1�½"±O ò ÜÞ(¦ß( 9Þ( ß(9†Œ† è�è� 'ú� 'öß(† † Õ† ½2œ ô� - �_.Î3�%(† º],P† ²�²�30�m,ð½2œ]&ê ßæ¡)&ö90îë7Æé70æËç$lî119+¿-¾&Ü*¯#/!\ <>=€#a€6/T€R!"€!<:€S<8=4€2>7/9=3€1<4>3€5Þ$½15�&½1)�9Î'ë~3ÅÞ&½15 ½"�½1)�'ù�&òÁ,'îß&9Î[æOI©Z&ù„H‹’6†?‰60î119–ŒÖ‹Â67�œÒ›"11Î90î11ß‹9�ÃŒÞ8–`ß8î'#¡&öß8ß4ÎaŒÞ6æß6Þ4á&Ýß4J&íÞ8O9Þ89Ö`Ë7½3£&½"­þ4ÿ>uþ4ÿ>wÎ>r>t1 ,?ß43Î[ß6¦Þ4§ß4Þ6Z&ïÞ8–‹§–Œ§Þ‹ooß89½3À' †—_Îß]�Ÿ¦—_Чîß]…'½"‰…'½"‘9~3ó†�Oš_—_½3À' –R'ì½"µ 禅'<…'�>Þ8¦…&(…&Ö_Å&$Þ8îœ]'½"µÞ8¦„š_§–]§–^§9–_…&禄þЧ~"�Þ�ß]O—WOŒ†šW—_Þ"½15|Z½.»4ù4þ~"}Á,'ï9½4z é: –R'Y– Ö…„—p&Å'K– Î5g¥'å'>m&òÞ•½8|½8÷– …&† ½7Ö}–|½8™Î5½8|Þ�½8| –ˆ'½75– Š— …& p9@@Î5ìtvvw$ßBÎ7½8|ÞB½8|ßB½75ÞB á¦M.ú'Ù� Å–R'!–™…€'Îtß4Þ4î'ß4îœz&òÞ4îœ|&ê9ƽ3£'øß6oo–zÖ{§ç–|Ö}§çÞ4–6Ö7§ç9Illegal Label.Syntax Error.Illegal Argument.Undefined Symbol.Double Definition.Use of Doubly-defined Symbol.Nesting Error.End of Source File Encountered.Overflow.BRA/BSR Out of Range.Illegal Value.Illegal Digit.Out of Memory.Illegal String.Phase Error.Register Field Missing.ÿ *** 7�39M+� ']„� ' �.‹@6†^�2Œ† ÖR':„� '5֑ш#.ÖS& 6Ö’×S½8 2� -|ˆÖ™Å'6ƽ 2Öp' ÖšÅ'~:79ˆ�ÌzS9Ö‘ш#ð† �®–ˆ'èÞ“_¡'á"\m&ô]'Ö Þ%-5=Î>`ß4½ 5� † §ß4½ 8ŒÞ6æß6Þ4çß4J&ïo9½97�2Œ† ~7 MAL/6800 1.2: ; Page ; Form (–S� "†—S9–p6p–“6–”6Î8ß“Î7ß�R–��¤–‚� �¦Î>„�C�ŸÎ>¢�<½75Î>`�4Î7ö�/Ö–~�AÎ~½"=Î7þ�Ö{–z�0½7ÚÎ? �½75½752—”2—“2—p9¦&9ß@ÖA7Ö@7½70î11 è76_ 76Æ 0¦ç½906¦ç½97Æß@�0&¦'½7Þ@Z2&ï9½72Z&ù9Ö£&6�F2½9kÞ�ß�Þ¡�%§çoœ—'œ—'ß¡9½5£Þ•ß¡o9  ñ6�2DDDD„‹0�9/‹9Þ¡–��¿–‚�»† §—£ Ï– Š— � *S*9Þ¡–£&� Þ¡–]�“–^ �0î11¦ß6Þ¡§'ß¡Þ6 îÞ6nÞ�Œ?‘&�*ë§ç|Ÿß�90î11¦'�  ÷n½9�7Æ~::ÖR'/Ö™Å')6ÖŸÁ##�ÑS1L�ÚÎ?t¦�Óœ�&÷¦›ŸLC�Æ�´ �6Î?toŸß�–��”–‚��29Ö™Å'�°�’S9 9–\&ƽ ,—€Æ½ M'ñ� &֙Š&ç\9ÆÎ:~ &6� ' � ,6†^�2‹@�297Æß<½ 7ß<ƽ M'ø3Þ<90î11¦�ɦ&ùn_�Þ§'ú\� &ôo9½:P SOFTWARE DYNAMICS MAL/6800, Version 1.2 / 77E4 Ÿ*Î:¦ß‰½:PSource File=�^'çÆ½ Î:Ä߉½:PListing File=�?&†ý�F ƽ †�8Î:í߉½:PBinary File=�&†û� ƽ †�Î )߉9Þ�½:`Þ�Z9š™Œ”™—™9ššŒ”š—š9ƽ –™…'ƽ –™…'ƽ ½ )7½:PI/O Error #3O‹Z&ú½9½:"½:"½:P Þ‰ž*nÞ�ß –s&A–R&)ß6†>½:"½:`Z'-˽3£'&ß4Þq–4§–5§�<ßqoo9ß4Þqî' ß6�)Þ6ßq9zs½9õ� &½"/ ô½9õÞ §œ�'ß � &îo9Þ6¦ß6Þ4§ß4M&ï9–™C…B&½<”½<ž½75Þ]&ÎI~8|****Þ8¦�Þ8¦½9�× Ô      ŽrzήÿxùÎo0ÿxûÆ}Îxù?þxû† §½ �ÆÎqoZ&úÎo0¦� 'ù¦� '� &õ ÿxãÿxëxáþxë¦ÿxë� '+�;'|xá êþxë¦ÿxë� '�Z.€@/ÎqJ&ü†§ Þþxã¶xá½vŒÎo ÿxãþxã¦' ÿxã_½tË ï~vnILLEGAL SWITCH Žrz†·À†·À½w�Îo�† ƽs†·À¶ÀF$ú¶À„�'ƽtË åÆ½s:~vnFROMNOVA.SA  OöüôÅ&)V$öüõÄÁ'Á'Á'Á'Á' 9† 9†9†9†@9†€9½wݽwÿ½x!þxç?½xÙ& … &~x † †0þx秆§o¦æË‰§çoo?½xÙo)o*o+o(o'†§o¦æÀ‚§ç9½wݽwÿ½x!þxç?½xÙ& …@&~x¢† Ÿ†3 ›½wݽx¦… '½tº½uÖ¦„�&¦Š§?½xÙ?½xÙ9½wݽx¦… ':½tº½uÖþxã¦&0¦+,æhYI+$þxç§ç½u†þxãæTOþxçë ©§)ç*o%o(9~x°~x¬½wݽx½tºl%¦&&.¦(&#½t$#M'ø+� 'ò�'î�"�"æ�#9„§(j(† 9�† o%9½wݽxo(½tº¦&&½t$9�O9†§&9¦„�'!Å ' î)& ½u†% 9î)¦þxçl*&l)½uÈ 9~x°î)&LþxçîæþxçÅ'îÆ€? þxçOë©§ç ¦æË‰§ç?þxç¦' � '� '¦~xͦ§)¦§*î)¦þxçæ*á' l*&l)� &–o)o* 9½wݽx� o%¶xá½tú96þxç¦''Š€½túo'29½wݽxl%¶xá� &æÅ 'l'æ'Á&†ÿo'½tú9�È�"öo% òæÄÁ'(æÅ '3î)&6½u†2þxço+l+l*&l)î) §½uÈ9~x°îæÅ'õ·xóÎxó? 9þxçî)& þxçæç)æç*î)§þxçæ)çæ*ç� ' àÁ'l*&l)9þxç?½xÙo)o*¦æÀ‚§ç9þx禧)¦ §*o&¦„�& ¦ æ à¢+ ?þxç¦'� &Al&l&lîÆ€O?þxç 9 9þxçæ* â"æ)â!%þxçæ+'6m&jj?½xÙ2o+o)o*9~x͆½wä½x!þxç?½xÙ'†"§?½xÙ¦Š§†ÿ§ § ?½xÙ9~x¨Æ½wä½x!þzyŒDK&/0¦î111Æ ½wݽx!þzy¼z¥&¶z{±z§&Æþvg?]&9z{z§~x¦�?ƽwݦ…&öxâ½s:zxâöxâ*é96ÿxã¶xãöxä76�ؽwÐ0î112ƽr¯ÎÿxîÆ½wcM&\ƽs±�S&ïÆ½s±�9'R�1&âxð�S€·xí�L·xñ�G·xòþxî&þxñÿxî�7zxí'öxñÁo"&Æ$ñxò#þxñ§ÿxñ Þ|xð'œ~x¤Æ~xÆÆ½s:þxînƽs±�$HHHH6ƽs±�$ 3ûxð÷xð911 É�9#�G% 9�0%ú€0 9�A%ò€7 9½wݽx¦&9½wݽx¦%9Îw�†9Îwˆ†91-03-7812:01 AMÆ ÎyÉÿxé½w䆧¶xéöxê§ç§ç þxéÆ?'ÿxé¶xéöxêÿxéþxç§!ç"zxâöxâ*ÈÎwÚ†_½r¯9#CN¿xåÁ"¿xå·xá÷xâÿxãXÎxý?'îÿxç9~x˜¦…'o%o&o'o(o)o*o+9~xš¦…&9~xªþxç†D§†K§ †S§†A§†0§ Æ ?'ÿx÷Æ?þxãÿxùöxá'MÁ‚"IÎo'ÿxûÎxù?þxû†;§† ·o&Îo&ÿxõÎxõ?Å&#Å&Å€&9þxç¦ æ §ç 9M*_þxç? 9�$�"� ���������� � �����0æ11À6TO¾xå~ Oˉÿ¾xå~ þxç¦&í9yy=yiy•yÁyízzEzqz� ~ndååå ]€ h! $0201 _"¤"·"¾g"°"È)1#  "u_"Œ"Ž"ç SYNTAX ERRORSYSTEM SECTOR COPY/VERIFY ERRORDIRECTORY READ/WRITE ERRORSOURCE FILE COPY ERROROBJECT FILE CREATION COPY ERRORCANNOT DELETE DUPLICATE NAMEDRIVE 1 SCRATCH? APPEND TO DRIVE 1?DISK NAME: DATE(MMDDYY): USER NAME: NO FILES TO COPYDELETE FILE NOS.: NEW NAME: STARTING TO COPY FILESINSUFFICIENT MEMORYENTER FILE COPY SELECTION COMMANDS: SAVE (S), DELETE (D), PRINT (P), QUIT (Q), NO MORE (CR)S, D, P, Q, (CR):. NOT FOUND .SECTOR  OFFSET DR0- DR1-COPYING . - DUPLICATION: IS IT TO BE COPIED? NOT COPIEDCOPYINGMDOS SY OV0OV1OV2OV3OV4OV5OV6ER Þ7†?(ßyÎw9Ž ˆÎ OÆ?Þþ¦� 'ù� '$�;&ñ¦ßYÎ$С' Œ$ú&ô :î­ÞY â11–!+Î!a�&Î!s½.ôÎ Æ? ¦�Y'?O—)L—1–!.~$ú~&úÆ ? ~/þ–!&õJ—!9–!&íL ö–!&æ† î†š — 9†€ ÷|%9|#†—(9|&9|"9|$9–'&»z'ÆÎ#ÿ ¹Î ¹~-+–'&¦|'Æ Î"ù é $z $:A$‚C$ŠD$‘I$•L$™N$¡R${S$¥U$©V$sY$­Z$Âþ–$&΀½-öß9ß7ß/ßQþßMÆ??$„€HYI—O×PÞO}!*DV—O×P„DVF›NÙM×S—T_†?/"f–!+½. Îß*Îß,½&(Îß*Îß,½&(%>ÞMßQ|-Æ7½&(3%.Z&ö–$'-Îß*ÞOß,κÖ,–-?-$?)ß,ÎßY½&(ÞY&è~/î~/ä~/ÖÖO–PTFTF—[—\ÎßYß*Îß,Þ9¦ÆHZ&ü—;Æ×¹ =—I×J~#<~ )Î'üßOQ_½ ÞO§ßO� '|Q*ìÎ'ü–Q9ÞKß:ß@F–2& B½%2½!÷�'½&Y'ó½!÷�&ù½"2 c½%H~"ü½&Y½!÷. ½!÷-~$Ž!÷Þ@ ß@zF†—2 :½%PŒÞ0½&0¤—2 +½%PŒÞ0½&0ª§ ½&0C¤§ ½%2Þ:ßK½"–3Ö476ß3Þ3œG'æÁ'"ß3XOËZ‰ —.×/Þ.în†~'9Þ3ßD–7—%ŸB н"–3Ö476ß3–5Ö676–76 Îß57Ÿ.–.‘I"¬&–/‘J"¤†~%–2&P–7'HŸ.›/—/$|.ž.2—723—5×623—3×4Ÿ.¶ ;‘."&¶ <‘/"† ~'9~#<–2&Á~#<23—3×4~#<½"ß3~#<½"–2&ô~#<½"–2'ê~#<–2&冽 þ Þ3½! ½!½'D½%H–D'ÖEþ)½%9žB–%—7&~#<ƽ ƽ †½ þ~ )½&¿~#<Þ0½&¨~#<Þ5&Þ8ß8ß5Þ5'1½!÷‹0½&Ï–6½" –5½" ÆZ2„'ú\ 2„� -‹‹0½&ÏZ&ï~#<† ~'9† ½&Ï~#<† ½&Ï~#<½&Y½!÷. ½!÷-~"ü½!÷02¦~%„23—3×4–2&~#<–F½%’ß0–16–06Ÿ.¶ =ö >Ð/’.$ |7+½%H~"ü†½ þ~$½%2½!÷�'½&Y'ó½!÷�&ù½"~"ü½"~"Ô½%2~#<þ)–3Ö476 ß3~#<23—3×4Þ@ß:F9½!÷Ñ7/†~'9–7HŸ.›/—/$|.Þ.î9�ݽ&¨~#<–F6~#<–22& —F_›;—AÙ:×@~#<þ)ß,Þ,æ'=Z&×+ß)Þ:ß'Þ)ß)æÞ'á& ß'z+&ë hÞ,Ö-ë×-$|,Ö-Ë×-$Â|, ½Þ,L§ß)JÞ:ß'—+Þ'æß'Þ)ß)¼ '2¼ '-çz+&ㆼ '§O¼ '§¼ ' §¼ 'oÞ,9†~'9ß.–.Ö/뉗.×/½!÷Þ.„�/€ —+O Iz+*ú96Þ@Œ(û'¦�&†½ þ~$;ß@ .Þ: ß:Œ'û&†½ þ~$ÞK ßK†þ—+Î'ü¦§z+&ö½&Ü·(ú|F29æß.Z×+Þ.¦ß.�z+&ò9Þ3¦ß3�&9� ð}&'7ƽ 39ƽ ,M&Æ~ †9— ×!½ E†½ þÎß"ß#Þ –$‹—$–#‰—#–"‰—" &è–$½" –#½" –"½" Æ2„‹07½ V3Z&ó ½ þ�½!~ )Þ@+ ¦� ' ÷œ@' ¦ßM�QÞM ñÞ@Œ'ü' ß@ÆþÎ'ü¦§Z&ø½&Ü·(ú á¦ßM�9ÞM� ' �'Œ(û&ê½!z++† ½ V ô†^½ V½!96�#�_"|+½ V296�# �_" ð–+‹—+†<½ V26ß.½" Þ.Æ2„� -‹‹07½ V3Z&í†>½ V29  )/)kJSOFTWARE DYNAMICS BASIC VERSION 1.2-  )d )d.. )d.. )d.. )d )d )] )d&& )0 )v )l )�  )� )ŒAZ )«AZ ) 09 )– )«$$AZ )ÉAZ )¾09 )´ )É$$09 )á09 )á.. )áEE05 )õ09 )ô )û79 * 09 *09 *09 * * * *æ66 *æ04 *Q09 *L09 *G09 *F *K *P *å55 *Ã04 *v09 *q09 *p *u *Â55 *¬02 *�09 *Ž *«33 *¡05 *  *«49 *« *Â69 *¾09 *½ * *å69 *á09 *Ü09 *Û *à *å *ù.. *ùEE *ù09-- + +m09 +$09 + +$.. +# +0.. +009 +m09 +4 +mEE +h++ +U-- +U +h09 +h09 +_ +l09 +zAF +�09 +ˆAF +~'' +±'' +¦ +¦ +– +±'' +Õ"" +Õ"" +Ê +Ê +º +Õ""'' +ó'' +ó +ó +ó'' ,"" ,"" , , ,"" ,09 ,  ,M ,6  ,, ,MDD ,MII ,MMM09 ,P ,… ,f  ,\ ,…RR ,~EE ,~MM ,„!!09 ,ˆ ,µ ,ž  ,” ,µEE ,µNN ,µDD ,È  ,¿ ,Ì ,÷ ,Ú  ,Ð ,÷EE ,÷LL ,÷SS ,÷EE[(])!,O -5" .[ - * COMPILED BY 10/30/77 SOFTWARE DYNAMICS BASIC VERSION 1.2PROGRAM -‚ORIGIN : +o .[ IÞ$ -‘IÞ$4800  JSR $2000Iæ$12:: SET 0!,O -Â5" .[ -´DATA -÷ORIGIN : +o .[ : EQU $!.< -ð ."!.< -üG•Iþ*+2+:::I¦Iî:: !.u .$,‡   G§J, .F0} .S,O .S5" .Z.[   .t  .p  .p  .a,‡$ .´.µ .¡I�G­J3> . 6c . .â .­6c .­.â .´.[ )ã .á .ÜDOUBLY DEFINED LINE NUMBER .à / /\ /  .û  .ô .ÿ / .èLET /3o IF /!;A GOTO //3û PRINT />7û FOR /K4 NEXT /Y4X GOSUB /h4h RETURN /x4Œ STOP /†4‘ INPUT /•7Q READ /£:1 WRITE /²:£ RESTORE /Ã7/ OPEN /Ñ6Î CREATE /á6á CLOSE /ð6ô DELETE 07 RENAME 07 ON 04– REM 0(! 0/5" CHAIN 0>5. CALL 0L59 POKE 0Z6F DEBUG 0i6Y ERROR 0x6^ 3o0’  0‘, 0�0’ 0ƒ)­ 1— 0½DOUBLY DEFINED STRING VARIABLE 0Á I¯I¹,ù 1<)ã - / 1%I¡-*-1JI¡-*-4JI¡-*-22þ I¡I¦IÉ4+/ 1;2JIÉ4+ 1–/ 1–I¡-*-1I¡I¦JI¡-*-4JI¡-*-22þ I¡I¦IÉ*-I¡/ )� 2ý 1ÄDOUBLY DEFINED NUMERIC VARIABLE 1È I¯,ù 2d)ã - 2%I¹2IÖ::+7+6*IÉ8+6* 2c, 2c)ã - %I¹4IÖ::+3+6*(+1)*(+1)J+1IÉ4+6*(+1)*(+1) 2ü/ 2î)ã 2�I¹6J0J0J 2é*û 2¿FÏIþ:+FÛIö''Iæ$DG 2é: 2é+o I¹6J0J0J$ / 2ò 2üIÉ6 3 3, 33 3+� 3Iö)ã 3*Iæ: 3=+o Iæ$FORMAT 3n+� I&IæI¡-*-1IöI¡I¦LEN( 3ŒFŠ ) = >³ I^FŠ 3ç,ù 3Õ>³ , 3»>³ - = GD² G 3Ô- 3Ô= Fÿ>³ G# 3æ= 3æD² G Ch 3ú= >³ G)ã 4 G•IþI�D 4WFÏIÖFç= >³ GTO >³ STEP 4C>³ 4RFÕJ1 HD 4gHIÖ)ã 4zG›IþI�POP 4‹>³ I G¡G§ERROR 4ÇGOTO HõIþ0 4¸0 4Æ)ã 4ÆI� >³ 5!GOTO 4ÛHa 4ìGOSUB 4ìII IþI¡)ã IþI�, 5)ã IþI� 5I¡I¦5* 5",D² 58HÙ)� 5B)­ 5ž 5L 5nALREADY DEFINED AS A VARIABLE 5r ( 5�5Ÿ , 5‡5Ÿ 5}) 5“ G³IþCh 5ì+ 5ß- 5ß! 5ßXOR 5ß** 5ß* 5ß/ 5ß& 5ß^ 5ß 5ëFÉAÀ F 5ûB‚ 5ú FEFs 6A,ù 6<>³ , 6&>³ - G 6;- 6;FÿB‚ 6: 6@ >³>³ 6X, >³ HmHÓHîDEF 6Í)�  6v 6�NAME ALREADY DEFINED 6ÌG•IþI¡I¦( D ) IÖ= >³ IBI¡I¦ 7B 6à, D² HÁ7B 6ó, D² HÍ7B 7HÇ, 7 7B HÇ 6þD² 7IPDñ 7., D² IW7B 7A, >³ Gõ# 7P>³ G×F 7_I4GÅ 7x7B 7l, 7xI4H 7ƒH17„ 7ž7ì 7�, 7˜7„ 7œ FŠ 7ë,ù 7Þ>³ , 7È>³ - GGÑG 7Ý- 7ÝFÿH%G# 7êGÑG Ch 7úH%G7B 8, 89Z 883 8G¿ I49Z 8183 81G¿ ELSE 8óF 8UB‚ 8L9% 8T8ô 8ðF 8b8ô 8ðTAB( 8†>³ ) ; H783 8… 8ðE 8“8ô 8ðFs 8ã,ù 8Ú>³ , 8¼>³ - G8ô 8Ù- 8ÙFÿFáAÀ 8Ô 9% 8â8ô 8ð>³ 8ð9% 8óGÅ, 9 H83 9  9#; 983 9 9#G¿ G¹, 9;H83 9: 9X; 9PGË83 9O 9XG¿ USING :0)ã 9vIIþI� 9”F 9ƒHy 9”FŠ 9”Eë Hy , :(F 9´B‚ 9«G¹ 9³GÅ :'F 9ÁGÅ :'E 9ÎGÅ :'Fs :,ù :>³ , 9÷>³ - GGÅ :- :FÿAÀ :  G¹ :GÅ :'>³ :'G¹ 9•G¿7B :M, :N , :I:N :?FŠ :“,ù :Š>³ , :t>³ - GH  :‰- :‰FÿHG# :’H  Ch :¢HG7B :¿, :À , :»:À :±E :ÊHFs ;,ù ;>³ , :ñ>³ - GH ;- ;FÿFáGû ;H F ;*B‚ ;!Gû ;)H F ;5H>³ ;@Gû< ;×  ;T  ;M ;X THEN )ã ;�G‰IþI�,· ;|;Ø ;€ ;ÍGƒIþI¡;Ø ,· ;¿G•IþI¡I¡I¦;Ø I¡I¦ ;ÌI¡I¦ FI ;Ö 3û/ <\ ;þ  ;õ  ;î ;ù / ;â³ <ç) <ÕAÀ <Î=è <Ô=è <æ=è <æ=½ ) =‘E <ûD½ >V Fs =W,ù =I>³ , =&>³ - GD½ >V =H- =HFÿFáAÀ =A=è =G=è =VD½ =V>V F =vB‚ =h=è =uD½ =u>V F =…D½  >V >³ =�=è NOT( =¦< ) G�EOF( =¼>³ ) H+AND =Ù³ G_<> >>³ Ge<= >>³ Gq>= >&>³ Gw< >5>³ Gk> >D>³ G}FÕJ0Ge= >dD² H=<> >tD² HC<= >„D² HO>= >”D² H[< >£D² HI> >²D² HU? >½>¾ + >Ì? G) ?- >Ý? G/ ?! >î? GM ?XOR ?? Hg >¾?X ?? ** ? ?X GS ?S* ?1?X G; ?S/ ?B?X GA ?S& ?S?X GG ??q ?p^ ?l?X Hç ?^( ?>³ ) LEN( ?šFš ) FùIÖCOM( ?°>³ ) GYATN( ?Æ>³ ) H…SIN( ?Ü>³ ) H‹COS( ?ò>³ ) H‘TAN( @>³ ) IˆLOG( @>³ ) H—EXP( @4>³ ) H�SQR( @J>³ ) H©INT( @`>³ ) H£ABS( @v>³ ) H»SGN( @Œ>³ ) I�POS( @¢>³ ) HüVAL( @¸D² ) I�PEEK( @Ï>³ ) HsFIND( @òFŠ Eë , Dñ ) IRND @ÿH¯ERR A HµELN AIPI A%I)Ë A1F½)ã AAFÕJ- AP?q G5*û AnFÛIö''Iæ$D+× A…FÕIæ0IöFG A�FáC°: A«+o FÕJ$+ A¿)ã FÕJ+ AÒ? G)>¾ - Aå? G/>¾ ! Aø? GM>¾ XOR B ? Hg>¾ ** B%?X GS? >¾ * B<?X G;? >¾ / BS?X GA? >¾ & Bj?X GG? >¾ ^ B�?X Hç? >¾ + B˜Fá? G)>¾ - B¯Fá? G/>¾ ! BÆFá? GM>¾ XOR BßFá? Hg>¾ ** BûFá?X GS? >¾ * CFá?X G;? >¾ / C1Fá?X GA? >¾ & CLFá?X GG? >¾ ^ CgFá?X Hç? >¾ )� C¯ CwDv C® CƒD� C® C”FÏIÖ C®UNDEFINED VARIABLE )� D CÃDv FÉ D CÓD� FÉ D CäFÃIÖ D D( >³ ) I;Iþ DUNDEFINED VARIABLE )� Du D+ DUNO SUBSCRIPTED VARIABLES ALLOWED HERE Dt DtUNDEFINED VARIABLE FÏIÖ,ù >³ - G FÏIÖ,ù >³ , >³ - GDñ D¼D½ CAT DÉDÌ GÝDñ GãCAT DèDñ Gã DØGéEFs DÿEë FDATE$ EIeEë TIME$ E)IlEë NUM$( E@>³ ) IsNUMF$( E`D² , >³ ) IzMID$( E‡FŠ , >³ , >³ ) GLEFT$( E²FŠ , FÕJ1>³ ) GRIGHT$( EÓFŠ , >³ ) GïHEX$( Eê>³ ) I–,ù F>³ , >³ - G+× FFóIæ1Iö+� FFFóIæI¡-*-1IöI¡I¦SWITCHES$ FYHà F_FŠ Fr,ù >³ - FÿFŠSWITCHES$ F‰HàFš F™FíIÖ)­ F¼ F»UNDEFINED VARIABLE  0+ 10 11 12 13 14 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 126 128 130::: EQU * EQU ::I-IÖ::Iæ:: SET ::+Iþ:+ ORG  FCB  RMB  FCC  FDB  FDB  END   ŽrzήÿxùÎo0ÿxûÆ}Îxù?þxû† §½ �ÆÎqoZ&úÎo0¦� 'ù¦� '� &õ ÿxãÿxëxáþxë¦ÿxë� '+�;'|xá êþxë¦ÿxë� '�Z.€@/ÎqJ&ü†§ Þþxã¶xá½vŒÎo ÿxãþxã¦' ÿxã_½tË ï~vnILLEGAL SWITCH Žrz†·À†·À½w�Îo�† ƽs†·À¶ÀF$ú¶À„�'ƽtË åÆ½s:~vnFROMNOVA.SA OöüôÅ&)V$öüõÄÁ'Á'Á'Á'Á' 9† 9†9†9†@9†€9½wݽwÿ½x!þxç?½xÙ& … &~x † †0þx秆§o¦æË‰§çoo?½xÙo)o*o+o(o'†§o¦æÀ‚§ç9½wݽwÿ½x!þxç?½xÙ& …@&~x¢† Ÿ†3 ›½wݽx¦… '½tº½uÖ¦„�&¦Š§?½xÙ?½xÙ9½wݽx¦… ':½tº½uÖþxã¦&0¦+,æhYI+$þxç§ç½u†þxãæTOþxçë ©§)ç*o%o(9~x°~x¬½wݽx½tºl%¦&&.¦(&#½t$#M'ø+� 'ò�'î�"�"æ�#9„§(j(† 9�† o%9½wݽxo(½tº¦&&½t$9�O9†§&9¦„�'!Å ' î)& ½u†% 9î)¦þxçl*&l)½uÈ 9~x°î)&LþxçîæþxçÅ'îÆ€? þxçOë©§ç ¦æË‰§ç?þxç¦' � '� '¦~xͦ§)¦§*î)¦þxçæ*á' l*&l)� &–o)o* 9½wݽx� o%¶xá½tú96þxç¦''Š€½túo'29½wݽxl%¶xá� &æÅ 'l'æ'Á&†ÿo'½tú9�È�"öo% òæÄÁ'(æÅ '3î)&6½u†2þxço+l+l*&l)î) §½uÈ9~x°îæÅ'õ·xóÎxó? 9þxçî)& þxçæç)æç*î)§þxçæ)çæ*ç� ' àÁ'l*&l)9þxç?½xÙo)o*¦æÀ‚§ç9þx禧)¦ §*o&¦„�& ¦ æ à¢+ ?þxç¦'� &Al&l&lîÆ€O?þxç 9 9þxçæ* â"æ)â!%þxçæ+'6m&jj?½xÙ2o+o)o*9~x͆½wä½x!þxç?½xÙ'†"§?½xÙ¦Š§†ÿ§ § ?½xÙ9~x¨Æ½wä½x!þzyŒDK&/0¦î111Æ ½wݽx!þzy¼z¥&¶z{±z§&Æþvg?]&9z{z§~x¦�?ƽwݦ…&öxâ½s:zxâöxâ*é96ÿxã¶xãöxä76�ؽwÐ0î112ƽr¯ÎÿxîÆ½wcM&\ƽs±�S&ïÆ½s±�9'R�1&âxð�S€·xí�L·xñ�G·xòþxî&þxñÿxî�7zxí'öxñÁo"&Æ$ñxò#þxñ§ÿxñ Þ|xð'œ~x¤Æ~xÆÆ½s:þxînƽs±�$HHHH6ƽs±�$ 3ûxð÷xð911 É�9#�G% 9�0%ú€0 9�A%ò€7 9½wݽx¦&9½wݽx¦%9Îw�†9Îwˆ†91-03-7812:01 AMÆ ÎyÉÿxé½w䆧¶xéöxê§ç§ç þxéÆ?'ÿxé¶xéöxêÿxéþxç§!ç"zxâöxâ*ÈÎwÚ†_½r¯9#CN¿xåÁ"¿xå·xá÷xâÿxãXÎxý?'îÿxç9~x˜¦…'o%o&o'o(o)o*o+9~xš¦…&9~xªþxç†D§†K§ †S§†A§†0§ Æ ?'ÿx÷Æ?þxãÿxùöxá'MÁ‚"IÎo'ÿxûÎxù?þxû†;§† ·o&Îo&ÿxõÎxõ?Å&#Å&Å€&9þxç¦ æ §ç 9M*_þxç? 9�$�"� ���������� � �����0æ11À6TO¾xå~ Oˉÿ¾xå~ þxç¦&í9yy=yiy•yÁyízzEzqz� ~ndååå—€ 0201Þþÿ&+Î)]ÿ&-Î&+?'Å&~ °Æ Å&~$øÆþ)^ŒDK&~$üÿ)[ú)D÷)DÎ)‚ÿ&-Î&+?'Å& Æ Å'ÌÆþ)ƒŒDK'Ïÿ)€ú)D÷)Dþ&+_¦� '+�;' ó¦ÿ&+� '� 'òÎ)H¡&êþ&+ äm&ï~%÷)Gö)DÄ Á &~$ô…'… &Æ ñ)‚&ñ)‹'銷)D„�'~"ŸÆ ñ)‚&¶)]·)‚ñ)‹&þ)fÿ)‹ñ)ƒ&Î)^ÿ&°Î)ƒÿ&²Î&°Æ?ÆPSõ)G'~%ÆPñ)G'öÆ ú)T÷)TÆ ú)y÷)yÎ)S?'~$ë?&ùö)GÅ@'~!ðö)jÄ÷)�ö)k÷)�þ)lÿ)‘þ)fÿ)•½%ŠÆú)y÷)yÎ)x?&Á?'})•&})–'³Á&¯)•)– æ½%Î)S?'UÁ &™ö)jÄÁ&CÎÿÿÿ)dÿ)‰Î)S?&?Î&°ÿ)—Î'/ÿ)™Î)x?&,Î&¥ÿ&+Î'%ÿ&-Î&+Æ ?Îÿÿÿ)‰Î)x?& ½%!?Î)x?'š~$ëÎ&°ÿ)—Î'/ÿ)™Î)x½%k½%Î)S?'LÁ '~$ëÎ)x?'dÁ &òö)jÄÁ'~!áÎÿÿÿ)dÿ)‰Î)S?&ÖÎ)x?&ÏÎ&¥ÿ&+Î'%ÿ&-Î&+Æ ?'Ñ &Î)x?'Á '~$ëÎ&0ÿ&+Î&°ÿ&-Î&+Æ€?&~"þ)d ÿ&+Î)ùÿ&-Î&+ƽ)ûÎ)á? Æ�?#~!áÆ ñ)‚&Æ0÷)‚ö)DÅ&~$1Î)^ÿ&+Î)ƒÿ&-Î&+Æ ?Î)S?'~$ë?&ùö)jÄÁ'Á'~%¶)G…'~%… ' …@&õÎHP¼)€&í…'Á&åÆ Á'ƶ)j„x·)�¶)G…'Á&džº)y·)y |&/¶)G…@&MÆú)y÷)yÎ)x?'~$ë?&ùö)GÅ '½%Î)S?'Á &ä~!á}&/& þ)W¼)U'â|&/þ)Uÿ)~Î)x?&Ä ÐÎCN¼)€&~$üÎ(:ÿ)|Î)Cÿ)~ö)GÅ&|&/½%k½%Î)S?'Á &�Î)x?'Á &…~!áÎ)Ó? ~"˜}&/&î¼)U'ÐÎ)x?'Á 'á~#I}&/& î¼)z'æ|&/þ)Wÿ&+þ)|ÿ&-þ&+¦þ&-¡&·¼)z& þ&+¼)U'Ž ¨ÿ&-þ&+¼)U'œÿ&+ ÓÎCN¼)[&~$üö)GÅ('~%Å'¶)D…'ò†º)T·)T†·)j |&/)^ö)DÅ' Æ ñ)‹&ÎSAÿ)‹Î)ƒÿ&+Î)^ÿ&-Î&+Æ ?Î)S½& '?'~$ë?&ùö)jÄÁ' Á'Á'~%ƶ)j„x·)�ö)DÅ&Î)^ÿ&+Î)ƒÿ&-Î&+Æ ?ö)GÅ@'~#‡½%ŠÆ~#<Æ? ½%!?Æ õÆ ñÆ íÆ éÆ åÆ áÆ ÝÎ)‚Æ Ö? $½%!?9Î)S½%Lö)yÄÁ&Æõ)y&Îÿÿ¼)ƒ'ú)y÷)yÎ)x½%L9ÿ%i?'Á'_? þ%i?'Á'_? 9Î)xÆêç½& '?& ?&Î)�? 9~$ëÎ)‚Æ?'9ö)�Å€'~%Ķ)j„' �'~% Á&ùö)DÄÁ& ö)�Ķ)j„&ãö)GÅ'9Î)ƒÿ&+Î)°ÿ&-Î&+Æ?þ)‹ÿ)¹ö)‚÷)¼Î)°? Î&°Æ? ö&°ÁY'ÍÆ€?#½%!?¦�H&¦ �R&¶)E§¶)F§ ¦ Š@§ o9*žNCWH V@'0(9DK0 SA&0&¯'0(9 DK &0&¯VERIFY IN PROGRESSXXXXXXXX.XX:X EXISTS. OVERWRITE? VERIFY FAILEDVERIFY FAILED AT LSN XXXX]'/l&lÿ*.þ*.¦„� #‹‹0m&jjî§þ*.� Z&Ýþ*.96†dfJ&ù29  ½*` ½*r$ 0îîî† §0î11nÿ*¦þ*¢oo†<§þ*¦9ÿ*¦þ*¢¦†4§†<§ *¨*©¦+ *©&÷z*¨&ò ¦þ*¦9*<ä°„�€x 0200O—"—%Þþÿ"²¦� '%�;&õ¦� '�Y&|" ð�S&|% ç� 'ãÆ 4†0·" Î" Æ ?Î" ÿ"´Î"²?× _¶" „'\J'Æ ÷" – …'Æ? ?"½!? ? $?Î" Ö!?$~!Ö!Å&½!·&â–%&¶"… &×¶"„À'Æ�?#Î"˽!çÎ"Ë? DÖ!Å&$–"& Î"½½!çÎ"¶? ? %CÎ"¢Æ? ? %8¦�Y&œÆÎ" ?$Æ ? ?Î"ä½!çÎ"ä? –!J&~ yþ"²¦� '�;'~ ;?–!J'Å'Æ€?#Î"ø½!çÎ"ø? ÔÆ ? ?Á&ö~!O—#—$Æ Î" ¦&z# %– „&†—!9– …&†—# |#Œ"'¦&òÎ"¦&z$ – …&†—$ |$Œ"'¦&òÎ" ÿ"¤Î"¨ÿ"¦Æ Î"¤?†—!9Ö#+Î" ÿ"¤Î"¨ÿ"¦Î"¤?&–$*O J'þ"¼"° ¶"±"°9ÿ"¦Î" ÿ"¤ÆÎ"¤?†.þ"¦§¶"ö"§ç9 """¡ DELETE ? IS PROTECTED DELETED  DOES NOT EXIST Ÿ€ 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 : DISK I.D. : . !WDSCN0 *NO SDW'S* NO DIRECTORY ENTRY FOUND TOTAL NUMBER OF SECTORS : /$ TOTAL DIRECTORY ENTRIE S 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å夀( 0203(Æ×½èuÞþÿ'|Î'€ÿ'~†1·'€Î'|?].e_þ'|¦� '�;&õ¦� 'ù� '�U&Ê í�T&?Ê å×%Î'€¦�1'Æ .O—"L—!Æ ¦&¦ &Î'è? ½$ã�Y& Î'ý? ½$ã�Y'?Æ ? øÎ( ? ÆÎ&?ÆÎ&ˆ? ]'ê½$í%åÁ/ÆÎ&ˆÿ'lÎ&ÿ'nÎ'l?Î(? ÆÎ&?ÆÎ&ˆ? ]'ê½%%åÁ/ÆÎ&ˆÿ'lÎ&ÿ'nÎ'l?Î(%? ÆÎ&?ÆÎ&ˆ? ]'êÁ/Æÿ'lÎ&ÿ'nÎ'l?þÿ&þÿ&Îÿ'hÎ%ˆÿ'jÖ!Î'g?%Îÿ'hÎ&ÿ'jÖ!Î'g?$~!–Æ€OÎ&?–%…&~"Î ßβߖ!—Î'‹ß ½èr%~"–�1'�8' ÎÎÆ? ?Ö &| Ù Þ–Ö?*Þ ?.×—½)Î&?(êçÞ ß&Îß½è~$~!–Þÿ'pÎ(:ÿ'rÎ'pƽ)*Î(0? Æ�?#ÞŒÒ'‰ßÞ&ß~!�Î(H? ½$ã�N&~"¸�Y&íÎ(d? ÆÎ&ˆÿ't? ]'ÛÎ't½)k%¶'w„& þ'v_†?/# Î(¿? †@Æ€?# µÎ(�? ÆÎ&ˆÿ'x? ]'£Î'x½)k%Ù¶'{„&Òþ'z†ÒÆ?/#Çö'v¶'w?/#~"D¶'wö'v½)Î&?(êç†Î'v?þ'zö'v¶'w?/#àÎ(œ? ~"Î&†ª>§>†üª§Î&GÆA†ÿ?Îÿ'hÎ&ÿ'jÖ!Î'g?%Îÿ'hÎ&ÿ'jÖ!Î'g?$~!–Î&OÆ€?½%$~!–ÎDKÿ&¥Î&ÿ&¼Î&‡ÿ&¾Î&�–"§ †!§o?'Æ? ~$áÎDKÿ&ÊÎ&–!§ †"§Î&Â?'Æ? ~$Ö|(Î'�ß)Þ)¦+<ÿ'l† ?(ß)Î&�† ?(ÿ'nÆ Î'l?Ɔ Î&�?(?% ~Z&C¦6Æ0çÆ? 2§ 7–%…'~$ËO—(·&¸Æ Î&�† §† ?(Î&çÿ&¼Î'fÿ&¾Î&§?$ Á'Æ ? ~$ËÎ&ÿ&¼Î&‡ÿ&¾Î'�ß)Þ)¦+ÿ'l† ?(ß)Î&¨ÿ'nÆ Î'l?'¦ àÎ&�ooÎ&¨ÿ'lÎ&Íÿ'nÎ'lÆ?Î&¨ÿ'lÎ(ßÿ'nÆÎ'l?þ&°ÿ(èÎ(Ò? Î&�?'Æ? {Î&Â?'Æ? U–(/"îŒ'Î(ë? ?Î&�??Î&Â???†ÿ—(Î&�?'Á &¶&´…'½%< Î&Â?'âÆ? ÈÎ&Â?'Æ? Î&�?&? %–('~#^~#¯Æ? Î&Â?'Æ? Î&�?'Æ? ?Î&ˆÆ? ¦97¦ ¦?$� '?%Z&î 397¦� '?%Z&ò39Îß#Þ#ÿ'hÎ&ÿ'jÖ!Î'g?$9Þ#Œ&á 9Î&�îÿ'hÎ&ÿ'jÎ'gö&§?Î&Âîÿ'hþÿ'jÎ'gö&Ì?Î&}ÿ'lþ†u?(ÿ'nÆ Î'l?Î'gö&Ì?9|½èu½ëÀΠ¦u—æ+XĦHYHY‹É×—¦wæv—׿z¦{67îxß–ÖÎHY &û›Ù— × Îÿ†Mæ§¡ç&œ &í†S6†è6~èm†?— ~èS†M ö (:&ˆ&ˆ'€ ÅMDOS SYMDOSOV0 SYMDOSOV1 SYMDOSOV2 SYMDOSOV3 SYMDOSOV4 SYMDOSOV5 SYMDOSOV6 SYMDOSER SYÿIS DRIVE 1 SCRATCH? ARE YOU SURE? DISK NAME: DATE (MMDDYY): USER NAME: SECTOR 0000 LOCKED OUT LOCKOUT ADDITIONAL SECTORS? ENTER STARTING SECTOR (HHH): ENTER ENDING SECTOR (HHH): ABOVE SECTORS HAVE BEEN LOCKED OUT INVALID SECTOR NO. COPYING FILE . MDOS.SY DOES NOT START AT SECTOR 18 ÄTFTFÄTFVFVD6YYYO FZ,ü29]'/l&lÿ)]þ)]¦„� #‹‹0m&jjî§þ)]� Z&Ýþ)]96†dfJ&ù29]'+ÿ)šooþ)šî¦þ)šl &l½)œ%½)·ª§Z&ßþ)š9�A% 6‹¹2%€ �0%6‹Æ2%„96†hiJ&ù29å媀 $0200!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? Ž!ˆ—B†0—0/,Þþ½)Î# ? Î Æc? +Î ß%–,'~'½*s� 'Þ— Î*†¡' Œ*ª&ó~$îæ×"îß#½*s—!�B'�C'�D&0Îß'Îß) Îß'ß)Å''}/&* Å '½*sÁB&� & TÖ"� '� &NÅ&FÎ#Æ€~%Î#Æ� ö|+Å'êÅ&,½*'áÖ"ÞGß'ß)� &Å'Ñ �,&ËÅ'ǽ*'Â� &¾ÞGß)Þ#nÎ ß%½*'�/&–H�"—(|,M~&Î#aÆ„ Î#-Æ‚,Ž!Ë?#? ~$½)t½(ö?Þ%½)~$½)t ø½*s�0-�9.6½*s� &½)t2%7—0~$Î#Æ€~%–!�D&–'&q–(�"kÎ?(ß'½)ž%Î"ÿÆ€½*3þ"Ïß3Þ1ß5†—7~$Î#Æ€~%–!Ö+&�B''�D')–7'-Þ3–/'Þ5 �D&–'&–(�" Î?(ß'½)’~$Î#Æ€~%Î#<ƃ ö½*&�"&$½*s½*s�"&½*s ÖH� &Î èÆ€?7~$Î#Æ€~%-Þ%ß)–(Î è?(ß'ÿ"Û–M& |M½*s� &~&ø.Þ)ß%–.'½*m—H½*s� &~&Ü�"&½*s. "†, ½*&�"& ½*s�"&½*s � 'Z|. ÃÖ-'ÖHþ"Ûçþ"Ûÿ"Û�,'©Ö-&J6� '½*s� &.Á^'Á/&& ö!̶!Í?/##2�^& ö!ζ!Ï?/"|-Þ'ÿ"Û~&?Î#Æ€~%Î#-Æ‚ ö�/'7�^& ÿ"Ûö!ζ!Ï?-?$—8Î"ß½*Iþ"Û ÿ"ÛÎ"Û½*IÎ#&? ~$–8—(~&,~$@ †—@½(ö–!Ö+&B�B&~'ï�C&~'à�D'Î"½(Á† Ö/&†·"mÎ"ûÆ€½*3Þ3ÿ"ÏÞ5ß1Þ'ß)–7&~(8~(&�C&Þ'½(²%Uß'Þ)½(²%Lß)–/'Î"ï† P–!�D&>–'&2Ö)&.Þ' ß1–(Ö*Á"!Î?'ß)Î?(ß' Îß)Îÿÿß1Î"÷† Î#Æ€~%†·" †Î"óƽ*3·"mÞ'Ö)–*?/$ –/'ÖŒÿÿ&Ñ–0·!ü†—AÎ!õ½(Á½)ž$~(¯Î"ë½*MÎ"ç½*MÎ"`½(Á?Î gß9Î"Œß;Î"½ß=Î"ã½*IÎ9½*IÞ9¦ß9� -�z/†.Þ=§ß=Þ;–?L—?„�&ß;M&Ì? %'Î"‡½(Á–?�€&¬Þ'œ)'ß'–@&~(zA&ø½(ö~(~$?1% ?1%}/' 9}@&? 9?2¦� '�' óÖBZ& 6Î#?52Æ:×B?3�'?4 Ö?59}@' –BJ'Î# �Ä ô9ßK½)t%Z!ÚÞKÿ"ÓÎ!Úÿ"Õ–0·!ÚÎ ÿ!ãÎ"Ó?Å&9� &5¶!Ú—0Å€&,Î"ׯ½*3þ!ãÿ"9† ·!ÑÎDKÿ!ØÎ!Ð?&?&\×/7 9Î#S? 9~)Š–/'Î!Ð?& O—/—7?& 9Î!Ð_? 9Î"ûÆ€½*3† OÖ/':Þ'ÿ!áß1Î!ÐM&? ?&ö!ݶ!ÞÄHYHYÞ'?)ö!ß¶!à?-ÿ"Ï 9Î!Ð_? 9Þ'ÿ"ÏÞ1ß1Ö0Î"ÎM&?9 ?:%9¶"Î60Æ? 2 9Æ Æ7ßNÎßG�_½*÷%ÎG½*ëšH—HZ&ì�K—P2–PÞN]96ŸI®ŸC®ŸEžIÎC?29Æ Æ6¦·*k¦·*lîîÿ*iÎ*i½*ª29ßKÞ% ßKÞ%ß%¦ÞK9� ò� 'ú9C%6F%æL'17O%.Q%&R%dS',7U%;W% ]'/l&lÿ*Ýþ*ݦ„� #‹‹0m&jjî§þ*Ý� Z&Ýþ*Ý96†dfJ&ù296†hiJ&ù29�A% 6‹¹2%€ �0%6‹Æ2%„9°€P 0200†0·!ƒÞþÿ!zÎ!ƒÿ!|Î!z?ö!ƒÁ0,Æ? ?Á3.ö÷""Îÿ!Î!~?Îÿ"ÿ"†€·"€Î!ަÆH%|"&|"|"&#|" ?276þ"ö"¶"?/$ÿ"23?3""Z&Êz"€&À†·"€¶"ö"z"€/û"¹" ó·"÷"†·"€¶"ö"z"€/û"¹" ó·"÷"Îÿ!ö""Î!~?†·"€Î!ަ'�ÿ&|"†?(z"€&ìþ!Œ'ÿ! Îþ"ÿ!zÎ">ÿ!|Î!zƽ#$Î"ƽ"�þ"ÿ!zÎ"Oÿ!|Î!zƽ#$Î"ƽ"�þ"ÿ!zÎ"eÿ!|Î!zƽ#$Î"ƽ"�Îÿ!ö""Î!~?Î!Žÿ!zÎ"'ÿ!|Î!zÆ?Î"? ?!ƒ!Ž "`"9"KDRIVE X : XXXXXXXX XXXX/$XXX SECTORS XXX/$XX FILES XXXX/$XXX LARGEST CONTIGUOUS BLOCK]&~# l&l÷# ÿ#"Î#ÿ#†·#!þ#"¦æÎ#oîà¢%Î#l ñë©Î#67¦‹0æ 'Z&ü§32Î#l&ll&lj ,Ãïî¦Î#î m&jjî§Î#l&lj&Þþ#"O9'èd ]'/l&lÿ#Wþ#W¦„� #‹‹0m&jjî§þ#W� Z&Ýþ#W96†dfJ&ù29ååå ³€X 0300Þþÿ$Î$+ÿ$Î$?' Å'~"µ~"±Î$èÿ$Î$?'+~"ËÎ$óÿ$Î$?'*îÎ$é½#!%æÎ$ô½#!%Þö$é'}$ô'ñ$ô&Ïö$õ¶$öþ$ê?/%Âþ$¦� '{�;'ÿ$ ðþ$ÿ$¦� 'd� 'ï�H&|$ä æ�L&|$ã Ý�N&|$å Ô�F'~"¹½"×'$~"Ïö%#øÁ„"ô÷$æþ$¦� '�.&·½"×'%Ýö%Á #ÖÁc"Ò÷$çþ$~ ˆÎ$,ÿ$Î%ÿ$Î$Æ?Î%#ÿ$Î$Æ?ö$+÷%&þÿ$@Æ??$΀?/$~"Ó„€þ$@?) ÿ$BÎ$!?'~"¨?&ùæÄÁ'~"¿}$ä'Î%�? Î%)Æd? ?'ÿ%Ž}$ã' †L·$N†P·$OÎ$F?'~"¨?&ùÆSñ$é&þ$êÿ$2Î$^}$å'Î$fÿ$%Î$âÿ$'}$å'Î$^Æ?Î$bÿ$þ%ÿ$Î$ƽ%¡Î$!?':Á &/}%'}$ã'}%' ö$çð%½$½#Ú?ÆSñ$é'ñ$ô'~"Ã~"ÇÁ '~"¨ÆLñ$é&:ö%¶%þ$ê?/$-? %·þ%ÿ%}$ô&~!“ÆLñ$ô& ö$õ¶$ö?/$ì~!Òþ$2 í}%&3Î%ÿ$þ$þÿ$ÿ$þÆÎ$½%¡Î% ÿ$Jþ%Žÿ$L½#�&1ƽ$Æ÷%Î$^ÿ$Jþ$#ÿ$LÆ÷%½#�&|%ö%ñ$ç-%~"Æ? ½#Ú?Æ Æ Æ ? ?Æ çÆ ãÆ ߯ ìÆ èÆ6 äÎ$÷ÿ%ÿ$ì_þ$ÿ$¦� '�0-�9.\Á# þ$ì§ÿ$ì ØÎ%]'½&D%ç)å}%&à †9O9æ'e÷#ŒÁL'ÁS' 9m&úÿ%ÿ%_† ¡'\†L±#Œ'Á.ß ëÁ.Ù åÎ%]'цL±#Œ'½&– ½&D)À%¾ö%¶%þ%ç§ö#ŒÁL&î'¦ 9þ$Lö$J¶$K?-_¶$æ?/$ þ$JJ?(ÿ$Lþ$J† ¡' † ¡#†%§?$þ$'?/$?% â? $11~!×Î$F?9Î$F½#çÎ$!½#ç9ÿ$?'Á'_? þ$?'Á'_? 9Î% ÿ$JÎ% ÿ$LÎ$F7?3Z&ù9$^$âDK0 SACNPB PAGE XXX XXXXXXXX.XX:X  %(ENTER HEADING:  ]&~&-l&l÷&@ÿ&BÎ&.ÿ&=†·&Aþ&B¦æÎ&8oîà¢%Î&8l ñë©Î&867¦‹0æ 'Z&ü§32Î&8l&ll&lj ,Ãïî¦Î&8î m&jjî§Î&8l&lj&Þþ&BO9'è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·€P 0200Þþÿ%øÎ'*ÿ%úÆ ÷'*Î ÿ'3Î%ø?'Å'~$¿}&ü&~$²~!Œþ%øÿ&|Î'Oÿ&~Î&|?*|&ý}&ü'ßþ&ÿ¶' ö&üÁ&-~$Ò\÷&üÎSA†0Æ ñ'3&ÿ'3ñ'*&·'*Î'*Æ?'Á'Æ ? ?}&ý&~$¸|'~!Ò}&ý'~!Cö&üÁ&öö'7ÄÁ'Á' Á'Á'~$Úö'7Ä÷&þ¶'7„·'¶'8·'þ'3ÿ&ÿ¶'*·'Î' O½%mö'7ÄÁ&þ&x&Æþ&tÿ'½%)ÿ'þ&vÿ' Î%üæ+ Œ&p' ó¦Äþ'b?)ÿ'bö&üZXÎ&€?'ö'*çö';ç~ ö'7Äñ&þ'~$Ö}&ý&7ÄÁ&‹Î' O½%mþ&x'~ Áþ&tö'¶'?/%ÿ'½%)ö'¶'?/$¥ÿ'  }'&Aö&þÄÁ'#Æ€õ'7'~$áÎ&€' ¶'*ö';¡&á& }' '~$Ã|' |' ö' ñ&ü-Ûþ%ø¦� 'h�;' ó¦ÿ%ø� 'X�W&|' þ%ø ê� '÷_½'¾% Á-~$Ê\¦ î]'ô ÿ%ø?+ÿ&|Î&|½'�%ãþ&~ö'¶'?/$~$Î?$þ'?/%ô÷'·' ¯}'&B}' &=}'&8Î'+ÿ&|Î'jÿ&~Î&|Æ?þ'3ÿ'sö'*÷'vÎ'j? Î&|Æ? ö&|ÁY'Æ€?#?Þþÿ%øÎ'*ÿ&|Î'Oÿ&~Î&|Æ ?' þ'ÿ'\ö&þÄÁ&~#(Î'E?'~$©?'}'b&}'c'ïÁ&ë'b'c æ}''þ'Xÿ'VÎ'*ÿ%úÎ%ø?|' ö' ñ&ü,%½%Œ½%cÎ' ?'Á &?&?'Ü~$©Î'E?&ö Þ½$è?þ'ö'¶'?-ÿ&|?$„&†€‹„ø·'Î&|†?þ&|ÿ'ÿ'bÎ&|ÿ'dÎ&ûÿ'fÎ'E?'~$©?&ù6Æ÷'Î'ßþ'Zßþ'ßö'OÄ×½è{$z'&öÖ2÷'Î#‘ÿ'Î'Æ? ½$è?2½%ŒÎ' O½%mþ&tÿ'þ&r ÿ'Î'†?þ'ö&q?'ÿ'ö'¶'þ'?.·'„·'_x'IY÷'V·'W½%½%cÎ' ?'~$©þ'?ÿ'=þ'=¦ÿ'=þ'b§ÿ'bþ' ÿ''&þ'bö'f¶'g?/$ Î'E?&Ƚ%Âþ'=ö'A¶'B?/$Á ¬Î'E?&¯Î' ?&¨?&¤|' ö' ñ&ü,~#¶Î'EO½%mþ'ÿ&ôþ'ÿ&öÎÿ&øÿ&úö'÷&ñþ'ÿ&òÎ'E†½%m~##Æ? ½$è?Æ? ?ÆÎ'* õÆ ñÆÎ'* êÆ æÆ âÆ ÞÆ ÚÎ'*Æ ÓÎ'*Æ ÌÎ' ½% Æõ'F&Îÿÿ¼'P'ú'F÷'FÎ'E½% 9ÿ%'?'Á'_? þ%'?'Á'_? 9þ' îv', ÿ%aÎ%a†?þ' ¦u'J»%b·%b$|%aþ' îxö%a¶%b?)911~$Ú? $½$è?96æ¦÷'·' 2æ îÿ' Î'M&?9?9Î'*ÿ%úÎSAÿ'3Æ0÷'*ÎDKÿ'(Î%ø?' Æ ? ½$è?Î' ?'~$©?&ù9}'& ö'¶'΀?/$Î'E?'~$©}'W&z'Vz'Wþ'dö'?'ÿ'b'9  1DK0 %ü&{3DK0 SA%ü&{XXXXXXXX.XX:X EXISTS. OVERWRITE? ]'+ÿ'¼ooþ'¼î¦þ'¼l&l½'¾%½'Ùª§Z&ßþ'¼9�A% 6‹¹2%€ �0%6‹Æ2%„96†hiJ&ù29åå¼€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Àåå0¿€0h1 ,0200 Œ! # & h i  ('?)'C*'F'I'Y'_'d i t5)6) K)7J)FI)d"Œ" &..&'I)¡'I)±=)íA)í?)Û# ! DRIVE MUST BE SPECIFIEDID SECTOR READ ERROR WRITE TO DISK TO ATTEMPT TO CLEAR ERROR? ID SECTOR CANNOT BE CHECKEDDISK ID: VERSION: REVISION: DATE: USER: ID UNUSED AREA NOT 0. ZERO IT? LOCKOUT C.A.T. READ ERRORC.A.T. READ ERRORDISK IS NOT FIXABLELOCKOUT C.A.T. IN ERROR - RECONSTRUCT? Y(YES) OR N(NO): WHICH SECTOR RANGE IS TO BE LOCKED OUT? C.A.T. ERROR FOUND - ABORT?  .  DIRE CTORY SECTOR READ ERRORDIRECTORY ENTRY IN ERROR. DELETE?POSSIBLE INCOMPLETE NAME CHANGENEW NAME: INVALID RIB SECTOR NUMBER. DELETE?HASH OR NAME DUPLICATION ERROR. DELETE?RIB READ ERRORRIB IN ERROR - DELETE FILE?FIRST SDW IN ERRORSDW BOUNDS ERRORRIB CLUSTER ALLOCATION DUPLICATIONILLEGAL SDW TERMINATORNON-CONTIGUOUS SDW ERRORNON-0 BYTES AFTER SDW TERMINATORBINARY LOAD FILE RIB ERROR GOOD FILES FILES WITH BAD RIBS GOOD FILES FILES WITH DUPLICATIONS ALLOCATION DUPLICATIONS  DELETE: NEITHER(1), BOTH(2),(3), (4):  SIZE: CONFLICTS: CLUSTERSWRITE RECONSTRUCTED TABLE TO DISK? RECONSTRUCTED ALLOCATION MAP MATCHES DISKILLEGAL ATTRIBUTE OR UNUSED BYTES. DELETE?MDOS.SY DOES NOT START AT SECTOR 18 .SY DOES NOT EXISTBOOT BLOCK SECTOR CANNOT BE CHECKEDBOOT BLOCK SECTOR READ ERRORBOOT BLOCK SECTOR HAS BEEN DESTROYEDMDOS MDOSER MDOSOV0 MDOSOV1 MDOSOV2 MDOSOV3 MDOSOV4 MDOSOV5 MDOSOV6 ÿŽ%Þþ¦� '�:&õ¦�0'�1' Î%†½6©Æ€?#?Š€— Îß"½6R$* Î%Þ½6©~-rÎ%ž½6Ô%ï½6X%êÎ%ƽ6ë½-1½-6% îß]½6ù òÎ%ú½6©I½-176î½,ð$A †§ÞYî½6®Î ? ]'-26M/ †'?'?Î 2376½,ð%Ö|IÞYæîÿ%Î%½6ë23½-6$¯Î#F¦&Œ#Œ&ö Î&W½6Ô% Î#2ÆZO?|I–I'½6X~-r7?2M..-¦?%Z&ö ?339 ÿ%Î hÿ%Î%?] &éÎ%ƽ6ë Þ¦½6¹%ØZ&õ ÑÎ-J ÞYÆ?'Œ-r 'ßYæ¦ 9%ú&ÿ# & &#&&$#&'&1#&8&B#ν.j$|Î&¸½6Ô$~.†ü·# Î# Æ=O?†·#JÎ#K†ÿÆA?½.Î&ò½6Å'F ßW½79'ð�-&ìÞUßI½6“%ã½79'Þ� &ÚÞU½6“%ÓÖI–J?/"Ë67½7þÎ# ½6D?3œU'?$ ç½6X%ν.j$Î'½6Ô%Î&¤½6©?~.¼– „—Îßθ߽èo$8–�1' �8'�9'�4&(6ÞÖ–?)Ö – ?-ß2�4& ?$½7þÎ# ½6DÞ &Á9ÎÆ? ?ß"–#6½6R2$Î&’�&Î&x½6©Î%³½6Ô%*½6X%%¶# „ü�ü&¶#J„�&Î#K¦�ÿ&Œ#Œ&ô 9 9Î&¤½6©?Îß"½6R$*Î*±½6© KÎ*Õ½6©Î%³½6Ô%ê½6X%åÎ8ÿ%‚Î# ÿ%„Î%‚ÆJ?'#Î# Æ€O?Î8ÿ%‚Î# ÿ%„Î%‚ÆJ?Î*ò½6© »Îß"½6R$Î'|½6©Î%³½6Ô$Î&¤½6©?½6X%óÞ"Œ&ÖÎ$ Æ O?½4³Þ,ÿ%B¦&Ʀ&Z&ø~0uÎ'˜½5�~0u�ÿ&]Ʀ�ÿ&Z&ö~0uÁ&àÎ'>½6©Î'»½6©Î'Û½6Å'ÌÎSAÿ qÎ ÿ%Î hÿ%Î%?]&Þ� &ÚÎ%@Æ ½6ëÎ#Œ½6_$~/3½5 €Þ,î ½6“$Î'æ ‹Þ&†€§Þ,¦ &î'Î*F~/l– · sÞ,ÿ%DÎ%DÆ ½6ëÎ sÆ?$Î( ~/l¶ „ÄÑ+&ðDDD‘)&éÎSY¼ |&DÎ+ÿ%€ÿ%‚Î tÿ%„Î%‚Æ?&þ%‚lÆ?+Œ+&þ ~Œ'Î*r½6© þ%€Æ ?'ÿ%€m*½4À%~/SÎ+ÿ%‚Î*–ÿ%„Î%‚Æ?þ%‚m&Î*–½6©þ%‚ÿ%‚m*ÛO—6—7½4¡$~2ZÞ,î ß"ßI½6R$#+Î(2½6©Î%³½6Ô%½6X$Î(A½5�$|7~2RÎ# ½7�%œI'Î(]½6© ÞÎßSÎ# ßI½7�%Y7ßMÞS?'ßSÞM½6“3% Z?'ßO½6™$Î(p ÌÎ# ßKœI'%½7�ßQZ?'ÖM–N?/"ÞQÖO–P?/%Î(� ¤ÞK ÕÞIŒ#€'  ÞIæ¦Å@& ÄÞS ?/%Î(¤~0ôÞ,¦ …' Î# ßI½7�?'ßKÞIßI½7�% œK'íÎ(» ÕÞIæ¦Ä‹É×S—TÞIŒ#Œ&Þ,¦ „�&~2B�'ù~2G¦'â?$Î# ?.�t#Þ,¦ „�' �'Î(Ô ¯¶#�'L„&Hþ#‚ÖS–T?/%=ÆO?/%6þ#„ö#†¶#‡?/%)ö#ˆº#‰'¶#‰?/%¶#‚ö#ƒDVF?*þ#†?/%þ#ˆ?/$Î(õ ¨Þ&¦Š§|6½4¦%~0µÎ%H½6ÿÎ%L½6ÿÎ)½6©Îß"Î! ½6U$Î&x½6©?Î!ŒÆ€O?ÎßI½4¡%D$Æÿ½5½ÞIÖ=–>?)ßI½4¦$éÞI&~4qÎßIßK½4¡D$ _½5½Þ='|KÖI–J?)ßIÞ&¦Š§ |L½4¦$ØÎ%P½6ÿÎ%T½6ÿÎ%X½7Î)6½6©½4¡…&~4B_½5½Î%\Æ€½6ëÎ%`ƽ6ëÎ'>½6©Î%lÆ ½6ëÎ%p½7Î%x½7Î)Ƚ6©½4¦Æ$~4…'ò_½5½ÞA'êÎ'8½6©Î%t½7Î%x½7Î)½6©Î%hÆ ½6ëÎ" ßIÎ"ŒßKÎßMßRÎ Æ?Î ßOÆ×QÞI¦ßIÞK¤ßKH$*6ÎMƽ7–ÞO† §Œ A&†§Î ½6©Î Æ?'ßO2ÞRßRßMŒÐ'zQ&¿ «ÞOŒ ' †§Î ½6©Î)~½6ÅæÁ &ô�1'�4'�3'�2&ã6½5œ3Á3&~397Î%dƽ6ëÞ(ß"Î#Œ½6U$Î'|½6©?3]'½5œ½4¦%~2þÎß"Î! ½6U$Î&x½6©?½4¡% D$Æÿ½5½½4¦$óÎß"½6R$Î&’ Ú Î%|Æ€?'Î)ø½6Ô%Î! ½6_?Î*½6©?½4³ ½4À%Þ&¦'õ 9Î$ ß&*Î !Þ&ß&Þ,Æ?'ß,–+L�&-|*Þ(Œ& 9ß(ß"? $?Î#Œ½6U$Î'|½6©?Î#Œß,O—+Î% ½6ÿÎ%$½6ÿÎ%(½6ÿÞ,ÿ%,Æ ?'ÿ%0ÿ%4ÿ%8Î%,½7#Î%0½7Î%4½7Î%8½7Þ,ÿ%<Î'jÿ%>Æ7Î%<½7þ%<ÿ%<þ%>ÿ%>3Z&ㆷ'eÎ'I¦½6¹$ †%§† ·'eŒ'T&ê 9?2Î'>½6©?3½6Ô% Þ&oÞ,Ɔÿ?Þ(ß"Î#Œ½6_$Î&¤½6©?9×HÎ=ÆO?Î"ŒÆ€O?Þ,î ß"½6R$Î(2½6©?Î# ßC½7�%WßE×G?$½7þÎ"Œ�JÞ?ß?}H*Î! �D'Î!Œ�4Î! �/Î!Œ�3'Þ=ß=Î" �''ÞAßAÞEßEÖGÀ×G&³ÞC ¢9?(7êç39?(å9Î# O Î# Þ$†ß$Ö Î!M&?9 ?:$–!60Æ? 2_�1' �8' �9'Z�4&] 9??$…&_†?/$ƆÏ?/9 97? 7? ? %39?�#�z" 9 9½6®Î Æc? ¦� 9�ïîŒY ' ŒN 'Î&à í 9 9Ÿ8®Ÿ[®Ÿ]ž8Î[?9Æ Æ6¦·7!¦·7"îîÿ7Î7½7–29ƽ6ëÆ.Þ]çß]ÆÎ[?9Æ Æ7ß8ÎßU�%½7ã%ÎU½7ךV—VZ&ì�—:2–:Þ8]9ß;ÞW ß;ÞWßW¦Þ;9�ò� 'ú9æ¦7ÄHYHY?%2Ä|ËI9]'/l&lÿ7Éþ7ɦ„� #‹‹0m&jjî§þ7É� Z&Ýþ7É96†dfJ&ù296†hiJ&ù29�A% 6‹¹2%€ �0%6‹Æ2%„9ÄTFTFÄTFVFVD6YYYO FZ,ü29|½èu½ëÀΠ¦u—æ+.ĦHYHY‹É×—¦wæv—׿z¦{67îx߆S6†è6~èm†?— ~èSåå|Ì@쀿xÀ nd~" ~,ro$~r¯~s:~s~uö~v,~vŒ~s±~só~tË~t©~se~vn~wc~wl~w�~wu~w{rzqNq~ðó9~xŽ~r{o&„píqpî† Œ†ŸB›C—C$|BžBÞ@ß@¦H%—aÞ`în—cÞbînÞ@ß@¦H%í—aÞ`în†›A—A$|@Þ@¦H%Ó—aÞ`înCOPYRIGHT (C) 1977 SOFTWARE DYNAMICS ALL RIGHTS RESERVED"ø"ø"ø"ø"ø"ø"ø"ø"ø"ø"�"Ú# # "¹"|"¬#"&Ä&]&Ü((k(¬(ï)m)Ä)­#ö$$×#»#Þ$G$S$w$k$å$ö$ü%%%*S*^*e*W*Ï+,,o+Ö+«0ú/ã0/ú&´46&ç&ú&—'Ð5’5¿64µ5Ñ--À4H/4†.Ó4g%%% %&%,%2*p$_,â,Ö& /Ø:,929(887r#J6ð6l#4#>4à4­54§4ÿ&‹7D,‘,ˆ4#9*þ#%';&)&M"[4+Q+Š*ˆ5.5K'²%ë%Ô3‹3»%ð)'9¥8â#w+Ò3X h0îßdþ ;5Îß$ß‹ß�ß=ß*ß,ß0ß2ß6†!—`†"—bþ Oß^þ RßZ¶ Q@—]O—\—&—'—9½ 2Þd¦�'~,o~ jÞ@æîßMÞ@¦ß@ÞM§ßMZ&ïÞ@~ jÞ@½A%0¼ ='M†~ —Þ@î¦6¦6¦6¦6¦6¦60¼ =',~ •0îæ0oç~ hÞ@OÆÿ½A¼  ß@0¼ ='~  ÆŒÆ~,q0î111111¦6¦6¦6¦6¦6¦6~ hÞ@¦6O666660¼ ='Ì~ hÞ@æ¦76444O60¼ ='¶~ •0 Î;J½A%0¼ ='¤~ hÎ2 ïÎ, ê0¦*ˆ€§~ h0¦'%½EÄ0¦+½E„  ½C  0¦ª'½Cé 4O6~ h0¦'* Î;~"ݦª'†§oo~ h23—V×W0¦&½3­0¦&Ϋ½;¼½3­Î«½A%ÞVn½$5 �ÓÎ$-ßݽ<(~ hî½6&  ê0§ ç ~ Y0¦&½#• ¦'÷Î$-ßݽ@» Ô�= ½#•Î$-ßݽ>« Ãë©$ ë�$ ½#•Î$-ßݽ>¤ ªà¢%í§ ç ~ YÆŒÆ~,q0¦ª&¦ æ 9î11n�ì  ãä¤ Ó�à  ×êª Ç�Ô  Ëè¨ »0¦&Àcc~ h0¦&´¦*7Î;j½A%½>«0¦*F½EĽ;²½C  !23‰3‰3&]'0¦DfZ&ú§ ½(0 o o ~ hM&ö]'÷0¦hIZ&ú ß~ Y0¦&½3­½;²~ h�Q&†—?~ h?~ h�@&ï ô�:-é î�4/ã è�..Ý â�(,× Ü�^'Ñ Ö�X&Ë Ð�R-Å Ê�L/¿ Ä�F.¹ ¾�@,³ ¸23—X×Y0¦ª&'¦ ¡&¦  '$†ÿŒ†ŸBÆ ÛC×C$|BžBÞXMn½#•½;Þ ó23—X×Y½0ßG0î Œÿÿ&0îîßEœG'ÖFÐH–E’GFŠ—8* ÞE'® 8ÞG'"ßß0îßM0îŒÞI¦ßIÞM¡&‹ßMÞß ßß&é–8 „½ 8 ßB6_7–C6–B647~ h½ 5 ç½0ßB0î111111–BÖC½/O áÆ~,q½0ßB0îß‹–BÖCÛŒ™‹—�׎~ YÞ@î¦�o&æß‹OÛŒ™‹—�׎~ •Æ~,qÞ@æOÛA™@—@×A~ ‚Þ@æ7O6ÛA™@—B×CÆþ†ÿÛA™@76ÞBß@4O60¼ ='~ ‚Æ~,q†ÿ66ö @¶ ? †ÿ66¶ Kö L76O660¼ ='~ hÆ~,qÖUÐS7–T’R6–RÖS ÝÞ@†ÿ66¦æ76O660¼ ='Ö~ •Þ@î¦æ~#þ Koo¶ Mö N§çßT½0ßß'2þ K–ßÖàë©¡"&&á" §ç0îŒÞB¦ßBÞT§ßTÞß ßß&ë~ YÆ~,q½0ßG'l0î Œÿÿ&0îîßEÖF–EÐH’G%Nˉ—B×C0îßI0îßMÞMßOÞGßßÞIßIŒÞK¦  ßKÞO¡&ßOÞß ßß&é0–IÖJà ¢§ ç ~ YÞB ßB&Ä_O0 íÆ ø½(0 Æ ~,q0î¡"ô&á"î§ç~ Y�^  UËÿ‰ÿ$O—B×C0î¦æÐC’B%>0§ç–BÖCë©§ç~ h�-  $Ëÿ‰ÿ0î¡"&á"0ë©§çO§†§~ hÆ ~,q23—V×W0¦'&Î;j½A%½>«0¦+½C 111111ÞVn23%õ' ñ111123ÞVn�à  º0§ ç �¸  ¯Ëÿ‰ÿ—B×C0î' 0ë©%›î¡"•&á"�0–BÖCë©§ç~ h†—8½(0  3XI%/×C—BXI%'Û8‰%!ÛC™B%0ë©%î¡"&á"0§ç~ hÆ ~,q†—8½(0  ð—B×C½(0  å0î6–B¡"Û&–C¡$Ó2î½6&  ÉÛC™B �Þ@î3ç2§2§2§2§2§]'*ßB½E„  !½A%½C 111111 23‰23&ÞBo§ç~ •0î 3ç2§2§2§2§2§]'%ßB½E„  ½A%½C ~ V23‰23&ÞBo§ç~ Y0¦'Æ~,q¦&÷¦î§~ V0îßI0îßM½0ßG0ßBî Œÿÿ&0îßBîßE–EÖFÐH’G%ÞGßßÞB–ßÖà§çÞß'–IÖJÐN’M$ÞM¦ßMÞI§ßIÞß ßß&ë~ V–IÖJÛà™ß—I×J–MÖNÛà™ß—M×NÞM ¦ßMÞI §ßIÞß ßß&ë Ζ?& Þ@î~ k–?&õ~ •_–?&S×?~ h½(0 Þ@î �$  ôÞBî~ k½(0  æ�  àÞ@¦æÞBî :Ëÿ‰ÿXI%ÛA™@%ˉ%Þ@¡" &á'"—B×C90î11nÞ@–@ÖAˉîß@ÞZ¼ T' ßZ§ç–=Ö>§ç~+ÖÆ~,q½(0 †ÿ—ß×àÞß'ÞZ¼ R'7ßZÞß ßß&ì þ RßZ~ hÞZ¼ R'¦æ—=×>¦æßZ—@×A~  Æ~,qÞ@îßBî½A%ξ½;¼ÞBî½;¼–@ÖA764444ξ½A%0¼ ='ÞB~ jÆ~,qξ½;¼0î ß@îî½;¼111111ξ½A%~ •0ßB�þ ;5~ •Þ@¦6¦6¶ <�CTHHHHH@ÞB9Þ@nÞ@ß@ îß=–&…P&œ$&4½8&qLINE6 945�Þdß@–&'…'½ Hš''M'õ…'Ö&Äï×& ½ Hš''M'?…€&>Ö&…@'È@×&…'Ê×&… '%½8&q BREAK ON LINE? 6HF} �Þdß@– &Û~ hÆŒÆO¾ ;—6×7Þ=ß0Þ‹ß�Þ*' ~ kÞ@îß*~ •–6Ö7Þ0½ EÞ6&Î,ª~ kÎ,·~ kq STOP6.,Äq ERROR6^4 AT LINE6j45�~ )0¦&1îæ~"±0¦&%¦&†F¡ "&†¡ " ¦& ¦î §~ VƌƌÆ~,q0¦ª'½#•0¦æÞ^Œ�u¼ O'¡&õá&ñ6œ^'¦§ õ6|\|]'H†ð›_—_%z^Þ^2§ç2§2§2§2§2§2§2§ 2§ 2§ 2§ 2§ 2§–@ÖAˉ§ç~ YƌƌƌÆ~,q6ßB†›C—C$|BÞB29z]z\†›_—_$|^Þ^9Þ@¦æÞ^Œ�ϼ O'¡&õá&ñ¦ßBîª&+ÞB¦æîë©%}§çÞB ⢠$î~ k�¨œ^&ú�¢~ • ^¦6¦6¦6¦6¦6¦6ßBî½A%Î-•ßݽ>«ÞBî½;¼ÞBî½A%ÞB¦6¦ 6¦ 6¦ 6¦ 6¦ 6½;Þ'.ÞB¦*ž £ÞB¦+– ›ÞB �ÞBî¦&¦6¦6O66½CéÞBî½;¼ÞB¦&�¦6¦6O66½CéÞB2§2§2§2§2§2§ÞB¦6¦ 6O66½CéÞB2§ 2§ 2§ 2§ 2§ 2§~.Þ@ß(þ KßRßBþ MßßÖQ& ½ Hš'—'+ ÖQ½ ÞB§ßB� ' Þß ßß&ÜÞB� ßT~,~,l–TÖUÐS’RÞR�0 )–Q'Æ~,qÎ/0~ k INPUT ERROR 6U�Þ(¾ ;~ kßR~ h—B×C23—V×W–BÖC½A¼ ] lßÖÞBßß½A¤� 'ù�:&[O—¾—¿—À½A¤�0-*�9.€0 �A-�F.€7Æ×ÀHHHHÆHy¿y¾%(Z&ô ÏÖÀ'Ö¿7Ö¾7444_7ÞÖ ¦�,' –VÖW769ÞVn†?_½ † _ Þ‹œ�'¦ÖQß‹½ Þ‹ î† Œ† ÖQ½  ~ h0îŒÿÿ&0îî9�ðßß'0îŒÞB¦ßBÖQ½ Þß ßß&í~ Y—�×�O—‚—ƒ—„—Ù—…—†—‡�W�$&|‚�N�-& |ƒ �-'÷Œ�>�#& –„L—„� #ñ�/�.&|Ù–„� "� �#& –…L—…›„� #ï�Ö‚Úƒ&6�-&|† «½C  10oo0ÖQ½ &1111~ hÆ<~,q†—D2ÖQ½ #zD&õ~ h0îŒÿÿ& 0î¦æ§çîßß'0îßBÖQ½ ÞB§ßBÞß ßß&í~ Y½0ßß'ö0îŒÞB¦ßBÖQ½ #Þß ßß&í~ Y—¾×¿ß«Î߳ά–«'ΫÆx´y³% h$–¿›´—´–¾™³—³%Z&㌭&Û–³Ö´90î11nÖ�7–€6–6–~60Xy€yy~Xy€yy~ ©§¦™€§¦™§¦™~§Xy€yXy€y«§¦™€§¦™§Xy€ëç–€©„§—~×î߀½CéÎ;z½A%½<(~ hÆ~,q0¦+ö& ¦ª'ë½3­½8&�0¦€@GÆp$Æç‰@§†—D½8*}l l l ;Š �zD&ç½8*}l}r l�~8½8&}r€}f_[}l%�–?'–l& ½8*}r� oÞdß@~88½8&€}f_[}l='”‡XB>y™4D>$y”w?˜9 5?ˆˆ’V?ƒ33a@ffg@ffff@PAAprAq‚�‚�–l&>Î8ßÝtpvq$½8* r�Þp'½8* r}r� Þ–f*½8*}l ; l �Þd~ j–f* O0§§§ íÆ~,qÞ@ßd23—@×A~  Æ~,q0¦+ö& ¦ª'î½3­0æ†@§OÀ@‚6666XIXI0§ç½Cé½8&}l ;¬'+8€ ;¬ l ; .8g ;  ;Š Á–�8Axƒ1‡Áq˜‰ xAÁA—%1AQA#V'Á5™ ™ lA’U�Þd¦�Y' ½8* r.7u~80¦&½3­Îx½;¼Þ@ß@½A%Þ@¦'ß@Îx½A%0¼ ='½<(Þ@½A%½>« Ù~ kÆ~,q½8& ;Z.95½8&€ ; }f_ ;Z [ ;š [ ;š}l�–qG$ ½8* ; �½8*=4(y0¾Gˆ?hQ¿yi&&@E–@•Àpyc' f l ! ; �~8½8&€}f_ ;Z [ ;Š [ ;Š}l ;Z�–qG$ ½8* ;Z�½8* ;Z ?R†DEUÀˆvb7pA’!P x@ÁQ2aAE)3  ;  ;Š f l ; �~8½8&€}f_ ; (+:C ;.:P ;  ;Š ;¦}l¿F&˜@$8(AB‰AAT#yCA8ƒ&$ xAA–%hAQTuA8ƒ&$ l f�~8A Áÿ™™™™™ !$'™™™™™ $(26A’e %05@EAW–3$06BHT@P!(5BIVc<ef‡$2@HVdrA '6ETcr�AA@xS˜5@1b'v`0¦'ˆ€§923—Ð×Ñ2§2§2§2§2§2§ÞÐn¦+ 00æ+õ¦+'á&¦ ¡&¦ ¡&¦ ¡& ¦ ¡&¦  ' "†ÿŒ†Ä€ŸÔÆÛÕ×Õ$|Ô0îžÔMn23—Ò×ÓΫ½;¼Î¾½;¼†;—ÆÎ߳ߵ߷߹߻–«'V˜¾—±–¾'M„Ä€€—²Î½ßÈαzÉ ßÊŒ«'1¦'ñ—£³ÞÈÖÃ�%ÖÂ�!ÖÁ�ÖÀ�Ö¿�§†›É—ÉÞÊ ßÊŒ«&Ï~@j')�8›³׳$«§–³$‹—³ 9«§–³$‹—³ 9–³' «§†‰—³ 9ßÈפ–£„ðÄ—ÇÞÆ¦—¥–£Ö¤„Äð—ÇÞÆ¦_›¥$Æ×¥XXXXצDDDD›¥—¥–£Ö¤HHHHÄ—ÇÞÆ¦—§–£Ö¤„ðTTTT—ÇÞÆ–§›¦—¦¦™¥–¦ÞÈ9&†™�Ä×Ä �…›Ä6É—Ä3†™vÅ©§yÅ 9–´Ö³�%–µÖ´�–¶Öµ�–·Ö¶�–¸Ö·� –³&–¹Ö¸�~@j�i–£'a_×Ä\×ÅÖÃ�žÖÂ�šÖÁ�–ÖÀ�’Ö¿�Ž�ŽvÅ%3–£‹™—£–ë § –© § –Á© § –À©§–¿©§†©§$Í–£§†›É—ÉÞÈ9§9&Æÿ×£†™|£›¿$ø9Ñ¿'#†™—£9—©†ÿ—£†™†™�©TFvªTFvªTFvªTFvªÊ�|£›¿$ø—©‰–©$í–£HHHHJ—£†š�¿›©6‰™2yªIYyªIYyªIYyªIY|£›¿$ø—©‰–©$í9†€0¨§23—Ò×Ó0¦¨—±¦„Ä'*W3×¾3׿3×À3×Á3×Â3×Ã3׫M&]'Z3׬3×­3×®3ׯ3×° ?3L&×­3×®3ׯ3×°_ *L& ×®3ׯ3×°_ L& ׯ3×°_ .L&×°_2ׯ2×®2×­2׬–¾„€?—² l1ξ1111~A+1111~A=3×¾3J&×À3×Á3×Â3×Ã_ (J& ×Á3×Â3×Ã_ J&×Â3×Ã_ J&È×Ã_2×Â2×Á2×À2׿3׫3׬3×­3×®3ׯ3×°–«„€?—²–±+~@<Î߹߻߼ƙ†š�Û°—¸‰�›¯—·‰�Á›®—¶‰�À›­—µ‰�¿›¬—´%P‰—³%B†š�¸‹—¸‰�·‹—·‰�¶‹—¶‰�µ‹—µ‰�´‹—´%Y‰�³‹—³†€˜«Œ–«—± 0 G_–°›Ã—¸–¯™Â—·–®™Á—¶–­™À—µ–¬™¿—´–«—±$!É׳_β¦&\Œ¸&õÎ; ;†€˜«Œ–«—±Æγ¦'â–²�?.‹@'Þ+Üֱ§ Î;:½A%0–±„€ª§ÞÝn p23—Ò×Óξ½;¼Î³½;¼†;—ÆÎ߹߻߼–¾'Ș³—±–³'’„ÄL—²Î³ßÈ–¿o„ð&&ÆxÃyÂyÁyÀy¿x¸y·y¶yµy´y³Z&Ü~=z23—Ò×Ó¦6¦6¦6¦6¦6¦6ÞÒn�a�E �.&–Ø&L—Ø íHHHH§–Ø& |Ù*11~C90î11n�2� �.&ï–Ø&ëL—" Ø íª§ Ð�0- �9.—Û€09—©23ˉ76–©9ßÈÞß' ßßÞÖ¦ßÖÞÈ9ÞÖO õ—ß×àO—ؗٗÛßÖßÎÎ߳ߵ߷�Î� 'ú�+'�-&†€—³�¼�0&—Û–Ø'ôzÙ+ï~C�.&—Ø äδÆ×ÚŒ�˜½AC  ��½Ar  zÚ&é��½AŠ ùÖÛ&~CÞÖßÎ_×Ûױײ×Ü�E&>½A¤�+'�-& †€—±½A¤ ½A¤½AŠ  Ö²X% X% Û²%X—²$ä†—Ü Þ–Û&ÞÎßÖ–´&—³ *–Ü&UÖ²'–±*P†ÿ�O—È×ÉÖÙOY‚GVÛÉ™È' �ÿ'M*/Î; =GV$†t´vµv¶v·v¸J&î\)Ë@) /Úڳ׳γ –³*Î;* Î;:23ˉŒ23—Î×ϽA%–ÎÖÏ76ÞÖ 9ÞÎ23ˉ7690¦„�F,i�@. O§§§§ RO—µ—¶—·—¸Ä¦DDDD�M  B¦„�C  8Z&æ0¦*†�¸—¸’·—·’¶—¶’µ—µ)–¸§–·§–¶§–µ§î1111n0î11n—³–¸H—¸—¼–·I—·—»–¶I—¶—º–µI—µ—¹%Ùx¸y·y¶yµ%Ëx¸y·y¶yµ%½–¸›³$›¼ Œ›¼—¸–·™»—·–¶™º—¶–µ™¹—µ%›923—Ò×ÓO—´—µ—¶—·—¸2—¹2—º2—»2—¼_–¹*�¼—¼’»—»’º—º’¹—¹Æ€×±Æ x¼y»yºy¹%Z&ïÎ;~A+x¼y»yºy¹–¸™¸—¸–·™·—·–¶™¶—¶–µ™µ—µ–´™´—´Z&Ζ´'Ö¸7Ö·7Ö¶7Öµ76†E @–µ'_7Ö¸7Ö·7Ö¶76†D ,–¶'_77Ö¸7Ö·76†C –·' _777Ö¸76†B –¸_77776†Aš±6ÞÒnßÖ23—Ò×Ó2—²†—£2DDDD‹0§„‹0§z£&èÆ+–²*Æ-ÞÖçÆ.çÆEç Æ+H+Æ-ç —²¦�0&z²† —£¦§z£&öç–²€€6*@—ªO—¥—¦Æxª–¦™¦—¦–¥™¥—¥Z&ìÞÖ–¥‹0§–¦DDDD‹0§„‹0§† —£ ¦ �0&Zz£&ó2]&OÞÒnæ';Ħ&+¦&!¦&¦& Á@"!23ˉ769ÁA" ñÁB" ëÁC" åÁD" ßÁE"Û923—Ì×Í0æ×±ÄÁD"Á@"111111–±*Î; Î;½A%ÞÌn†E©0 æکשoJ&ô–±*å–©'áÎ;½A%½>« Ö# $ % ŽrzήÿxùÎo0ÿxûÆ}Îxù?þxû† §½ �ÆÎqoZ&úÎo0¦� 'ù¦� '� &õ ÿxãÿxëxáþxë¦ÿxë� '+�;'|xá êþxë¦ÿxë� '�Z.€@/ÎqJ&ü†§ Þþxã¶xá½vŒÎo ÿxãþxã¦' ÿxã_½tË ï~vnILLEGAL SWITCH Žrz†·À†·À½w�Îo�† ƽs†·À¶ÀF$ú¶À„�'ƽtË åÆ½s:~vnFROMNOVA.SAOöüôÅ&)V$öüõÄÁ'Á'Á'Á'Á' 9† 9†9†9†@9†€9½wݽwÿ½x!þxç?½xÙ& … &~x † †0þx秆§o¦æË‰§çoo?½xÙo)o*o+o(o'†§o¦æÀ‚§ç9½wݽwÿ½x!þxç?½xÙ& …@&~x¢† Ÿ†3 ›½wݽx¦… '½tº½uÖ¦„�&¦Š§?½xÙ?½xÙ9½wݽx¦… ':½tº½uÖþxã¦&0¦+,æhYI+$þxç§ç½u†þxãæTOþxçë ©§)ç*o%o(9~x°~x¬½wݽx½tºl%¦&&.¦(&#½t$#M'ø+� 'ò�'î�"�"æ�#9„§(j(† 9�† o%9½wݽxo(½tº¦&&½t$9�O9†§&9¦„�'!Å ' î)& ½u†% 9î)¦þxçl*&l)½uÈ 9~x°î)&LþxçîæþxçÅ'îÆ€? þxçOë©§ç ¦æË‰§ç?þxç¦' � '� '¦~xͦ§)¦§*î)¦þxçæ*á' l*&l)� &–o)o* 9½wݽx� o%¶xá½tú96þxç¦''Š€½túo'29½wݽxl%¶xá� &æÅ 'l'æ'Á&†ÿo'½tú9�È�"öo% òæÄÁ'(æÅ '3î)&6½u†2þxço+l+l*&l)î) §½uÈ9~x°îæÅ'õ·xóÎxó? 9þxçî)& þxçæç)æç*î)§þxçæ)çæ*ç� ' àÁ'l*&l)9þxç?½xÙo)o*¦æÀ‚& §ç9þx禧)¦ §*o&¦„�& ¦ æ à¢+ ?þxç¦'� &Al&l&lîÆ€O?þxç 9 9þxçæ* â"æ)â!%þxçæ+'6m&jj?½xÙ2o+o)o*9~x͆½wä½x!þxç?½xÙ'†"§?½xÙ¦Š§†ÿ§ § ?½xÙ9~x¨Æ½wä½x!þzyŒDK&/0¦î111Æ ½wݽx!þzy¼z¥&¶z{±z§&Æþvg?]&9z{z§~x¦�?ƽwݦ…&öxâ½s:zxâöxâ*é96ÿxã¶xãöxä76�ؽwÐ0î112ƽr¯ÎÿxîÆ½wcM&\ƽs±�S&ïÆ½s±�9'R�1&âxð�S€·xí�L·xñ�G·xòþxî&þxñÿxî�7zxí'öxñÁo"&Æ$ñxò#þxñ§ÿxñ Þ|xð'œ~x¤Æ~xÆÆ½s:þxînƽs±�$HHHH6ƽs±�$ 3ûxð÷xð911 É�9#�G% 9�0%ú€0 9�A%ò€7 9½wݽx¦&9½wݽx¦%9Îw�†9Îwˆ†91-03-7812:01 AMÆ ÎyÉÿxé½w䆧¶xéöxê§ç§ç þxéÆ?'ÿxé¶xéöxêÿxéþxç§!ç"zxâöxâ*ÈÎwÚ†_½r¯9#CN¿xåÁ"¿xå·xá÷xâÿxãXÎxý?'îÿxç9~x˜¦…'o%o&o'o(o)o*o+9~xš¦…&9~xªþxç†D§†K§ †S§†A§†0§ Æ ?'ÿx÷Æ?þxãÿxùöxá'MÁ‚"IÎo'ÿxûÎxù?þxû†;§† ·o&Îo&ÿxõÎxõ?Å&#Å&Å€&9þxç¦ æ §ç 9M*_þxç? 9�$�"� ���������� � �����0æ11À6TO¾xå~ Oˉÿ¾xå~ þxç¦&í9yy=yiy•yÁyízzEzqz�~ndåååý€0010�DIM�A$(4),L$(60),F$(20),N$(20) 0011�DIM�Z1 0012�DIM�M$(3),D$(3),I$(3) 0013�DIM�LAR$/:E/ 0015�DIM�D(12) 0025�DIM�X$(10) 0030' �DIM�N1,A,I,J,K 0035�DIM�M1,M2,M3,D1,D2,D3,Y1,Y2,Y3,I1,E2,P2,I2,X 0036�DIM�N,P,C 0040�CREATE�#2,"#LP" 0050�D(1)=31 0051�D(2)=28 0052�D(3)=31 0053�D(4)=30 0054�D(5)=31 0055�D(6)=30 0056�D(7)=31 0057�D(8)=31 0058�D(9)=30 0059�D(10)=31 0060�D(11)=30 0061�D(12)=31 0070�ON�ERROR�GOTO�8000 0100�PRINT�#N1 0101�PRINT�#N1 0103�INPUT�"DO�YOU�WANT�A�GRAPH�ON�THE�PRINTER�"�A$ 0104�IF�A$="STOP"�THEN�CALL�MDOS� 0105�IF�A$<>"YES"�THEN�N1=0�ELSE�N1=2 0110�PRINT�#N1 0115�PRINT�#N1 0130�DEF�FNA(A)=A-(INT(A/Z1)*Z1) 0195‚P=6.28319 0200�PRINT�#N1 0210�INPUT�"WHAT�IS�YOUR�NAME�?"�N$ 0230�INPUT�"ENTER�YOUR�BIRTHDATE�(E.G.�1,1,1954):�"�M2,D2,Y2 0290�IF�Y2<100�THEN�Y2=Y2+1900 0300�INPUT�"ENTER�START�DATE�:�"�M3,D3,Y3 0320�IF�Y3<100�THEN�Y3=Y3+1900 0330�INPUT�"HOW�MANY�MONTHS�WOULD�YOU�LIKE�?�"�N 0380�IF�Y2>Y3�THEN�GOTO�0230 0390�IF�Y2M3�THEN�GOTO�0230 0410�IF�M2D3�THEN�GOTO�0230 0460‚D1=D2 0470‚M1=M2 0480�Y1=Y2 0482�IF�Y1=Y3�THEN�7000�ELSE�0490 0484�A=I1 0486�GOTO�1090 0490�GOSUB�8080 0500‚A=I1 0510‚D1=D3 0520‚M1=M3 0530‚Y1=Y3 0540�GOSUB�9480 0550�A=A+I1 0560�A=A+365*((Y3-Y2)-1) 0570�FOR�I=(Y2+1)�TO�(Y3-1) 0580�IF�I/4=INT(I/4)�THEN�A=A+1 0590�NEXT�I 0615�IF�Y3=INT(Y3/4)*4�THEN�A=A-1 1090�PRINT�#N1,"THIS�BIO-RHYTHM�CHART�PREPARED�FOR�:�";N$ 1095�PRINT�#N1,"WHO�WAS�BORN�ON�";M2;"/";D2;"/";Y2 1096�PRINT�#N1,"AND�WILL�BE�";A�;"�DAYS�OLD�AT�THE�START�OF�THIS�CHART" 1100�PRINT�#N1 1101�PRINT�#N1 1110�PRINT�#N1,"�NEGATIVE�PHASE"; 1111�PRINT�#N1,"…CRITICAL"; 1112�PRINT�#N1,"„POSITIVE�PHASE" 1115�PRINT�#N1,"‰"; 1120�FOR�I=1�TO�60 1130�PRINT�#N1,"-"; 1140�NEXT�I 1150�PRINT�#N1 1160‚C=9 1161�L$="............................................................" 1200�IF�Y3/4=INT(Y3/4)�THEN�D(2)=29 1210‚L$(30)="*" 1260‚Z1=23 1265‚P2=SIN(FNA(A)/23*P)*28+30 1270‚Z1=28 1275‚E2=SIN(FNA(A)/28*P)*28+30 1280‚Z1=33 1285‚I2=SIN(FNA(A)/33*P)*28+30 1293‚L$(P2)="P" 1294‚L$(E2)="E" 1295‚L$(I2)="I" 1296�IF�P2=E2�THEN�IF�E2=I2�THEN�L$(P2)="#" 1297‚I=Y3-(INT(Y3/100)*100) 1298�M$=NUM$(M3) 1299�D$=NUM$(D3) 1300�I$=NUM$(I) 1301‚IF�LEN(M$)�>�2�THEN�M$=RIGHT$(M$,2) 1302‚IF�LEN(D$)�>�2�THEN�D$=RIGHT$(D$,2) 1303‚IF�LEN(I$)�>�2�THEN�I$=RIGHT$(I$,2) 1309�PRINT�#N1,M$;"/";D$;"/";I$;"�";L$ 1390‚L$(P2)="." 1400‚L$(E2)="." 1410‚L$(I2)="." 1420‚L$(30)="*" 1460‚A=A+1 1470‚D3=D3+1 1480�IF�D3�<=D(M3)�THEN�GOTO�1260 1490‚D3=1 1500‚M3=M3+1 1600‚N=N-1 1610�IF�N=0�THEN�GOTO�0100 1620�IF�M3<=12�THEN�GOTO�1260 1630‚M3=1 1640‚Y3=Y3+1 1650‚D(2)=28 1660�IF�Y3-(INT(Y3/4)*4)=0�THEN�D(2)=29 1670�GOTO�1260 7000�LET�I1=0 7020�IF�Y1=INT(Y1/4)*4�THEN�D(2)=29 7040�FOR�I=M1�TO�M3 7060�LET�I1=I1+D(I) 7080�NEXT�I 7100�I1=I1-D(M3)-D1+D3 7120�GOTO�0484 8000�IF�ERR�<>�1�THEN�GOTO�0100 8001�STOP 8080�D(2)=28 9000�IF�Y1=INT(Y1/4)*4�THEN�D(2)=29 9010�I1=0 9015�IF�M1=12�THEN�9100 9020�LET�J=M1+1 9040�FOR�I=J1€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þ89Y �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 COMN�TO�12 9060�LET�I1=I1+D(I) 9080�NEXT�I 9100�LET�I1=I1+D(M1)-D1+1 9120�RETURN 9480�D(2)=28 9500�IF�Y1=INT(Y1/4)*4�THEN�D(2)=29 9520�LET�I1=0 9540�IF�M1=1�THEN�9640 9560�LET�J=M1-1 9580�FOR�I=1�TO�J 9600�LET�I1=I1+D(I) 9620�NEXT�I 9640�LET�I1=I1+D1-1 9660�RETURN 20�NEXT�I 9640�LET�I1=I1+D1-1 9660�RETURN 9680�END * åååå € S1164800BD20001270481302000A7048210200032E487017 S11E4870320078124813130653554E4441591A2E00003200BE711323454E545F S11E488B4552204441592844292C204D4F4E5448284D292C20414E4420594597 S11E48A6415228592936353200C87155480C482846190C482E46190C483446B9 S11E48C1193200D20A48340D06D82A2C00003200DC71131E59454152204D5551 S11E48DC5354204E4F54204245205052494F5220544F20313735333635320062 S11E48F7E62E00003200F00C483A0E302E360D010A482E201C5B193200FA0CC6 S11E491248400A48340A483A1D193201040C48460A482E0D000C0A483A1F1C85 S11E492D1932010E0C484C0A48400D006420193201180C48580A484C04205B21 S11E4948193201220C485E0A484C5B1932012C0C4864050A48401F04205B19B9 S11E49633201360C486A0D000D0A4846011C1F05205B193201400C48520A481C S11E497E6A0A48641C0A485E1D0A48581C0A48281C011D1932014A0C48520A51 S11E49994852070A485207205B1F1D011C1932014F0A48525049BE0000000049 S11E49B40000000000000000000032015471131754484520444159204F46200E S11E49CF544845205745454B2049532036124813363532015E7135320168716F S11E49EA1329464F52204E4558542044415445205459504520494E20594553C4 S11E4A052C204946204E4F542054595045204E4F3635320172713532017C71B1 S11E4A205548124821381A32018612482113035945534A2C000032019012483F S11E4A3B2113024E4F4A2C000032019A71130F494E56414C494420434F4D4D60 S11E4A56414E4436353201A42E00003201AE71353201B82E00003201C27113E5 S11E4A711D444159204F4620544845205745454B205341595320474F4F442D53 S1094A8C425945363531A4 S9 5É€=0005‡REM�SCRATCH.SC�AKA�CALLS.SC 0010…DIM�VERSION/1.1/ 0020…DIM�CLEAR$/:1A/,BELL$/:7/,X,ENTRIES,M,D,Y,DUMMY$(5),DUMMY/0/ 0030…DIM�CONAME$(32),NAME$(32),ADDRESS$(32),CITY$(32),ZIP$(5) 0040…DIM�PHONE$(20),POSITION$(16),INTEREST$(32),RECORDSIZE/256/ 0050…DIM�DISTI$(10),FUNCTION,DISKNUMBER$(1),COUNT,PASWRD$(10),DISPLAY 0060…DIM�DELETEMARK,DEVICE/0/,LOOP,VALIDENTRIES 0070…ON�ERROR�GOTO�900\!�ERROR�HANDLER 0080…CREATE�#2,�"#LP"\!�PRINTER 0090…DEF�STARTOFRECORD(X)�=�X*RECORDSIZE+5 0100…DEF�RECORDPOSITION(X)�=�X*RECORDSIZE 0110…PRINT�CLEAR$,BELL$ 0120…PRINT�"SALES�CALL�MAINTAINANCE�-�VERSION";VERSION 0130�2ƒPRINT�"ENTER�PASSWORD:�"; 0140…CALL�NOECHO(PASWRD$) 0150…IF�PASWRD$�=�"GREG"�THEN�GOTO�1 0160…DUMMY�=�DUMMY+1 0170…PRINT�"YOU�CAN'T�FOOL�ME,�I'M�SMARTER�THAN�YOU!!!" 0180…IF�DUMMY�=�3�THEN�CALL�MDOS 0190…GOTO�2 0200…PRINT 0210�1ƒPRINT�CLEAR$ 0220…PRINT�"INSERT‚DISKETTE�INTO�DRIVE�#1." 0230…INPUT�"HIT�CARRIAGE�RETURN�TO�CONTINUE."�DUMMY$ 0240…IF�DUMMY$�=�"EXIT"�THEN�CALL�MDOS 0250…OPEN�#3,�"CONAMES.SA:1" 0260…PRINT 0270…INPUT�"ENTER�TODAY'S�DATE�(E.G.�8,23,1978):�"�M,D,Y 0280…IF�Y�<�100�THEN�Y�=�Y+1900\!�JUST�IN�CASE 0290…RESTORE�#3,0 0300…+ INPUT�#3,DISKNUMBER$ 0310…RESTORE�#3,10 0320…INPUT�#3,ENTRIES 0330…RESTORE�#3,20 0340…INPUT�#3,VALIDENTRIES 0350…PRINT�CLEAR$ 0360�5ƒPRINT 0370…PRINT�"DISKNUMBER:�";DISKNUMBER$ 0380…PRINT�"TOTAL�ENTRIES�ON�DISK:‡";ENTRIES 0390…PRINT�"TOTAL�VALID�ENTRIES�ON�DISK:�";VALIDENTRIES 0400…PRINT 0410…PRINT 0420…PRINT�"ENTER�(1),�DELETE�(2),�MODIFY�(3),�LIST�(4),�PRINT�(5)"; 0430…PRINT�",�QUIT�(6),�RESTORE�(7)" 0440…PRINT 0450…INPUT�"FUNCTION�DESIRED:�"�FUNCTION 0460…ON�FUNCTION�GOTO�10,100,500,200,300,910,400 0470…PRINT�"WHAT?";BELL$ 0480…GOTO�5 0490�10‚ENTRIES�=�ENTRIES+1\!�NEXT�AVAILABLE�LOCATION 0500…VALIDENTRIES�=�VALIDENTRIES+1 0510…PRINT�CLEAR$ 0520…FOR�COUNT�=�1�TO�9 0530…ON�COUNT�GOSUB�51,52,53,54,55,56,57,58,59 0540…NEXT�COUNT 0550�40‚GOSUB�600 0560�30‚INPUT�"ARE�ENTRIES�CORRECT?�"�DUMMY$ 0570…IF�DUMMY$�=�"Y"�THEN�GOTO�60 0580…IF�DUMMY$�<>�"N"�THEN�GOTO�30 0590�50‚INPUT�'CHANGE�ENTRY�NUMBER?�(ENTER�"0"�TO�QUIT)�'�DUMMY 0600…IF�DUMMY�=�0�THEN�GOTO�60 0610…IF�DUMMY�<�1�OR�DUMMY�>�9�THEN�GOTO�50 0620…ON�DUMMY�GOSUB�51,52,53,54,55,56,57,58,59 0630…GOTO�40 0640�51‚INPUT�"COMPANY�NAME:�"�CONAME$ 0650…RETURN 0660�52‚INPUT�"CONTACT�NAME:�"�NAME$ 0670…RETURN 0680�53‚INPUT�"POSITION:�"�POSITION$ 0690…RETURN 0700�54‚INPUT�"COMPANY�ADDRESS:�"�ADDRESS$ 0710…RETURN 0720�55‚INPUT�"CITY,�STATE:�"�CITY$ 0730…RETURN 0740�56‚INPUT�"ZIP�CODE:�"�ZIP$ 0750…RETURN 0760�57‚INPUT�"TELEPHONE:�"�PHONE$ 0770…RETURN 0780�58‚INPUT�"INTEREST:�"�INTEREST$ 0790…RETURN 0800�59‚INPUT�"DISTRIBUTOR:�"�DISTI$ 0810…RETURN 0820�60‚DISPLAY�=�ENTRIES 0830…GOSUB�800\!�WRITE�TO�DISK 0840…RESTORE�#3,10 0850…PRINT�#3,ENTRIES 0860…RESTORE�#3,20 0870…PRINT�#3,VALIDENTRIES 0880�65‚INPUT�"FINISHED�(Y�OR�N)?�"�DUMMY$ 0890…IF�DUMMY$�=�"Y"�THEN�GOTO�5 0900…IF�DUMMY$�<>�"N"�THEN�GOTO�65�ELSE�GOTO�10 0910�100�!THIS�IS�THE�DELETE�ROUTINE 0920…INPUT�"ENTER�NUMBER�OF�ENTRY�TO�BE�DELETED:�"�DISPLAY 0930…IF�DISPLAY>ENTRIES�OR�DISPLAY=0�THEN�PRINT�"NO�SUCH�ENTRY"�ELSE�102 0940…GOTO�100 0950�102�GOSUB�700 0960…IF�DELETEMARK�=�0�THEN�PRINT�"DELETED�ALREADY"�ELSE�GOTO�105 0970�101�INPUT�"DELETE�MORE�ENTRIES�(Y�OR�N)?�"�DUMMY$ 0980…IF�DUMMY$�=�"Y"�THEN�GOTO�100 0990…IF�DUMMY$�<>�"N"�THEN�GOTO�101�ELSE�GOTO�5 1000�105�PRINT�CLEAR$ 1010…DEVICE�=�0�\�!�SELECT�CRT 1020…GOSUB�950 1030…PRINT\PRINT 1040�110�INPUT�"DELETE�THIS�ENTRY�(Y�OR�N)?�"�DUMMY$ 1050…IF�DUMMY$�=�"Y"�THEN�GOTO�120 1060…IF�DUMMY$�<>�"N"�THEN�GOTO�110�ELSE�GOTO�100 1070�120�RESTORE�#3,�RECORDPOSITION(DISPLAY) 1080…PRINT�#3,�0 1090…VALIDENTRIES�=�VALIDENTRIES-1 1100…RESTORE�#3,20 1110…PRINT�#3,�VALIDENTRIES 1120…PRINT�"ENTRY�DELETED"\GOTO�101 1130�200�!�THIS�IS�THE�LIST�FUNCTION 1140…FOR�DISPLAY�=�1�TO�ENTRIES 1150…GOSUB�700 1160…IF�DELETEMARK�=�0�THEN�205 1170…PRINT�CLEAR$ 1180…DEVICE�=�0�\�!�SELECT�CRT 1190…GOSUB�950 1200…PRINT\INPUT�"HIT�CARRIAGE�RETURN�TO�CONTINUE�"�DUMMY$ 1210…PRINT�CLEAR$\!CLEAR�SCREEN 1220�205�NEXT�DISPLAY 1230…PRINT�"END�OF�ENTRIES" 1240…GOTO�5 1250�300�!�PRINT�FUNCTION 1260…DEVICE�=�2 1270…PRINT�#DEVICE,�"DISK�NUMBER:ƒ";DISKNUMBER$ 1280…FOR�LOOP�=�1�TO�10 1290…PRINT�#DEVICE 1300…NEXT�LOOP 1310…FOR�DISPLAY�=�1�TO�ENTRIES 1320…GOSUB�700\!�READ�THE�DISK 1330…IF�DELETEMARK�=�0�THEN�305 1340…GOSUB�950\!�PRINT�IT 1350…FOR�LOOP�=�1�TO�6 1360…PRINT�#DEVICE 1370…NEXT�LOOP 1380�305�NEXT�DISPLAY 1390…GOTO�5 1400�400�!�THIS�IS�THE�"RESTORE�ENTRY"�ROUTINE 1, 410…INPUT�"ENTER�NUMBER�OF�ENTRY�TO�BE�RESTORED�"�DISPLAY 1420…IF�DISPLAY>ENTRIES�OR�DISPLAY=0�THEN�PRINT�"NO�SUCH�ENTRY"�ELSE�402 1430…GOTO�400 1440�402�GOSUB�700\!�READ�THE�ENTRY 1450…PRINT�CLEAR$ 1460…IF�DELETEMARK�=�1�THEN�PRINT�"VALID�ENTRY"�ELSE�410 1470…GOTO�420 1480�410�RESTORE�#3,�RECORDPOSITION(DISPLAY) 1490…PRINT�#3,�1�\!�VALID�DATA�MARK 1500…VALIDENTRIES�=�VALIDENTRIES+1 1510…RESTORE�#3,�20 1520…PRINT�#3,�VALIDENTRIES 1530…DEVICE�=�0\!SELECT�CRT 1540…GOSUB�950\!DISPLAY�RESTORED�ENTRY 1550�420�INPUT�"RESTORE�MORE�ENTRIES�(Y�OR�N)"�DUMMY$ 1560…IF�DUMMY$�=�"Y"�THEN�400 1570…IF�DUMMY$�<>�"N"�THEN�420�ELSE�5 1580�500�!�MODIFY�ROUTINE 1590…INPUT�"ENTER�RECORD�NUMBER�TO�BE�MODIFIED:�"�DISPLAY 1600…IF�DISPLAY>ENTRIES�OR�DISPLAY=0�THEN�PRINT�"NO�SUCH�ENTRY"�ELSE�502 1610…GOTO�500 1620�502�GOSUB�700\!READ�THE�RECORD 1630…IF�DELETEMARK=0�THEN�PRINT�"DELETED�RECORD"�ELSE�GOTO�503 1640…GOTO�500 1650�503�PRINT�CLEAR$ 1660…DEVICE=0\!SELECT�CRT 1670…GOSUB�600 1680�504�INPUT�'CHANGE�ENTRY�NUMBER?�(ENTER�"0"�TO�QUIT)�'�DUMMY 1690…IF�DUMMY�=�0�THEN�GOSUB�800�ELSE�510 1700�505�INPUT�"MODIFY�MORE�ENTRIES�(Y�OR�N)?�"�DUMMY$ 1710…IF�DUMMY$�=�"Y"�THEN�500 1720…IF�DUMMY$�<>�"N"�THEN�505�ELSE�5 1730�510�IF�DUMMY�>�9�THEN�504 1740…ON�DUMMY�GOSUB�51,52,53,54,55,56,57,58,59 1750…GOTO�504 1760�600�PRINT�CLEAR$ 1770…PRINT�"1.)‚COMPANY�NAME:„";CONAME$ 1780…PRINT�"2.)‚NAME:Œ";NAME$ 1790…PRINT�"3.)‚POSITION:ˆ";POSITION$ 1800…PRINT�"4.)‚ADDRESS:‰";ADDRESS$ 1810…PRINT�"5.)‚CITY�AND�STATE:‚";CITY$ 1820…PRINT�"6.)‚ZIP�CODE:ˆ";ZIP$ 1830…PRINT�"7.)‚TELEPHONE:‡";PHONE$ 1840…PRINT�"8.)‚INTEREST:ˆ";INTEREST$ 1850…PRINT�"9.)‚DISTRIBUTOR:…";DISTI$ 1860…PRINT\PRINT 1870…RETURN 1880�700�!�THIS�IS�THE�DISK�READ�SUBROUTINE 1890…RESTORE�#3,�RECORDPOSITION(DISPLAY) 1900…INPUT�#3,�DELETEMARK�\�!�GOOD�RECORD? 1910…RESTORE�#3,�STARTOFRECORD(DISPLAY) 1920…INPUT�#3,�M 1930…INPUT�#3,�D 1940…INPUT�#3,�Y 1950…INPUT�#3,�CONAME$ 1960…INPUT�#3,�NAME$ 1970…INPUT�#3,�POSITION$ 1980…INPUT�#3,�ADDRESS$ 1990…INPUT�#3,�CITY$ 2000…INPUT�#3,�ZIP$ 2010…INPUT�#3,�PHONE$ 2020…INPUT�#3,�INTEREST$ 2030…INPUT�#3,�DISTI$ 2040…RETURN 2050�800�!�WRITE�TO�DISK�SUBROUTINE 2060…RESTORE�#3,�RECORDPOSITION(DISPLAY) 2070…PRINT�#3,�1�\�!�VALID�ENTRY�MARK 2080…RESTORE�#3,�STARTOFRECORD(DISPLAY) 2090…PRINT�#3,�M 2100…PRINT�#3,�D 2110…PRINT�#3,�Y 2120…PRINT�#3,�CONAME$ 2130…PRINT�#3,�NAME$ 2140…PRINT�#3,�POSITION$ 2150…PRINT�#3,�ADDRESS$ 2160…PRINT�#3,�CITY$ 2170…PRINT�#3,�ZIP$ 2180…PRINT�#3,�PHONE$ 2190…PRINT�#3,�INTEREST$ 2200…PRINT�#3,�DISTI$ 2210…RETURN 2220�900�!�ERROR�HANDLER 2230…IF�åååååå- åååååååååååååå(€MDOS�SWI �FCB�$3F �END RSCN8�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�E)€ES11E4800BD2000120C48880E312E310D1970488E0500010001D8704893050095 S11E481B010001077048B60200057048BF060000000000007048C50200207074 S11E483648E902002070490D02002070493102002070495502000570495E02EE S11E4851001470497602001070498A0200207049AE060000000001007049B4B3 S11E486C02000A7049C80200017049D302000A7049ED060000000000002E49E2 S1044887FF2D S11E49FF6855BC02391303234C50622E4A1948980A48980A49AE1F051C732E71 S11E4A1A4A2648980A48980A49AE1F737112488E36451248933635711321538C S11E4A35414C45532043414C4C204D41494E5441494E414E4345202D20564571 S11E4A505253494F4E360A48883435320002711310454E5445522050415353A6 S11E4A6B574F52443A20361249D33357A11249D313044D4149444A2B4A882E32 S11E4A864AD00C48BF0A48BF011C1971132A594F552043414E275420464F4F81 S11E4AA14C204D452C2049274D20534D4152544552205448414E20594F552128 S11E4ABC212136350A48BF03252B4ACB3357CB2E4A5B71353200017112488E5B S11E4AD73635711323494E534552542057594C. 45204449534B45545445204992 S11E4AF24E544F2044524956452023312E363513204849542043415252494123 S11E4B0D47452052455455524E20544F20434F4E54494E55452E71364812483E S11E4B28B6381A1248B61304455849544A2B4B3B3357CB0339130C434F4E4139 S11E4B434D45532E53413A316071351325454E54455220544F4441592753204A S11E4B5E444154452028452E472E20382C32332C31393738293A207136480C7E S11E4B7948A446190C48AA46190C48B046190A48B00D0064272B4B9C0C48B062 S11E4B940A48B00D076C1C190339003E0339481249C8381A03390D000A3E0344 S11E4BAF39480C489E461903390D00143E0339480C49F946197112488E363585 S11E4BCA320005713571130C4449534B4E554D4245523A20361249C8363571DC S11E4BE5131D544F54414C20454E5452494553204F4E204449534B3A20202021 S11E4C0020202020360A489E343571131D544F54414C2056414C494420454E1E S11E4C1B5452494553204F4E204449534B3A20360A49F93435713571357113D6 S11E4C3636454E544552202831292C2044454C455445202832292C204D4F443B S11E4C51494659202833292C204C495354202834292C205052494E5420283535 S11E4C6C29367113172C2051554954202836292C20524553544F52452028370A S11E4C872936357135131246554E4354494F4E20444553495245443A20713628 S11E4CA2480C49C246190A49C2504CBC4CCD4F145262508050F75606516671FD S11E4CBD1305574841543F3612489336352E4BCA32000A0C489E0A489E011C41 S11E4CD8190C49F90A49F9011C197112488E36350C49CD110119090D00014369 S11E4CF30A49CD744D0B4DBF4DDB4DF74E0F4E2E4E494E614E7A4E924449CD1D S11E4D0E3200282F53AA32001E131541524520454E545249455320434F525220 S11E4D294543543F207136481248B6381A1248B61301594A2B4D432E4EAD1222 S11E4D4448B613014E4B2B4D502E4D1432003213294348414E474520454E5401 S11E4D5F5259204E554D4245523F2028454E5445522022302220544F2051557F S11E4D7A495429207136480C48BF46190A48BF00252B4D912E4EAD0A48BF0159 S11E4D95272C4D9E0A48BF092A2B4DA42E4D500A48BF744DBC4DBF4DDB4DF790 S11E4DB04E0F4E2E4E494E614E7A4E922E4D0E320033130E434F4D50414E59F7 S11E4DCB204E414D453A207136481248C5381A30320034130E434F4E5441435F S11E4DE654204E414D453A207136481248E9381A30320035130A504F534954F8 S11E4E01494F4E3A20713648124976381A303200361311434F4D50414E59204D S11E4E1C414444524553533A2071364812490D381A30320037130D434954597C S11E4E372C2053544154453A20713648124931381A30320038130A5A4950209E S11E4E52434F44453A20713648124955381A30320039130B54454C4550484F11 S11E4E6D4E453A2071364812495E381A3032003A130A494E5445524553543ADE S11E4E882071364812498A381A3032003B130D4449535452494255544F523A73 S11E4EA3207136481249B4381A3032003C0C49E10A489E192F554D03390D0089 S11E4EBE0A3E03390A489E343503390D00143E03390A49F934353200411313D3 S11E4ED946494E4953484544202859204F52204E293F207136481248B6381AC7 S11E4EF41248B61301594A2B4F012E4BCA1248B613014E4B2B4F112E4ED42E54 S11E4F0F4F142E4CCD3200641325454E544552204E554D424552204F4620458A S11E4F2A4E54525920544F2042452044454C455445443A207136480C49E146D5 S11E4F45190A49E10A489E2A2C4F550A49E100252B4F6D71130D4E4F205355E0 S11E4F60434820454E54525936352E4F702E4F732E4F143200662F54CF0A49DF S11E4F7BE700252B4F9871130F44454C4554454420414C524541445936352EB4 S11E4F964F9B2E4FE6320065131E44454C455445204D4F524520454E5452493F S11E4FB14553202859204F52204E293F207136481248B6381A1248B613015923 S11E4FCC4A2B4FD32E4F141248B613014E4B2B4FE32E4F9B2E4FE62E4BCA3294 S11E4FE700697112488E36350C49ED00192F560F7135713532006E131C4445EB S11E50024C455445205448495320454E545259202859204F52204E293F207192 S11E501D36481248B6381A1248B61301594A2B50312E50441248B613014E4BA2 S11E50382B50412E4FFB2E50442E4F1432007803390A49E1724/ A1C3E03390066 S11E505334350C49F90A49F9011D1903390D00143E03390A49F9343571130DE7 S11E506E454E5452592044454C4554454436352E4F9B3200C80C49E11101199C S11E50890A489E0D0001432F54CF0A49E700252C50DB7112488E36350C49EDB9 S11E50A400192F560F7135132048495420434152524941474520524554555272 S11E50BF4E20544F20434F4E54494E5545207136481248B6381A7112488E363C S11E50DA353200CD4449E171130E454E44204F4620454E545249455336352E24 S11E50F54BCA32012C0C49ED02190A49ED39130F4449534B204E554D4245521C S11E51103A202020361249C836350C49F31101190D000A0D0001430A49ED39CE S11E512B354449F30C49E11101190A489E0D0001432F54CF0A49E700252C51E0 S11E51465D2F560F0C49F3110119060D0001430A49ED39354449F332013144B9 S11E516149E12E4BCA3201901325454E544552204E554D424552204F46204546 S11E517C4E54525920544F20424520524553544F524544207136480C49E1464A S11E5197190A49E10A489E2A2C51A70A49E100252B51BF71130D4E4F205355E4 S11E51B2434820454E54525936352E51C22E51C52E51663201922F54CF711232 S11E51CD488E36350A49E701252B51EC71130B56414C494420454E54525936D3 S11E51E8352E51EF2E51F22E522132019A03390A49E1724A1C3E0339013435FA S11E52030C49F90A49F9011C1903390D00143E03390A49F934350C49ED0019D5 S11E521E2F560F3201A4131D524553544F5245204D4F524520454E5452494578 S11E523953202859204F52204E297136481248B6381A1248B61301594A2C5175 S11E5254661248B613014E4B2C52212E4BCA3201F41324454E544552205245A3 S11E526F434F5244204E554D42455220544F204245204D4F4449464945443A0A S11E528A207136480C49E146190A49E10A489E2A2C52A20A49E100252B52BA63 S11E52A571130D4E4F205355434820454E54525936352E52BD2E52C02E5262ED S11E52C03201F62F54CF0A49E700252B52E471130E44454C4554454420524554 S11E52DB434F524436352E52E72E52EA2E52623201F77112488E36350C49ED3E S11E52F600192F53AA3201F813294348414E474520454E545259204E554D4243 S11E531145523F2028454E5445522022302220544F20515549542920713648EF S11E532C0C48BF46190A48BF00252B533F2F554D2E53422E53843201F9131E07 S11E53474D4F44494659204D4F524520454E5452494553202859204F52204E22 S11E5362293F207136481248B6381A1248B61301594A2C52621248B613014E3A S11E537D4B2C53422E4BCA3201FE0A48BF092A2C52FB0A48BF7453A74DBF4DFC S11E5398DB4DF74E0F4E2E4E494E614E7A4E922E52FB3202587112488E363545 S11E53B3711316312E292020434F4D50414E59204E414D453A2020202036121F S11E53CE48C53635711316322E2920204E414D453A202020202020202020204A S11E53E92020361248E93635711316332E292020504F534954494F4E3A20202E S11E5404202020202020361249763635711316342E29202041444452455353EC S11E541F3A2020202020202020203612490D3635711316352E292020434954C5 S11E543A5920414E442053544154453A2020361249313635711316362E292078 S11E5455205A495020434F44453A2020202020202020361249553635711316C5 S11E5470372E29202054454C4550484F4E453A202020202020203612495E366C S11E548B35711316382E292020494E5445524553543A20202020202020203686 S11E54A612498A3635711316392E2920204449535452494255544F523A202058 S11E54C1202020361249B4363571357135303202BC03390A49E1724A1C3E03C7 S11E54DC39480C49E7461903390A49E1724A0D3E0339480C48A44619033948BF S11E54F70C48AA46190339480C48B046190339481248C5381A0339481248E996 S11E5512381A033948124976381A03394812490D381A033948124931381A03DE S11E552D3948124955381A03394812495E381A03394812498A381A03394812FC S11E554849B4381A3032032003390A49E1724A1C3E033901343503390A49E1D4 S11E5563724A0D3E03390A48A4343503390A48AA343503390A48B03435033903 S11E557E1248C5363503391248E9363503391249763635033912490D36350310 S11E559939124931363503391249553635033912495E3635033912498A3635800  S11E55B403391249B43635303203845E01252B55CB0339612E55CE2E55D133F5 S11E55CF57CB3203857113084552524F52203D20365E34350339616A01252BF9 S11E55EA55EF2E4AD07113124E4F57205748415420444F20574520444F3F36A1 S11E56053532038E0339613357CB3203B60A49ED391311454E545259204E55BF S11E56204D4245523A20202020360A49E134350A49ED39350A49ED3913114429 S11E563B4154453A202020202020202020202020360A48A4343713012F360AA2 S11E565648AA343713012F360A48B034350A49ED391312434F4D50414E59201F S11E56714E414D453A2020202020361248C536350A49ED3913124E414D453A66 S11E568C20202020202020202020202020361248E936350A49ED391312504F3E S11E56A7534954494F4E3A2020202020202020203612497636350A49ED3913B6 S11E56C212414444524553533A202020202020202020203612490D36350A49DB S11E56DDED3913124349545920414E442053544154453A202020361249313604 S11E56F8350A49ED3913125A495020434F44453A2020202020202020203612F0 S11E5713495536350A49ED39131254454C4550484F4E453A2020202020202012 S11E572E203612495E36350A49ED391312494E5445524553543A2020202020FC S11E5749202020203612498A36350A49ED3913124449535452494255544F5242 S11E57643A202020202020361249B43635303203E77113205448495320465599 S11E577F4E4354494F4E204E4F542059455420415641494C41424C452E3635E3 S106579A2E4BCAC5 S11E57A15FEE02FF579DFF579FB6FCF44724FAB6FCF5810D27115CFE579FA743 S11457BC0408FF579FFE579DE10126E2E703393F1A7F S9 00 ::24C EQU * :120 50 FDB 120 0+3 57 10 FDB :+DISPLAY 114 FDB RECORDPOSITION 62 0+3 57 0+0 52 53 12 FDB :+VALIDEåååååååååååååå1 åååååååååååååååååååååååååå2 åååååååååååååååå)I”€-S11E4800BD20001270484602000470484E02003C70488E0200147048A60200A6 S11E481B147048C40200037048CB0200037048D20200037048D905000100013A S11348360E7048DE02492D70492E02000A2E49C028 S11E49C032002802391303234C50623200320C48DE01170D001F193200330CA8 S11E49DB48DE02170D001C193200340C48DE03170D001F193200350C48DE04A8 S11E49F6170D001E193200360C48DE05170D001F193200370C48DE06170D0087 S11E4A111E193200380C48DE07170D001F193200390C48DE08170D001F19321D S11E4A2C003A0C48DE09170D001E1932003B0C48DE0D000A170D001F19320057 S11E4A473C0C48DE0D000B170D001E1932003D0C48DE0D000C170D001F193227 S11E4A6200466851AD3200640A493C39353200650A493C39353200671323444F S11E4A7D4F20594F552057414E542041204752415048204F4E20544845205033 S11E4A9852494E54455220713648124846381A320068124846130453544F5093 S11E4AB34A2B4ABA3352D032006912484613035945534B2B4AD10C493C001999 S11E4ACE2E4AD60C493C021932006E0A493C39353200730A493C3935320082DC S11E4AE92E4AFF49420A49420A49420A48BE205B0A48BE1F1D733200C30C49EE S11E4B04B40E362E32383331390D193200C80A493C39353200D213135748413E S11E4B1F5420495320594F5552204E414D45203F7136481248A6381A3200E6FF S11E4B3A1326454E54455220594F5552204249525448444154452028452E477D S11E3 4B552E20312C312C31393534293A207136480C496046190C497246190CAE S11E4B70498446193201220A49840D0064272B4B8C0C49840A49840D076C1CE8 S11E4B8B1932012C1313454E5445522053544152542044415445203A207136E2 S11E4BA6480C496646190C497846190C498A46193201400A498A0D0064272B11 S11E4BC14BCE0C498A0A498A0D076C1C1932014A1321484F57204D414E592037 S11E4BDC4D4F4E54485320574F554C4420594F55204C494B45203F2071364866 S11E4BF70C49AE461932017C0A49840A498A2A2B4C0C2E4B373201860A4984ED S11E4C120A498A272B4C1C2E4C4C3201900A49600A49662A2B4C2C2E4B373248 S11E4C2D019A0A49600A4966272B4C3C2E4C4C3201A40A49720A49782A2B4CB9 S11E4C484C2E4B373201CC0C496C0A4972193201D60C495A0A4960193201E01C S11E4C630C497E0A4984193201E20A497E0A498A252C513E2E4C8A3201E40CA5 S11E4C7E49420A4990193201E62E4D363201EA2F51BD3201F40C49420A4990CB S11E4C99193201FE0C496C0A4978193202080C495A0A4966193202120C497E37 S11E4CB40A498A1932021C2F524D3202260C49420A49420A49901C19320230CB S11E4CCF0C49420A49420D016D0A498A0A49841D011D1F1C1932023A0C4948D1 S11E4CEA110A4984011C190A498A011D0D0001433202440A494804200A49486F S11E4D0504205B252B4D150C49420A4942011C1932024E4449483202670A49B7 S11E4D208A0A498A04205B041F252B4D360C49420A4942011D193204420A496A S11E4D3B3C391325544849532042494F2D52485954484D20434841525420506F S11E4D565245504152454420464F52203A20361248A636353204470A493C39D4 S11E4D71131057484F2057415320424F524E204F4E20360A4960343713012F42 S11E4D8C360A4972343713012F360A498434353204480A493C39130C414E44B1 S11E4DA72057494C4C20424520360A4942343713242044415953204F4C4420F1 S11E4DC2415420544845205354415254204F46205448495320434841525436B9 S11E4DDD3532044C0A493C393532044D0A493C39353204560A493C39131E20DE S11E4DF82020202020202020202020202020204E454741544956452050484170 S11E4E135345363204570A493C39130D2020202020435249544943414C3632EA S11E4E2E04580A493C39131220202020504F5349544956452050484153453662 S11E4E493532045B0A493C391309202020202020202020363204600C49481106 S11E4E6401190D003C0D00014332046A0A493C3913012D3632047444494832EB S11E4E7F047E0A493C39353204880C49BA091932048912484E133C2E2E2E2E38 S11E4E9A2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E1F S11E4EB52E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E04 S11E4ED02E2E1A3204B00A498A04200A498A04205B252B4EEE0C48DE02170D26 S11E4EEB001D193204BA12484E0D001E150D002A1B3204EC0C48BE0D001719D7 S11E4F063204F10C499C0A4942724AEC0D0017200A49B41F570D001C1F0D0021 S11E4F211E1C193204F60C48BE0D001C193204FB0C49960A4942724AEC0D0038 S11E4F3C1C200A49B41F570D001C1F0D001E1C193205000C48BE0D0021193233 S11E4F5705050C49A20A4942724AEC0D0021200A49B41F570D001C1F0D001EBF S11E4F721C1932050D12484E0A499C150D00501B32050E12484E0A4996150D8B S11E4F8D00451B32050F12484E0A49A2150D00491B3205100A499C0A499625F8 S11E4FA82B4FC00A49960A49A2252B4FC012484E0A499C150D00231B32051134 S11E4FC30C49480A498A0A498A0D0064205B0D00641F1D193205121248C40A55 S11E4FDE49667A1A3205131248CB0A49787A1A3205141248D20A49487A1A32CB S11E4FF905151448C4022A2B500C1248C41248C4023D1A3205161448CB022A77 S11E50142B50201248CB1248CB023D1A3205171448D2022A2B50341248D212AA S11E502F48D2023D1A32051D0A493C391248C43613012F361248CB3613012F68 S11E504A361248D2361301203612484E363532056E12484E0A499C150D002EA6 S11E50651B32057812484E0A4996150D002E1B32058212484E0A49A2150D00EE S11E50802E1B32058C12484E0D001E150D002A1B3205B40C49420A4942011C97 S11E509B193205BE0C49780A4978011C193205C80A49780C48DE0A4966170B43 S11E50B6282B50BD24 E4EFC3205D20C497801193205DC0C49660A4966011C1956 S11E50D13206400C49AE0A49AE011D1932064A0A49AE00252B50EB2E4A6732EE S11E50EC06540A49660D000C282B50FB2E4EFC32065E0C496601193206680C4C S11E5107498A0A498A011C193206720C48DE02170D001C1932067C0A498A0AD1 S11E5122498A04205B041F1D00252B51380C48DE02170D001D193206862E4E3B S11E513DFC321B580C49900019321B6C0A497E0A497E04205B041F252B5161B5 S11E51580C48DE02170D001D19321B800C4948110A495A190A49660D0001435F S11E5173321B940C49900A49900C48DE0A4948170B1C19321BA8444948321B39 S11E518EBC0C49900A49900C48DE0A4966170B1D0A496C1D0A49781C19321B2B S11E51A9D02E4C7A321F405E01262B51B92E4A67321F4131321F900C48DE0221 S11E51C4170D001C193223280A497E0A497E04205B041F252B51E40C48DE02F9 S11E51DF170D001D193223320C499000193223370A495A0D000C252C5230327B S11E51FA233C0C494E0A495A011C193223500C4948110A494E190D000C0D007E S11E521501433223640C49900A49900C48DE0A4948170B1C19322378444948EF S11E523032238C0C49900A49900C48DE0A495A170B1C0A496C1D011C19322332 S11E524BA0303225080C48DE02170D001C1932251C0A497E0A497E04205B04F0 S5T€3S11E4800BD20001270484C02000470485402003C7048940200147048AC02008E S11E481B147048C402000A7048F60200037048FD0200037049040200037049FA S11948360B05000100010E70491002495F70496002000A2E4A0A2E S11E4A0A32002802391303234C50623200320C491001170D001F193200330C2A S11E4A25491002170D001C193200340C491003170D001F193200350C491004C4 S11E4A40170D001E193200360C491005170D001F193200370C491006170D00D6 S11E4A5B1E193200380C491007170D001F193200390C491008170D001F19326D S11E4A76003A0C491009170D001E1932003B0C49100D000A170D001F193200A7 S11E4A913C0C49100D000B170D001E1932003D0C49100D000C170D001F193277 S11E4AAC00466853353200640A496E39353200650A496E393532006713234417 S11E4AC74F20594F552057414E542041204752415048204F4E205448452050E9 S11E4AE252494E5445522071364812484C381A32006812484C130453544F503D S11E4AFD4A2B4B0433545832006912484C13035945534B2B4B1B0C496E0019F7 S11E4B182E4B200C496E021932006E0A496E39353200730A496E3935320082B0 S11E4B332E4B4949740A49740A49740A48F0205B0A48F01F1D733200C30C495E S11E4B4EFE0E362E32383331390D193200C80A496E39353200D2131357484178 S11E4B695420495320594F5552204E414D45203F7136481248AC381A3200E6AF S11E4B841326454E54455220594F5552204249525448444154452028452E4733 S11E4B9F2E20312C312C31393534293A207136480C49AA46190C49BC46190CD0 S11E4BBA49CE46193201220A49CE0D0064272B4BD60C49CE0A49CE0D076C1C2C S11E4BD51932012C1313454E5445522053544152542044415445203A20713698 S11E4BF0480C49B046190C49C246190C49D446193201400A49D40D0064272B9F S11E4C0B4C180C49D40A49D40D076C1C1932014A1321484F57204D414E59200D S11E4C264D4F4E54485320574F554C4420594F55204C494B45203F207136481B S11E4C410C49F8461932017C0A49CE0A49D42A2B4C562E4B813201860A49CEE6 S11E4C5C0A49D4272B4C662E4C963201900A49AA0A49B02A2B4C762E4B8132F8 S11E4C77019A0A49AA0A49B0272B4C862E4C963201A40A49BC0A49C22A2B4CB3 S11E4C92962E4B813201CC0C49B60A49BC193201D60C49A40A49AA193201E016 S11E4CAD0C49C80A49CE193201E20A49C80A49D4252C52C62E4CD43201E40C60 S11E4CC849740A49DA193201E62E4E2C3201EA2F53453201F40C49740A49DA08 S11E4CE3193201FE0C49B60A49C2193202080C49A40A49B0193202120C49C87B S11E4CFE0A49D41932021C2F53D53202260C49740A49740A49DA1C1932023000 S11E4D190C49740A49740D016D0A49D40A49CE1D011D1F1C1932023A0C497A5C S11E4D34110A49CE011C190A49D4011D0D00014335 202440A497A04200A497A2C S11E4D4F04205B252B4D5F0C49740A4974011C1932024E44497A3202670A498D S11E4D6AD40A49D404205B041F252B4D800C49740A4974011D193202BC0C4964 S11E4D85980E302E360D010A49AA201C5B193202C60C498C0A49CE0A49981D16 S11E4DA0193202D00C49920A49AA0D000C0A49981F1C193202DA0C499E0A4947 S11E4DBB8C0D006420193202E40C48D80A499E04205B193202EE0C48DE0A492F S11E4DD69E5B193202F80C48E4050A498C1F04205B193203020C48EA0D000D1E S11E4DF10A4992011C1F05205B1932030C0C48D20A48EA0A48E41C0A48DE1DA7 S11E4E0C0A48D81C0A49BC1C011D193203160C48D20A48D2070A48D207205B9D S11E4E271F1D011C193204420A496E391325544849532042494F2D52485954AA S11E4E42484D20434841525420505245504152454420464F52203A20361248A6 S11E4E5DAC36353204440A48D2744E77524E525E526E527F529252A452B43255 S11E4E7804470A496E39131057484F2057415320424F524E204F4E20361248FC S11E4E93C4360A49AA343713012F360A49BC343713012F360A49CE3435320472 S11E4EAE480A496E39130C414E442057494C4C20424520360A497434371324F3 S11E4EC92044415953204F4C4420415420544845205354415254204F462054ED S11E4EE4484953204348415254363532044C0A496E393532044D0A496E39356B S11E4EFF3204560A496E390D000C4913124E45474154495645205048415345A3 S11E4F1A20282D29363204570A496E390D002249130C435249544943414C201B S11E4F35284329363204580A496E390D0032491312504F53495449564520507B S11E4F504841534520282B29363532045B0A496E391309202020202020202073 S11E4F6B20363204600C497A1101190D003C0D00014332046A0A496E391301F9 S11E4F862D3632047444497A32047E0A496E39353204880C4A0409193204891C S11E4FA1124854133C2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D16 S11E4FBC2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D17 S11E4FD72D2D2D2D2D2D2D2D2D2D2D1A3204B00A49D404200A49D404205B25B6 S11E4FF22B4FFE0C491002170D001D193204BA1248540D001E150D002A1B3205 S11E500D04EC0C48F00D0017193204F10C49E60A4974724B360D0017200A4960 S11E5028FE1F570D001C1F0D001E1C193204F60C48F00D001C193204FB0C4915 S11E5043E00A4974724B360D001C200A49FE1F570D001C1F0D001E1C193205C5 S11E505E000C48F00D0021193205050C49EC0A4974724B360D0021200A49FED2 S11E50791F570D001C1F0D001E1C1932050D1248540A49E6150D00501B32050B S11E50940E1248540A49E0150D00451B32050F1248540A49EC150D00491B32A1 S11E50AF05100A49E60A49E0252B50D00A49E00A49EC252B50D01248540A490E S11E50CAE6150D00231B3205110C497A0A49D40A49D40D0064205B0D00641FA0 S11E50E51D193205121248F60A49B07A1A3205131248FD0A49C27A1A320514B1 S11E51001249040A497A7A1A3205151448F6022A2B511C1248F61248F6023D8F S11E511B1A3205161448FD022A2B51301248FD1248FD023D1A32051714490427 S11E5136022A2B5144124904124904023D1A32051D0A496E391248F63613016F S11E51512F361248FD3613012F361249043613012036124854363532056E1205 S11E516C48540A49E6150D002D1B3205781248540A49E0150D002D1B32058232 S11E51871248540A49EC150D002D1B32058C1248540D001E150D002A1B320578 S11E51A2B40C49740A4974011C193205BE0C49C20A49C2011C193205C80A49CB S11E51BDC20C49100A49B0170B282B51CD2E500C3205D20C49C201193205DC3F S11E51D80C49B00A49B0011C193206400C49F80A49F8011D1932064A0A49F866 S11E51F300252B51FB2E4AB13206540A49B00D000C282B520B2E500C32065E60 S11E520E0C49B001193206680C49D40A49D4011C193206720C491002170D0007 S11E52291C1932067C0A49D40A49D404205B041F1D00252B52480C4910021708 S11E52440D001D193206862E500C3207D01248C4130653554E4441591A303230 S11E525F07DA1248C413064D4F4E4441591A303207E41248C413075455455370 S11E527A4441591A303207EE1248C413095745444E45534441591A303207F86D S11E52951248C4130854485552534441591A303208021248C413066 465249446B S11E52B041591A3032080C1248C4130853415455524441591A30321B580C49CB S11E52CBDA0019321B6C0A49C80A49C804205B041F252B52E90C491002170D2A S11E52E6001D19321B800C497A110A49A4190A49B00D000143321B940C49DA52 S11E53010A49DA0C49100A497A170B1C19321BA844497A321BBC0C49DA0A4950 S11E531CDA0C49100A49B0170B1D0A49B61D0A49C21C19321BD02E4CC4321FD5 S11E5337405E01262B53412E4AB1321F4131321F900C491002170D001C193214 S11E535223280A49C80A49C804205B041F252B536C0C491002170D001D193217 S11E536D23320C49DA00193223370A49A40D000C252C53B832233C0C49800A1C S11E538849A4011C193223500C497A110A4980190D000C0D0001433223640C43 S11E53A349DA0A49DA0C49100A497A170B1C1932237844497A32238C0C49DA2E S11E53BE0A49DA0C49100A49A4170B1C0A49B61D011C193223A0303225080C1D S11E53D9491002170D001C1932251C0A49C80A49C804205B041F252B53FC0C0B S11E53F4491002170D001D193225300C49DA00193225440A49A401252C54449A S11E540F3225580C49800A49A4011D1932256C0C497A1101190A49800D00012E S11E542A433225800C49DA0A49DA0C49100A497A170B1C1932259444497A3240 S118544525A80C49DA0A49DA0A49B61C011D193225BC303F3F08 S9  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" 125b€4„DIM�VERSION/1.1/ „DIM�CLEAR$/:D8/,BELL$/:7/,X,ENTRIES,M,D,Y,DUMMY$(5),DUMMY/0/ „DIM�CONAME$(32),NAME$(32),ADDRESS$(32),CITY$(32),ZIP$(5) „DIM�PHONE$(20),POSITION$(16),INTEREST$(32),RECORDSIZE/256/ „DIM�DISTI$(10),FUNCTION,DISKNUMBER$(1),COUNT,PASWRD$(10),DISPLAY „DIM�DELETEMARK,DEVICE/0/,LOOP,VALIDENTRIES „ON�ERROR�GOTO�900\!�ERROR�HANDLER „CREATE�#2,�"#LP"\!�PRINTER „DEF�STARTOFRECORD(X)�=�X*RECORDSIZE+5 „DEF�RECORDPOSITION(X)�=�X*RECORDSIZE „PRINT�CLEAR$,BELL$ „PRINT�"SALES�CALL�MAINTAINANCE�-�VERSION";VERSION 2ƒPRINT�"ENTER�PASSWORD:�"; „CALL�NOECHO(PASWRD$) „IF�PASWRD$�=�"MAID"�THEN�GOTO�1 „DUMMY�=�DUMMY+1 „PRINT�"YOU�CAN'T�FOOL�ME,�I'M�SMARTER�THAN�YOU!!!" „IF�DUMMY�=�3�THEN�CALL�MDOS „GOTO�2 „PRINT 1ƒPRINT�CLEAR$ „PRINT�"INSERT�WYLE�DISKETTE�INTO�DRIVE�#1." „INPUT�"HIT�CARRIAGE�RETURN�TO�CONTINUE."�DUMMY$ „IF�DUMMY$�=�"EXIT"�THEN�CALL�MDOS „OPEN�#3,�"CONAMES.SA:1" „PRINT „INPUT�"ENTER�TODAY'S�DATE�(E.G.�8,23,1978):�"�M,D,Y „IF�Y�<�100�THEN�Y�=�Y+1900\!�JUST�IN�CASE „RESTORE�#3,0 „INPUT�#3,DISKNUMBER$ „RESTORE�#3,10 „INPUT�#3,ENTRIES „RESTORE�#3,20 „INPUT�#3,VALIDENTRIES „PRINT�CLEAR$ 5ƒPRINT „PRINT�"DISKNUMBER:�";DISKNUMBER$ „PRINT�"TOTAL�ENTRIES�ON�DISK:‡";ENTRIES „PRINT�"TOTAL�VALID�ENTRIES�ON�DISK:�";VALIDENTRIES „PRINT „PRINT „PRINT�"ENTER�(1),�DELETE�(2),�MODIFY�(3),�LIST�(4),�PRINT�(5)"; „PRINT�",�QUIT�(6),�RESTORE�(7)" „PRINT „INPUT�"FUNCTION�DESIRED:�"�FUNCTION „ON�FUNCTION�GOTO�10,100,500,200,300,910,400 „PRINT�"WHAT?";BELL$ „GOTO�5 10‚ENTRIES�=�ENTRIES+1\!�NEXT�AVAILABLE�LOCATION „VALIDENTRIES�=�VALIDENTRIES+1 „PRINT�CLEAR$ „FOR�COUNT�=�1�TO�9 „ON�COUNT�GOSUB�51,52,53,54,55,56,57,58,59 „NEXT�COUNT 40‚GOSUB�600 30‚INPUT�7 "ARE�ENTRIES�CORRECT?�"�DUMMY$ „IF�DUMMY$�=�"Y"�THEN�GOTO�60 „IF�DUMMY$�<>�"N"�THEN�GOTO�30 50‚INPUT�'CHANGE�ENTRY�NUMBER?�(ENTER�"0"�TO�QUIT)�'�DUMMY „IF�DUMMY�=�0�THEN�GOTO�60 „IF�DUMMY�<�1�OR�DUMMY�>�9�THEN�GOTO�50 „ON�DUMMY�GOSUB�51,52,53,54,55,56,57,58,59 „GOTO�40 51‚INPUT�"COMPANY�NAME:�"�CONAME$ „RETURN 52‚INPUT�"CONTACT�NAME:�"�NAME$ „RETURN 53‚INPUT�"POSITION:�"�POSITION$ „RETURN 54‚INPUT�"COMPANY�ADDRESS:�"�ADDRESS$ „RETURN 55‚INPUT�"CITY,�STATE:�"�CITY$ „RETURN 56‚INPUT�"ZIP�CODE:�"�ZIP$ „RETURN 57‚INPUT�"TELEPHONE:�"�PHONE$ „RETURN 58‚INPUT�"INTEREST:�"�INTEREST$ „RETURN 59‚INPUT�"DISTRIBUTOR:�"�DISTI$ „RETURN 60‚DISPLAY�=�ENTRIES „GOSUB�800\!�WRITE�TO�DISK „RESTORE�#3,10 „PRINT�#3,ENTRIES „RESTORE�#3,20 „PRINT�#3,VALIDENTRIES 65‚INPUT�"FINISHED�(Y�OR�N)?�"�DUMMY$ „IF�DUMMY$�=�"Y"�THEN�GOTO�5 „IF�DUMMY$�<>�"N"�THEN�GOTO�65�ELSE�GOTO�10 100�!THIS�IS�THE�DELETE�ROUTINE „INPUT�"ENTER�NUMBER�OF�ENTRY�TO�BE�DELETED:�"�DISPLAY „IF�DISPLAY>ENTRIES�OR�DISPLAY=0�THEN�PRINT�"NO�SUCH�ENTRY"�ELSE�102 „GOTO�100 102�GOSUB�700 „IF�DELETEMARK�=�0�THEN�PRINT�"DELETED�ALREADY"�ELSE�GOTO�105 101�INPUT�"DELETE�MORE�ENTRIES�(Y�OR�N)?�"�DUMMY$ „IF�DUMMY$�=�"Y"�THEN�GOTO�100 „IF�DUMMY$�<>�"N"�THEN�GOTO�101�ELSE�GOTO�5 105�PRINT�CLEAR$ „DEVICE�=�0�\�!�SELECT�CRT „GOSUB�950 „PRINT\PRINT 110�INPUT�"DELETE�THIS�ENTRY�(Y�OR�N)?�"�DUMMY$ „IF�DUMMY$�=�"Y"�THEN�GOTO�120 „IF�DUMMY$�<>�"N"�THEN�GOTO�110�ELSE�GOTO�100 120�RESTORE�#3,�RECORDPOSITION(DISPLAY) „PRINT�#3,�0 „VALIDENTRIES�=�VALIDENTRIES-1 „RESTORE�#3,20 „PRINT�#3,�VALIDENTRIES „PRINT�"ENTRY�DELETED"\GOTO�101 200�!�THIS�IS�THE�LIST�FUNCTION „FOR�DISPLAY�=�1�TO�ENTRIES „GOSUB�700 „IF�DELETEMARK�=�0�THEN�205 „PRINT�CLEAR$ „DEVICE�=�0�\�!�SELECT�CRT „GOSUB�950 „PRINT\INPUT�"HIT�CARRIAGE�RETURN�TO�CONTINUE�"�DUMMY$ „PRINT�CLEAR$\!CLEAR�SCREEN 205�NEXT�DISPLAY „PRINT�"END�OF�ENTRIES" „GOTO�5 300�!�PRINT�FUNCTION „DEVICE�=�2 „PRINT�#DEVICE,�"DISK�NUMBER:ƒ";DISKNUMBER$ „FOR�LOOP�=�1�TO�10 „PRINT�#DEVICE „NEXT�LOOP „FOR�DISPLAY�=�1�TO�ENTRIES „GOSUB�700\!�READ�THE�DISK „IF�DELETEMARK�=�0�THEN�305 „GOSUB�950\!�PRINT�IT „FOR�LOOP�=�1�TO�6 „PRINT�#DEVICE „NEXT�LOOP 305�NEXT�DISPLAY „GOTO�5 400�!�THIS�IS�THE�"RESTORE�ENTRY"�ROUTINE „INPUT�"ENTER�NUMBER�OF�ENTRY�TO�BE�RESTORED�"�DISPLAY „IF�DISPLAY>ENTRIES�OR�DISPLAY=0�THEN�PRINT�"NO�SUCH�ENTRY"�ELSE�402 „GOTO�400 402�GOSUB�700\!�READ�THE�ENTRY „PRINT�CLEAR$ „IF�DELETEMARK�=�1�THEN�PRINT�"VALID�ENTRY"�ELSE�410 „GOTO�420 410�RESTORE�#3,�RECORDPOSITION(DISPLAY) „PRINT�#3,�1�\!�VALID�DATA�MARK „VALIDENTRIES�=�VALIDENTRIES+1 „RESTORE�#3,�20 „PRINT�#3,�VALIDENTRIES „DEVICE�=�0\!SELECT�CRT „GOSUB�950\!DISPLAY�RESTORED�ENTRY 420�INPUT�"RESTORE�MORE�ENTRIES�(Y�OR�N)"�DUMMY$ „IF�DUMMY$�=�"Y"�THEN�400 „IF�DUMMY$�<>�"N"�THEN�420�ELSE�5 500�!�MODIFY�ROUTINE „INPUT�"ENTER�RECORD�NUMBER�TO�BE�MODIFIED:�"�DISPLAY „IF�DISPLAY>ENTRIES�OR�DISPLAY=0�THEN�PRINT�"NO�SUCH�ENTRY"�ELSE�502 „GOTO�500 502�GOSUB�700\!READ�THE�RECORD „IF�DELETEMARK=0�THEN�PRINT�"DELETED�RECORD"�ELSE�GOTO�503 „GOTO�500 503�PRINT�CLEAR$ „DEVICE=0\!SELECT�CRT „GOSUB�600 504�INPUT�'CHANGE�ENTRY�NUMBER?�(ENTER�"0"�TO�QUIT)�'�DUMMY „IF�DUMMY�=�0�THEN�GOSUB�800�ELSE�510 505�INPUT�"MODIFY�MORE�ENTRIES�(Y�OR�N)?�"�DUMMY$ „IF�DUMMY$�=�"Y"�THEN�500 „IF�DUMMY$�<>�"N"�THEN�505�ELSE�5 510�IF�DUMMY�>�9�THEN�504 „ON�DUMMY�GOSUB�51,52,53,54,55,56,57,588 ,59 „GOTO�504 600�PRINT�CLEAR$ „PRINT�"1.)‚COMPANY�NAME:„";CONAME$ „PRINT�"2.)‚NAME:Œ";NAME$ „PRINT�"3.)‚POSITION:ˆ";POSITION$ „PRINT�"4.)‚ADDRESS:‰";ADDRESS$ „PRINT�"5.)‚CITY�AND�STATE:‚";CITY$ „PRINT�"6.)‚ZIP�CODE:ˆ";ZIP$ „PRINT�"7.)‚TELEPHONE:‡";PHONE$ „PRINT�"8.)‚INTEREST:ˆ";INTEREST$ „PRINT�"9.)‚DISTRIBUTOR:…";DISTI$ „PRINT\PRINT „RETURN 700�!�THIS�IS�THE�DISK�READ�SUBROUTINE „RESTORE�#3,�RECORDPOSITION(DISPLAY) „INPUT�#3,�DELETEMARK�\�!�GOOD�RECORD? „RESTORE�#3,�STARTOFRECORD(DISPLAY) „INPUT�#3,�M „INPUT�#3,�D „INPUT�#3,�Y „INPUT�#3,�CONAME$ „INPUT�#3,�NAME$ „INPUT�#3,�POSITION$ „INPUT�#3,�ADDRESS$ „INPUT�#3,�CITY$ „INPUT�#3,�ZIP$ „INPUT�#3,�PHONE$ „INPUT�#3,�INTEREST$ „INPUT�#3,�DISTI$ „RETURN 800�!�WRITE�TO�DISK�SUBROUTINE „RESTORE�#3,�RECORDPOSITION(DISPLAY) „PRINT�#3,�1�\�!�VALID�ENTRY�MARK „RESTORE�#3,�STARTOFRECORD(DISPLAY) „PRINT�#3,�M „PRINT�#3,�D „PRINT�#3,�Y „PRINT�#3,�CONAME$ „PRINT�#3,�NAME$ „PRINT�#3,�POSITION$ „PRINT�#3,�ADDRESS$ „PRINT�#3,�CITY$ „PRINT�#3,�ZIP$ „PRINT�#3,�PHONE$ „PRINT�#3,�INTEREST$ „PRINT�#3,�DISTI$ „RETURN 900�!�ERROR�HANDLER „IF�ERR�=�1�THEN�CLOSE�#3�ELSE�901\CALL�MDOS 901�PRINT�"ERROR�=�";ERR „CLOSE�#3 „IF�ELN�=�1�THEN�GOTO�1 „PRINT�"NOW�WHAT�DO�WE�DO?" 910�CLOSE�#3 „CALL�MDOS 950�!SUBROUTINE�TO�DISPLAY�THE�ENTRY�ON�THE�"DEVICE" „PRINT�#DEVICE,�"ENTRY�NUMBER:„";DISPLAY „PRINT�#DEVICE „PRINT�#DEVICE,�"DATE:Œ";M;"/";D;"/";Y „PRINT�#DEVICE,�"COMPANY�NAME:…";CONAME$ „PRINT�#DEVICE,�"NAME:�";NAME$ „PRINT�#DEVICE,�"POSITION:‰";POSITION$ „PRINT�#DEVICE,�"ADDRESS:Š";ADDRESS$ „PRINT�#DEVICE,�"CITY�AND�STATE:ƒ";CITY$ „PRINT�#DEVICE,�"ZIP�CODE:‰";ZIP$ „PRINT�#DEVICE,�"TELEPHONE:ˆ";PHONE$ „PRINT�#DEVICE,�"INTEREST:‰";INTEREST$ „PRINT�#DEVICE,�"DISTRIBUTOR:†";DISTI$ „RETURN 999�PRINT�"THIS�FUNCTION�NOT�YET�AVAILABLE." „GOTO�5 50 4F23�04EC‡911:‰FDB…1260 4F25�0C‰912:‰12 4F26�48BE‡913:‰FDB…:+Z1 4F28�0D‰914:‰13 4F29�0017‡915:‰FDB…23 4F2B�19‰916:‰25 4F2C�32‰917:�:1265ƒ50 4F2D�04F1‡918:‰FDB…1265 4F2F�0C‰919:‰12 4F30�49A2‡920:‰FDB…:+P2 4F32�0A‰921:‰10 4F33�4948‡922:‰FDB…:+A 4F35�72‰92p€*�THIS�ROUTINE�ENTERS�STRING�DATA *�WITHOUT�ECHOING�IT�TO�THE�CRT ACIAS�EQU�$FCF4 ACIAD�EQU�ACIAS+1 * ADDR�RMB�2 TEMPX�RMB�2 * NOECHO�CLRB�CHAR�CNTR�=�0 �LDX�2,X�GET�ADDR�OF�STRING �STX�ADDR�SAVE�IT �STX�TEMPX INPUT�LDAA�ACIAS �ASRA �BCC�INPUT�NO�CHAR�YET �LDAA�ACIAD�GET�CHAR �CMPA�#$D �BEQ�EXIT�IT�WAS�A�C.R. �INCB�BUMP�CHAR�CNTR �LDX�TEMPX �STAA�4,X�STORE�IT�IN�STRING �INX �STX�TEMPX�SAVE�X �LDX�ADDR�POINT�AT�STRING �CMPB�1,X �BNE�INPUT EXIT�STAB�3,X �RTS MDOS�SWI �FCB�$1A �END FDB…FNA 4F60�0D‰954:‰13 4F61�001C‡955:‰FDB…28 4F63�20‰956:‰32 4F64�0A‰957:‰10 4F65�49BA‡958:‰FDB…:+P 4F67�1F‰959:‰31 4F68�57‰960:‰87 4F69�0D‰961:‰13 4F6A�001C‡962:‰FDB…28 4F6C�1F‰963:‰31 4F6D�0D‰964:‰13 4F6E�001E‡965:‰FDB…30 4F70�1C‰966:‰28 4F71�19‰967:‰25 4F72�32‰968:�:1280ƒ50 4F73�0500‡969:‰FDB…1280 4F75�0C‰970:‰12 4F76�48BE‡971:‰FDB…:+Z1 4F78�0D‰972:‰13 4F79�0021‡973:‰FDB…33 4F7r€!�ROUTINE�TO�GENERATE�A�DATABASE�FILE�ON�DRIVE�:1 DIM�RECORDSIZE/256/,X,BELL$/:7/,DELETEMARK/0/,VALIDENTRIES/0/ DIM�N,CLEAR$/:D89 /,CONTINUE$(1),DISKNUMBER$(1),ENTRIES/0/ DEF�RECORDPOSITION(X)�=�X*RECORDSIZE PRINT�CLEAR$\!�CLEAR�THE�TERMINAL�SCREEN PRINT�"INSERT�A�SCRATCH�DISKETTE�INTO�DRIVE�#1." PRINT�'IT�MUST�BE�PREPARED�WITH�A�"DOSGEN;U"�BEFORE�USE.' INPUT�"TYPE�A�CARRIAGE�RETURN�WHEN�READY�TO�CONTINUE."�CONTINUE$ INPUT�"ENTER�DISK�NUMBER:�"�DISKNUMBER$ PRINT�CLEAR$ PRINT�"ŒFILE�MAINTAINANCE�IN�PROGRESS�-�PLEASE�WAIT" CREATE�#2,"CONAMES.SA:1" RESTORE�#2,0 PRINT�#2,DISKNUMBER$\!�DISK�I.D.�NUMBER RESTORE�#2,10 PRINT�#2,ENTRIES\!�NO�ENTRIES�YET RESTORE�#2,20 PRINT�#2,VALIDENTRIES\!�NO�VALID�ENTRIES�YET FOR�N�=�1�TO�893 RESTORE�#2,RECORDPOSITION(N) PRINT�#2,DELETEMARK NEXT�N PRINT�BELL$;CLEAR$ PRINT�"ŒDISKETTE�INITIALIZATION�NOW�COMPLETE" CLOSE�#2 CALL�MDOS  t€ S11E4800BD20001270484D0600000000010070485905000100010770485E0663 S11E481B000000000000704864060000000000007048700500010001D870489D S11A48367502000170487A02000170487F060000000000002E488582 S11E48852E489248530A48530A484D1F73711248703635711328494E534552C8 S11E48A05420412053435241544348204449534B4554544520494E544F2044E1 S11E48BB524956452023312E36357113314954204D5553542042452050524532 S11E48D65041524544205749544820412022444F5347454E3B552220424546F9 S11E48F14F5245205553452E3635132E545950452041204341525249414745DA S11E490C2052455455524E205748454E20524541445920544F20434F4E544945 S11E49274E55452E713648124875381A1313454E544552204449534B204E5599 S11E49424D4245523A2071364812487A381A71124870363571133720202020E0 S11E495D202020202020202046494C45204D41494E5441494E414E434520492A S11E49784E2050524F4752455353202D20504C45415345205741495436350254 S11E499339130C434F4E414D45532E53413A31620239003E023912487A363525 S11E49AE02390D000A3E02390A487F343502390D00143E02390A486434350CE5 S11E49C9486A1101190D037D0D00014302390A486A7248883E02390A485E347E S11E49E43544486A711248593612487036357113302020202020202020202006 S11E49FF20204449534B4554544520494E495449414C495A4154494F4E204E46 S1184A1A4F5720434F4D504C4554453635023961334A2D3F1A5A S9 0 37 ::152 EQU * 43 FDB ::153 113 19 FCB ::154-*-1 FCC "NO�SUCH�ENTRY" ::154 EQU * 54 53 46 FDB ::253 ::153 EQU * 46w€* COMPILED�BY�10/30/77�SOFTWARE�DYNAMICS�BASIC�VERSION�1.2 ORG $4800 JSR $2000 FCB $12 :: SET 0 RECORDSIZE EQU :: 112 FDB :+:: FCB 6 FDB 0 FDB 0 FDB 256 :: SET ::+6 X EQU :: :: SET ::+6 BELL$ EQU :: 112 FDB :+:: FCB ::21-*-1 ::11 EQU * FDB ::21-*-4 FDB ::21-*-2 FCB $7 ::21 EQU * :: SET ::+*-::11 DELETEMARK EQU :: 112 FDB :+:: FCB 6 FDB 0 FDB 0 FDB 0 :: SET ::+6 VALIDENTRIES EQU :: 112 FDB :+:: FCB 6 FDB 0 FDB 0 FDB 0 :: SET ::+6 N EQU :: :: SET ::+6 CLEAR$ EQU :: 112 FDB :+:: FCB ::22-*-1 ::12 EQU * FDB ::22-*-4 FDB ::22-*-2 FCB $D8 ::22 EQU * :: SET ::+*-::12 CONTINUE$ EQU :: 112 FDB :+:: FCB 2 FDB 1 :: SET ::+4+1 DISKNUMBER$ EQU :: 112 FDB :+:: FCB 2 FDB 1 :: SET ::+4+1 ENTRIES EQU :: 112 FDB :+:: FCB 6 FDB 0 FDB 0 FDB 0 :: SET ::+6 46 FDB *+2+:: : EQU * RMB :: 46 FDB ::13 RECORDPOSITION EQU * FDB :+X 10 FDB :+X 10 FDB :+RECO: RDSIZE 31 115 ::13 EQU * 113 18 FDB :+CLEAR$ 54 53 113 19 FCB ::14-*-1 FCC "INSERT�A�SCRATCH�DISKETTE�INTO�DRIVE�#1." ::14 EQU * 54 53 113 19 FCB ::15-*-1 FCC 'IT�MUST�BE�PREPARED�WITH�A�"DOSGEN;U"�BEFORE�USE.' ::15 EQU * 54 53 19 FCB ::16-*-1 FCC "TYPE�A�CARRIAGE�RETURN�WHEN�READY�TO�CONTINUE." ::16 EQU * 113 54 72 18 FDB :+CONTINUE$ 56 26 19 FCB ::17-*-1 FCC "ENTER�DISK�NUMBER:�" ::17 EQU * 113 54 72 18 FDB :+DISKNUMBER$ 56 26 113 18 FDB :+CLEAR$ 54 53 113 19  FCB ::18-*-1 FCC "ŒFILE�MAINTAINANCE�IN�PROGRESS�-�PLEASE�WAIT" ::18 EQU * 54 53 0+2 57 19 FCB ::19-*-1 FCC "CONAMES.SA:1" ::19 EQU * 98 0+2 57 0+0 62 0+2 57 18 FDB :+DISKNUMBER$ 54 53 0+2 57 13 FDB 10 62 0+2 57 10 FDB :+ENTRIES 52 53 0+2 57 13 FDB 20 62 0+2 57 10 FDB :+VALIDENTRIES 52 53 12 FDB :+N 17 0+1 25 13 FDB 893 13 FDB 1 67 0+2 57 10 FDB :+N 114 FDB RECORDPOSITION 62 0+2 57 10 FDB :+DELETEMARK 52 53 68 FDB :+N 113 18 FDB :+BELL$ 54 18 FDB :+CLEAR$ 54 53 113 19 FCB ::1A-*-1 FCC "ŒDISKETTE�INITIALIZATION�NOW�COMPLETE" ::1A EQU * 54 53 0+2 57 97 51 FDB MDOS MDOS�SWI �FCB�$1A �END Y 10 FDB :+DUMMY 0+1 28 25 113 19 FCB ::1A-*-1 FCC "YOU�CAN'T�FOOL�ME,�I'M�SMARTER�THAN�YOU!!!" ::1A EQU * 54 53 10 |€0010�REM�*�THIS�PROGRAM�CALCULATES�THE�PAYMENT�OF�A�DIRECT 0020�REM�*�REDUCTION�LOAN,�GIVEN�THE�PRESENT�VALUE,�YEARLY 0030�REM�*�INTEREST�RATE,‚AND�THE�NUMBER�OF�MONTHS�OF�THE 0040�REM�*�LOAN. 0050�DIGITS=�2 0060�INPUT�"WHAT�IS�THE�AMOUNT�OF�THE�LOAN",P 0070�INPUT�"WHAT�IS�THE�YEARLY�INTEREST�RATE�IN�PERCENT",I 0080‚I�=�I/1200 0090�INPUT�"WHAT�IS�THE�LOAN�DURATION�IN�MONTHS",N 0100‚V�=�(I/(1-((1+I)^(-N))))*P 0110‚X=V+.005 0120�PRINT 0130�PRINT 0140�PRINT�"THE�PAYMENT�IS�$";X 0150�PRINT�"THE�TOTAL�DEFERRED�PURCHASE�PRICE�IS�$";.005+N*V 0160�DIGITS=�0 0170�END åå~€0001�DIM�A,B,N,X 0010�REM�*�PROGRAM�TO�FIND�THE�FACTORIAL�OF�A�INTEGER 0015‚X�=�1 0020�INPUT�"NUMBER?�"N 0022�REM�*�A�"-1"�WILL�TERMINATE�PROGRAM 0025�IF�N�=�-1�THEN�CALL�MDOS 0030�IF�N�<>�INT(N)�THEN�1000 0035�IF�N�<�0�THEN�1030 0037�IF�N�>�69�THEN�1050 0040�IF�N�=�0�THEN�0047 0045‚B�=�N 0046�GOTO�0050 0047‚B�=�1 0050�FOR�A�=�1�TO�N 0060‚X�=�X*B 0065‚B�=�B-1 0070�NEXT�A 0080�PRINT�"FACTORIAL";N;"=";X 0100�GOTO�0015 0999�REM�*�ERROR�MESSAGES 1000�PRINT�"INTEGERS�ONLY!" 1010�GOTO�0020 1030�PRINT�"POSITIVE�NUMBERS�ONLY!" 1040�GOTO�0020 1050�PRINT�"NUMBER�OUT�OF�RANGE!" 1060�GOTO�0020 ; åå €€†REM�*****�L�I�F�E�***** †REM�SIMULATES�"LIFE"�AS�DEFINED�BY�JOHN�CONWAY †REM�COMMANDS: †REM†STOPƒMEANS�GUESS�WHAT? †REM†''…(EMPTY�LINE)�SIMULATE�AND�DISPLAY †REM†22…MEANS�DO�22�GENERATIONS�BEFORE�A�DISPLAY †REM†9,2„COMPLEMENTS�THE�WORLD�(9,2) †REM†‚GETS�THE�PROGRAM'S�ATTENTION †DIM�WORLD(21,21),XSIZE/20/,YSIZE/20/ †DIM�COPY(21,21),LIFE/1/,DEATH/0/ †DIM�OUT/0/,DISPLAY$/".*"/,COUNT,LINE$(80) †DIM�I,J 10„FOR�I=0�TO�XSIZE+1 ŒLET�COPY(I,0)=DEATH ŒLET�COPY(I,XSIZE+1)=DEATH †NEXT�I 20„FOR�J=1�TO�YSIZE ŒLET�COPY(0,J)=DEATH ŒLET�COPY(YSIZE+1,J)=DEATH †NEXT�J 30„FOR�I=1�TO�XSIZE †FOR�J=1�TO�YSIZE †WORLD(I,J)=DEATH †NEXT�J †NEXT�I 99„ON�ERROR�GOTO�200 100ƒINPUT�"WHAT�NEXT?�"�LINE$ 110ƒIF�LINE$="STOP"�THEN�STOP †IF�LINE$=""�THEN�300 †IF�FIND(LINE$,',')<>0 †THEN‚LET�I=VAL(LINE$)\ ŒLET�J=VAL(RIGHT$(LINE$,FIND(LINE$,',')+1))\ ŒLET�WORLD(I,J)=LIFE-WORLD(I,J) †ELSE‚FOR�COUNT=1�TO�VAL(LINE$)\GOSUB�10000\NEXT�COUNT\ “GOSUB�11000 ˆGOTO�100 200…IF�ERR=0�THEN�ERROR�ELSE�100 300…GOSUB�11000 ˆINPUT�"WHAT�NEXT?�"�LINE$ ˆIF�LINE$=""�THEN�GOSUB�10000\GOTO�300 �ELSE�110 10000ƒREM�DO�SIMULATION�FOR�A�GENERATION ˆREM�FIRST,�COPY�THE�WORLD 10010ƒFOR�I=1�TO�XSIZE ˆFOR�J=1�TO�YSIZE �COPY�(I,J)=WORLD(I,J) ˆNEXT�J ˆNEXT�I 10040ƒFOR�I=1�TO�XSIZE ˆFOR�J=1�TO�YSIZE ˆON�COPY(I-1,J-1)+COPY(I-1,J)+COPY(I-1,J+1)+COPY(I,J-1)... &…+COPY(I,J+1)+COPY(I+1,J-1)+COPY(I+1,J)+COPY(I+1,J+1)... &‡GOTO�10100,10102,10101 10100ƒREM�DIE!!! ˆWORLD(I,J)=DEATH ˆNEXT�J ˆNEXT�I ˆRETURN 10101ƒREM�LIVE!!! ‡WORLD(I,J)=LIFE 10102ƒNEXT�J\!�2�FRIENDS�! ˆNEXT�I ˆRETURN 11000ƒREM�PRINT�A�GENERATION ˆPRINT�#OUT,"…"; ˆFOR�J=1�TO�YSIZE �PRINT�#OUT,"�";NUMF$("##",J); ˆNEXT�J ˆPRINT�#OUT ˆPRINT�#OUT 11010ƒFOR�I=1�TO�XSIZE �PRINT�#OUT,NUMF$("##",I);"…"; �FOR�J=1�TO�YSIZE “PRINT�#OUT,DISPLAY$(1+WORLD(I,J),1);"‚"; �NEXT�J �PRINT�#OUT ˆNEXT�I ˆRETURN ˆEND åååååååå< åååååååååååååååååååååååååå= åååååååååååååååååååååååååå> åååå11E52661F252B52740C48DE02170D001D193225300C499000193225440A49F3 S11E52815A01252C52BC3225580C494E0A495A011D1932256C0C494811011993 S11E529C0A494E0D0001433225800C49900A49900C48DE0A4948170B1C19320C S11E52B725944449483225A80C49900A49900A496C1C011D193225BC303F3FB0 S9 D193225BC3031C4 S9 •€„DIM�P,I,N,V,X,CLEAR$/:1A/ „DIM�DUMMY$(1),X$/:7/ „REM�*�THIS�PROGRAM�CALCULATES�THE�PAYMENT�OF�A�DIRECT „REM�*�REDUCTION�LOAN,�GIVEN�THE�PRESENT�VALUE,�YEARLY „REM�*�INTEREST�RATE,‚AND�THE�NUMBER�OF�MONTHS�OF�THE „REM�*�LOAN. 10‚PRINT�CLEAR$ „INPUT�"WHAT�IS�THE�AMOUNT�OF�THE�LOAN?�"P 20‚INPUT�"WHAT�IS�THE�YEARLY�INTEREST�RATE�IN�PERCENT?�"I\I=I/1200 „IF�I�=�0�THEN�20 „INPUT�"WHAT�IS�THE�LOAN�DURATION�IN�MONTHS?�"N „V�=�(I/(1-((1+I)^(-N))))*P\X=V+.005 „PRINT „PRINT „PRINT�USING�"THE�PAYMENT�IS…$########.##",X „PRINT�USING�"THE�TOTAL�PRICE�IS�$########.##",.005+N*V „PRINT 30‚INPUT�"ANOTHER�CALCULATION?�"DUMMY$ „IF�DUMMY$�=�"Y"�THEN�10� „IF�DUMMY$�<>�"N"�THEN�PRINT�"WHAT?";X$�ELSE�CALL�MDOS „GOTO�30 LL�MDOS 0210�„GOTO�30 !—€"x#~0~‚‹–�°ÅÆ­ÅÖßêÎ •ßÎ œßÎ ¬ß Îx߆‹§¡&o õ5Ÿ–Ö Ð’DVDVDVÐ ’C—Æ€×L—  Î ÄßÎ ¬îî½~žÎoŒ&øÞß½ðÎ ‚½¥žÞ½÷½ï½7ßÞßßÞ½¹ßÞß½ ÛÞ' ßîßÞoo9Þ�eÞ�aÞ�]Þ�YÞ �U0 œ'½ǦæÐ ’ +î�>½å äÞßÞœ ' ¦ghF%ï–Öoo§çß ßÞ'~ÁÎ [½¥~‚'AO66Œ'&ß–ÖÐ ’ +!V%¦F%l½Çî Þlî &ù ½åîl½å'î 'ö Â9¶üôG$ú¶üõ„9öüôWW$ù·üõ9†·üô ¶üôG$ ¶üõ�&~œ~ë¶ÿ*û¶ÿC„'ó�'ï� 'ë9ÿÿ†.·ÿ¶ÿ ×öÿ*û·ÿ9ÿÿ†.·ÿ†–—0O�åz0&ø µ†@½�½¹†*½�Î8o4ß2½š�'â�'/�'+§}4'†]�f¦�b� 'Œÿ'Ô ÑÎ8ß27�L† �H Œ8'¿ �' }4&†[—4�1¦�- ©Þ2¦� '”¦ß2�,'� '� &† 9|7� &–7�7.,† ß*Þ5î­Þ*9ß*Þ5î­Þ*9ß,Þ�L� Þ,¦�Ím*÷96† �† �¾729ß*0œ +æ7æ7Ö*çÖ+çÞ*9Î f~50æ×*æ×+3ç3çÞ*9Æß('î &!Þ(î¦&æ'Îþ†J&ü¦'Z&óß5Þ9Î t~N½d� 'ù9Þ2 ß29�¾�î�('�.'�)'�è PΠν¥~œ½)�.'ðÞ�)'�.'�Ê�нÇ�»�ëß½åß½j9�¼ß�¨�)&ÆÞ9½÷½dÞ2ß.~G~K½÷½)Þ2ß.�''�"'{ ß2½d�(' �)'� '�.&í½1Þ. œ2'Ë_¦�+'�-' _�0-k�9.g ×1O_×$×%œ2''¦�0-+�9.'„—&–$Ö%XIXIÛ%™$XIÛ&‰—$×% Õ}1'½ 4~ «Î ~N—1ß. ¦ß2� '‘1&ó† § ß2œ.&Þ9Î ¬îîß$îßîî ß Þ.ß"Þ '.¦æîß Þ"¡& œ2'á&ß" œ2? &ÝÞ & Æ€Á€&Þî9Þî&»ßß½jßÞ2ß"–/˜#F$ ½jßÞ"Æ€ ½jßÞ" æ ¦ß"Þ§çÞ½~lÞ"œ.&ÞÞßÞ$îß½jßÞ$½~Þ9½÷Þ5în½÷Þ5înÞ½÷O66ß½Ü'2Þ�A½å&9îß'½Ü'† ½€†.½€† ½€Þ�†)½€ Õ† Œ†(½€Þ½Çî ¹Þ½÷½�Þ¦F$oî '¦½€¦+½€î&ð9Þîæ¦* †-½€¦æ½ 4ÎÅ"1|1à¢*÷ë©67–1J&}"'‹0—"½€32m&Õ‹0½€ 'èd Î Ú½¥Þ½ ¦F% Þ9î œ&öÎ Ì9½÷½¹ êÎ8ß2† § ßœ'åî &ÖÞî &ÏÞ½ Ôà&Æ¢& ÊÞ'î9½ Ô¡-².ºá"¶ ªßÞßÞß�'ßÞîß�ßÎˆß Þ9¦D%î9Î ~Òî9½Á–Ö§ç–Ö§ç9–Ö§ç9½Ç'>î':îßÞ½ÇÞ½¹ß½åß½åîß½p'ßÞßÞ½uî9ÞßÎß Î F~NÞîîßÞî'îœ&ìÞîî½~î9Þ½ÇÞßÞß½jßÞß½jß½å½uîîî9½ÇîîßÞ½ÇÞ½¹ß'½åß½åîî'îß~¹½åß½åîß&Æ9Þ9îß&9îœ'Þî íÞîî9Þ îîœ' Þ(îß(&ð9Þ(î9Î ø~ £Þî½ÇÞîß�Ñ'éîßÞß½åß½jßÞßÞß½�Þ½ä'Þ9Þ½Ü'½p'î9ÎßÞ~VÞî½Ü'/Þî½ä&—Þîîß('“îŒl'ŒT'BŒ8'bŒ 'mÞ(î ÞÞ 2Þ(½ÇÞ½ÇÞßßÞß½jß½åîß½jß½åîî !Þ(îî½ÇÞ½ÇÞîß½ Üß½åß½åß ZÞ(îî½ÇÞîß9Þ(îî½ÇÞîß½ Ü߆Îß(oJ&úÞ'"¦æîßÞ(Œ' §çß( ãÎ ê½¥½¹Þ9'ý½Ü'YÞ½ä&7Þî'ß(îŒ '+ŒT'4Þ(î èÞ½ÇÞßÞ½p' îß½åßÞ »~ŠÞ(îî½ÇÞ~ ’Þ(îîß  ÞîŒ è'<Œˆ'"Þ½ÇÞß½ÇÞ½¹ß½åß½åßÞ~ ÊÞîîîßÞîîß~ ÊÞ½Çîîß(Þ'*½ÇîßÞ('5îß½jßÞß½jßÞ(îß(½åî&ÖÞ(&Þß½åîîîß~¹Î ê11 Î F½¥Î V½¯½åß½~œÞ'2½ÇîßÞ½ÇÞ½¹ß½åß½åîßÞ½ÇÞ�Ôß½åß½j9Þ½ÇÞ½ÇÞ'Vî'RßÞßÞî' ½ÇîßÞß½jßÞß½jß½åî&àÞßÞßîß½Ü&Þ½ÇÞ½¹½åßÞî&à½åß½åßÞ9Þ'îßÞ'ßîœ'Þîß&ðÎ !½¥Þ½~œ–Ö—×9Þ'011îŒ l&ö11½åß½åßÞ9î &Þî & Þî¦æÞî9ÞßÎ -~ £½ Ôë©) ~ «�Ïà¢(õÎ >67½¥32~ «�º6¨—12�—$×%¦æ�—&×'9M*CP&L9�ÜÎO_ $Û%™$FVv&v' &ïM&´]&±–&+­Ö' C�´Þ&'£0|0|0XI*ù—&×'–$Ö%$%Ð'’&$Û'™& œ y%y$t&v'z0&â–$Ö%}1½ 2—$×%Þßß½jß½jßlÞ–$Ö%§çÞ9SYNTAX ERROÒNON ATOMIC ARG: TOO MANY ARGS ILL. FUNCTION: ATOMIC ARG: ILLEGAL NUMBEÒILLEGAL GO: NON NUMERIC ARG: OVERFLO×TOO LITTLE ARGS FOR: MEMORY FULÌSTACK OVERFLO×ILLEGAL DEVICÅ LISP 1.5 V3ÁNI ˜L€   ¤8 ¨á ¹ ° ´ ÄOB ¼LI ÀST È Ì ä á Ð Ô Ì Ø Ü ÉT€ è õ ì ð èLA øMB üDA APVAL€ 4-$( SU0BR8PE<@8FSHUBLR€ThaX\TEXdPRl„yptlFE|XP€R€ˆ •Œ�ˆFU˜NAœRG¤¸±¨ ¬ÜAT´OM¼ÐÉÀ ÄYCAÌR€ÔèáØ ÜgCDäR€ìùð ôjCOüNS  çNULL,)  $EQ0H=4 8äNU@MBDERLhYP T(GR\EA`TEdRPl€yp t7RE|AD„œ‘ˆ ŒPR”IN˜T€ ¸­¤ ¨QPR°IN´1€¼ÔÉÀ ÄïTEÌRPÐRIØðåÜ à~RPèLAìCAô ø üuRPLACD$ ¹EV AL(@5, 0 ÊAP8PL"YES"�THEN�N1=0�ELSE�N1=2 0110�PRINT�#N1 0115�PRINT�#N1 0130�DEF�FNA(A)=A-(INT(A/Z1)*Z1) 0195‚P=6.28319 0200�PRINT�#N1 0210�INPUT�"WHAT�IS�YOUR�NAME�?"�N$ 0230�INPUT�"ENTER�YOUR�BIRTHDATE�(E.G.�1,1,1954):�"�M2,D2,Y2 0290�IF�Y2<100�THEN�Y2=Y2+1900 0300�INPUT�"ENTER�START�DATE�:�"�M3,D3,Y3 0320�IF�Y3<100�THEN�Y3=Y3+1900 0330�INPUT�"HOW�MANY�MONTHS�WOULD�YOU�LIKE�?�"�N 0380�IF�Y2>Y3�THEN�GOTO�0230 0390�IF�Y2M3�THEN�GOTO�0230 0410�IF�M2D3�THEN�GOTO�0230 0460‚D1=D2 0470‚M1=M2 0480�Y1=Y2 0482�IF�Y1=Y3�THEN�7000�ELSE�0490 0484�A=I1 0486�GOTO�1090 0490�GOSUB�8080 0500‚A=I1 0510‚D1=D3 0520‚M1=M3 0530‚Y1=Y3 0540�GOSUB�9480 0550�A=A+I1 0560�A=A+365*((Y3-Y2)-1) 0570�FOR�I=(Y2+1)�TO�(Y3-1) 0580�IF�I/4=INT(I/4)�THEN�A=A+1 0590�NEXT�I 0615�IF�Y3=INT(Y3/4)*4�THEN�A=A-1 0700�K1=INT(0.6+(1/M2)) 0710�L=Y2-K1 0720�O=M2+12*K1 0730�B=L/100 0740�G1=INT(B/4) 0750�G2=INT(B) 0760�G3=INT((5*L)/4) 0770�G4=INT(13*(O+1)/5) 0780�G=G4+G3-G2+G1+D2-1 0790�G=G-(7*INT(G/7))+1 1090�PRINT�#N1,"THIS�BIO-RHYTHM�CHART�PREPARED�FOR�:�";N$ 1092�ON�G�GOSUB�2000,2010,2020,2030,2040,2050,2060 1095�PRINT�#N1,"WHO�WAS�BORN�ON�";DAY$;M2;"/";D2;"/";Y2 1096�PRINT�#N1,"AND�WILL�BE�";A�;"�DAYS�OLD�AT�THE�START�OF�THIS�CHART" 1100�PRINT�#N1 1101�PRINT�#N1 1110�PRINT�#N1,�TAB(12);"NEGATIVE�PHASE�(-)"; 1111�PRINT�#N1,�TABB (34);"CRITICAL�(C)"; 1112�PRINT�#N1,�TAB(50);"POSITIVE�PHASE�(+)" 1115�PRINT�#N1,"‰"; 1120�FOR�I=1�TO�60 1130�PRINT�#N1,"-"; 1140�NEXT�I 1150�PRINT�#N1 1160‚C=9 1161�L$="------------------------------------------------------------" 1200�IF�Y3/4=INT(Y3/4)�THEN�D(2)=29 1210‚L$(30)="*" 1260‚Z1=23 1265‚P2=SIN(FNA(A)/23*P)*28+30 1270‚Z1=28 1275‚E2=SIN(FNA(A)/28*P)*28+30 1280‚Z1=33 1285‚I2=SIN(FNA(A)/33*P)*28+30 1293‚L$(P2)="P" 1294‚L$(E2)="E" 1295‚L$(I2)="I" 1296�IF�P2=E2�THEN�IF�E2=I2�THEN�L$(P2)="#" 1297‚I=Y3-(INT(Y3/100)*100) 1298�M$=NUM$(M3) 1299�D$=NUM$(D3) 1300�I$=NUM$(I) 1301‚IF�LEN(M$)�>�2�THEN�M$=RIGHT$(M$,2) 1302‚IF�LEN(D$)�>�2�THEN�D$=RIGHT$(D$,2) 1303‚IF�LEN(I$)�>�2�THEN�I$=RIGHT$(I$,2) 1309�PRINT�#N1,M$;"/";D$;"/";I$;"�";L$ 1390‚L$(P2)="-" 1400‚L$(E2)="-" 1410‚L$(I2)="-" 1420‚L$(30)="*" 1460‚A=A+1 1470‚D3=D3+1 1480�IF�D3�<=D(M3)�THEN�GOTO�1260 1490‚D3=1 1500‚M3=M3+1 1600‚N=N-1 1610�IF�N=0�THEN�GOTO�0100 1620�IF�M3<=12�THEN�GOTO�1260 1630‚M3=1 1640‚Y3=Y3+1 1650‚D(2)=28 1660�IF�Y3-(INT(Y3/4)*4)=0�THEN�D(2)=29 1670�GOTO�1260 2000�DAY$="SUNDAY"\RETURN 2010�DAY$="MONDAY"\RETURN 2020�DAY$="TUESDAY"\RETURN 2030�DAY$="WEDNESDAY"\RETURN 2040�DAY$="THURSDAY"\RETURN 2050�DAY$="FRIDAY"\RETURN 2060�DAY$="SATURDAY"\RETURN 7000�LET�I1=0 7020�IF�Y1=INT(Y1/4)*4�THEN�D(2)=29 7040�FOR�I=M1�TO�M3 7060�LET�I1=I1+D(I) 7080�NEXT�I 7100�I1=I1-D(M3)-D1+D3 7120�GOTO�0484 8000�IF�ERR�<>�1�THEN�GOTO�0100 8001�STOP 8080�D(2)=28 9000�IF�Y1=INT(Y1/4)*4�THEN�D(2)=29 9010�I1=0 9015�IF�M1=12�THEN�9100 9020�LET�J=M1+1 9040�FOR�I=J�TO�12 åååå1E49CF3207D0124862130653554E4441591A303207DA12486213064D4F4EFB S11E49EA4441591A303207E41248621307545545534441591A303207EE1248A9 S11E4A056213095745444E45534441591A303207F81248621308544855525388 S11E4A204441591A3032080212486213064652494441591A3032080C12486233 S1104A3B130853415455524441591A303167 S9  10 FDB :+A 0+1 28 25 ::116 EQU * :0590 50 FDB 0590 68 FDB :+I :0615 50 FDB 0615 10 FDB :+Y3 10 FDB :+Y3 0+4 32 9ååååååC ååååååååååååååååååååååååååD ååååååååååååååååååååååååÀ€0010�910�CREATE�#3,�"NAMES.SA" 0020…INPUT�"ENTER�TODAY'S�DATE�(E.G.�8,23,1978):�"�M3,D3,Y3 0030…IF�Y3�<�100�THEN�Y3�=�Y3+1900\!�E JUST�IN�CASE 0040…PRINT 0050�915�INPUT�"ENTER�NAME:�"�NAME$ 0060…INPUT�"ENTER�BIRTH�DATE:�"�M2,D2,Y2 0070…PRINT 0080…PRINT�"NAME:�",�NAME$ 0090…PRINT�"BIRTHDATE:�",�M2;"/";D2;"/";Y2 0100�920�INPUT�"IS�THIS�OK�(Y/N)?�"�DUMMY$ 0110…IF�DUMMY$�=�"N"�THEN�GOTO�915 0120…IF�DUMMY$�<>�"Y"�THEN�GOTO�920 0130…PRINT 0140…PRINT�#3,�NAME$ 0150…PRINT�#3,�M2 0160…PRINT�#3,�D2 0170…PRINT�#3,�Y2 0180…COUNT�=�COUNT+1 0190�930�INPUT�"FINISHED�(Y/N)?�"�DUMMY$ 0200…IF�DUMMY$�=�"N"�THEN�GOTO�915 0210…IF�DUMMY$�<>�"Y"�THEN�GOTO�930 0220…RESTORE�#3,0 0230…RETURN 0240�940�!�PRINT�OUT�NAMES 0250…INPUT�#3,�NAME$ 0260…INPUT�#3,�M2 0270…INPUT�#3,�D2 0280…INPUT�#3,�Y2 0290…COUNT�=�COUNT-1 0300…IF�COUNT�=�0�THEN�GOTO�950 0310…RETURN 0320�950�CLOSE�#3 0330…CALL�MDOS €S107000000000000F8 S9 2�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�reÀ0010�THIS�DISK�NUMBER�IS:‚032479-7 ved�(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�thoåååååååå Æ€0005�DIM�DAY$(10),L$(3) 0010�DIM�D,M,Y,K,L,O,P,Z,Z1,Z2,Z3,Z4 0100�REM�THIS�PROGRAM�COMPUTES�THE�DAY�OF�THE�WEEK 0110�REM�RESTRICTION:�THE�DATE�MUST�BE�AFTER�1752 0120�DAY$="SUNDAY"\GOTO�340 0190�PRINT�"ENTER�DAY(D),�MONTH(M),�AND�YEAR(Y)" 0200�INPUT�D,M,Y 0210�IF�Y>1752�THEN�240 0220�PRINT�"YEAR�MUST�NOT�BE�PRIOR�TO�1753" 0230�GOTO�190 0240�LET�K=INT(0.6+(1/M)) 0250�LET�L=Y-K 0260�F LET�O=M+12*K 0270�LET�P=L/100 0280�LET�Z1=INT(P/4) 0290�LET�Z2=INT(P) 0300�LET�Z3=INT((5*L)/4) 0310�LET�Z4=INT(13*(O+1)/5) 0320�LET�Z=Z4+Z3-Z2+Z1+D-1 0330�LET�Z=Z-(7*INT(Z/7))+1 0335�ON�Z�GOTO�120,130,140,150,160,170,180 0340�PRINT�"THE�DAY�OF�THE�WEEK�IS�";DAY$ 0350�PRINT 0360�PRINT�"FOR�NEXT�DATE�TYPE�IN�YES,�IF�NOT�TYPE�NO" 0370�PRINT 0380�INPUT�L$ 0390�IF�L$="YES"�THEN�430 0400�IF�L$="NO"�THEN�450 0410�PRINT�"INVALID�COMMAND" 0420�GOTO�360 0430�PRINT 0440�GOTO�120 0450�PRINT�"DAY�OF�THE�WEEK�SAYS�GOOD-BYE" 0460�END 0450�PRINT�"DAY�OF�THE�WEEK�SAYS�GOOD-BYE" 0460�END 0 FDB :+A 10 FDB :+A 10 FDB :+Z1 32 91 10 FDB :+Z1 31 29 115 ::18 EQU * :0195 50 FDB 0195 12 FDB :+P 14 FCC '6.28319' FCB $D 25 :0200 50 FDB 0200 10 FDB :+N1 57 53 :0210 50 FDB 0210 19 FCB ::19-*-1 FCC "WHAT�IS�YOUR�NAME�?" ::19ERR�=�1�THEN�CLOSE�#3�ELSE�901\CALL�MDOS 2240�901�PRINT�"ERROR�=�";ERR 2250…CLOSE�#3 2260…IF�ELN�=�1�THEN�GOTO�1 2270…PRINT�"NOW�WHAT�DO�WE�DO?" 2280�910�CLOSE�#3 2290…CALL�MDOS 2300�950�!SUBROUTINE�TO�DISPLAY�THE�ENTRY�ON�THE�"DEVICE" 2310…PRINT�#DEVICE,�"ENTRY�NUMBER:„";DISPLAY 2320…PRINT�#DEVICE 2330…PRINT�#DEVICE,�"DATE:Œ";M;"/";D;"/";Y 2340…PRINT�#DEVICE,�"COMPANY�NAME:…";CONAME$ 2350…PRINT�#DEVICE,�"NAME:�";NAME$ 2360…PRINT�#DEVICE,�"POSITION:‰";POSITION$ 2370…PRINT�#DEVICE,�"ADDRESS:Š";ADDRESS$ 2380…PRINT�#DEVICE,�"CITY�AND�STATE:ƒ";CITY$ 2390…PRINT�#DEVICE,�"ZIP�CODE:‰";ZIP$ 2400…PRINT�#DEVICE,�"TELEPHONE:ˆ";PHONE$ 2410…PRINT�#DEVICE,�"INTEREST:‰";INTEREST$ 2420…PRINT�#DEVICE,�"DISTRIBUTOR:†";DISTI$ 2430…RETURN 2440�999�PRINT�"THIS�FUNCTION�NOT�YET�AVAILABLE." 2450…GOTO�5 åååååååååååG ååååååååååååååååååååååååååH ååååååååååååååååååååååååååI ååÛ€4000�REM�THIS�PROGRAM�COMPUTES�THE�DAY�OF�THE�WEEK 4010�REM�RESTRICTION:�THE�DATE�MUST�BE�AFTER�1752 4020�LET�J$(1)="SUNDAY" 4030�LET�J$(2)=�"MONDAY" 4040�LET�J$(3)="TUESDAY" 4050�LET�J$(4)="WEDNESDAY" 4060�LET�J$(5)="THURSDAY" 4070�LET�J$(6)="FRIDAY" 4080�LET�J$(7)="SATURDAY" 4090�LET�K=INT(0.6+(1/M2)) 4100�LET�L=Y2-K 4110�LET�O=M2+12*K 4120�LET�P=L/100 4130�LET�Z1=INT(P/4) 4140�LET�Z2=INT(P) 4150�LET�Z3=INT((5*L)/4) 4160�LET�Z4=INT(13*(O+1)/5) 4170�LET�Z=Z4+Z3-Z2+Z1+D2-1 4180�LET�Z=Z-(7*INT(Z/7))+1 1=INT(P/4) 0200�LET�Z2=INT(P) 0210�LET�Z3=INT((5*L)/4) 0220�LET�Z4=INT(13*(O+1)/5) 0230�LET�Z=Z4+Z3-Z2+Z1+D-1 0240�LET�Z=Z-(7*INT(Z/7))+1 0250�PRINT�"THE�DAY�OF�THE�WEEK�IS�";J$(Z) 0260�PRINT 0270�PRINT�"FOR�NEXT�DATE�TYPE�IN�YES,�IF�NOT�TYPE�NO" 0280�PRINT 0290�INPUT�L$ 0300�IF�L$="YES"�THEN�340 0310�IF�L$="NO"�THEN�360 0320�PRINT�"INVALID�COMMAND" 0330�GOTO�270 0340�PRINT 0350�GOååååååååååååååååJ áä€0700�K1=INT(0.6+(1/M2)) 0710�L=Y2-K1 0720�O=M2+12*K1 0730�P=L/100 0740�G1=INT(P/4) 0750�G2=INT(P) 0760�G3=INT((5*L)/4) 0770�G4=INT(13*(O+1)/5) 0780�G=G4+G3-G2+G1+D-1 0790�G=G-(7*INT(G/7))+1 1092�ON�G�GOSUB�2000,2010,2020,2030,2040,2050,2060 2000�DAY$="SUNDAY"\RETURN 2010�DAY$="MONDAY"\RETURN 2020�DAY$="TUESDAY"\RETURN 2030�DAY$="WEDNESDAY"\RETURN 2040�DAY$="THURSDAY"\RETURN 2050�DAâ±€ S1164800BD20001270485B02000370486202000A2E48708E S11E487032012C711323454E544552204D4F4E5448284D292C204441592844CB S11E488B292C20414E44205945415228592936353201907155480C48314619AB S11E48A60C483746190C483D46193201F40C48490E302E360D010A4831201CE6 S11E48C15B193202580C48430A483D0A48491D193202BC0C484F0A48310D00BE S11E48DC0C0A48491F1C193203200C48550A48430D006420193203840C48195F S11E48F70A485504205B193203E80C481F0A48555B1932044C0C4825050A4866 S11E4912431F04205B193204B00C482B0D000D0A484F011C1F05205B19320560 S11E492D140C48130A482B0A48251C0A481F1D0A48191C0A48371C011D1932BD S11E494805780C48130A4813070A481307205B1F1D011C193205C80A481374CF S11E4963497349CF49DF49EF4A004A134A254A353205DC711317544845204479 S11E497E4159204F4620544845205745454B2049533A361248623635320640B3 S11E4999711319444F20594F552057414E5420414E4F54484552204441592009 S11E49B43F363206A471554812485B381A32070812485B13024E4F4B2C4870A7 S1Y$="FRIDAY"\RETURN 2060�DAY$="SATURDAY"\RETURN 010�DAY$="MONDAY"\RETURN 2020�DAY$="TUESDAY"\RETURN 2030�DAY$="WEDNESDAY"\RETURN 2040�DAY$="THURSDAY"\RETURN 2050�DAY$="FRIDAY"\RETURN 2060�DAY$="SATURDAY"\RETURN 2090�END A 10 FDB :+A 10 FDB :+I1 28 25 :0560 50 FDB 0560 12 FDB :+A 10 FDB :+A 13 FDB 365 10 FDB :+Y3 10 FDB :+Y2 29 åååå9060�LET�I1=I1+D(I) 9080�NEXT�I 9100�LET�I1=I1+D(M1)-D1+1 9120�RETURN 9480�D(2)=28 9500�IF�Y1=INT(Y1/4)*4�THEN�D(2)=29 9520�LET�I1=0 9540�IF�M1=1�THEN�9640 9560�LET�J=M1-1 9580�FOR�I=1�TO�J 9600�LET�I1=I1+D(I) 9620�NEXT�I 9640�LET�I1=I1+D1-1 9660�RETURN 52 55 19 FCB 1 FCC "/" 54 10 FDB :+Y2 52 53 :1096 50 FDB 1096 10 FDB :+N1 57 19 FCB ::118-*-1 FCC "AND�WILL�BE�" ::118 EQU * 54 10 FDB :+A 52 55 19 FCB ::119-*-1 FCC "�DAYS�OLD�AT�THE�START�OF�THIS�CHART" ::119 EQU * 54 53 :1100 5ååK ååååååååååååååååååååååååååL åååååååååååååååååååååååååå