IMD 1.18: 14/10/2014 21:17:11 mdos 2.0 mot basic 18b1 =5f mdos 0v2 s1,32  COBOL 0201141278BASTIER \lx€ˆ�˜ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿïÿÿÿÿÿÿüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿLIST CMÈòMDOSOV0 SY\rÿÿPPTCH2SA`ÿÿPPTCH2LOlDIR CMXrMERGE CMärRLOAD CMÿÿST SA`ÿÿST LOdMDOSOV4 SYˆrCOBOL CMÄÒMDOS SYrMDOSOV6 SY˜rBASIC CMxrFREE CM¼rDUMP CMlrNAME CMørMDOSOV1 SYlrÿÿPPATCHSA`ÿÿPPATCHLOlASM CM°rEDITM CM„RLOAD CMÜrMDOSOV3 SY€rMDOSER SY eDEL CMPrBACKUP1 CMÒSUPPTCH5SA`SUPPTCH5LOTBACKUP CMÜrMDOSOV5 SY�rSHORT5 SApCOPY CM8òÿÿ SAXMDOSOV2 SYxrEXBUG CM¸2|½èu½ëÀΠ¦u—æ+.ĦHYHY‹É×—¦wæv—׿z¦{67îx߆S6†è6~èm†?— ~èS@€?@Ù0201£ÿ� €CN0 LP0 DK0MDOSER SY 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~‘‘ƒØ§ö:@ÿÿT°°8÷vRASM NOL,FTNCOMM:1,LIS,GEN1:1,GEN2:1;RUXLN=120,-O N:1 120 ,LSO=RASM:0 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 ååå(,€*0+ !ä0204CN0DK0 LX ¤!#!$!$!tDK0 SA £ $ £Ž3޽3Ù–�—=Æ Î>O?†ÿ—<Î3�ßqßoÎ3Æ?—8 8%? $|)~'–Î!$† ÆQ?Î!¿?¦� &Îß3–)'~'^~'Ñ–8'¶!$� 'Å?%L—EÎ!$ÿ!ÁÞFßF–E'½%¨Þ1ßFÎ Æ?ΆÆH?–FÖGΆ½0 Bþ!Áßf½- �*&1–)&~"ΙŸ^žf42§� 'ŒÍ&óž^† §ÿ!{Άÿ!y½.~"� 'ù� '<ÆÎ Z+§½- � &óÎ  ¦� '�$'?$ ¦�.'?%Œ "&⠆ͽ/ñ½-¤— ½- —¡½- —¢þ!ÁßT½-É–;&Æ× Æ >Ö9¶ � 'Å@&Å &ƽ*E Å '†Õ½/ñÖ9* Þ:n†Í½/ñÖ9Å&�! †— Æã½.w_½+øÖ ÛD†™C—C×D½.~"Îß37Ö:Å '9†— ½%½%$~$/ÞCß3–/Ö0Ð4’3%& ]+ �ÿ&]+†Ð½/ñÆþ×4Æç9½-¤—[½- —\Ö:Å&~$¼� &]–[�A' �B&SÖ;Ê@×;þ!ÁßT—¤½-¤—[½- —\–[�#'~$¼½-½–:…€'*½%Þ/ß3–:…')†— Æç×S½% $†Ò½/ñÖS9†Ì½/ñÆç9†Ñ½/ñO—3—4—;†— Æë9ÞTÿ!Á½%Þ/ß3�,&D½- �X&Ö½- ½%%Æ–:…@'È–3'†Ò½/ñ† š;—;†— Æç9�X&–[�,'�#&·~$–\ Ö[ ñ–7&–3& –:…'† ÊÖ:Å'�–;Š0 …–\�A%Ö[�A'�B&+Ö:Á&Ö;Ê×; Ö;Ê×;—¤þ!ÁßT–:…&~$7†— Æ£9�X&~$i~$J� '� ' 9Ö4–3'�ÿ&]+ 9Îß/†+—-.½-¤�Ö$0�,',�*'6½-½½- �Ä$$�,' �+'�-'�/'�*&}.' †Ì~/ñÖ9Å'õ9—-½-  ƽ-½�8Ö0–-�+'�-'�*'–/Î1½/r –/Û2™1—/×0 Ÿ–/Ð2’1 ò–/Î1½/· è12þ!Áßz½- �*&ÞCß19�'&�{—21�t½&ø'‡9Î1�$'O�@'f�%&~&f?%~&ÏÎ Æ6?26 �G½&ø&!6�$'?$ ?$ �.'†Ì½/ñ2Œ "'ݧ Ø_½*EÞhß19oo�½0|+ ½&ç«§ ð�H&A~- oo�÷�0-�8* „½&ë«§ ë�O'à�Q& Úoo�Ô�0'�1&Fii ï�B& ¿�u&¢†Ø½/ñ�´�j'ú}%&’þ!Áßx ¦Þzÿ!ÁÎ1�H&~&(�O'’�Q'Ž�B'­Þxÿ!Á?$†Ø½/ñ9½- ?%½—|¦æXI�ë©Û|‰§ç áhihihihi9ß5Î'¡' Œ'&öÞ5}0z9Þ5}!ù9 *+,-/–%&$Î ¦6Œ $&÷½%Þ/ß3Î #2§ Œ &÷Æÿ½*EÆð½.w~#v½%Þ/ß3ÆÐ½.w–)'v½.Æ€½+ø–('½+}Î3ÿ!yÿ!{–Aš,6½.–#Ö$Î2©½0BÎ2œÿ!yÎ2®ÿ!{2M½.–+—@½)Ù–*&Î!š� Î!¿�Î!u�?ÿ'Ï?'Á'_? þ'Ï?'Á'_? 9½.|%½+}|)½)ÙÎ!¿?~!ì½-¤—]þ!Á ßdÆÿ×\?%3½- ?$ù�,'Þdÿ!Á Þdÿ!Á½%¨]–1&–2'—\ †Ì½/ñÆ×\½- � '‘]&† —;Æã½.wþ!ÁßbÞdÿ!ÁΧ½- � '§ŒÌ&ñ† §ÿ!{Þbÿ!Á_½+øÞCßC½.z\'>�?½- }]'‘]'0� &†Ì½/ñ %� &† ½-½—;ƽ.w_½+øÞCßC–=&½.z\&Ä~"Ά7Æ?3%9Æñ�½.�ê½-½½- �,' Û7½%Þ/ß33½.w_½+øÞCßC9Æ�å–=&Õ ÎÆã�½.�´½-½½- �,&ÊÆ�–=&î ç7½%Þ/ß3½% $7†Ò½/ñ3×;3½.w_½+øÞCßC9–8'½-¤Î3� '� -�[-† §½- Œ3&çÆÀ½.w~#v½-¤_�N& S½- �O&5½- �O&×B 1�M&S×? (�L&×@ �G&×= �S&S×( �P&×A †Ù½/ñ ¬½- � '÷�,&õ½-  §½%Þ/ß3ßCÆÁ ‘�~"–@'9–)'û–A&÷Άÿ!y† Ö<\'ê\'§ ø§ÿ!{†þ—<~.½%Þ/ß3Æñ½.w–/Ö0ÛD™C~#r½%Þ/–)'¯–<�ÿ'©Þ/Œ'¢ ß/Î3ÿ!yÿ!{½. ÞÎ3�ßqŸYÎ Ž 2§Œ &÷žYÎÿÿ×n'*Þ/ ÞC¶ Š€· ÿ –qÖrÐt’s%~+½+TÎ ¦ „'½+I àŒ &í–n'KÞqßo¶ *&–)'¶ *K¶ Š€· †Ü½/ñ 9Î ¦§Œ &ö9�ðÞqß`Þsßqßo½+hÞ`¦§œs&÷ ¶ *¶ *†Î½/ñ½+hþ ßh9–oÖpÐr’q% î†Ó½/ñ y7 ã�¥–sÖtÐm’l$–n& †Ó½/ñ y7Þsßqßo�,Þqßs ¼†Ý½/ñ µÆÞqZ&üßq9Î ŸWžq4Æ2§Z&ùžW9ŸWÆŽ Þq2§Z&ùßqžW9Þjßq†—uΆÿ!yÿ!{–qÖrÐt’s% þ!{–u�&-9Þq–)'¦*G ¦+Aþ!{�  ¦Æ çæ½/Û½/Ûzu&† §ÿ!{þ!y¦„§� &õ½.½+I –† §ÿ!{½+I ––)'hΑßO×V–H&F–*&B–B&>ÆÎ-‚?—HÎ3ßfÎ-‚† —NŸWžf2ŸfžW½-nŒ-’&ï–NC½-nÎ-zÿ!žÎ-”ÿ! ½-RIÞCßJ–V*~-#ßOÞO¦Œ˜&9� 'ï}I&%6N†ÿ—IÎ2±oŒ2ñ&øÞJßLÎ2³–L½-n–M½-l2ÞJœL'�W ÑÞO½0|HHHH¦ßO½0|}?'#6–JÖKÐ"’!% 2ÞJ§¡& 6–>&†Ú—>½/ñ2½-lÞJßJßLÞQŒ2í'~,[�~,[6I†Î2³Lm&úD6�g–NC �b† §ÿ! 2Î2±�UÎ2¯ÿ!ž�129}I'�È–*&ô–B&ð†—NÎ-™–3�1–4�-–NC�(Î-•ÿ!žÎ-Ÿÿ! –*&#–B&Î!š?$ ß}Þ}_? ~'–9ÞQ6›N—N2½/ÛßQ9S00B0000 S903 7_ 7Æÿß`þ!Á¦]'� 'öÿ!ÁÞ`39ß`þ!Á ÿ!ÁÞ`9ßxÎ0•¦� &¦�¡& ¦�¢&æî Œ2�&݆Ͻ/ñ_Îß3×9ß:Þz9–%&–)'k–,&g–@&c—+–A&B|<&=þ!yß}þ!{߆Ɨ<Þ&ß&–&Ö'Î3½0B† ·3·3Î2óÿ!yÎ3ÿ!{� Þ}ÿ!yÞÿ!{|Î!u?$–|&_? ||? $ë~'�9þ!ÁßxT$ ÎŒ–C½/Û–D½/ÛT$Α–;½/ÛT$Δ–4½/ÛT$ Δ–3½/Û–4½/ÛT$ Α–3½/Û–4½/Û–%'Ÿ^ΙŽ!#2� '§ŒÌ&óž^~/_ΘT$Þfÿ!ÁΙ½- � '§ŒŸ&ñT$)ÞTÿ!ÁΧ–9…&½-¤½-½½- � '� '@§ŒÌ&í 6]'3ÞTÿ!ÁΧ]'(ßv–vÖwð3²3$ΰ½-¤½-½½- � '§ŒÍ&ñ† §ÿ!{Άÿ!yÞxÿ!Á976¦æ7640†m + Lhi+�&õ§¦æooà¢$ë©  iidfj&æ11123976¦6¦6†60¦XIhi$ë©j&ð1111196DDDD�2„Š0�:%‹§9ßdÖ)& �Ó'D�Ð'@�Ò'<?#|%Þ#ß#OÎ2–�.† ·2–·2—þ!yß‚þ!{ß„Î2�ÿ!yÎ2›ÿ!{½.Þ‚ÿ!yÞ„ÿ!{Þd9ß`Î0r[à¢%|[ õë©6ßbÞ`–[‹0§2ß`ÞbŒ0|&Ö9'èd �0+�9/ �A+ �F.€„9}!ù9ABAADCÔ‰ADDÔ‹ANDÔ„ASLJHASRJGBCC $BCS %BEQ 'BGE ,BGT .BHI "BITÔ…BLE /BLS #BLT -BMI +BNE &BPL *BRA BSR �BVC (BVS )CBACLC CLICLRJOCLV CMPÔ�COMJCCPXÐŒDAADECJJDES4DEX EORÔˆINCJLINS1INXJMPHnJSRH­LDAÔ†LDSÐŽLDXÐÎLSRJDNEGJ@NOPORAÔŠPSH6PUL2ROLJIRORJFRTI;RTS9SBASBCÔ‚SEC SEISEV STAT‡STSP�STXPÏSUBÔ€SWI?TABTAPTBATPATSTJMTSX0TXS5WAI>ENDÈ'KEQU 'FCBˆ(ÿFCC€'èFDBˆ(ÉMONˆ'KNAM€)@OPT€)kORGÀ)ÇPAGÐ)ÔRMB€*SPCÐ*****ERROR TOTAL ERRORS COUN S1 --- PAGE12345 ²Á ÿÿ ÿÿØ ÿÿ MDOS ASSEMBLER 2.04 COPYRIGHT MOTOROLA 1977 Þþß}Î!ÉßÎ}?Å&]' ÆŒÆ? ?Þþß}Î!¤ßÎ}?ÎLXÿ!­Î!¿?%?% ¦„�' † §_? ?—,—�—+Î#ÆO?Î5Æßz×|\Þ}¦ß}ÞzÖ|¡&înZ&òÆ ? ?Ö\×*&ØÞ}¦�=&ÐÎ!¤ßÎ}?Ň'Â~3ñÖ\×,&¹Þ}îŒ=#&Þ}îŒCN&Ãÿ!}Þ}ß} šÎLPÿ!} ’ÆÎ5 ‡Æÿ×\ ˆÖ\S×( êÖ\×� äÎ!u?$~4"?%ùÖ*& Î!š?%î?%êÎ3§ßjßsÆ?$Æ ? ~'�þß!†?,ßlÎ3§? 9;4¬ 4Æ 4>-4³G4ÀL4O4`S4¹,4> 7€ h! $0200 _"¤"·"¾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 Ž ˆÎ 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&ü—;Æ×½M¶CÆ&6þCþCì¡'|C× #þCî¦,þC즴C½&|CØ þC즺C·§|CŽQÌ9þCî¦JöC¼½W_M,S»V­ùV¬÷Cô·CõþV²ÿCöþCô¦´C¸§¶C¼·CÛ½V]9CÝCÞ¶CÝ�$#|CÝþCì¦,|CÞ¶C¼_M,S»CíùCì÷Cì·Cí Ö9ÿCî½R½M¶CÆ&þC즴C¸§½QþCî¦&½V*½QÌ9ÿCCÚ½IþCîîÿCèþCî¦&¶CÚ. öCþ¶Cÿç§þCî¦�&¶CÚ'öCþ¶Cÿç§ç§ o9½R½Q½UöþV²ÿCò¦,´C¸§½V*½QÌ9CÝþV´ÿCì¶CÝ�$#|CÝþC즴C¸§¶C¼_M,S»CíùCì÷Cì·Cí Ö9½S¼þV²ÿCôþCî¦JöC¼½W_M,S»V­ùV¬÷Cö·C÷¶C¼·CÛ½V]½Sì9CݶCݱCÛ$|CÝþCô¦þCö§ÿCöþCôÿCô Þ9ÎÿCßöCß¶CàÁ "&�$þCßÿCßþCðoÿCð Þ96»3ÿ7C«3· 6«3§ÿD670î¦6ÿDæî¦&Æÿ J½Vý»D ùD÷D·D þD2JJJ&ÓþD3297Æ70_F$ëVFj&ö119½W}½Wd~W1 DÿD*sDþD9½W<½Wd6¶D2*½WÍ9ÿDÿDÎDç*½WÍç§ ¦æ*½WÍ秦¨§9†§æ¦HYh i$«éj&ð9ÎD oo§*@§ ç*P禨§9ÿDþD¦ÿDþD¡&ÿDZ&é9ÿDþD¦ÿDþD§ÿDZ&ë9CS‰É9& 9ZÿDûD ÷D $|DþD9JH_»XùX÷X·XþXî? 9XX0XeXžX´X¶Y,YMYjYÀYÞZBZµZè[[+[A[W[`[j[{[� FMS DATA DISKETTE BACKUP AND REORGANIZE FACILITY ENTER ONE CHAR SEQUENCE # [0-9] FOR NEW DATA DISKETTE: ENTER DATE(MMDDYY):  REMOVE SYSTEM DISKETTE FROM DRIVE 0 AND INSERT SCRATCH DISKETTE IN DRIVE 0 WHEN SWITCH IS COMPLETE, REPLY WITH 'Y': DATA ON DISKETTE 1 IS IN ERROR UNABLE TO WRITE TO DRIVE 0 DATA DISKETTE IN DRIVE 0 IS FULL SPECIFY FEWER OVERFLOW RECORDS PER TRACK AND RETRY DISKETTE BACKUP IS COMPLETE  REMOVE DATA DISKETTE IN DRIVE 0 AND INSERT SYSTEM DISKETTE WHEN SWITCH COMPLETE, REPLY WITH 'Y': DRIVE 1 IS NOT LOADED WITH A VALID FMS DATA DISKETTE INSERT VALID DATA DISKETTE. WHEN COMPLETE, REPLY WITH 'Y': DRIVE 1 IS NOT READY WHEN READY, REPLY WITH 'Y': UNABLE TO READ FROM DRIVE 1 CLEARING NEW DISKETTE ON DRIVE # 0 COPYING DATA FILES DRIVE 1 DISKETTE ID:  DATE:  SEQ #: CONTINUE [Y/N]: BACKUP TERMINATED DRIVE 0 DISKETTE ID: åååH^€J€K DÖ0200LIST*tNEW)¤PAT*öGOSUB-GOTO-$ON,ãTHEN,ÑPRINT0èLET2šINPUT-õIF5READ/¶DATA3RESTORE0,END)±POKE(6zRETURN-JDIM3)DEF8 FOR3ÌNEXT4‡REM3TRACEON2øTRACEOFF2þLINE=7ÓDIGITS=2æSTOP-^2šRUN*?CONT,hLOAD+RSAVE+APPEND+UOPEN=pCLOSE@êTO.¡STEP.¡RND6&TAB(13INT(5éCHR$(7ÀABS(6SGN(6SQR(:íLOG(9êEXP(:‚SIN(9qCOS(9�ATAN(; PEEK(6�POS6—TAN(94VAL(7ASC(6èLEN(7LEFT$(7?RIGHT$(7›MID$(7QSTR$(7æFN8—USER(5Ú READY DELETEDRE-ENTERERROR# IN LINE Y †Î!½"ˆ †?�c½#wΰ}…'|ÿS�`M'ó� 'ï�'ë�' �'Ñ� '0�&Œ°'Ö –…&Ѧ�* Ë}…& Œø&oÆ!~*§ µ†#� ¬oß®–…&½"™976ߊތ­ÞŠ239ߊ7ÞŽ­ÞŠ3? $†öAN·ANZ/½*ï22~)±9�� â½"Y¦„&ö9�Î"£�ò�9 ÿÿÿÿß8Þ: ß:6–8§–9§2Þ89Þ:î|;|;9�Þ½$–Ÿ(5Þ:î �н$–Ÿ(5 ß]îÆ2§Z&ù22§ž(�Ã9�«Ÿ(5 �¤½$–Ÿ(®4ÆÞ]2§Z&ù2§ož(½$��š9ÿAQ¦æΰ½BÚÆ† §Î°¦½"YZ&÷þAQ¦½"«Î ßH—IÞH ¦&û¦�'½"’� @½"À~"ˆ6† ½1‡29½(ì½$s%¦½$s%½)1î­½$�Þ41111 9 9½$€$�$' † 7æÁ(&Š€3½"«Þ*œF ' á& ¡& ßc½"À 9m+6¦�$2&½$¥½$§ ×î Ó†�Œ(967%Aß4ÞcM+ßcÞ]–c§–d§�~32�$&—†Þ4 9½3$½$Å _7½$ÅæÁ¤&׆3½3� Èß4Þcç§M*Æ çç½3%_禽3gm'Ê Ã¦�$&½$¥—†½$§ßFÞc Ž6„�A+�Z/ 6�0+�9/ 29 29Þ]�ß]9Þ]� ÷ 9�ߪ6–ª‘D% &–«‘E%~,c29�M& 9½"«�Ʀ�/Æ~*O_m+õm/!XI×R—QXI%çXI%ãÛR™Q%Ýë‰%×½&æj&Û½"À9½(ì½#î% }†&$½#9½.Æ%9�(&½%̽(ì�)&9Æ~*Æ ùÆ$ õ�ɽ(ì�^'9ß4Þ]½$�æ7'½9í½$�Þ4½(ì�-&�¢½&² �›ß4Þ]½$�¦3]&M'½$– "6M*½&²½(p½:…2M*½'Ƚ:g½$�½'ø ½$�Þ4 —�“½(ì�*& ½(ì�†½(p î�/& ½%?½'ø á9½(ì†�-&�ѽ&² �+&�Ž(ì�+&�»½'‘ ñ�-&�¯½'Ž åM9½"«�G}†&½"À »½-ß½"À�5–‰�%~7a½(ì�+&�"}†'½"«½-ß æç]&øßˆ½"À ÒM9Æ$~*½(ì�"&!—†Ÿ(5Þˆ2�"' §M&õÆ~*o߈0ž(9½(ì½#î$9} †'"ß4½$–îŸ(5ÞˆÆ2§M'Z&öo߈ž(Þ49½$–9½"«½$¨ ½"«Þ] ½"«½$ª67Ɔ™ § Z&ö½$© Ɔ©§ Z&õ½"À3296�¦„§2967ßWÆÞW½$ªh† iJ&úZ&î32967ßW¦„ð—SÆÞWd†fJ&úZ&ñÞW¦›S§329½"«½$–V½2z$¦* —V½&»†¤§¦&�‘j öoo¦�e-7Ɔ™§Z&ú†d§½$Ÿ3 Ñ��.½/{}V'½&»½$�½"À9½&²½"«½$–½2z$(½' l½$–½2z$½' l¦¡ '-ó� ï� �#½$�½'2½"À9Þ]76Ʀ6¦§2§Z&òÞ]23967Þ]Æ ¦© § Z&õÞ]329½"«½/{½$–½2z%Æ~*`�8½' ½&ª† _\�Æm*ùZ½&ª�¼½&ª½$¨½$¨½&ñëçÞ]½&ñJ&Ú½$��†|P Y½' Om*½&»†€½$–m*½&»‹€—J¦« (†x$@—P9½"«½$–�ÏßY½$�½'Ƚ/{† ÞYæ½&æ]'½'áZ ÷Þ]½$¨½' J&å½$–½'È–P§½$�½'2}J*½&²½"À9–2Ö3Ð1’0% Þ.œ*'–0Ö1à¢%&]'¦&ûœ*&æÞ* ß,9¦� & ÷M9½.Æ$Æ~*߬½$–æ#òÁ.î†M'½' J ÷¦—0¦—1Þ¬ 9Þ4¦M&úß69߬Ÿ(Î! ߬Ÿ(Î ÿ �§ß¬ß4Ÿ(Î ž¬42� 'û�_/„ßæ''íŒ! 'Œ!¸'æ&ñ ן¬Ÿ4ž(9ž(Î Ë9~.¡ÎDÖß.ß*ßFO—2—3—@—†—‡—TÎ5èßg9�↰—’†„—“~*?žDÎÿàß:…½0j¶üý„?·üý¶AT'ÎD°? AT¶AS&½B|ASÎ!»? @½"Gΰ½(ì½$€%½+· êM'ç½)CînžD½0j½"™Î!Ô½"’× Î ½ðÎ!ܽ"’Þ[îß0Î0–4&oo½ð½"™Î>lÿ>j~)±Þ.ß<ß6ÎußeÎD0ß_Þ*ßFÆ?$Æ ? ?þßDß”•O§ œ*&ù~,x½0n†·ANÞŒŒB¾'†ÿ·ANÞ4½(ì')½(÷ß4½(Æß$Þ4½(ì'½(÷OÆÛ1×1™0—0½(ÆÞ$ Þ*ß,Þ.œ,'œ*'öAN+zAN& Æ�Æ<÷AN½#' ßöANZ/�†·AN~3½"™Z&ú9½)&Î,xÿÿ~õd½0nÞ.|ÿb}ÿ' †½"Y†0½"Y†½"Y�|�z½+§œ*'½#'�o ô†½"Y�o†½"Y}ÿ' †½"Y†9½"Yÿb~)±½)ˆ½0n}ÿ*�, ¶üý„_·üý†½"Y—…|ÿS½"f� &ö}ÿ*� ½!ùΰ�. ï|ÿb†½"Y†7½"Yÿb9�_OJ&ýZ&ù9Æ2†ÿ½"YZ&ø† ½"Y9½(÷½(¼$Þ¬½(ì'Þ,œ*'�E Þ¬½(ì& Þ*œ.'� � �.9�+Þ0ß2 ÷Ÿ(Þ,ž*44¦4M&ùŸ*ŸF5Þ,œ*'2§ öž(9Þ¬½)CŸ(ßHÞ*ß Ö¯Ð­ËÛ+†™*‘D$3×+—*Þ*ßF5Þ œ,' ¦6 öÞ,–0§–1§–I§ž¬42§M&ùž(9Æ~*Þ*¼>a'Æ6~*Þ[ß6? $~-^Î ßHÎC²ß]ޔ߈Þ6œ*&~)±}6'øß[}‡' ½"«½0j½"À†[½"Y† ½"Y½ð†]½"Y½"™ ¦ß4—IÞHînÞ4½(ì½$€$I~5YÆ ~*Þ4½%̽$Å]'ðZ×U½)CîŒ-$',Œ-' ÜUÞ6½)&ÞeŒ…&Æ ~*–6§–7§ße UÞ4½(÷zU+ ½(ì�,&¦ î½(¼$Æ~*ß6~,xÞeŒu&Æ~* ßeî ç½0jΠ½"’½#wÞ6½ð½)&ß[Þ*ÿ>a~)±½"«Æÿ×C�Z�½"À9C߈½$–Ÿ(Þˆ5Þ]îÆ2M'0�"&}>_'>_ ·>_}>`'æ§}C& }>_&�,' � 'Z&Î o40ž(>_>`96Þˆœ”' œ”' ¦&÷2߈9½0n–4&Æ~*Þ4½(ì�"& ½&�,&ëß4½0Vþ>h'¶>ðö>ñ§ç?'~>'îoÎ>l߬ ½!òΰ߬Þ4½2“$Pß4Þ¬}†&%�i$,M'ö>h' Î>l½"ˆÆ4~>0Î!˽"ˆ½!òΰ Ö½(ì½-‹ ½"Ù½(ì�,&߬Þ4½(ì�,'« @M&~3Æα¦îŒXI& �T&žD~B€~*½(ì—J�-' JO—L—M—N½/{Ö]×&Ö^×'ƽ(ì½$€$ �.&—M ï 9 ¦½$€%B€0&}L& }M'êzK å—L½"«Þ&]'}N&«§Z HHHH§sNß&}M&|K½"À ¶}M&�.&—M ©_�E&¦�-' �+&�6 �1P–K½"«Þ]§½$�½"À}J'½&² 9½"«7ÆÞ]oZ&úK3½"À9¦½$€$Æ~*€0¦½$€% XXX¦€09Þ4½2“$hß4Þ<œ.'>}†' ½(ì'*�"'½-‹ :ß<ޔ߈Þ<½&N% ½-| (½.»$ ¦'Æ~*œ*'÷¦M&ö¦±!ç&ï ¶½"Ù¦�,&ß<Þ4½(ì�,'“ M&Ë~3Þ4½(ì�#&¦�3-�9. ½0©þ>h?~3~>Þ.ß<Þ4~3½"«½-ߦ'½1‡ ö½"À9† #Îÿ>hÞ4½(ì�#&í½%Ì'�,'~2­ß4½$Å�$…'-ÎðߌÎð +� .‹0Î>ò¡'Œ>û&ôÆ(22~*îÿ>h9ÎB¾ßŒÎðߎHH‹ð—‘†ü—�Þ�¦�ÿ&Æ&~*9½0nÞ4½(ìM&X ¦�;'-ö>h'"?2þ>j ?$Î>lÿ>jþ>hç§?'22~>'?3 ½"™@ß6~,x~* '½6r½"Ľ$ÅZÐ@/½#wZ&úžD ½&}†&�o ½0V½(ì�,&–@Äð' ½#w ó�;&~0íM'úÆ °†. O„‹06}>c&}>h'ÿAOþ>jŒ>ï'§ÿ>jþAO ½"Y27Ö@\Ñ“# Ñ’$� &½"™_×@39½"«–T—©½$–O—Mm& }©& �¦½"À~#wm*†-��½&»¦� .>�ÿ-:M.�†�€—Mm*)½1‚z©'Ðl ð}M&¦½1ƒ½&æj&ô}©&�R$²½1~�2 «¦½1ƒ½&æ½1~�#†E½1‡æZ*†-½1‡POLÀ *ûJË ½1ƒ½1ƒ~1ÜÖ©�$ ¦½1ƒ½&æZ&ñ }T&î9½"«Þ]7Æm&Z&ø  ½"À39½#î% 9Þ4�õ%Æ~*½(ì�='Æ ñ}†& ½%ÌM&ñ½"Ù @½&}†&~&IM&Þ½-| -Þ4½%̽$Ž0‘Þ4×– Þ4½%̽$ÅÁ %Æ ×T †ÿ—‡ ‡½)&~,x½"«Þ4½%Ì�,' �)&ß4½"À 9½%&ß4½"À 9Þ4†½#)%Æ~*M*øß4Þcç§�À$½$Å _ç½$ŧ�Þ4½(ì�,'È ~3½"«æÁ¤&׆æ�}†'½$¥½$ ©ßF½"À–F§–G§9M&Æ~*¡"÷á"ó6¦—Q]'Z'–Q½$©}†'½$¥J&ò ë2½$©}†'½$¥J&ò9Þ4½2“%~2 }†&øß4Þ]½$�¦æ—Q×RÎD0–QÖRœ_'¡&á& –6Ö7¡&á'½$§ ߌD°&Æ~*§çß_Þ4½(ì�='~2­½%̽"Ù½):Œ!&ïÞ4½%Ìß4Þ_½"˽$©ß_Þ4½):Œ! & Þ4½%Ìß4 ½:gÞ_½"˽$©ß_Þ4½(ì&·ß6Þ_Ö6çÖ7çß_~,xÞ4½2“%~2 ½(ì&Ûß6½$–¦æÞ_ŒD0'fß_ŒD0'[½$œ½$œ¡&ïá&ëßaî½"þÞa½$§†m*‹—O½"þ½'‘Îo½"˽$�Þa½"þ½5ž$Þaß_~,xÎo½"þÞaî½"ËÞaîß6 èÆ Æ~*Þ4½&�I—O}†'-½&}†&~&Iß4½-ßß ½-ߟ(5Þ 2M' & õ¦ž(�[ ½%Ìß4�J$~3Þ4½)Cîn½(ì�=&†9æ�<&Á=&†9Á>&†9†9�>'Æ~*Á=&†9Á<'ä†9½'޽$–¦6–OHHÎ5Àß ›!—!†™ — 2Þ Mn' + + ô& '+* 9 9½6l½"«Þg­½"À9½6lÆ à]/½' lZ õo½$�½'2½$–9�c¦'—J½:g½$–}J*½&»9�Lm*ù ôÞ4½(ì�(&ß4�8½2z$½$� Îil½"þÎ;†½"þ½(p½$–½&ææ¦§ço½$�½'2Îi½"Ë9�½$–9Þ4½%&ß49½3%~%2½$Å7½$Ë×R—QÞQ3çÞ4~3–@L�9�Ó½$Ë×R—QÞQ¦�9½"«Þ]½/{Æ ç_€d\$ûZ‹dç½&ñ_€ \$ûZ‹ ëç½&ñ«§½$�½'2½$–½"À9�G¦�)'~%2ß4½-ߦ½6­†9�äOLæ]&ùJ½6­9�Õ½.»$Æ'~*½$–9�½(ì�,'~%7ß49Þ4½&}†&~&I9�à½%&ß4½$Å\7ÁI$ �ν3ÆG$½$ÅÁH%Æ%~*\7½$ÅÁH$òJ½-ßJ*ü 2JŸ(5ÞˆM+3çJ]&õ ož(߈Æÿ׆½$–9�„½%&ß4½$ÅÁH$¸½-ß7æL]&ùJ36*OÞˆ ´|>`½6r½$ÅÞˆço ¾Þ4½%̽$Å×’WW—“~3½3$~&IÞŒ½"«–@6@Î8ߌ|>c½1Ä>c2—@½"Àߌވ o~7‘Þˆ§߈9Þ4½(ì'k�F&g¦�N&`¦½$s%X½(ò�(&Q½(ò*~3Š€§½#)@�$'<Ä×R—Qß4ÞcçÞ4½(ì�)&'½(ò�=& æ'ÑR&÷¦½$€$† ‘Q&êÊ€ç ä ~3Æ"~*Þ4æ½(ò�(&M½"«Þ.œ*'C¦±!é'½)( î½(ò¦&ñ½(ò½#î%"½(ò½(òß$½"À½%&½"Ù½"«Þ$½%̽$–½"Àß49Æ#~*½6r�ZÎ;˜½"þ½'ø½$–½5ì½$�Î;˜½"þ½(p½'޽9SÎ;’½"þ½'޽$–m+ Î;˜½"þ½'Ž9�;½$��N½$�½'ø½9Æ9� � ½(pΗ½"Ë9Þ]½$�¦§œ]&÷~$�Î�½"˽/{½$�9½8ô�Ï�ìÆÎ<�" E½8ô�¿½$–½:g�ÖÆÎ<.� �/¦�ú,½/{9ßA7Η½"þ½(pÞA½"þ½$ž½'‘3Z&åÎ�½"þ½(p9½/{Þ]½$�æç m' ÆPç ½$�½'‘½$–o9½6r½/{Þ]½$�¦Æç×Næ/aÁ%oN½$�Î;¤‘N'* 6½"þ½'Ž2L ì6½"þ½'‘2J áΣ½"Ë�3½'޽9S�:½'‘½'ø½9E½9dÆ Î;Ú½9¡�$½(pΣ½"þ½'‘½$–9Æ5~*Þ]½/{†§§½$�9Þ]½/{†§J î½6r½9SÎ;¤½"þ½'ø½$–½5ìæ½$�½9S]* ½&²½$ÅP ½$Å7Î;¤½"þ½(p½'ŽÎ;ž½"þ½(pΗ½"˽:g½9dÆ Îd�3-�9/~>Î>òæ' 'óŒ>û'~ ï§îÿAOÆ ?'ÿ>f†0§†SÆA§ ç Î>d?]&]þ>d¦ÿ>dÆ�U' Z�O'Z�I&GþAOêçæ À0ç ÆçÆD†Kç§ ?&?'½A1 %¦„�&$þ>d¦'~=r~3Æ( Æ) Æ0 Æ1 _? Æ2 Æ3~*þAO½A1 õ7Î@{¦ÄÁ&…€&Ч??†%?(Œ@ê&â39>l>ï@{@ @Å> l>ïDK >û?z>l>ïDK ?{?ú>l>ïDK ?û@zÞ4½(ì�#&8¦�3-2�9..½0©þ>h�,¦ÄÁ&…€&Ч?&?&ÆçÎÿ>h~3~>~>'¼>ó&>ò ¼>ö&>õ ¼>ù&>ø9¶C…'ÎDKÿCÎC o?&?'_? ?~)±„�&ÎC ?Þ.œ*&9½A¡?2ÎC ?&?3 ê?3Æ? 9ÿAQ¦æΰ½BÚ† §ß þAQ¦ÿAQÎ ßH—IÞH ¦&û�Þ Æ çß þAQ� ÿAOÞ ÿCþAO9¦„&9ÿAOÞ §ß þAO éÎC ?&m?&i¦„�'~>.ÎC ?&þCo߮ΰ½+· êÁ &D¶C„�&:ÎC ?&4?&0ÎDKÿCÎÿC*ÎCÿBþÎCÿCÎBþÆ ?†·CÎC ?&?&9Æ? ?ÎB´? ΰÆ? ¦�N'�Y&ê½AU¶CÄÁ&Š·C½>;ÎC ???SAVE(Y/N)½ëÌ%9ÎBÌ? ~)±PRINTER ERROR � 7DDDD��39„Š0�:%‹§9C0 SA MDOS BASIC 2.0 COPYRIGHT(C) - 1977 ŽÿŠÎC2ÿC,ÎC±ÿC.ÞþÿBú½EWÅ&`]+YÎCÿBþÎCÿCÎBþÆ ?½EWÅ&C]+† ÆÎC?Z'† |AS†ºC·CÎDKÿCΰÿCÎÿÿC†·C$†·AN~)¤Æ Æ? ?ÎCÿBü†0·CÎSAÿC ÎCÆ?ÎBú?¶C€0·C9pq€pq#LZXVS9XAZ*$+-.,0B/CD@@@ ))QQÀÄÄ@@LL :DK0ZZZZZZZZLO�@#~FÖ~GnÂÃÅ€DK0COBOLIB SA""PDK0XXXXXXXXSA#Å$D0""PDK0XXXXXXXXSA$E$Äþ0ÃßtŽ&.½+8þ0\Œ0^&–]�E' �C'½) ~'®½/^~'¾—KÞ[Ö^O«Z&ú—M–M„H_M,S»0Âù0Á×h—i†ÿ—gÞhîßWÞWŒ&9g–^šK¡' ÞWßhîßW~'ñÞWßY†—MÞ[ÖM½Z(¦ÞY¡'~(ßY–M‘^$L~(†—gÞWßh9gÞ[¦H«›^„H_M,S»0Àù0¿×h—iÞhîßh–^Þh¡'ÞhîßhŒ&9~(cÞhßW†—MÞ[ÖM½Z(¦ÞW¡'~(kßW–M‘^$L~(€|g9—MÖc–d�^€Â×c—d–g& –dÞhç§ Öc–dÞhç§Þcßh–^šM§ooo†—MÞ[ÖM½Z(¦ÞcÖM½Z(§–M‘^$L~(ᆗg9"0 Þa¦—]ß[�Z/~)ô� ,†[—]–]€—JÎ&¯ÖJ½Z(¦—JÎ&ë½Y×  J¦…@'Î&ë½Y×  J¦„?—]Î&ë½Y×  J¦…€&0ÞaßaÎ&ì½Y×  J¦L—K * *'*÷+@+8+CÖKXÎ)z½Z-în^K~)ÄÞaßaß[Þa¦€·#œ*†<�<.>—KÎ&¯ÖK½Z(¦—KÎ&î½Y×  JK¦L—K )ô*)ž**)j)þÖKXÎ)×½Z-înÞaßa†½+U†—]—J|^Þaßa~)¥|^Þa† ¡'ûßa~)jÞ[îß_9Þ[¦�$& †—]t^Þ[ß[9–^�/†½+U½(?–g.~*æÞh¦—]�0&~) �Z&S¶'w…&†½+UÎ'€ß[Þa¦�0, † ßaÞ[§Œ'ˆ&æ¶'u·'€ÎDKÿ'~ÎSAÿ'‰Î'v?&?&~+8†·'w† ½+U–]�&†—^Þ[¦„—J_Î) ÖJ½Z(¦—`9�6" �3/Æ ×]—`9† ½'Ķ#œ� &†—]9Îß_†—]†—KÞ[ÖK½Z(¦€0·#œÖ_–`HYHY›`Ù_HY×_—`»#œÉ×_—`–K‘^$L~+9½-ÍÎ"ßa~) –]€_M,S×_—`† —]9—L½.Î+œ½/6ÎL½.ïÖbÀ#† ½.óZ.ú†*½.ó|Ž&.{–]�.&Þa¦�0%½) ~+‚½) ~'¾* ERROR ,&/-'.M–‘'†€—M–‘,‘–|�-~,a�&A¶"ñ�&*–M&½,Öz½,Ê–y½,Ê9†á½,Öz½-%–y½-%†Î½-69–M½,Öy½,Ê–z½,Ê9–|'�/†q½+U–|JHHHH›ML—M–{‘y'–MŠ@—M–M½,Öy½-%–{‘y'½-%ÞYæ¦ñ# - &±# #†s½+U–z½-%9–|€ ·+«Î+¥ö+«½Z(¦—}Î"ͽY× zîßW–z…ð&%–XÖW„üÄÿÁ&�&–X—MHHHH‹—M½,Öy½,Ê9–MŠ—M½,Öy½,Ê–z½,Ê9†½-69—M„—MÎ"ͽY× MîßY–Y&†ÞY½-6†—NÎEßY9�@"—NW–M—XÎEßY~-–ZÖY°# ò# ×W—XÞY¦—N†ÞW½-69½,Ê–N„�'†p½+U9ßW76Ö�/ ½.úÎB½.í2M'@�'X6Ö�/0½.ï½O2§ÄðÁ & HHHH‹§† ÞBßBÎ-½„½�Œ' TTTT½Z-¦-2'Ö�/ÎW½.í½O–WÖX§çÞBßB Ö�/0½.ï½O2§4ÞBßB39ÿÿÿÿÿ�L"½.R–~/†½¿>âÖJXÎâ½<ìÞcßQ½.úÞQœH'y¦„—K¦„ � &"îßSæ¦ñ#.&±#$ €Â€›CÙBç§ 5ÞQ¦„à�@&+¦…€&%|½.ú†—JÞQÖJ½Z(¦½.ó–J‘K$L~=`†?½.ó–K‹_M,S›RÙQ×Q—R~=–�…@&5½.úþ?½/6–CÖB°#ò#×Q—Rþ?½.íþ?½/8–AÖ@€Â€×@—Aþ?½.í–' ½.ú½.úþ>ÿ½/6–ƒ�:, –‚/½.ú~=܃½.ú† Ö'?¶%£&?–CÖBð#%ÉHY$|%É÷%Êþ%Éÿ%Éÿ%ÁÎ%¤?&fÎ%#ÿ%ÃÎ%¢ÿ%ÅÎ%¤?&SÎ%¤†ÿ§§¦Š§?&@†€Î%#§u¶%ɧv¶%ʧw¶#§x§zoyo{Î%¤†ÿ§§?&Î%¤îßþ%Éßþ#ß½è�?Î%¤_? ?SIZE: PROGRAM DATA ERRORS IN PROGRAM þ0\ÿ0\þ#ßWÖB–Cç§ÞBÿ# Îÿ$Ù~'›þ$ÙŒ' ¦Š@§½<¼†�Þr§ÿ$Ù9>­@>¤Q>•$í$Û$Ì$Å"N—J ?:?J?Q?q?®?À?É@z@–@­?âÖJXÎ?½Z-în–y&9þ"Ñßh†~½N«9ym9|y–y�&† ½+U½<ÓÖh–iÞ�ç§ß�9½B¾–yHHHH€—y½,ÆÞp½-6Þ� ß�þIRßQîßh†½N«ÞQœ�'ƽZ-~?‘y9½<ÓÞhÿ#Hÿ#FþIPÿ# 9½<ÓÞhÿ#H9†½,Ãþ#Fßh†½N«þ#Hßh†½NÄþ# ¼IP&9 ÿ# ¦·#&3îÿ"Íþ# îÿ"φ—m† ½Fr†½Fr† ½Fr†½Fr†—m† ½Fr†½Fr¶#�&†'½,ö#'8þ# ¦æ�CÒB€—M-†½+U† ÖM½-6†½IT¶#,Þt¼IN'†½IT~@c~?â½@–ö"Ѷ"Òþ# 秆þ"Ͻ@Èm9†ÞB½@Ȇ ½FrÎ1ß_† ½Fr9†½,ÆÞp½-6†ÞB½@Ȇ'Æ�½H”9—MßWþ# ¼IL&†#½+Uþ# o–M§ÖW–Xç§ÿ# 9—J A"A5ARA]B$B£BÒBEBÛC…CÐC€EÔBÖÖJXÎ@÷½Z-în–]—L� & –`Ö_€5—L9z#¶#&†1½+UÎ#½Y× #îß‹9†ÿ½E䆷#9†ÿ½EäÞn¦æ„ÿÄ?ŠÊÎ"ͽY× mç§ÎßUÿ#ÿ#ÿ#–oÖn°# ò# ×�—ŽÞh¦„—zÞn¦…€&+–z�&†1½+UÞh¦„—J‘z-îßh~A¶Þhîßn–J—z~A£–oÖn°# ò# ×e—f|&»†·#Ön–oÎ#½Y× #ç§Þnß‹îßnŒ&9½OÞvßn¶#�$L~Aé†6½+UÞ_Œ'Ö_–`Þ‹á- &¡#†2½+UÞ_ ß_Þ‹¦æ„ÿÄ×Y—Z¦…@& –Z„ÿÄ×Y—Z½B}@ô'CS‰É›VÙU×U—V@ô9ß_ÎÖY–ZHYx`y_$›ZÙY &ï×Y+—Z9†½+U†½EäÖp–qÎ#½Y× #ç§zmÞn¦…'¦„ð'†4½+U9|@ô9–]—‘9¶#�'†1½+U–mJ—L�/†°½+UÞUŒ'–LŠ€—Lþ#Œ'–LŠ@—Lþ#Œ'–LŠ —Lþ#Œ'–LŠ—L†—KÞ�œe'†…—K–K½,ÆÖL½-6†Þe½-6–K,†Þ�½-6ÞU½Czþ#½Czþ#½Czþ#½Czp–m—qz&»9'ýO~-6Þa ßa–|& |@ôÞ“ ß“¦—|†½Eä–]—Lj�'9ÞaæÁ.'9æÁ0,9z^zj|^|j¦�0-�9/ïßa9–L�&v–^�.Þa¦� &h† ƽ-6ÞBßpÞvßno–CÖB‹Éç§Ön–oÎ"ͽY× mç§ÞnßW–^@—O½E–O@—OÞn§–O‹—OÞv§–O,†½+UÖB›CÉ×B—C9Þ[¦—M¶@ô&,–^�&&–L�& ¦�1.—M†—L–L�&z‘¦�S-—M|L–L�&$–M„‹_M,S×p—qÎ"ͽY× mç§ÎEßn9–^‹—J½NÝÞkßpÞvßnÖn–oÎ"ͽY×  mç§–lÖk‹ÉÞvç§o–jHHHHš^§–L�&¦Š§¶@ô/¦Š§ÞvßW½E9ßW–‘,–^�'†7½+U–L�&†8½+U–^'mÞ[¦�.&–L�'W¦—M–L�&–`—M–L�&)–M�A-€—Mß[¦—N�A-€—N–N„—N–MHHHH›N—M¶@ô' @ô–MŠ€—M–MÞW§z^ßWÞ[ß[~E,–L�&0Þ[¦� &(½) –]�-'†½+U½) –]�'†½+U]–O�^—O~E,9¶#'9–x&†1½+U9—M–m�&†0½+U|m–M&9–g.†3½+UÞhîßnÖn–oÎ"ͽY× mç§–oÖn°# ò# ×p—q9†½E䆗Lj½CІ6½,ÆÞp½-6zm9  —J—’�.~G–J€—K Gj+UFžF±FžGÖKXÎFƒ½Z-în†ÿ—{þIJß“Fq–J� &9–m—’�&~GnþIRßQÎ"ͽY× mîßS–S~&/†—MÞQîœS& –M—’zm~GnÞQßQ|M–M‘m'~FÚ~Gn–`€&—’–’� &‘|&~Gj–’�& Þa¦�*&† —’ÎF^Ö’½Z(¦ÎF^Ö|½Z(¡.~GxÞ“¦� & –’‹—’ ß“–’� &–}ƽH”–’� &–}ƽH”–’—|Þ“ß“–’§9ÎFJÖ|½Z(¦—K GŸG£G±G¿HH@ÖKXÎG„½Z-în@ô9Þ“¦§ ß“¦—|9Þ“¦—z—y ß“~GÖÞ“¦—y¦—z–|�&~Gä ߓޓ¦�&–’�& Þ“¦—{ ß“ –{‘y'‘z'½He–{Þ“§½+¬Þ“¦—|~G&–}ˆ—}¶FqJ—NÞtße–N-Þe¼IN'¦—Nˆ§ ße~H½G£~G&Þ“¦…'¦„&†r½+U–|@Þ“§ ß“¦—|~G&†½EäÎ"ͽY× mo–P§�/†t½+U–|� ,|P–mŠ—{9—M×N–N…&–Mˆ—M–Mƽ-6¶Fq&–NŠ€—N|FqÞtßt¼IH&†P½+U–NÞt§Öv–wç§9—M½O–M�& Þv ßv†—MÞtßeNÞt¼IN'K¦„‘M&¦Š§îßW–wÖv�XÒW‹ɧ,†½+UÞt¦…&|N ßt¦, –N'Þeßt9Fq9~Hõ9"�"ï#F"N#""Í—J IwI’I›IÖJI¬J J&JXÖJXÎIV½Z-în†½Fr–{,†Q½+U†½HÙ–}ƽH”9†½HÙm9Þeßt†½HÙ† ƽH”9–]�&Þ_Œ0'†½+U†8—]–]€_M,S×_—`†m—]~IÛÎ5ß_† ½Fr†½Eä–]€m_M,SÎ"ͽY× m秆 ½Fr9†'Æ�½H”9ÞUîÿ"ϽJm†½,ʆ+Æ�½H”Þtße9†½EäÞn¦…€&†9½+UÞhîßUþOwÿ# †ÿÞB½@Ȇ ½,ÆÞp½-69†½EäÞUæ¦Þhá&¡'Ɔþ# 秆þ"Ͻ@È9ÞhßU9—J JÄJÊJÓJòKPK€K™KÞJµLL!LMMGMbMnÖJXÎJˆ½Z-în–]½@õ–‘�[&½F*9¶#½,Öm½,Êzm9–]HHHHŠ·#–]„ð� &¶#‹·#L9¶#�æ-#–g.†3½+UÞhîÿ"ÓÞh¦„à�`'îßh~K †`½'Ä–g.†3½+UÞhîÿ#JÞhîÿ"ÍÞhîÿ"Õ†—m† ½Fr¶#…0'9¶#½,ƽ,ʶ#�æ-†½,ʶ#�¦.†ÖL½-6¶#�–&L9–]�~&†½,Ã9†v½,ÆÞp½-69†`½'Ä–g/†½+U†`½(¥½O–CÖB‹É×B—CÖv–wÞhç§Þvoooooo †§†`§o9Þ[¦Þv§�D'9½) †�^—OL–wÖv‹ É×W—XÞW½E† ÖO½9°9Þv–]„_ VJ,üêç9–g/†½+U† ½(¥Þv¦… &†a½+UÖv–wÞvç§ Þhç§9þ#JŒ'Îß_½0ôþ#J¦æ«é×@—A¦Š@§†`½'Ä–g.†3½+UÞhß‹zîÿ#J¦…' îŒ&†`½+Uþ#J¦�P'�1- þ#J¦�8/†b½+Uþ#J¦„§Ö@–Aþ#Jç§–]�.'L�8& ½) –`þ#J§–]�&½) Þ[¦HHHH«€0þ#J§–]�›& ½) –`þ#J§–]�&Þ_Œ&9½) ~LÍ9þ#JŒ'–AÖ@ â×Q—Rá- &¡#ç§îß@9¶#½,Ãzm–m½,ʆÞp½-6†V·#9¶#€·#½,Ã9¶#½,ƽ,ʆ½,ʆ½,Ê9—J M¥NN5N*NŠN•N�ÖJXÎMˆ½Z-în–|�& †½Fr† ½Fr¶"ñ� &¶"ô—M¶"ö·"ô–M·"ö¶"ò±"ö&¶"ô·"ò†½Fr–y�/J—m–{—y¶"õ—|†—z½+¬–z‘m$L~MóþM„Œ&9†½,ö"ò½,ʆþM„½-69ÎÿM„† ½Fr†½Fr† ½Fr9–m·"òzmÞn¦…&9ÞpÿM„†½NÝÞn¦—J¦…€'¦—JƆðÞvç§–J§o¦Š§Öv–wÎ"ϽY× mç§9†½Fr†·"ñ9þ"ÍßWþ"Ïÿ"ÍÞWÿ"φ½Fr9Þhî½-6Þh¦…€'9Öv–wç§9Þhî½-6Þh¦…@'9Öv–wç§9—M›€—€�@/† Æ@½-6–M—€ÞBßF–CÖB‹@É×B—CÞFßk–M_M,S›GÙF×F—G½O9ÞBßv–wÖv»# ù# ×v—wÞvÑc%&‘d# †—~ÞHßc†½+U9Îÿ#ßB΀ß@¶#ö#°#ò#÷# ·# †Æ½-6†ÞB½-6†@—€9#"O¹PP%P7PmPªQ Q&QKQ}Q²QÞQõRGR}R®RÒRØRÞS SS!%"%#%-$$7%.ÿDÿ ?°‘M.ÿ€.ÿ &Çm ² Êb Eµ ˵ÿ ô(&ña €b#C²%Ëc €dD²#Ëe²òfA²#Ëg²òhB²#Ëfu²"˲!ò²ÿ!€x$x%$µ%óyÿÿ>zÿ'U2ÿÒž-)wµ*Êy++> ,EÖ&Çk3.LÆ/Ñ20Òlÿ1S2ÿÒÿ2€4Dÿ§r5°6¥s87°8¦t:9)Æÿѳ<;ªwÿvÿ="µ>Êd?E³@ËfAv³B¨tCÆ<ÑiKE"bFFGÿ¡°H£°IH£jÿJ³ÿ¤ˆSLc•MP1–NP1—OP1˜P1QdRQdLÿR€‰XTcVUåVÿUåWdŒÿÿ1ŒZYcsd‹c[c\^å]d�ÿÿca__Ç{s`U2ÿÒhbEµÿËŽodcediffökggå|htU}ÿldjEµÿËvÿl³nmæ„ÿÿ~ÿfpuså�qcrdiÿÿö|ÿtU2ÿÒŠ|vcwsåxdyÿÿö1zz7 {1³ÿô†~}cµÿ}á‹ÿî…†€c³�€á@ÿ‚c(ƒ³„ʳ…í)€³‡c[ˆˆ>‰ÿˆáŠÿi´¸iu�Œc�ÿ’Žÿ´ÿá��ÿ‘™ÿÇœ’µ“òb•”³ÿó¥–—C¦—Df˜³ÿËš§ÿ«ž›×œ�Ó¥ÿÒ¢ÿ�Ó�Ÿ Xvÿ¡ÿYH£LƤÑ2ÿÒ{ÿ¦2ÿ€p¨µ©€qª «­c¡¬­c¢­c³®€f¯³ÿï±ÿÿ-³´7¶´ÿ½Àÿ»¶ÿ½·ÿ3¸4(ÿ¹º¾5»6+¼½-¾½7¾8,¿¹2)ÿ9 ÁÁ>Âÿ:Ãÿ:Äÿ:Åÿ:ÿ:1ÇÇM(ÊÈHÆÉ€)ÔFÖË€1ÌÌM ÏÍMbÎÎÖÔ€nÐÔToÑÔT9ÒÔV7ÓÔVÔV2ÕÆM3ÿÆM-××@(ÚØHÖÙ€)ÛF³ÛË+ÜßC-ÝßD*ÞßA/ÿßBÖÛ€ÿ›670î¦6ÿ—æî¦&Æÿ J½Z»œù›÷›·œþ—2JJJ&Óþ›3297Æ70_F$ëVFj&ö119& 9Zÿ›ûœ÷œ$|›þ›9 DELOPSZ€ÿŽ&.Î"†ñoJ&úÎ@oŒ®&øz�%£Îÿ#J½[þþ¦�='� '* ó|%£ÿ"Î%®ÿ"Î"?']-Î%®Æ? ?" /Q" þþÿ#ÿZ³ÎZ³?&âÆÎZ¯?þþ¦� '(�;&õßQÞQ¦ßQÎZ>¡"û%ïæ' ¦΀Z&ü§ ÞÎZ?ÿ#þ ßHßcÖ‚'†=—ƒ½[½OE~'›Î[/½/6Î[C½/6½.ú9M6800 COBOL 1.00 COPYRIGHT 1978 BY MOTOROLA INC. å厀 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(9DK &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 ENTRIES SHOWN : /$ NO TERMINATOR FOUND IN FILE'S R.I.B. ]'/l&lÿ&êþ&ꦄ� #‹‹0m&jjî§þ&ê� Z&Ýþ&ê96†dfJ&ù29]&~'„l&l÷'—ÿ'™Î'…ÿ'”†·'˜þ'™¦æÎ'�oîà¢%Î'�l ñë©Î'�67¦‹0æ 'Z&ü§32Î'�l&ll&lj ,Ãïî¦Î'�î m&jjî§Î'�l&lj&Þþ'™O9'èd †«Š§‹Æ$†0§ Z&ì9å囀 $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%„90¡€0 1 !¼~!¼~"v~ëÌ~>~ð~Â8 OLD NEW END LISTSAVEDELELOADRESEMERGBUILNUMBCHANFINDPRINBLOCVERIMOVEDUPLAPPEQUITOLD NEW END L SAV DEL LD RSQ MRG BLD N C F P B V M DUP APP Q ON OFF IN OUT I O EDITM RELEASE 2.9A COPYRIGHT BY MOTOROLA 1978 WHAT?  NOT THERE OLD/NEW? EXISTS READY SAVE IN .SA:0 SYNTAX ERROR NO ROOM CREATED END=0000 MEM=00000 0000 RECORDS DELETED  NOT ASCII INCREMENT TOO LARGE ALL (Y/N)? RESEQUENCE NEEDED Ž8¿Î oŒ¡&ø†Æ½4·þßn½&†—U†_—GD†:—T½1¨þ5T½1tþ5R½1t†—V+þ5P½1tŽ8¿†—/B!½"» *'{'Ä'à"U"U"U'{"U"U'Ä"U"U"U"U1`1j"U"U"U'à"UÖ'XÎ"½7ðînþ5N½1t þ5L½1t~"þ5J½1t þ5H½1t–!&~"~"|þ5P½1tŽ8¿½ "» *'{'Ä'à'ú(%(;'{-",'Ä0­(˜(�'ñ1`1j.¼.¹(•'à+GÖ'XÎ"‚½7ðînEF;=Îß><I½4½þ5Fßb†A½#5–pšqšršsšt„ð—#�0&†—'9†þ5D½$–''9†þ5B½$–''9þ5N½1t~"»†A½#5†þ5@½$–''„—' †—'9—"ö5>¶5?×d—eÎ59ÿ8Îpƽ7´Îß-$Þb¦� &ßb~#WÞbßf¦�9# †z—#†ÿ—- †0—"†9—#Þb¦‘"%\‘#"X–$�,6–--2Þb¦�9"*Ö-–.HYHY›.Ù-HY÷8·8¦„_M,S»8ù8×-—.|$Þd¼57' Þb¦„ßÞd§ßdÞbßb~#�–$/!Î-ÿ8Îp†Æ½5V–$_M,S›gÙf×b—c †ÿ—-9—#ßd†—'Îpÿ8Þd½5â 'ƽ7™&9–'‘#$L~$'9·8êÞb ÿ8å†A½#5–p� '†·8êÎ!*ÿ8Î8ËÆ½7´þ!3ÿ8Ó¶!6·8Êþ55ÿ8ç†þ53½4·÷8éþ8åßbÎ8Ëÿ8Î!*ƽ7´þ8Óÿ!3¶8Ê·!6¶8é,¶8ê/ –F'½$µ~"^9Î0ÿ8Î!*ƽ7´Þ8ÿ!3–:·!6½.œ9—%×&½$=–&&†·8ê –&�&†·8ê †·8ꆷ8×8ØÎÿ8Ýþ51ÿ8ßþ5/ÿ8á†ö8êþ55½4·÷8é–&&¶8é&†—!9½1‚þ5-½1~–F'½$µ~"l¶8é�' –&�&¶8é&½1‚þ5+½1t–F'~%ò†—!9¶8é�'�&~"f–&�& ¶8é&†—!9½1‚þ5)½1t~"l†0½#5–p� &†—I–U�&9½&9Îpÿ8Î|½63Îpÿ8΀½63–-—)Þb¦�-&ßb†0½#5Îpÿ8΀½63–)-–-, –F'½$µ½.œ~"^9Îß|ß~ ߀߂9–/'9–D—(Dþ5'½1…þ5%½1…–(—D† Æþ5#½4·–ž�Y'G–B�&;Î!*ÿ8Î8ËÆ½7´þ!3ÿ8Ó¶!6·8ÊÎÿ8Ýþ51ÿ8߆Æþ55½4·÷8é¶8é'~2 |/~"l11Î!*ÿ8Î8ËÆ½7´þ!3ÿ8Ó¶!6·8Ê~(,þ5!ß^Î5ÿ8Î![ƽ7´Þ^ß\îß^Œ&iÎ5ÿ8ÎOƽ7´–oÖn�{Òz×M—NÁ. &�$Î5ÿ8ÎOƽ7´–NÖM„ÿÄ×M—NÎMÿ8Î!e†Æ½5VÎ!iÿ8ÿ8ÎSƽ6b½1‚þ5½1t9Þ^ƽ7ðÿ8Î![ƽ7´Þ^ƽ7ðÿ8Î|ƽ7™$~&²~'\Þ^ß\îß^Þ^Œ'ƽ7ðÿ8΀ƽ7™#Îß^9½& B†ƽ$цA½#5A–p�N&†—Aþ5ßzÿ9k† Þz§½1èÎ9m¦� &Îÿ9k†—/½&~"v½& †Æ½$ц—BÎÿ9kþ5ßz~0­½& ½1ÇD½1¨†½4·|D½1¨~(–D'½1ÇD½%�½&ŸÞ^Œ' ½(½'T~( ~"|Þ^½1t9†Æ½$Ñþ9k½3ìB|/~"v½.†0½#5–--)½%”½&ŸÞ^Œ'Þ>ß>Þ^æ¦Þ\ç§ß^½'T~(M~(s~"^Î>ÿ8Î!k†Æ½5Vþ5 ½1t½.œ~"||;~(›|=½.½%�–;&+–I''–D—(Dþ5 ½1…–(—D† Æþ5#½4·–ž�Y&~(Í~"|Þb¦� &ßb~(ÍHLÞb¦‘G&ßb¦—GÎß^~)ˆÞb¦�,&!ßb¦�A& ßb|H~)!†0½#5–-�ÿ'–.—LÞb¦—)ßb–='–)� &~"^†ÿ—,~)�,–;'~)�Þbß`Þ`¦‘)'� &~)dß`|,~)LÞ`ß`Þ`¦‘)'� &~)�ß`z,~)iÞbßj½&ŸÞ^Œ& –;&½.œ~"|KJ–,,½+3Þ^ƽ7ðÿ8Þzƽ7ðƽ7´Þ^ß`Þzßd–='HÆ Þ`½+Ö)Þb½+~* ÞbæÞ`½+–'� &~*ôÞfß`ßhÞbßfÞf¦� '‘)'‘G' Þh¡'~**ÞfßfÞhßh~*Þf¦—'–'� &~*ô‘)'Þ`¦Þd§ßdÞ`ß`~)è–L' |K‘K'~*=–;'½(~*ôÞfßbÞdßlÆ Þ`½+ÞlßdÖ)Þb½+–H'ÞjßbÞhß`†—J~)èJÆ Þh½+† Þd§–,-"Þ^ßdÞzß`Æ ½+† Þd§~*êÖz–{Þ\ç§Þ^æ¦Þzç§ß^Þdßz–V'½(/–J' Æ Þf½+J~* ½'TÞjßb~)ˆßfÞfÑG'¦'� 'ßfÞd‘G'§ßd á—'9–z‘n% –*'½3J½.œ~"f9½+M~"|Þb¦� '½+3/þ5!ß^Þ^ß\îß^Œ&~+¥Æ½7ðÿ8Îpƽ7™$~+`Þ^ƽ7ðÿ8Îpƽ7™& Þ^æ¦Þ\ç§Þb¦� &þ5 ½1t9Îpÿ8Þzƽ7ðƽ7´ÞzßdÞb¦Þd§ßdÞbßbÞd¦� '~+ÎÞ\æ¦Þzç§Öz–{Þ\ç§Þdßz9½.†—FÎ!*ÿ8Î0ƽ7´þ!3ß8¶!6—:†ƽ$ÑAÞb¦�('~-ßb½%�Î|ÿ8΄Æ½7´Î€ÿ8ΈÆ½7´Þb¦�)'~-ßb¦�,&ßb†0½#5–-�ÿ&~-Î-ÿ8Î|†Æ½5VÎ|ÿ8΀ƽ7´½&ŸÞ^Œ' ƽ7ðÿ8Î|ƽ7™&þ5½1~Þ^ß\îß^Þzßj½1èÞ\æ¦Þdç§Öj–kÞ\ç§ÞdîŒ'$Þdîß\Þdƽ7ðÿ8Þ\ƽ7ðƽ7™%þ5½1~½$µ/~"v½$µ~"^†—™—˜½.†0½#5–p�N&(þ9kß\Þ\Œ'oooo¦� &†§îß\~-;~.v–-�ÿ&Î ß-Î-ÿ8Î|†Æ½5VÎ5ÿ8Κƽ7´Þb¦�,&#ßb†0½#5–-�ÿ&Î ß-Î-ÿ8Κ†Æ½5Vþ9kß\Þ\Œ&~.v–˜&$ƽ7ðÿ8Î�ƽ7™%Î|ÿ8Î�ƽ7´†—˜–™&&Þ\ƽ7ðÿ8ΔÆ½7™%Î|ÿ8ΔÆ½7´†—™Î|ÿ8Þ\ƽ7ðƽ7´Þ\¦&† §Îÿ8΃ÿ8Î�ƽ6b΀ÿ8Î|ƽ7™$ þ5½1t½.œ~"v΀ÿ8Î|ƽ7´Þ\îß\~-·/½.œ~"vÎ|ÿ8Î�ƽ7´Î€ÿ8ΔÆ½7´9Î�ÿ8Î|ƽ7´Î”ÿ8΀ƽ7´9|<½./W½%�Þb¦�,'½.œ~"^ÞbßbÎ|ÿ8΄Æ½7´Î€ÿ8ΈÆ½7´†0½#5–-�ÿ&~.ÐÎ-ÿ8΀†Æ½5V΀ÿ8Î|ƽ7´Î|ÿ8Όƽ7´Þb¦�,'Îß-~/TÞbßb†0½#5–-�ÿ&~.ÐÎ-ÿ8Κ†Æ½5V½&ŸÎß`Þ\îß^Þ\ßXÞ^ßZ–W�& ~/Í΄ÿ8Î|ƽ7´Îˆÿ8΀ƽ7´Î|ÿ8΀ƽ7™#~/ÍÞ`Œ&½&Ÿ Þ`ß\îß^Þ^Œ&½.œ~"|Þ^œX'œZ&ß`~/ý–<&Þ^æ¦Þ\ç§ß` ½+3Þ^ß`Þ^îß\Œ&†—Wƽ7ðÿ8΄Æ½7´–<'&Þ^ßfÞzß^ßdÆ Þf½+† Þd§ßzÞ^œX'œZ&~0eÖZ–[ç§Ö^–_ÞXç§ÎŒÿ8Þ^ƽ7ðƽ7´–V'½(–<'ÎŒÿ8ΈÆ½7™&~/ÍÞ^ß\Î�ÿ8ÿ8Î�ƽ6b~/l|E½.†0½#5–-�ÿ&Î ß-Î-ÿ8Î|†Æ½5VÎ5ÿ8ΚÆ½7´Þb¦�,&#ßb†0½#5–-�ÿ&Î ß-Î-ÿ8Κ†Æ½5VÎ|ÿ8Îpƽ7´~1.Îsÿ8ÿ8Î�ƽ6bÎpÿ8þ ƽ7´† þ §½4½þ ¦� &½.œ~"|þ4ÿßb½+M~1½#–'—U~"l½#–'—V~"l† ½4·$~"l� &Î!*¦� '� õ9}D'}E&~ ~ † �åÎ1¡�Ô}D'|T–T�:-�B-åT9ÖTÁ:'† ½ † ½ ÁB&_ ï\Á:&ê†:—T9ßd–+'½3eÎDKÿ8È8À†þ4ý½4·¶8À'%!† Æþ4ý½4·–*'½3J–+'½3e–F'½$µ~"l†—+†·8ÁÞdÿ8Ķ8Åö8Ä‹…É÷8Æ·8džþ4ý½4·¶8À'~2†—*@¶8ׄ�'½1‚þ4û½1~!–F'½$µ½3J~"l†þ4ý½4·¶8À� &~3JM'~2 –F'dþ8Ħ�0% þ8Ħ�9#~2 þ8Äÿ8΄Æ½7™$~2…þ8Äÿ8ΈÆ½7™#~3JÎ|ÿ8þ8ÄÆ½7´–V'þ8Ľ1~Îÿ8ÿ8Î4úƽ6b¶8Åö8Ä€ÂÞdç§þ8Ä ßd½3„þ8Âÿ8ÄÞdooþ8Âßz½+3¶8Åö8Ä‹…É÷8Æ·8Ç~2…¶8ÁŠ·8Á*†þ4ý½4·¶8À'~2 +†þ4ý½4·¶8À'~2 –@&9þ5½1~9–A'=þ8Âßbÿ8Âß`Þb¼8Ä'¦Þ`§ ß`Þb ßb~3—Þb¦Þ`§þ8Äooooo9þ8Ħ�0%�9"þ8Ħ�0% þ8Ħ�9"9†—@~3ˆß^†—@–+'½3eÎDKÿ8È8À†þ4ý½4·¶8À'~2 †—+†·8ÁÞzÿ8Ķ8Åö8Ä‹…É÷8Æ·8džþ4ý½4·¶8À'~2 †—*†þ4ý½4·¶8À'~2 Þ^ß\îß^Œ&†—C CÞ\ÿ8Æþ8Ʀ&ÿ8Æ~4qþ8Æÿ8Äþ8Ʀ� 'ÿ8Æ~4…†þ4ý½4·¶8À'~2 –C�&~4±~4T~3J?9·4µ~4´†?6–E'2Î8 † §½1…Î8% 2½ Î8 † Æy½4·90001!€8À8$!‹0010!ª!x!Ÿ!k9m!V327670000000009kž!¢!"!!M!9j8ë8å8Êu p ´ d 8 !E!8! ú! ß Ìÿ8678]*|8S÷8†·8,@†0½7Ô23þ8Z&¦*@ ¦æ,½7ÍÄp8Î7á8 â%|8 õ«é6¶8z8±8"ÿ8þ8¶8‹0§ÿ8þ82Œ7ë&ÆÆ }8' *Æ-þ8ç9ÿ8670î¦6ÿ8æî¦&Æÿ J½6»8ù8÷8·8þ82JJJ&Óþ83297Æ70_F$ëVFj&ö119ÿ80îæ'†0½7Ô0îæ'½7·0îæ'†0½7Ô0î11nÿ88÷8*0Sþ8¦ ÿ8þ8 ÿ8þ8 ÿ8¡'þ8§½7@S½7|S þ8§ þ8¦‰0 ÿ8þ8«„Š0 ÿ8þ8§ ÿ8Z&Û%¶8'þ8ö8*S½7‚*S¦ˆ § ö8*Sþ8'J ú¦�:& € §Z' l î9ÿ88]*&¦ˆ §ÿ8þ8¼8&88½6hþ8'¦ˆ §9÷8½7@½7|~6�þ8¼8&þ8ÿ8þ8ÿ8ñ8'¦ˆ §þ8¦ ÿ8þ8§ ÿ8Z&ëÿ8ö89z8þ8†i §Z&ö lÿ8ÿ8ö89ÿ8þ8¦ÿ8þ8¡&ÿ8Z&é9ÿ8þ8¦ÿ8þ8§ÿ8Z&ë9CS‰É9þ8§ÿ8Z.ô9'èd & 9Zÿ8û8÷8$|8þ89 MDOS BASIC 2.A1 COPYRIGHT(C)- 1977 ŽÿŠÎC2ÿC,ÎC±ÿC.ÞþÿBú½EWÅ&`]+YÎCÿBþÎCÿCÎBþÆ ?½EWÅ&C]+† ÆÎC?Z'† |AS†ºC·CÎDKÿCΰÿCÎÿÿC†·C$†·AN~)¤Æ Æ? ?ÎCÿBü†0·CÎSAÿC ÎCÆ?ÎBú?¶C€0·C9®€ ~õdå寀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ååå²€0 0200Þþÿ#÷Î$ÿ#ùÎ#÷?' Å'~"“~"�Î%Bÿ#ùÎ#÷?'+~"©Î%Mÿ#ùÎ#÷?'*îÎ%C½"û%æÎ%N½"û%Þö%C'}%N'ñ%N&Ïö%O¶%Pþ%D?/%Âþ#÷¦� '{�;'ÿ#÷ ðþ#÷ÿ#÷¦� 'd� 'ï�H&|%> æ�L&|%= Ý�N&|%? Ô�F'~"—½"±'$~"­ö%a#øÁ„"ô÷%@þ#÷¦� '�.&·½"±'%Ýö%aÁ #ÖÁc"Ò÷%Aþ#÷~ ˆÎ$ÿ#÷Î%tÿ#ùÎ#÷Æ?Î%}ÿ#ùÎ#÷Æ?ö$÷%€Î#û?'~"†?&ùæÄÁ'~"�}%>'Î%ê? Î%ƒÆd? ?'ÿ%è}%=' †L·$(†P·$)Î$ ?'~"†?&ùÆSñ%C&þ%Dÿ$ Î$8}%?'Î$@ÿ#ÿÎ$¼ÿ$}%?'Î$8Æ?Î$<ÿ#ùþ%[ÿ#÷Î#÷ƽ%ûÎ#û?':Á &/}%Z'}%='}%]' ö%Að%]½#à½#´?ÆSñ%C'ñ%N'~"¡~"¥Á '~"†ÆLñ%C&:ö%[¶%\þ%D?/$-? %·þ%[ÿ%[}%N&~!qÆLñ%N& ö%O¶%P?/$ì~!°þ$ í}%]&3Î%qÿ#ùþ%Xÿ#÷ÿ%XÆÎ#÷½%ûÎ%dÿ$$þ%èÿ$&½#g&1ƽ#àÆ÷%]Î$8ÿ$$þ#ýÿ$&Æ÷%Z½#g&|%]ö%]ñ%A-%]~!úÆ? ½#´?Æ Æ Æ ? ?Æ çÆ ãÆ ߯ ìÆ èÎ%Qÿ%^ÿ%F_þ#÷ÿ#÷¦� '�0-�9.\Á# þ%F§ÿ%F ØÎ%^]'½&ž%ç)å}%`&à †9O9æ'e÷#fÁL'ÁS' 9m&úÿ%^ÿ%b_† ¡'\†L±#f'Á.ß ëÁ.Ù åÎ%^]'цL±#f'½&ð ½&ž)À%¾ö%`¶%aþ%bç§ö#fÁL&î'¦ 9þ$&ö$$¶$%?-_¶%@?/$ þ$$J?(ÿ$&þ$$† ¡' † ¡#†%§?$þ$?/$?% â? $11~!µÎ$ ?9Î$ ½#ÁÎ#û½#Á9ÿ#Þ?'Á'_? þ#Þ?'Á'_? 9Î%úÿ$$Î%úÿ$&Î$ 7?3Z&ù9$8$¼DK0 SA$½%<CNPB PAGE XXX XXXXXXXX.XX:X %‚ENTER HEADING:  ]&~&‡l&l÷&šÿ&œÎ&ˆÿ&—†·&›þ&œ¦æÎ&’oîà¢%Î&’l ñë©Î&’67¦‹0æ 'Z&ü§32Î&’l&ll&lj ,Ãïî¦Î&’î m&jjî§Î&’l&lj&Þþ&œO9'èd ]'Gÿ&í÷&ïoo þ&íHY%5HY%1«é%+HY%'§çî¦þ&íl&l?%_«§éç%z&ï&ÆO9 û]'+ÿ'ooþ'î¦þ'l&l½'!%½'<ª§Z&ßþ'9�A% 6‹¹2%€ �0%6‹Æ2%„96†hiJ&ù29 ååå·€h 0200Þþÿ!aÎ!iÿ!cÎ!a?Å' ÆŒÆ ? ?X%|!`ή† §ßþþ!a¦� 'ù� &~ Åÿ!a�;&Óþ!a¦� 'ùÿ!a� 'k�M'�V' �P'"�('*�G' ¬†Æº!^·!^ú!_÷!_ dž€Æ ì†Æ€ æ†Æ à_\¦�)'� &ô~ ήÿ!c ßþZ'Î!a?þ!c† §þ!aÿ!a „ö!^Å&ÊÅ& Å€&ÊÅ'}!`'Aõ!_&<Å€'Å'4}!`'5Î!i?%?Z&Æ !ZZ&ÆÎ!i Z&Æ Z&Æ Z&àÆŒÆ ? ?Å€'Žÿ„Îèÿÿ‰6þÿÿúnÅ'ã¶!]6¶!\644446Îÿÿúþn!'0LO!„"åå¹€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ÀZ&ú—M–M„H_M,S»0Âù0Á×h—i†ÿ—gÞhîßWÞWŒ&9g–^šK¡' ÞWßhîßW~'ñÞWßY†—MÞ[ÖM½Z(¦ÞY¡'~(ßY–M‘^$L~(†—gÞWßh9gÞ[¦H«›^„H_M,S»0Àù0¿×h—iÞhîßh–^Þh¡'ÞhîßhŒ&9~(cÞhßW†—MÞ[ÖM½Z(¦ÞW¡'~(kßW–M‘^$L~(€|g9—MÖc–d�^€Â×c—d–g& –dÞhç§ Öc–dÞhçXÁ€XxY &0201LOA/ªLIB/±OBJ($MAPAåEXB.6IFO.OI=@‹EXI.ÝINI./SRC+âSKI,ASG-ñFIL'ØMOD'áIDO(IF=@KMO=@xDEF,WSTR-IEND-VCUR-NSGE.éBAS.ôÿ ¸ Ý “ !" S#œ$ þ $• UNDEFINED SYMBOLS MAP NAME S SIZE STR END COMN COMMON MODULE NAME BSCT DSCT PSCT ERROR ERR- UDS COVPHSIORLOVISAIOLSOV MDS ICMISYUAEGAEBAESTR OLEUBORELOVEUIFMDOS LINKING LOADER REV 2.01 COPYRIGHT BY MOTOROLA 1977IAM- UOI½Ž$zÎ%†½>#Î%i½>&Î%†½>#ÎLxÿ }Î “Æ�Î ¸Æ� Î ÝÆ� *×9¶ }ö ~§ç Ë€‰z9&÷· }÷ ~À‚§!ç"oo o 9Æ?†ÿþ }ö¶ ÿ {½H�?/$öÎ O—Æ�§Z&úÆ4Î%¶§Z&úL—$Îÿ$—ÿ$™ÿ$›ÿ$�þ �½@†C§†N§ o ½=ù½=õÎ ¸¦Š§†ÿ§ § ½@Î “¼ ‰& ¦Š§†ÿ§ § ½@ÿ ‘†§Î ¸ÿ ‹Îÿÿßyß{ß}ßß�Î!O§·! ·$&ÿ!·%é·%ê·%ô·%õC·%¹·%ºÎ"ÿ!þ }ÿ † —5½;ÈŽ$z½<� 'X�;'ò� 'P—C½<—D½<—EÎ ¦‘C&¦‘D&¦‘E& ßG½<ÞGînŒ w&ÙÎ%B†€~'®½</½<� '�;'¢� &½;È ™Î%E†�~'®æ Æ6† æ Æ6†¡·$�ß7Î% ½H«† §Î%½>#3¶$�… &?#9?#~=µ�E&?—$~'��U&6$~'��F&&~'��N&"½<�R&†—&~'�Æ×&~'„�N&—'~'��F'~'v'~'�_×.×/×-Æ�A&—. �R& à—/}%Õ'Î%`†‚~'®�X&Í—-Æ÷$)½<�=&–,'~=µ~'•– &®½K_½KD*+½E7¶! ' þ ‘½@! –-'~)Yζ%Õ&Φ\&¦[',¦QæR±%¹" %ñ%º$·%¹÷%ºë\©[±%ô"% ñ%õ#·%ô÷%õŒ'ùŒ &À¶%¹&ö%ºÁ $Î%H†ƒ~'®¶%ôö%õð%º²%¹—7×8Ä&Æ€ËÄø÷%¶Ö8%ÇXI$|%Ç]'‹$|%Ç·%Èþ%Çÿ%·ÿ%Éÿ%áÖ/&Ö1'ö%Ç»%æù%å÷%Ç ö%ÇTDD»%È$|%Ç·%Èþ ‹¦Î ¸„&L—#Î “ÿ ‰½<þ ‰¶$§ÆL÷$ˆÆO†2}/'ÆR }-'ÆX†÷$‰ö%Ççö%È… '\&lç½@·†·$&†ª§}-&C6Æ×7Îß8Î8ßþ ‰æ Ä×îßþ%Çß½è{$z7&öÖ×7Î)áß8Î7Æ? ~'.2–#'þ ‹½>ÿ ‘ÿ �O—#L—,þ –-&3ÿ%ÍOÆ@§Z&úß7–7Ö8}/&ˉ ·%Ï÷%ÐË€‰·%Ñ÷%Ò—7×8Þ7ÿ%²þ }½Hœÿ%ø–1&~+�–-'~JìO·%Ú·%Ù†`þ }½I#ÿ%ß–YÖZÛn™mÛx™w×B—Aþ }ßCO—?C—©¶%½ö%¾ÛZ™Y·%½÷%¾ÞC† ½I#%SæÁ`&õæÄÁ#íßCOÖ©½Iû%¾¹%½·%î÷%ïîÿ%ð–AÖBÞC§ ç ÎßKÎ%ëßI}%Ë&?½I@ �[ÞA½H”ßA ¤þ }ßCþ%½ßAÞC†`½I#%MßC¦æ Û¤™£·%î÷%ï¦ æ ·%ð÷%ñ¦æû%â¹%á·%ò÷%óÎ%îßIÎßK� ÞA½H•ßA ¸?¶%ú&~J.~IæÞ£½H ÿ/#ÿ/¥ÿ/=ÿ/Iÿ/Sÿ/Dÿ/šÿ/Pÿ/’Î/ ßIþ/¨ßK�Àޣߡߟ –-'½0qßI_×?×A×B†½;*ÞQßeÞSßgÞUßiÞWßkÞYßmÎÿ$—ÿ$™ÿ$›ÿ$�O·%»·%¼C— ~'~�H'~'v½<�='~'•Î!ÿ!Î"ÿ!½?‚%ì~'„�P&Û½<�=&Þ½>FöA'ÖÎ!ÿ!Î"ÿ!Ö$�:& ½<�M&½½<_]&¬–,&¶! '£½; þ!¦�6&ôz$‹&ï~'~�:'~'•– '� ' � ' �;'½< ï~'„þ ¼ {&~5±½>F�=&Ó¶@'ÎÎ$€ß7þ ½H©½>F½-þ ÿ …½HÚ$¦„ð�0'½7ï~=µÄ'×?ßAö@'$Î$€ÿ …½HÚ%½2«~=µ¦ÄðÁ &ñ„—?¦ æ öA'â¶$Šö$‹ÞA§ ç –?Š §¼ &½H�ÿ ~'�?�,&-½<€A%*�'&�%�&†—?½<�S&½<�C& ½<�T&9½F�\&,}?&h½>F¶A'`¶$“ö$”ÛG‰—H×IÞH¶$Šö$‹§ç~'~ >¶A'<¶$Šö$‹} '}?& FÞFëR©QÞH}?&Œi'¡%&á$~Fاç~'~~'v~'•Æ�A'�M&ð\*×+½E7~'��N&Ö &þ ‹æ„'þ%f†„~'®—#~'��F&Â#~'��T&¸~&u�U&±½<�G&ª'½<þ%»�=&6½>F¶A'þ$Š )Î$€ÿ …½HÚ%~'•¦„&}/&ò¦…@&ì¦�€&î î}.' ?$þ%¹M&]'?/$Î%H†ƒ~'®þ%ô?/$ñ?%ÿ%»½<¹Î “½@Î ¸¼ ‰'†ÿ§ § ½@þ �½@}'' ŽÿŠ?~õd�T&—'~.D~'v�N&ù—3†A~($�E&î½<�=&½>Fþ$жA&~'•þ?$‹É„ø?%ß4~'~67ÿ/"6111110îæ7æ7444îÿ/>îßÿ/Gî¼/J'S†û·/Uþ/T–Öë©—×–—¦æË€‰XI—$|æÄ& €—$zÆ€×½èm$|/—&½èSþ/�ß ²232þ/¤9ˆ�D' ~'vÆ×! !½<Ö$×%@A�=' �:&< (~'•½<�/& ô½<�O&í½J` ½#9þ – 'þ%²ÿ%²ÿ …¼ {&Î%+†‰~'®Î$€ß7þ …½H©Þgß9Î$—½8 —g×h—�×�þ …çÞkß9Î$›½8 —k×l—“×”þ …§ç Þmß9Î$�½8 —m×n—•×–þ …§ ç †pÖ0'†�§½H�ÿ …ÞŸßG"½; þ!¦�3'~0€ÿ! þ! ¼!'å¦ÿ! —?þ …¼ {&~5±o§„ð�'~6Û½7Í–?„&oþ! ¦æÿ! þ …§ç V–0''ÞŸ–?„�%"ߥ–ŸÖ þ …§ç ë © —Ÿ×  /ß§ ç½7å¦eæfþ …§ç ÞOŒ'ÛB™A$ Î%4††½'¢ÞCO_§eçf~7Á~7­�0'ùþ! ß7þ …½H©Þ9ÿ! ½7ÍO§§ –?„ð�'Ö½HÚ%– &I–0'Ɇ@þ …§ i– '$¦æ þ …§ç þ ƒ¦Ö!'+…''…&Š—"§ ¦„ð�0& Ä'–?„' þ …†§ g\×"Ö0& †€§þ …†€§ 3Æ@çþ …æÄ#½3Ü–?„'=�%" –¥Ö¦ OÖ� –§Ö¨ë © § ç ¶ ƒö „§ç þ! ß7þ …o o ½H©Þ9ÿ! þ …½H�ÿ …~67þ! ¦æÿ! —A×Bþ …§ ç 9–?„H—PÞO9þ …ß7Î%<½H©Î%7†Ž½'�9Î%(†Š~'®†—7¦æ&M&–9Ö:9 FV%z7&ö Š€z7'FV õ×8—7–9Ö:ë©$Î%4††~'®À‚”7Ô89ÿ! –/'Î%`†‹½'®¦æþ!à¢ß7Û8™7—I×Jþ! ¦+n—M½H6æ×?æ ½;‚…&1Ö/'æÄ' þ%Öö%ØèçÞI…&/¦æÛ@™?§çþ! ¼!&‰9•&æÛ@ç–?'è½9v ã…& ¦æÐ@’? ÏæÐ@ àÿ! Ä×H…@&CGÆ€×N_×K×L×M½H6–NDD—N¦„�'�&TÚG×G¦æ ÞKç@§?þ! ÖM\H—LÁ&Ë eÞ“ßA… 'GÞ‘ß?þ%´ßC OÆ@×G–�—@Þ•ßC Aþ! ÿ$Žþ!½H6îÿ$�þ$Žÿ! –IÖJð!²!À‚þ!ë©û$‘¹$�Î%©½H^Î%¤†�~'�þ! zH*~8Ц*„6_›JÙI—J×I3–/'½:fþ! ÿ! ×=—>z>+ðz=*Æ×=ÿ! 9i%i%ÞI K†@Î i%†Î †Îæ@•G&(}/'|9D•G&ß7¶%Øþ%Ö¨§Þ7¦?ÞIë©§ ÞIëçßI–/&Ö9\½:fþ! ‚t%Ø&(þ%Öÿ%Ö†€·%ؼ%Ñ&7¶%ÃL·%Åþ%Ïÿ%ÖÎ%`†‹~'®3Z&Ð9– 'ö$’&·$’9þ!@–0'¦& ¦�'�&×@¦—?'æ¦ ¶! °!€'Ï_—L×K½H6¦æ þ!ë©}?'ßI—A×B}-&~I@Î#�†1§ÞK'•–LÖK€Â%—L† _–L×L×K½;* àÎ#ž—D‹—E½H‹–AÖB½H^–E›A›B—M_–D›B—BÙA×AzD+ßGÞI¦›M—M¦}?&ßIÞG½H‹ à–MC½H‹† §ÿ!~<7ÞI×@–M9þ!ß7þ!ÿ!Þ7ÿ!þ!ÿ!Æÿþ ‘½/Î#ÿ!ÿ!Æ€þ �þ �&Î<½>)þ!ƽ> \Oû!¹!·!÷! ½þ!¦+üæË÷!æÉ÷!M'� '~>/ 9 9þ ‘½@! 9þ ‘†·$†DÆK§ç ½?N†·! 9þ ‘½=ý9þ ‹~=‘þ ‰¶$&&~=�–-'~=t}%Ë&~=„þ ‰¶$ö$§ç ¶%Áö%½J:OC½J?Î%¶ß7†Æuû$¹$—9×:Þ9Æ ½H«OC½J:þ ‰¶%·ö%¸À‚§ ç –/'`þ ‰¶%Ïö%Чç ¶%Ãö%ĽJ:þ%ÏO§¼%Ñ&øþ%·ß?ΗÆ¦ßAH% 67–?Ö@½J:32Þ?¼%Ç'ß?Z&åÞA Ú†9·#�O—?þ%»ß  A½;*þ ‰½@$&$ 9¦+ü'~>/¶!ö!§ç¶!ö!À‚§ç~>þ �'"þ �†ÿ§ § ¦Š§½@Îÿ �–,'O—,·! #½;È~'.¦&F9¦„&? ñ9? ì? è¦&¦ '?oo Ø9?9?9? Í? É? Å? 9? 9? 9? 9? 9Æ? o~=µ†Œ†ÿŒ†—6A@$Š$‹�O}6&�.'Á$]Î ÿ$€ÿ$‚ÿ$„ÿ$†—@·$€Î$�ßJ�'}6&�.'�$'Á$0ÞJ}6'Œ$ˆ Œ$†'§ Õ½<_�A%�Z#Æ9�0%ù�9"õ\9O9&A—A€0·$‹Æ×J½<zJ'ê�0%æ�9"â€0—K¶$Šö$‹XI—L×MXIXI%ËÛM™LÛK‰·$Š÷$‹ Ê�$&¸—AO·$Š·$‹Æ×J½<zJ+£�0%Ÿ�9"€0 �A%“�F"�€7—K¶$Šö$‹XIXIXIXIÚK·$Š÷$‹ Èß?Î$€ß7OÆ Û@™?—9×:Þ9Æ ½H«Þ?¶$§¶$‹§ ¦—A½=ù–A§½=õ9ÎROÿ$ˆ½>@Ö@& 9½A"�:'½CÖ@&~'•�G�:&½>FÖA'ð¶$Ÿ')¶$ƒ� '~@_¶$€ö$�ÞH¼ �&«¬ÁN&�C'—¬ †DÆKÞH§ç ½?N9�.&½>§Á&·$ˆ† ·$‰½>§Á$ ·$‰½<  9?@† —GÎ!ÿ!ßAþ }ßC¼ ';¦„ð�0&,ß7† Þ?ß?ÞA§½H©ßAzG&† §ÿ!½Cㆠ—GÎ!ßAÞC½H� ¾Þ?'ÞAŒ!' † §ÿ!½Cã–?Ö@Î$ ½H^ Î ÿ$ ÎNOÿ$¢Î$ ÿ!Î$·ÿ!½Cã9ÎAþ¡' ŒB &ô~'vî­~'�FB UAPCDSD½APÎ$·ÿ!Î$»ÿ!½Cã½DO—I—Cþ }ß?¼ &–C' J'~C9Î!ßAI|C ߦ„ðÖC' Z&�&~Bè�p&~CL� 'Þ?½H� ¾ÖI&R—IÎ$§ÿ!Î$·ÿ!½CãÎ!ÿ!ßAßE†—D—G† ·$ÍÆ Î$»ß7ÞE½H«ÆßEÎ$Éß7ÞE½H«ßEzG&߆ §ÿ!½Cã½C¾¦æ ÞA½H^zD&† §ÿ!½C㆗DÎ!ßA~BbÖI&5—IÎ$Øÿ!Î$ßÿ!½CãÎ$»ÿ!Î$Îÿ!† ·$ͽCãÎ!ÿ!ßA† §§§ ½C¾¦ æ ÞA½H^ßAÞ?†—D~BÂÞAŒ!' † §ÿ!½Cã9–I&-Î$ßÿ!Î$úÿ!½CãÎ!ÿ!† §§§§ § § §§† §—IÞ?ß7Î!½H©Þ?OæÛTÎ!(½H^Þ?¦æ ÛX™WÎ!-½H^Þ?¦ æ ÛZ™YÎ!2½H^ÿ!½Cã~BbÞ?ß7ÞA½H©ßAÞ?¦„‹A�E&†PÞA§ßAÞ?9þ �–«&Ö¬'¶DöD§çˉ§ç½>%†<—«½=‘z«9D ? – & –*&+½E7†—?† ·$ÍÎ$Áÿ!Î$Øÿ!½CãÎ!ÿ!† §§§§ §†A§† §§Î!/ÿ!þ }ßA¼ ':¦�&-¦ æ Î!½H^ÞA¦æ Î!$½H^ÞA¦ æ ë ©À‚Î!)½H^½CãÞA½H� ¿Î!3ÿ!ÎßA|!– '¦[æ\ ¦eæfëp©oÎ!½H^ÞA– &–?' ¦QæRÎ!$½H^ÞA¦QæRë\©[À‚Î!)½H^ ¦yæzÎ!$½H^ÞA愦ƒÎ!)½H^ÞAæp¦oÎ!.½H^¶!�E&†P·!½CãÞAŒ &9~D²ÎßQßSßUßWßYG†—H–+' †€—Gþ wß[ÎßC¦oæpëf©eŒ&}1'Lˉ—£×¤Û ™ŸŒ&;}1'6—?×@¶%éö%ê½Iû%ê¹%éÛ@™?·%½÷%¾ö%ÙO½Iû%¾¹%½·%ì÷%íû/©¹/¨§[ç\¦yæz�ÿ&Áÿ'/—?×@¦ƒæ„—A×B&�'Bàz¢y%ˉ¡[%"¡\$~Fا[ç\ %¦ƒ&æ„'=æ„×A×Bà\¢[$ ˉ*~FØË‰—?×@ÞCæ\&¦['½G•$~FØ–?Ö@§QçR–HšG—GxHŒ&–+'|Q '~E[–GH—I†@—HÎA† —BßC ßC–4Ö5—A×BxI%7OÖDû$”¹$“—K×LÞAß9ÞK½8 ÞC—?×@æ\&¦['½G•%ä–HšG—G–?Ö@§QçRtHŒ&–+'Q–S�&–^›T$&Œ &– Î%H†ƒ~'®Î%K öÎ%N ñO—?—Q—RΦQæRëf©e§�çŽ &ð–£Ö¤ÛX™W—£×¤¶%ìö%íÛZ™Y·%ì÷%íþ }ÿ ƒ¼ &9¦„ð<� '�&J—<ÄX×@î ßAÞ?}<'¦�æŽþ ƒ§ç Þ?ÛB™A§�çŽþ ƒ Á# þ ƒ¦„@&Þ?¦QæRÛB™Aþ ƒ§ç ½H� ˜¦ æ Û¤™£ í¦[Û@™?$ &]'~Fà†ÿ—A×B–G—JÎxJ$B¦QæR‘A":%ÑB$4ë\©[À‚‘?%(&Ñ@%"Œ& —E–D�'–EˉÞAŒÿÿ'°—A×BÞC 9Œ &²þ }¼ ')¦& ¦æ ‘A"%ÑB$ë © À‚‘?%&¾Ñ@$º½H� ÒÞC 9æ¦Ë‰ÿ! XIXI×8—7XIÛ8™7û%³¹%²—7×8Þ79×7Æ×8DDDD‹0�9#‹ÄË0Á9#˧çz8'–7 Ú9Æ Ó9 9Æ¿${·$}ž742§Z&ù1Ÿ9¾${¶$}9þ …ß7þ Æ ½H«ÿ 9þ }ÿ ƒß9¼ & 9Æþ …¦ß7Þ9¡&ß9Þ7Z&íþ ƒ¦„ð�p' 9þ ƒ½H� ÇXF—7×8XFÛ8™79½H�¼ 'æÄðÁ`&|©&ê9 9Î%¹}@'Ρà¢×7Ä×F_x7IY}0'û%ä¹%ã×G—H¶%Ë&s%Ë ÞG¼%Á'Rþ ‰¶$ö$§ç ¶%Áö%½J:–GÖHGVTTOû%ι%Í×N—MÖH†€Ä'DZ úÞM¥' –GÖH½J? ª§OÆ€þ$?ÞGÿ%Á¶$ö$ÛF‰—E×Fö$ÐF÷%ú–KÖLð%ú‚$ P÷%úÖLO—K—L —K×Lö%ú%ú–?'þ!¦ÞE§Z&ú ÞIß7ÞE½H«ßEÞ9ßIÞK' ÞGßGF~I{9�~>�~>þ ‰§ç¦æ ˉ§!ç"9½<�:'~'•~'v½>F�/&ó–A'ï¶$Š&í¶$‹! 'è½K_¶$‹±%Ú'"%Û·%Ú½KD†—2—0—1– &¶%ÚÆP½Jôþ%Ûÿ%Ý|%Ù%8¶%Ù} & Æ`½JôÞ¡ߟ9þ%ß¼ 'ÿ%Û¦æû%â¹%á·%ã÷%ä†`½I#ÿ%ß9Î%c†Œ~'®þ ¼ {&~5±§–¡§–¢§ O§ § §ç¶%ãö%ä§çÿ%Û½H�ÿ 9½<�R& ½<�/& ½K_~KD�O&~J`~'•–2'2– &þ%ݦ æ Û¢™¡—¡×¢9–0'D0– &=–ŸÖ Ð¢’¡þ%ÛË‰Äø§ ç þ%Ý¡ "%á #§ ç ˉXÆI$\»%æù%å·%æ÷%å9�6'~4V–#'½5M~4×å娀 0010�************************************************************ 0020�* 0030�*„PATCH�IN�MDOS�TO�SERVICE�KEYBOARD�INPUT 0040�*„DURING�SHORT�STATUS�INTERRUPT�AND/OR 0050�*„S.D.BASIC�LINE�ROUTINE. 0060�* 0070�************************************************************* 0080�* 0090�BUFF�EQU�$FFA0 0100�ACIA�EQU�$FCF4 0110�* 0120‚ORG�$8D00 0130�* 0140�PATCH�LDAA�BUFF+3 0150‚CMPA�#$A5 0160‚BEQ�PATCH1 0170‚JSR�INIT 0180�PATCH1�LDAA�BUFF 0190‚BEQ�JPF015 0200‚PSHA 0210‚LDAA�BUFF+1 0220‚STAA�BUFF 0230‚LDAA�BUFF+2 0240‚STAA�BUFF+1 0250‚PULA 0260‚CLR�BUFF+2 0270‚RTS 0280�* 0290�JPF015�JMP�$F015 0300�* 0310�INIT�CLR�BUFF 0320‚CLR�BUFF+1 0330‚CLR�BUFF+2 0340‚LDAB�#$A5 0350‚STAB�BUFF+3 0360‚RTS 0370�* 0380�* 0390�* 0400�************************************************ 0410�* 0420�*�THE�NEXT�ROUTINE‚SHOULD�BE�CALLED�SEVERAL�TIMES 0430�*�FROM�SHORT. 0440�* 0450�************************************************ 0460�* 0470‚ORG�$8D40 0480�* 0490�KEYBRD�PSHA 0500‚PSHB 0510‚LDAB�ACIA 0520‚RORB 0530‚BCC�OUTK 0540‚LDAA�ACIA+1 0550�KEY�TST�BUFF 0560‚BNE�B1 0570‚STAA�BUFF 0580‚BRA�ECHO 0590�B1�TST�BUFF+1 0600‚BNE�B2 0610‚STAA�BUFF+1 0620‚BRA�ECHO 0630�B2�STAA�BUFF+2 0640�ECHO�STAA�ACIA+1 0650�OUTK�PULB 0660‚PULA 0670‚RTS 0680�* 0690‚END åÛ€h��7öÿ£Á¥'½�'¶ÿ 'öÿ¡÷ÿ öÿ¢÷ÿ¡ÿ¢3~ð3~ðÿ ÿ¡ÿ¢Æ¥÷ÿ£967öüôV$¶üõ}ÿ &·ÿ  }ÿ¡&·ÿ¡ ·ÿ¢329åå|Ü`ü€à0005‚NAM�SSTAT 0010�* 0015‚OPT�REL,LLEN=120 0020�* 0025�*�SHORT�STATUS�DISPLAY�AND�BACKUP�RESTORE�ROUTINES 0030�* 0035�*�THIS�PROGRAM�TIME�SLICES�THE�SHORT�AND�LONG�STATUS�REQUEST�AND 0040�*�DISPLAYS�IT 0045�*�SLICE�00�:�TAKE�LONG�STATUS�(�EACH�4�CYCLES�) 0050�*�SLICE�01�:�TAKE�RECIPE�NAME 0055�*�SLICE�02�:�TAKE�SHORT�STATUS 0060�*�SLICE�03�:�DISPLAY�TUBE�1 0065�*�SLICE�04�:‚"ƒ"„"‚" 2 0070�*�SLICE�05�:‚"ƒ"„"‚3 0075�*�SLICE�06�:‚"ƒ"„"‚4 0080�*�SLICE�07�:‚"ƒ"„"‚5 0085�*�SLICE�08�:‚"ƒ"„"‚6 0090�*�SLICE�09�:‚"ƒ"„"‚7 0095�*�SLICE�10�:‚"ƒ"„"‚8 0100�*�SLICE�11�:�MAKE�THE�BACKUP�IF�NEEDED 0105�* 0110�* 0115�*�MACRO�TO�SET�REGISTERS 0120�* 0125�GPAR�MACR 0130‚LDAA�\0 0135‚LDAB�\1 0140‚LDX�\2 0145‚ENDM 0150�* 0155�SCALL�MACR 0160‚SWI 0165‚FCB�\0 0170‚ENDM 0175�* 0180�* 0185‚XDEF�FTUBE1,NAME1,LINE,NAME1,NAME8 0190‚XDEF�FULSCR,TUBE1,TUBE2,TUBE3,TUBE4,TUBE5,TUBE6,TUBE7,TUBE8 0195‚XDEF�START,DCOUNT,PRCNT,TUBCNT,RECEIV,RDATAI,OPTBCK 0200‚XDEF�OLDACT,NEWACT,OLDSTP,NEWSTP 0205‚XDEF�BTUBE1,FLGPTR,STRPTR 0210�*�RDATAI�IS�LOCATION�WHERE�JSR�RDATA�CAN�BE�INSERTED 0215�*�OPTBCK�LOCATION�SHOULD�BE�SET�TO�0�IF�BACKUP�OPTION�IS�INSTALLED 0220�* 0225‚XREF�PDATA,OUTCH,AXA,AXB,SSXBA,BUFBUF 0230‚XREF�PATCH,SOURCE,DESTIN,LENGTH 0235‚PAGE 0240‚ASCT 0245�* 0250�* 0255�ACBASE�EQU�$ECA0�FIRST�ACIA�LOCATION 0260�IMTC1�EQU�8�BASE�OF�THERMOCOUPLES�IN�NEW�STATUS�D.D.�19/10/81 0265�TCSTAT�EQU�IMTC1+(2*12)�TC�STATUS 0270�TIMEI�EQU�TCSTAT+4�STEP�TIME 0275�CURSTP�EQU�TIMEI+3�CURRENT�STEP 0280�RCPTR1�EQU�CURSTP+2 0285�RCPTR2�EQU„RCPTR1+3 0290�RCPTR3�EQU„RCPTR2+3 0295�ACTIV�EQU�CURSTP+11�ACTIVITY�FLAGS 0300�* 0305�FULLEN�EQU„$D1†LENGTH�OF�FULL�STATUS�BUFFER 0310�SHOLEN�EQU„$3B†LENGTH�OF�SHORT�STATUS�BUFFER 0315�RCPLEN�EQU„$9‡LENGTH�OF�RECIPE�NAME�BUFFER 0320�FULSTT�EQU„$AF†LENGTH�OF�BYTE�STRING�FULL�STATUS 0325�SHOSTT�EQU„$33†LENGTH�OF�BYTE�STRING�SHORT�SATUS 0330�RCPNAM�EQU„$8‡LENGTH�OF�RECIPY�NAME�STRING 0335�SPARE1�EQU„8 0340�SPAR1A�EQU„18 0345�SPAR1B�EQU„16 0350�* 0355�TUBEƒEQU„0‡OFFSETS�FROM�TUBE1;�USED�WITH�FLGPTR 0360�TBIDƒEQU„8 0365�TBRNƒEQU„16 0370�TCNTƒEQU„24 0375�BADCƒEQU„32 0380�*�SCALL�EQUATES 0385�RESERV�EQU�0 0390�RELES�EQU�1 0395�OPEN�EQU�2 0400�CLOSE�EQU�3 0405�GETLS�EQU�7 0410�PUTLS�EQU�8 0415�MDERR�EQU�$20 0420ˆSPC„3 0425‚ORG�$C020�ORIGIN�FOR�RAM�LOCATIONS 0430�*�THE�FOLLOWING�DATA�LOCATIONS�UNTIL�TIME�SHOULD�BE�KEPT�ON�THESE 0435�*�ADDRESSES;�THEY�ARE�USED�BY�SUPERVISOR�BASIC�PROGRAMS 0440�FULSCR�RMB�1�SET�WHEN�ANOTHER�PROGRAM�USES�THE�FULL�SCREEN 0445�RECEIV�RMB�1�THIS�FLAG�IS�SET�BY�THE�SUPERVISOR�WHEN�IT�IS 0450�*�RECEIVING�DATA�FROM�A�TUBE 0455�*�THIS�FLAG�INHIBITS�THE�TUBE�STATUS�REQUEST 0460�* 0465�TUBE1�RMB�1�WHEN�THE�FLAG�IS�<>�0�THE�TUBE�CANNOT�BE�REQUESTED 0470�TUBE2�RMB�1�SAME�AS�TUBE�1�IF�FLAG�IS�80�FLAG�CANNOT�BE�RESETTED 0475�TUBE3�RMB�1�SAME�AS�TUBE�1 0480�TUBE4�RMB�1�SAME�AS�TUBE�1 0485�TUBE5�RMB�1�SAME�AS�TUBE�1 0490�TUBE6�RMB�1�SAME�AS�TUBE�1 0495�TUBE7�RMB�1�SAME�AS�TUBE�1 0500�TUBE8�RMB�1�SAME�AS�TUBE�1 0505ˆSPC„1 0510�TBID1�RMB�1�TUBE�IDLE�FLAGS 0515�TBID2�RMB�1 0520�TBID3�RMB�1 0525�TBID4�RMB�1 0530�TBID5�RMB�1 0535�TBID6�RMB�1 0540�TBID7�RMB�1 0545�TBID8�RMB�1 0550�* 0555�TBRN1�RMB�1�TUBE�RUN�FLAGS 0560�TBRN2�RMB�1 0565�TBRN3�RMB�1 0570�TBRN4�RMB�1 0575�TBRN5�RMB�1 0580�TBRN6�RMB�1 0585�TBRN7�RMB�1 0590�TBRN8�RMB�1 0595�* 0600�TCNT1�RMB�1�TUBE�STRING�BYTE�COUNT 0605�TCNT2�RMB�1�SAME�FOR�TUBE�2 0610�TCNT3�RMB�1�SAME�FOR�TUBE�3 0615�TCNT4�RMB�1�SAME�FOR�TUBE�4 0620�TCNT5�RMB�1�SAME�FOR�TUBE�5 0625�TCNT6�RMB�1�SAME�FOR�TUBE�6 0630�TCNT7�RMB�1�SAME�FOR�TUBE�7 0635�TCNT8�RMB�1�SAME�FOR�TUBE�8 0640�* 0645�BADC1�RMB�1�BAD�COUNT 0650�BADC2�RMB�1 0655�BADC3�RMB�1 0660�BADC4�RMB�1 0665�BADC5�RMB�1 0670�BADC6�RMB�1 0675�BADC7�RMB�1 0680�BADC8�RMB�1 0685�* 06# 90�*�END�OF�FIXED�ADDRESS�LOCATIONS 0695�* 0700�TPTR1�RMB�2�TUBE�STRING�PTR 0705�TPTR2�RMB�2�SAME�FOR�TUBE�2 0710�TPTR3�RMB�2�SAME�FOR�TUBE�3 0715�TPTR4�RMB�2�SAME�FOR�TUBE�4 0720�TPTR5�RMB�2�SAME�FOR�TUBE�5 0725�TPTR6�RMB�2�SAME�FOR�TUBE�6 0730�TPTR7�RMB�2�SAME�FOR�TUBE�7 0735�TPTR8�RMB�2�SAME�FOR�TUBE�8 0740ˆPAGE 0745�* 0750�STRPTR�RMB�2�CURRENT�POINTER�TO�THE�TUBE�BUFFERS 0755�FULPTR�RMB�2�POINTER�TO�THE�TUBE�FULL�STATUS�BUFFERS 0760�SHOPTR�RMB�2�POINTER�TO�THE�TUBE�SHORT�STATUS�BUFFERS 0765�NAMPTR�RMB�2�RECIPE�NAME�POINTER 0770�ACPTR�RMB�2�ACIA�POINTER 0775�FLGPTR�RMB�2�FLAG�POINTER 0780�RECPTR�RMB�2 0785�DCOUNT�RMB�1‹TIME�SLICE�COUNTER 0790�TUBCNT�RMB�1‹NR�OF�TUBE�FOR�RECIPE�NAME�UPDATE 0795�PRCNT�RMB�1�PRECOUNT�FOR�FULL�STATUS;�AT�1�TAKE�A�FULL�STATUS 0800�BYTCNT�RMB�1‹NR�OF�BYTES�TO�BE�RECEIVED�FROM�A�TUBE 0805�COUNT‚RMB„1 0810�CHKCNT�RMB„1ˆCOUNTER�FOR�ACIA�CHECK 0815�FLAG�RMB�1�ANY�FLAG 0820�COFLAG�RMB�1�IF�0�THEN�BASE�10�ELSE�TIME�CONVERSION 0825�FULFLG�RMB„1ˆSET�TO�FF�FOR�FULL�STATUS�REQUEST 0830�BKFLG�RMB�1�BACKUP�DONE�FLAG 0835�LINE�RMB�1�LOGICAL�DISPLAY�LINE 0840�COLUMN�RMB�1�LOGICAL�DISPLAY�COLUMN 0845�TEMP1�RMB�2�TEMPORARY�STORAGE 0850�PARM�RMB�2 0855�* 0860�TIME�RMB�3�TIME�PROCESSING�LOC 0865�H1�RMB�3 0870�M1�RMB�3 0875�S1�RMB�3 0880�* 0885�SETP�RMB�2�SETPOINT�OF�A�TUBE 0890�TDIFF�RMB�2�TUBE�VALUE 0895�SIGN�RMB�1�SIGN�BIT;�0=+,�1=- 0900�OFFSET�RMB�1�TEMP�ZONE�OFFSET 0905�SECBUF�RMB�$80�SECTOR�BUFFER 0910�IOCRAM�RMB�40�IOCB�IN�RAM 0915�MSGRAM�RMB�15�MESSAGE�IN�RAM 0920�* 0925�STACK�RMB�127 0930�STKEND�RMB�1 0935�SAVSP�RMB�2�SAV�STACK�POINTER 0940�OLDACT�RMB�8‚PREVIOUS�SAVED�ACTIV�BYTE 0945�NEWACT�RMB�8 0950�OLDSTP�RMB�8�PREVIOUS�SAVED�CURRENT�STEP 0955�NEWSTP�RMB�8 0960ˆPAGE 0965�*�TUBE�BUFFERSƒTHE�SPARES�ARE�RESERVED�FOR�FUTURE�USE,�WHEN�THEY�GET 0970‚ORG�$C200‡ALLOCATED�IN�THE�STATUS 0975�* 0980�BTUBE1�RMB�SHOLEN�SHORT�BUFFER�TUBE�1 0985�BTUBE2�RMB�SHOLEN�SHORT�BUFFER�TUBE�2 0990�BTUBE3�RMB�SHOLEN�SHORT�BUFFER�TUBE�3 0995�BTUBE4�RMB�SHOLEN�SHORT�BUFFER�TUBE�4 1000�BTUBE5�RMB�SHOLEN�SHORT�BUFFER�TUBE�5 1005�BTUBE6�RMB�SHOLEN�SHORT�BUFFER�TUBE�6 1010�BTUBE7�RMB�SHOLEN�SHORT�BUFFER�TUBE�7 1015�BTUBE8�RMB�SHOLEN�SHORT�BUFFER�TUBE�8 1020�* 1025�FTUBE1�RMB�FULLEN�FULL�BUFFER�TUBE�1 1030�FTUBE2�RMB�FULLEN�FULL�BUFFER�TUBE�2 1035�FTUBE3�RMB�FULLEN�FULL�BUFFER�TUBE�3 1040�FTUBE4�RMB�FULLEN�FULL�BUFFER�TUBE�4 1045�FTUBE5�RMB�FULLEN�FULL�BUFFER�TUBE�5 1050�FTUBE6�RMB�FULLEN�FULL�BUFFER�TUBE�6 1055�FTUBE7�RMB�FULLEN�FULL�BUFFER�TUBE�7 1060�FTUBE8�RMB�FULLEN�FULL�BUFFER�TUBE�8 1065�* 1070�NAME1�RMB�RCPLEN�RECIPE�NAME�TUBE�1�+�BYTE�FOR�EOF 1075�NAME2�RMB�RCPLEN 1080�NAME3�RMB�RCPLEN 1085�NAME4�RMB�RCPLEN 1090�NAME5�RMB�RCPLEN 1095�NAME6�RMB�RCPLEN 1100�NAME7�RMB�RCPLEN 1105�NAME8�RMB�RCPLEN 1110ˆPAGE 1115‚PSCT 1120�OPTBCK�FCB�$FF�IF�OPTBCK�IS�NOT�FF�BACKUP�OPTION�IS�INSTALLED 1125‚NOP 1130‚NOPƒ 1135‚RTS 1140ˆSPC„3 1145�START�STS�SAVSP 1150‚LDS�#STKEND‚SWAP�STACKS 1155‚BSR�TIMSL 1160�START1�LDS�SAVSP 1165‚RTS 1170ˆSPC„3 1175�TIMSL‚EQU„*ˆJUMPS�TO�CORRECT�ROUTINE�FOR�EACH�TIME�SLICE 1180�*�INCREMENTS�AND�RESETS�THE�COUNTER 1185�TIMSL0�LDAAƒDCOUNT 1190ˆBNE„TIMSL1ƒ 1195ˆDEC„PRCNT„TAKE�LONG�STATUS�WHEN�PRCNT�IS�1 1200ˆBLE„TIMSLAƒPRCNT�IS�INITIATED�AT�0�IN�RTIME 1205ˆINC„DCOUNTƒSKIP�FULL�STATUS;�EXECUTE�NEXT�SLICE 1210ˆBRA„TIMSL 1215�TIMSLA�LDAAƒ#2‡RESET�FLAG;�INDICATE�FU$ LL�STATUS 1220ˆSTAAƒPRCNT 1225ˆJSR„FULLSTƒTAKE�FULL�STATUS 1230ˆBRA„TIMSL6 1235�TIMSL1�DECA 1240ˆBNE„TIMSL2 1245ˆJSR„NAME 1250ˆBRA„TIMSL6 1255�TIMSL2�DECA 1260ˆBNE„TIMSL3 1265ˆJSR„SHORT 1270ˆBRA„TIMSL6 1275�TIMSL3�LDAAƒDCOUNT 1280ˆCMPAƒ#11 1285ˆBEQ„TIMS11 1290ˆJSR„DISP…EXECUTED�IN�SLICES�3-10 1295ˆBRA„TIMSL6 1300�TIMS11�TST„OPTBCK 1305ˆBNE„TIMSL6ƒBRANCH�IF�NO�BACKUP�OPTION�INSTALLED 1310�*�RETURN�HERE�AFTER�TIME�SLICE�ROUTINE�IS�EXECUTED 1315�TIMSL6�LDAAƒDCOUNT 1320ˆINCA 1325ˆCMPAƒ#12 1330ˆBNE„TIMSL7 1335ˆCLRAŒRESET�DCOUNT 1340�TIMSL7�STAAƒDCOUNT 1345ˆRTS 1350ˆPAGE 1355�FULLST�EQU„*ˆTAKE�FULL�STATUS�OF�ALL�CONNECTED�TUBES 1360‚JSR�CHECK 1365‚LDAA�#$FF 1370ˆSTAAƒFULFLG 1375‚STAA�RECEIV 1380‚LDX�#LNGMES�ADDRESS�OF�MESSAGE�FOR�TUBE�CONTROLLER 1385‚JSR�SETST 1390ˆCLR„FULFLGƒEND�OF�FULL�STATUS�REQUEST 1395‚CLR�RECEIV 1400ˆRTS 1405ˆSPC„3 1410�SHORT‚EQU„*ˆTAKE�SHORT�STATUS�OF�ALL�CONNECTED�TUBES 1415ˆJSR„CHECK„CHECK�TUBE�COMMUNICATION 1420‚LDX�#SHRMES�ADDRESS�OF�MESSAGE�FOR�TUBE�CONTROLLER 1425‚JSR�SETST 1430�*�CHECK�FOR�BACK�START�AND�SET�IDLE�AND�RUN�FLAGS 1435‚LDX�#TUBE1 1440‚STX�FLGPTR 1445‚LDX�#BTUBE1+SPARE1 1450�SHRT04�STX�STRPTR 1455‚LDX�FLGPTR 1460‚TST�X 1465‚BNE�SHRT06 1470‚LDX�STRPTR 1475‚CLRB 1480‚LDAA�ACTIV,X�X�TEST�IF�IDLE 1485‚BPL�SHRT05 1490‚DECB 1495‚TST�RCPTR1,X 1500‚BEQ�SHRT05�IF�RECIPE�NOT�LOADED�AND�IDLE,�RESTART 1505‚LDX�FLGPTR 1510‚CLR�TBRN,X�IDLE�BUT�RECIPE�LOADED,NO�RESTART 1515�SHRT05�LDX�FLGPTR 1520‚STAB�TBID,X 1525‚BNE�SHRT06 1530‚BITA�#$40 1535‚BEQ�SHRT06 1540‚LDAB�#$FF 1545‚STAB�TBRN,X�SET�RUN�FLAG 1550�SHRT06�INX 1555‚CPX�#TUBE8+1 1560‚BEQ�SHRT07 1565‚STX�FLGPTR 1570‚LDX�STRPTR 1575‚LDAA�#SHOLEN 1580‚JSR�AXA 1585‚BRA�SHRT04 1590�SHRT07�RTS�EXIT�SHORT�STATUS 1595ˆPAGE„ 1600�NAMEƒEQU„*ˆRETRIEVES�THE�SELECTED�RECIPE�NAME�FOR�EACH 1605�*�TUBE;�EACH�TIME�CYCLE�ONLY�ONE�RECIPE�NAME�IS�UPDATED 1610�*�COMPUTE�TUBE�FULL�STATUS�POINTR 1615ˆLDABƒTUBCNT 1620ˆLDX„#BTUBE1+SPARE1 1625‚LDAA�#SHOLEN 1630ˆJSR„ADDRPTƒ(B-1)*A�+�X 1635ˆLDABƒACTIV,X�GET�TUBE�ACTIVITY�STATUS 1640ˆANDBƒ#$03…EXTRACT�RECIPE�NR 1645ˆBNE„NAM04„BRANCH�IF�RECIPE�SELECTED 1650ˆJMP„NAM05„EXIT 1655�NAM04‚LDAAƒ#3‡OFFSET�BETWEEN�RECIPE�POINTERS 1660ˆJSR„ADDRPT 1665ˆLDAAƒ#RCPTR1+1�INITIAL�OFFSET 1670ˆJSR„AXA†X�POINTS�TO�RECIPE�ADDRESS 1675ˆLDX„0,X 1680ˆSTX„TEMP1„KEEP�ADDRESS 1685�*�MOVE�RECIPE�NAME�CALL�IN�MSGRAM 1690ˆLDX„#RECMES 1695ˆSTX„SOURCE 1700ˆLDX„#MSGRAM 1705ˆSTX„DESTIN 1710ˆLDX„#12 1715ˆSTX„LENGTH 1720ˆJSR„BUFBUF 1725�*�CHANGE�ADDRESS�OF�RECIPE�NAME�TO�ASCII 1730ˆLDX„#MSGRAM+5 1735ˆLDAAƒTEMP1ƒFIRST�TWO�HEX�CHARACTERS 1740ˆJSR„HEXASC 1745ˆLDAAƒTEMP1+1‚2ND�TWO 1750ˆJSR„HEXASC 1755�*�FIND�POINTER�TO�RECIPE�NAME�BUFFER 1760ˆLDX„#NAME1 1765ˆLDABƒTUBCNT 1770ˆLDAAƒ#RCPLEN 1775ˆJSR„ADDRPT 1780ˆSTX„PARM„TEMP.�STORAGE 1785ˆLDX„#TPTR1 1790ˆLDAAƒ#2 1795ˆJSR„ADDRPT 1800ˆLDAAƒPARM 1805ˆSTAAƒ0,X 1810ˆLDAAƒPARM+1 1815ˆSTAAƒ1,X†FILL�POINTER 1820ˆJSR„CLRCNTƒCLEAR�ALL�BYTE�COUNTS 1825ˆLDX„#TUBE1 1830ˆLDAAƒ#1 1835ˆLDABƒTUBCNT 1840ˆJSR„ADDRPT 1845ˆSTX„FLGPTRƒFLGPTR�=�TUBE1�+�(TUBCNT-1) 1850ˆLDAAƒ#RCPNAM‚LENGTH�OF�DATA�STRING 1855ˆSTAAƒTCNT,X 1860ˆLDX„#MSGRAM‚START�OF�DATA 1865ˆSTX„STRPTR 1870ˆJSR„TRNSFRƒSEND�MESSAGE�AND�GET�ANSWERS 1875�NAM05‚LDABƒTUBCNT 1880ˆINCB 1885ˆCMPBƒ#9‡ARE�ALL�TUBES�DONE 1890ˆBNE„NAM06„BRANCH�IF�NOT�DONE 1895ˆLDABƒ#1‡INITIATE�POINTER�AT�1 1900�NAM06‚STABƒTUBCNTƒUPDATE�COUNTER 1905‚RTS%  1910‚PAGE 1915�* 1920�*�ROUTINE�TO�SEND�A�CHARACTER�TO�ALL�ACIA'S�NOT�FLAGGED 1925�*�IF�ACCB=0�SEND�TO�ALL�TUBES;�ELSE�B�IS�TUBE�NUMBER 1930�*�CHARACTER�IS�IN�ACCA 1935�*�THIS�ROUTINE�STARTS�WITH�THE�FIRST�ACIA 1940�* 1945�SENDƒEQU„* 1950ˆPSHB 1955ˆJSR„INITPTƒEXIT�WITH�FLGPTR�IN�X 1960�SEND0‚TST�X�IS�THE�FLAG�OK 1965‚BNE�SEND2 1970�SEND00�LDX�ACPTR�TEST�THE�ACIA 1975‚LDAB�#$10�CHECK�FOR�FRAMING�ERROR 1980‚BITB�X 1985‚BEQ�SEND01 1990‚LDAB�#3 1995‚STAB�X 2000‚LDAB�#$11�RESET�ACIA 2005‚STAB�X 2010‚LDX�FLGPTR�SET�ACIA�BAD 2015‚LDAB�#$FF 2020‚STAB�X 2025‚BRA�SEND2 2030�SEND01�LDAB�#2�TEST�TDRE 2035‚BITB�X 2040‚BEQ�SEND01 2045‚STAA�1,X 2050�SEND2‚TST�FLAG 2055‚BNE�SENDEX�IF�ONLY�ONE�TUBE�EXIT 2060ˆJSR„NXACIA 2065ˆBCC„SEND0 2070�SENDEX�PULB 2075‚RTS 2080�* 2085‚SPC�3 2090�RECVƒEQU„* 2095�*�RECEIVES�A�CHARACTER�FROM�ALL�ACIA'S�NOT�FLAGGED 2100�*�CHARACTER�IS�STORED�AT�(STRPTR) 2105�*�TUBES�WITH�TCNT=0�DON'T�HAVE�TO�SEND�ANY�RESPONSE 2110�*�THIS�ROUTINE�STARTS�WITH�THE�FIRST�ACIA 2115�*± 2120ˆCLRB 2125ˆLDX„#TPTR1ƒINIT�TUBE�POINTRS 2130ˆSTX„STRPTR 2135ˆJSR„INITPTƒSET�ACIAPTR�AND�FLAGPTR 2140�RECV1‚TST„TUBE,XƒIS�THE�FLAG�OK 2145ˆBEQ„RECV2„BRANCH�IF�OK� 2150ˆCLR„TCNT,XƒNO�MESSAGE�EXPECTED�FROM�BAD�OR�OCCUPIED�TUBE 2155ˆBRA„RECV5 2160�RECV2‚LDABƒTCNT,XƒTEST�IF�THIS�COUNT�IS�0 2165ˆBEQ„RECV5„BRANCH�IF�ALL�CHARACTERS�RECEIVED 2170ˆDEC„BADC,X 2175ˆBNE„RECV3„BRANCH�IF�OK 2180�*�BAD�COMMUNICATIONS�WITH�A�TUBE 2185�RECLR�CLR�TCNT,X 2190ˆLDAAƒ#$FF 2195ˆSTAAƒTUBE,X 2200ˆBRA„RECV5 2205�RECV3‚LDX„ACPTR„TEST�THE�ACIA 2210ˆLDABƒ#1‡TEST�RDRF 2215ˆLDAAƒ0,X†STATUS�ACIA 2220ˆBITAƒ#$10…IS�A�FRAMING�ERROR�THERE 2225ˆBEQ„RECV4„BRANCH�IF�NO�ERROR 2230ˆLDX„FLGPTR 2235ˆCLR„BADC,XƒRESET�COUNT 2240‚BRA�RECLR 2245�RECV4‚BITBƒ0,X 2250‚BEQ�RECV5 2255‚LDAA�1,XŽGET�CHARACTER�FROM�ACIA 2260‚LDX�STRPTR�TAKE�THE�STRING�POINTER;�POINTS�TO�TUBE�POINTER 2265‚LDX�0,X�TAKE�THE�TUBE�POINTER;�POINTS�TO�MESSAGE�BUFFER 2270‚STAA�0,XŽSTORE�CHARACTER 2275ˆLDX„FLGPTR 2280ˆDEC„TCNT,X�DECREMENT�BYTE�COUNT 2285ˆLDAAƒ#$FF…INITIATE�COUNTER�FOR�NEXT�CHARACTER 2290ˆSTAAƒBADC,X 2295‚LDX�STRPTR�TAKE�THE�STRING�POINTER 2300‚LDAB�0,XŽTUBE�MESSAGE�BUFFER�POINTER 2305‚LDAA�1,X 2310‚ADDA�#1�ADD�1�TO�MESSAGE�BUFFER�ADDRESS 2315‚ADCB�#0 2320‚STAB�X 2325‚STAA�1,X 2330�RECV5‚LDX„STRPTR 2335‚INX 2340‚INX 2345‚STX�STRPTR�UPDATE�STRING�POINTER�FOR�NEXT�TUBE 2350ˆJSR„NXACIA 2355ˆBCS„RECV6 2360ˆBRA„RECV1 2365�RECV6�RTS 2370‚SPC�3 2375�INITPT�EQU„* 2380ˆPSHAŒSAVE�A�REGISTER 2385ˆSTABƒFLAG 2390ˆLDX„#ACBASE…CALCULATED�STATUS�POINTER(S) 2395ˆLDAAƒ#2 2400ˆJSR„ADDRPT„X=(B-1)*A�+X�IF�B�NOT�0;�FOR�B=0�X=X 2405ˆSTX„ACPTR 2410ˆLDX„#TUBE1 2415ˆLDAAƒ#1 2420ˆJSR„ADDRPT 2425ˆSTX„FLGPTR�INIT�THE�FLAG�POINTER 2430ˆPULA 2435ˆRTS 2440ˆPAGE 2445�NXACIA�EQU„*ˆUPDATES�POINTERS�FOR�NEXT�ACIA 2450�*�CARRY�IS�SET�WHEN�DONE 2455‚LDX�ACPTR 2460‚CPX�#ACBASE+(2*7) 2465‚BEQ�NXAC1„BRANCHƒIF�DONE 2470‚INX 2475‚INX 2480‚STX�ACPTR 2485‚LDX�FLGPTR�UPDATE�FLAG�PTR 2490‚INX 2495ˆSTX„FLGPTR 2500ˆCLC 2505ˆRTS 2510�NXAC1‚SEC 2515ˆRTS 2520ˆSPC„3 2525�DELAY�PSHB�0.5�MILISECOND�DELAY 2530�DELA1�LDAB�#166 2535�DELA2�DECB 2540‚BNE�DELA2 2545‚DEX 2550‚BNE�DELA1 2555‚PULB 2560‚RTS 2565ˆSPC„3 2570�CLRCNT�EQU„*ˆCLEARS�THE�TUBE�COUNT�BUFFERS 2575ˆLDX„#TCNT1 2580�CLR00‚CLR„X 2585ˆINX 2590ˆCPX„#TCNT8+1 2595ˆBNE„CLR00 2600ˆRTS 2605ˆSPC„3 2610�* 2615�*�SEND�A�STRING�TO�TUBES 2620�*�REG�B�HAS�TUBEN& R�OR�IS�0�TO�INDICATE�ALL�TUBES 2625�STRING�LDX�STRPTR�TAKE�THE�STRING�POINTER 2630‚LDAA�X 2635‚CMPA�#$4 2640‚BEQ�STREX�IF�4�EXIT�WITHOUT�TRANSMIT�IT 2645‚JSR�SEND 2650‚LDX�STRPTR 2655‚INX 2660‚STX�STRPTR�UPDATE�STRING�POINTER 2665‚BRA�STRING 2670�STREX�RTS 2675ˆPAGE 2680�SETST‚EQU„*ˆINITIATES�ALL�POINTERS�AND�COUNTERS�FOR�STATUS 2685�*–REQUEST 2690‚STX�STRPTR�MESSAGE�POINTER 2695‚LDAA�#7�8�TUBES,�COUNT�DECREMENTED�TO�0 2700‚STAA�COUNT 2705‚LDAA�#SHOSTT…TAKE�TEMPAO�THROUGH�ACTIVE�IN�STATUS 2710‚LDAB�#SHOLEN„LENGTH�OF�RECEIVE�BUFFER�FOR�SHORT�STATUS/TUBE 2715‚LDX�#BTUBE1+SPARE1 2720‚TST�FULFLG 2725‚BEQ�SETST1�BRANCH�FOR�SHORT�STATUS 2730‚LDAA�#FULSTT 2735‚LDAB�#FULLEN 2740‚LDX�#FTUBE1+SPAR1A 2745�SETST1�STAA�BYTCNT 2750‚CLR�TEMP1 2755‚STAB�TEMP1+1�SAVE�INCREMENT 2760‚STX�TPTR1�INITIATE�TUBE�POINTER 2765‚LDX�#TPTR1 2770‚LDAB�0,X 2775‚LDAA�1,X 2780�SETST3�ADDA�TEMP1+1 2785‚ADCB�TEMP1 2790‚INX 2795‚INX 2800‚STAB�XŒPUT�BUFFER�ADDRESS�FOR�RETURN�MESSAGE�IN�TUBE 2805‚STAA�1,XŽSTRING�POINTERS 2810‚DEC�COUNT 2815‚BNE�SETST3 2820�SET2�LDX�#TUBE1 2825�SET3�STX�FLGPTR�TEST�IF�FLAG�IS�ZERO 2830ˆTST„TUBE,X„ 2835‚BNE�SET5�BRANCH�IF�TUBE�IS�BAD�OR�BUSY�WITH�SUPERVISOR 2840�SET4�LDAA�BYTCNT�SET�BYTE�COUNT�ONLY�IF�TUBE�IS�ON�LINE 2845ˆSTAAƒTCNT,X 2850�SET5‚INX…INCREMENT�FLAG�BUFFER�POINTER 2855‚CPX�#TUBE8+1 2860ˆBNE„SET3 2865ˆCLRB 2870ˆBSR„TRNSFR 2875‚RTS 2880ˆSPC„3 2885�TRNSFR�EQU„*ˆSENDS�A�MESSAGE�TO�ONE�OR�ALL�TUBE�CONTROLLERS 2890�*�AND�COLLECTS�THE�RETURNING�DATA�FOR�TUBES�WHERE�DATA�IS�EXPECTED 2895�*�(BYTCNT�NOT�EQUAL�TO�0);�B=0�ALL�TUBES,�ELSE�B�=�TUBENR 2900‚JSR�STRING�SEND�THE�MESSAGE�REQUEST 2905‚LDAA�#$D 2910‚JSR�SEND�SEND�THE�CARRIAGE�RETURN 2915‚LDX�#TUBE1 2920‚LDAA�#$FF�SET�BADCOUNTS�TO�MAXIMUM�NR.�OF�COUNTS 2925�TRNS1�STAA„BADC,X 2930‚INX 2935‚CPX�#TUBE8+1 2940‚BNE�TRNS1 2945�TRNS2ƒJSR�RECV�RECEIVE�THE�STRING 2950�* 2955‚JSR�KEYBRD‚SERVICE�KEYBOARD�DURING�COMMUNICATION 2960�* 2965‚CLRA 2970‚LDX�#TUBE1 2975�TRNS3�ORAA„TCNT,X 2980‚INX 2985‚CPX�#TUBE8+1 2990‚BNE�TRNS3�TEST�IF�ALL�COUNT�ARE�0 2995‚TSTA 3000‚BNE�TRNS2�IF�NOT�GET�NEXT�CHARACTER 3005‚RTS 3010ˆPAGE 3015�*�SUBROUTINE�TO�CHECK�IF�COMMUNICATION�IS�OK 3020�* 3025�*�IF�FLAG�IS�80�IT�WILL�NEVER�BE�AFFECTED;�BASIC�IS�BUSY�WITH�THIS�TUBE 3030�*�IF�FLAG�IS�0�AND�COMM�IS�LOST�IT�BECOMES�FF 3035�*�IF�FLAG�IS�FF�AND�COMM�IS�THERE�IT�WILL�BE�PUT�TO�0 3040�*�SET�FLAG�TO�8F�IF�ACIA�IS�NOT�THERE;�CHECK�EVERY�TIME 3045�* 3050�CHECK‚EQU„* 3055ˆCLRB 3060ˆJSR„INITPTƒSET�ACPTR,�FLGPTR 3065�CHCK00�LDAAƒTUBE,X 3070‚CMPA�#$80 3075‚BEQ�CHCK01 3080‚CLR�TUBE,X 3085‚LDX�ACPTR�TEST�IF�ACIA�IS�THERE 3090‚TST�1,X�READ�DATA�BUFFER 3095ˆLDX„0,X†READ�STATUS�AND�DATA�BUFFER 3100‚BNE�CHCK01 3105‚LDX�FLGPTR 3110‚LDAA�#$8F�SET�ACIA�NOT�THERE 3115‚STAA�TUBE,X 3120�CHCK01�JSR�NXACIA 3125…BCC„CHCK00ƒBRANCH�FOR�NEXT�ACIA 3130�*�INITIATE�TUBE�BYTECOUNTS�AT�2;��IS�SEND,�WHICH�IS�AN�INCORRECT 3135�*�COMMAND�FOR�THE�TUBE�CONTROLLER;�THE�TUBE�RESPONDS�WITH�07�(BELL), 3140�*�04�(EOF);�IN�CASE�OF�OVERRUN,�DUE�TO�THE�30�MSEC�DELAY�BETWEEN 3145�*�SUCCESSIVE�ACIA�READINGS,�07�IS�RECEIVED�TWICE 3150ˆCLRB 3155ˆJSR„CLRCNTƒSET�ALL�BYTE�COUNTERS�TO�0 3160ˆJSR„INITPTƒINITIATE�POINTERS 3165ˆRTS 3170ˆLDAAƒ#2 3175�CHECK1�TST„TUBE,X 3180ˆBNE„CHECK2ƒBRANCH�IF�TUBE�NOT�THERE;�SKIP�NEXT�TEST 3185ˆSTAAƒTCNT,XƒINITIATE�BYTE�COUNT�AT�2 3190�CHECK2�INX 3195ˆCPX„#TUBE8+1 3200' ˆBNE„CHECK1 3205ˆLDAAƒ#10 3210ˆSTAAƒCHKCNTƒTUBES�GET�10*30�MSEC�TO�RESPOND 3215ˆCLRBŒSEND�MESSAGE�TO�ALL�TUBES 3220ˆLDAAƒ#$D† 3225ˆJSR„SEND 3230�CHECK3�LDX„#30 3235ˆJSR„DELAY„WAIT�30�MSEC 3240ˆCLRB 3245ˆJSR„INITPT 3250�CHECK4�TST„TCNT,X 3255ˆBEQ„CHECK5ƒBRANCH�IF�NO�(MORE)�CHARACTERS�ARE�TO�BE�RECEIVED 3260ˆLDX„ACPTR 3265ˆLDAAƒ1,X 3270ˆANDAƒ#$F4…07�OR�04�RECEIVED�? 3275ˆCMPAƒ#4 3280ˆBNE„CHECK5ƒNO�CHARACTER�RECEIVED 3285ˆLDX„FLGPTR 3290ˆDEC„TCNT,XƒDECREMENT�TUBE�COUNTER 3295�CHECK5�JSR„NXACIA 3300ˆBCC„CHECK4ƒNEXT�ACIA 3305�*�CHECK�IF�ALL�COUNTS�ARE�0 3310ˆCLRA 3315ˆLDX„#TUBE1 3320�CHECK6�ORAAƒTCNT,X 3325ˆINX 3330ˆCPX„#TUBE8+1 3335ˆBNE„CHECK6ƒBRANCH�FOR�NEXT�TUBE 3340ˆTSTA 3345ˆBEQ„CHECK9ƒEXIT;�ALL�TUBES�ARE�DONE 3350ˆDEC„CHKCNT 3355ˆBNE„CHECK3ƒWAIT�ANOTHER�30�MSEC�AND�CHECK�AGAIN 3360�*�SOME�TUBES�DID�NOT�RESPOND�AFTER�300�MSEC;�SET�TUBE�FLAG 3365ˆLDX„#TUBE1 3370ˆLDAAƒ#$FF 3375�CHECK7�TST„TCNT,X 3380ˆBEQ„CHECK8ƒBRANCH�IF�THIS�TUBE�OK 3385ˆSTAAƒTUBE,XƒSET�TO�FF 3390�CHECK8�INX 3395ˆCPXƒ#TUBE8+1 3400ˆBNE„CHECK7 3405�CHECK9�RTS 3410ˆPAGE 3415�*�DISPLAY�ROUTINES‚FOR�SHORT�STATUS 3420�* 3425�*�DISPLAYING�THE�TUBE�STATUS 3430�* 3435�DISP�LDAA�DCOUNT 3440‚SUBA�#3�ADJUST�FOR�LINE 3445‚STAA�LINE 3450‚LDX�#TUBE1�INIT�FLAG�POINTER 3455‚JSR�AXA 3460‚STX�FLGPTR 3465‚TST�X 3470‚BNE�DISP0�IF�TUBE�OFF�LINE,�NO�RUN�DATA 3475�RDATAI�NOP 3480‚NOP 3485‚NOP 3490�DISP0�LDAA�FULSCR 3495‚CMPA�#$FF�IS�THE�FULL�SCREEN�THERE 3500‚BNE�DISP1 3505‚JMP�DISPEX�IF�FULL�SCREEN�DISPLAY�NOTHING 3510�DISP1�LDAB�LINE 3515ˆINCBŒGET�TUBE�NR 3520‚LDX�#BTUBE1+SPARE1 3525‚LDAA�#SHOLEN 3530‚JSR�ADDRPT 3535‚STX�STRPTR 3540‚LDX�#NAME1 3545‚LDAA�#RCPLEN 3550ˆJSR„ADDRPT 3555�DISP1C�STX�NAMPTR�SET�THE�NAME�POINTER 3560�DISP10�LDX�FLGPTR 3565‚TST�X�IS�THE�TUBE�ALREADY�BUSY�OR�NOT�THERE 3570‚BEQ�DISP2�IF�NOT,�DISPLAY�IT 3575‚LDAA�#$FF 3580�DISPC1�INCA 3585‚STAA�COLUMN 3590‚CLRA�SET�Z�TO�0 3595‚JSR�SETSQR�RESET�ALL�COLUMN 3600‚LDAA�COLUMN 3605‚CMPA�#5�IS�ALL�COLUMNS�CLEARED 3610‚BNE�DISPC1 3615‚GPAR�#26,LINE,#FILLER-2 3620‚JSR�DIGRID�BLANK�STEP 3625‚GPAR�#31,LINE,#FILLER-8 3630‚JSR�DIGRID 3635‚GPAR�#42,LINE,#FILLER-4 3640‚JSR�DIGRID�BLANK�TEMPERATURE 3645‚GPAR�#49,LINE,#FILLER-4 3650‚JSR�DIGRID 3655‚GPAR�#56,LINE,#FILLER-4 3660‚JSR�DIGRID 3665‚GPAR�#63,LINE,#FILLER-1 3670‚JSR�DIGRID�BLANK�RECIPE�NUMBER 3675�DISPC2�GPAR�#66,LINE,#FILLER-12 3680‚JSR�DIGRID 3685‚JMP�DISPEX 3690�DISP2�LDX�STRPTR�POINT�ON�THE�TUBE�BUFFER 3695‚LDAA�ACTIV,X�TAKE�ACTIV 3700‚STAA�PARM�SAVE�IT�IN�PARAMETER�LOCATION 3705‚LDAB�#2�TAKE�ALARM�COLUMN 3710‚STAB�COLUMN 3715‚BITA�#$10�IS�AN�ALARM 3720‚JSR�SETSQR�UPDATE�THE�MARKER 3725‚CLR�COLUMN�SET�IDLE�COLUMN 3730‚BITA�#$80�TEST�IF�IDLE 3735‚JSR�SETSQR�UPDATE�STATUS 3740‚LDAB�#$3�SET�ABORT�COLUMN 3745‚STAB�COLUMN 3750‚BITA�#$8�TEST�IF�ABORT 3755‚JSR�SETSQR 3760‚LDAB�#$1 3765‚STAB�COLUMN 3770‚BITA�#$40�TEST�IF�RUN 3775‚JSR�SETSQR 3780‚LDAB�#$4 3785‚STAB�COLUMN 3790‚BITA�#$4�TEST�IF�HOLD 3795‚JSR�SETSQR 3800‚LDAB�#$5 3805‚STAB�COLUMN�TEST�IF�FINISHED 3810‚BITA�#$20 3815‚JSR�SETSQR 3820�* 3825�DISP3�LDX�STRPTR�DISPLAY�THE�TIME 3830‚TST�CURSTP,X�TEST�IF�STEP�IS�0 3835‚BEQ�DISP30 3840‚LDAA�#$80 3845‚BITA�ACTIV,X�TEST�IF�IDLE 3850‚BEQ�DISP31 3855�DISP30�GPAR�#31,LINE,#MSGIGN 3860‚BRA�DISP32 3865�DISP31�LDAA�TIMEI,X 3870‚STAA�TIME 3875‚LDAA�TIMEI+1,X 3880‚STAA�TIME+1 3885‚LDAA�TIMEI+2,X 3890‚STAA�TIME+2 38( 95‚LDAA�#$FF 3900‚STAA�COFLAG�SET�SEXADEC�CONVERT 3905‚JSR�DISTIM 3910‚GPAR�#31,LINE,#H1 3915�DISP32�JSR�DIGRID�DISPLAY�TIME 3920�DISP4�LDX�STRPTR�DISPLAY�STEP�NUMBER 3925‚CLR�TIME 3930‚CLR�TIME+1 3935‚LDAA�CURSTP,X�TAKE�STEP�POINTER 3940‚STAA�TIME+2 3945‚JSR�DISTIM 3950‚GPAR�#26,LINE,#S1 3955‚JSR�DIGRID 3960�DISP5�LDX�STRPTR�DISPLAY�RECIPE�NUMBER 3965‚LDAA�ACTIV,X 3970‚ANDA�#$3 3975‚ADDA�#'0�SET�ASCII 3980‚STAA�S1+1 3985‚GPAR�#63,LINE,#S1+1 3990‚JSR�DIGRID 3995‚JSR�CALTMPŒDISPLAY�TEMPERATURE�DEVIATION 4000‚LDX�NAMPTRŒDISPLAY�RECIPE�NAME 4005‚LDAA�#4 4010‚STAA�RCPNAM,Xˆ 4015‚LDX�STRPTR 4020‚LDAA�ACTIV,X 4025ˆANDAƒ#$3†CHECK�IF�RECIPE�SELECTED 4030‚BNE�DISP6 4035ˆLDAAƒRCPTR1,X 4040ˆORAAƒRCPTR2,X 4045ˆORAAƒRCPTR3,X�CHECK�IF�RECIPE�LOADED 4050ˆBNE„DISP6„ 4055‚GPAR�#66,LINE,#NOLOAD 4060‚BRA�DISP60 4065�DISP6�GPAR�#67,LINE,NAMPTR 4070‚JSR�DIGRID 4075‚GPAR�#75,LINE,#FILLER-3 4080�DISP60�JSR�DIGRID 4085�DISPEX�LDAA�#$80 4090‚JSR�OUTCH�PURGE�ACIA 4095‚RTS 4100ˆPAGE 4105�*�ROUTINE�TO�SET�SQUARE�IN�LINE�AND�COLUMN 4110�* 4115�SETSQR�PSHA 4120‚PSHB 4125‚BNE�SETSQU 4130‚CLR�FLAG 4135‚BRA�SETSQC 4140�SETSQU�LDAA�#$FF 4145‚STAA�FLAG 4150�SETSQC�LDAA�#$CE�WRITE�ABSOLUTE�CODE 4155‚JSR�OUTCH 4160‚LDAA�#$DD�START�DATA 4165‚JSR�OUTCH 4170‚LDAA�#$2F 4175‚ADDA�LINE�SET�THE�LINE 4180‚JSR�OUTCH�SEND�IT 4185‚CLRB 4190‚LDAA�COLUMN�MAKE�THE�COLUMN 4195‚BEQ�SETSQ1 4200�SETSQ0�ADDB�#3 4205‚DECA 4210‚BNE�SETSQ0 4215�SETSQ1�ADDB�#$26 4220‚TBA 4225‚JSR�OUTCH 4230‚LDAA�LINE 4235‚CMPA�#$7 4240‚BNE�SETQ11 4245‚LDAA�#$E6 4250‚JSR�OUTCH 4255�SETQ11�LDAA�#$E3 4260‚TST�FLAG 4265‚BEQ�SETSQ2 4270‚LDAA�#$E2 4275�SETSQ2�JSR�OUTCH 4280‚CLRB 4285‚LDAA�#$F9 4290‚JSR�OUTCH 4295‚PULB 4300‚PULA 4305‚RTS 4310‚SPC�2 4315�*�ROUTINE�TO�DISPLAY�A�(X)�STRING;�COLUMN�IN�A,�LINE�IN�B 4320�* 4325�DIGRID�PSHA�ACCA�HOLD�COLUMN 4330‚PSHB�ACCB�HOLD�LINE�NUMBER 4335‚LDAA�#$CE 4340‚JSR�OUTCH 4345‚LDAA�#$DD 4350‚JSR�OUTCH 4355‚PULA 4360‚ADDA�#$2F�BEGIN�AT�LINE�16 4365‚JSR�OUTCH 4370‚PULA 4375‚ADDA�#$1F 4380‚JSR�OUTCH�SET�COLUMN 4385‚JSR�PDATA 4390‚LDAA�#$F9 4395‚JSR�OUTCH 4400‚RTS 4405‚PAGE 4410�*�TIME�OR�DECIMAL�CONVERSION 4415�* 4420�DISTIM�LDX�#H1 4425‚LDAA�#8 4430�DISCL1�CLR�X 4435‚INX 4440‚DECA 4445‚BNE�DISCL1 4450‚TST�COFLAG 4455‚BEQ�DIST3 4460‚LDAA�TIME 4465‚BEQ�DIST2�IS�FIRST�BYTE�IS�0�EXIT 4470‚CMPA�#5 4475‚BLS�DIST1�IS�LESS�THAN�FIVE�PROCESS 4480‚GPAR�#$20,#8,#H1 4485�DIST0�STAA�X 4490‚INX 4495‚DECB 4500‚BNE�DIST0�MORE�THAN�99�HOURS�IS�BAD�CLEAR�TIME 4505‚LDAA�#4 4510‚STAA�X 4515‚CLR�COFLAG 4520‚RTS 4525�DIST1�GPAR�TIME+2,TIME+1,0 4530‚SUBA�#$A0 4535‚SBCB�#$8C 4540‚STAA�TIME+2 4545‚STAB�TIME+1 4550‚LDAB�TIME 4555‚SBCB�#0 4560‚STAB�TIME 4565‚INC�H1 4570‚TST�TIME 4575‚BNE�DIST1 4580�DIST2�GPAR�#$A0,#$8C,#H1 4585‚JSR�DISTC 4590�DIST3�GPAR�#$10,#$E,#H1+1 4595‚TST�COFLAG 4600‚BNE�DIST31 4605‚LDAA�#$10 4610‚LDAB�#$27 4615�DIST31�JSR�DISTC 4620�DIST4�GPAR�#$58,#$2,#M1 4625‚TST�COFLAG 4630‚BNE�DIST41 4635‚LDAA�#$E8 4640‚LDAB�#$3 4645�DIST41�JSR�DISTC 4650�DIST5�GPAR�#$3C,#0,#M1+1 4655‚TST�COFLAG 4660‚BNE�DIST51 4665‚LDAA�#100 4670‚CLRB 4675�DIST51�JSR�DISTC 4680�DIST6�GPAR�#$A,#0,#S1 4685‚JSR�DISTC 4690‚LDAA�TIME+2 4695‚STAA�S1+1 4700�DIST7�GPAR�#3,#$30,#H1 4705‚STAA�TIME 4710�DIST8�LDAB�#$30 4715‚ADDB�X 4720‚STAB�X 4725‚INX 4730‚LDAB�#$30 4735‚ADDB�X 4740‚STAB�X 4745‚INX 4750‚DEC�TIME 4755‚BEQ�DIST9 4760‚LDAA�#'. 4765‚STAA�X 477) 0‚INX 4775‚BRA�DIST8 4780�DIST9�TST�COFLAG 4785‚BNE�DIST90 4790‚LDX�M1 4795‚STX�M1+1 4800‚LDX�H1 4805‚STX�H1+2 4810‚LDX�#S1+2 4815�DIST90�LDAA�#4�SET�EOT 4820‚STAA�X 4825‚CLR�COFLAG�SET�DEFAULT�CONVERSION 4830‚RTS 4835�* 4840�DISTC�STAA�TEMP1 4845‚STAB�TEMP1+1 4850‚CMPB�TIME+1 4855‚BHI�DISTCX 4860‚BLT�DISTC0 4865‚CMPA�TIME+2 4870‚BHI�DISTCX 4875�DISTC0�LDAA�TIME+2 4880‚SUBA�TEMP1 4885‚STAA�TIME+2 4890‚LDAB�TIME+1 4895‚SBCB�TEMP1+1 4900‚STAB�TIME+1 4905‚LDAA�TEMP1 4910‚LDAB�TEMP1+1 4915‚INC�X 4920‚BRA�DISTC 4925�DISTCX�RTS 4930‚PAGE 4935�* 4940�*�TEMPERATURE�DEVIATION�COMPUTATION 4945�* 4950�CALTMP�CLR�OFFSET�TAKE�THE�SETPOINT 4955�CALT00�LDX�STRPTR†COMPUTE�POINTER�FOR�TEMPAO�ENTRIES 4960‚LDAB�OFFSET‰OFFSET�IS�0,�1,�2�FOR�THE�ZONES 4965ˆLDAAƒ#2 4970ˆINCBŒINCREMENT�FOR�ADDRPT�ROUTINE 4975‚JSR�ADDRPT 4980‚LDAB�0,X�GET�VALUE�TEMPERATURE�SETPOINTS 4985‚STAB�SETP 4990‚LDAB�1,X 4995‚STAB�SETP+1 5000‚LDX�STRPTRŒCOMPUTE�OFFSET�FOR�TCSTAT,�IMTC'S 5005‚LDAA�OFFSET‹OFFSET�IS�0,�1,�2�FOR�THE�ZONES 5010‚JSR�AXA 5015‚ASLA 5020‚ASLA 5025‚LDAB�#1 5030‚BITB�TCSTAT,X�TEST�IF�BACKUP 5035‚BEQ�CALT02 5040‚ADDA�#2�POINT�ON�BACKUP 5045�CALT02�LDX�STRPTR 5050‚LDAB�#IMTC1‹ADD�INITIAL�OFFSET 5055‚JSR�AXB�ADD�INITIAL�OFFSET 5060‚JSR�AXA�CALCUL�VALUE�ADDRESS 5065‚LDAB�0,X�TAKE�THE�VALUE 5070‚LDAA�1,X 5075‚LDX�SETP�TAKE�THE�SETPOINT 5080‚JSR�SSXBA�CALCULATE�SIGNED�DIFFERENCE 5085‚CLR�SIGN 5090‚ASLB�PUT�SIGN�IN�CARRY 5095‚ROL�SIGN�KEEP�SIGN 5100‚LSRB�REMOVE�SIGN 5105‚STAB�TDIFF 5110‚ADDA�#4�CORRECT�FOR�ROUND�OFF�ERRORS 5115‚ADCB�#0 5120ˆSTAAƒTDIFF+1‚DIFFERENCE�IN�BITCOUNTS�IN�TDIFF 5125�*�TEMPERATURE�DIFFERENCE�COMPUTATION 5130‚JSR�SHFTR�DIVIDE�BY�8 5135‚STAB�TDIFF 5140‚STAA�TDIFF+1�DIFFERENCE�IN�DEGREES�CELCIUS 5145ˆJSR„SHFTR„DIVIDE�BY�8�AGAIN�(\64) 5150ˆSTABƒTEMP1„ 5155ˆSTAAƒTEMP1+1 5160�*�CHECK�SETPOINT�VALUE 5165ˆLDABƒSETP 5170ˆCMPBƒ#$F†TEMP�<�600�CELCIUS 5175ˆBLE„CALT03ƒBRANCH�IF�LESS 5180ˆJSR„SUB64„1/8-1/64�=�1/9 5185ˆLDABƒSETP 5190ˆCMPBƒ#$1E…TEMP�<�1000�CELCIUS 5195ˆBLE„CALT03ƒBRANCH�IF�LESS 5200ˆJSR„SUB64„1/8-2/64�=�1/10 5205�CALT03�LDABƒTDIFF 5210ˆLDAAƒTDIFF+1 5215‚STAA�TIME+2 5220‚STAB�TIME+1 5225‚CLR�TIME 5230‚JSR�DISTIM�MAKE�BINARY�TO�ASCII�CONVERT 5235‚LDAA�M1+1�CHECK�HIGHEST�DIGIT�FOR�0 5240‚CMPA�#$30 5245‚BEQ�CALT04 5250‚LDX�#$2A2A�DISPLAY�***�IF�NUMBER�EXCEEDS�999 5255‚STX�M1+1 5260‚STX�M1+3 5265�CALT04�LDAA�#'+ 5270‚TST�SIGN 5275‚BEQ�CALT05 5280‚LDAA�#'-�NEGATIVE�DIFFERENCE 5285�CALT05�STAA�M1+1 5290‚LDAB�OFFSET�TAKE�OFFSET 5295‚LDAA�#42-7 5300‚INCB 5305�CALT20�ADDA�#7�COMPUTE�COLUMN 5310‚DECB 5315‚BNE�CALT20 5320‚STAA�COLUMN 5325‚LDX�STRPTR�CHECK�IF�BACKUP 5330‚LDAA�OFFSET 5335‚JSR�AXA 5340‚LDAB�#1 5345‚BITB�TCSTAT,X 5350‚BEQ�CALT21 5355‚LDAA�#'? 5360‚FCB�$8C 5365�CALT21�LDAA�#$20 5370‚STAA�M1 5375‚DEC�COLUMN 5380‚GPAR�COLUMN,LINE,#M1 5385‚JSR�DIGRID 5390‚LDAB�OFFSET 5395‚INCB 5400‚STAB�OFFSET 5405‚CMPB�#3 5410‚BEQ�CALTEX 5415‚JMP�CALT00 5420�CALTEX�RTS 5425ˆSPC„1 5430�SHFTR�EQU�*�SUBROUTINE�WHICH�SHIFTS�B:A�3�TIMES�RIGHT 5435‚LSRB 5440‚RORA 5445‚LSRB 5450‚RORA 5455‚LSRB 5460‚RORA 5465‚RTS 5470‚SPC�1 5475�SUB64‚EQU„*ˆSUBTRACTS�TEMP1�FROM�TDIFF;�RESULT�IN�TEMP 5480ˆLDX„TEMP1 5485ˆLDABƒTDIFF 5490ˆLDAAƒTDIFF+1 5495ˆJSR„SSXBA 5500ˆSTABƒTDIFF 5505ˆSTAAƒTDIFF+1 5510ˆRTS 5515‚PAGE 5520�* 5525�ADDRPT�EQU„*ˆIF�B�NOT�0�THEN�X�=�X�+�(B-1)*A� 5530�*�IF�B=0�X=X 5535ˆPSHB 5540ˆTSTB 5545ˆBEQ„ADD* 2…BRANCH�IF�0 5550�ADD1ƒDECB 5555ˆBEQ„ADD2 5560ˆJSR„AXA 5565ˆBRA„ADD1 5570�ADD2ƒPULB 5575ˆRTS 5580�* 5585�*�ROUTINE�FOR�PUTTING�AN�HEX�NUMBER�IN�TWO�ASCII�NUMBER 5590�* 5595�*�ACCA�CONTAINS�THE�NUMBER 5600�*�X�POINT�ON�THE�LOCATION 5605�* 5610�HEXASC�PSHA 5615‚PSHB 5620‚TAB 5625‚LSRA�PUT�FIRST�THE�LEFT�DIGIT 5630‚LSRA 5635‚LSRA 5640‚LSRA 5645‚ADDA�#'0�ADD�THE�ASCII�CODE 5650‚CMPA�#'9 5655‚BLS�HEXA0 5660‚ADDA�#7�ROUND�TO�HEXA 5665�HEXA0�STAA�X�PUT�IN�THE�FIRST�LOCATION 5670‚INX 5675‚ANDB�#$0F�KEEP�ONLY�THE�RIGHT�DIGIT 5680‚ADDB�#'0�MAKE�IT�ASCII 5685‚CMPB�#'9 5690‚BLS�HEXA1 5695‚ADDB�#7 5700�HEXA1�STAB�X 5705‚INX 5710‚PULB 5715‚PULA�RESTORE�REGISTERS 5720‚RTS 5725‚PAGE 5730�* 5735�* 5740�*�MESSAGES 5745�* 5750�MSGIGN�FCC�"ignored�" 5755‚FCB�$4 5760‚FCC�14, 5765�FILLER�FCB�$4 5770�NOLOAD�FCC„"�not�loaded" 5775ˆFCB„$4 5780�MSGBK�FCB�$D8,$E0,$C4 5785‚FCC�8, 5790‚FCB�$E0 5795‚FCC�"AUTOMATIC�RESTART�IN�PROGRESS�AT�TUBE�" 5800‚FCB�$4 5805�SHRMES�FCC�"G�IM�112�33" 5810‚FCB�$4 5815�LNGMES�FCC�"G�IM�112�AF" 5820‚FCB�$4 5825�BCKMES�FCC�"S�IM�112�AF" 5830‚FCB�$D,$4 5835�SBACK�FCC�"BACK" 5840‚FCB�$D,$4 5845�RECMES�FCC�"G�IM�0600�8" 5850‚FCB�$4 5855�* 5860�*�DISK�IOCB 5865�* 5870�IOCB1�FCB�0,$31 5875‚FDB�0,0,0 5880‚FCC�3,DK0 5885‚FCC�8,SCRATCH 5890‚FCC�2,SF 5895‚FDB�0,0,0,0,0,SECBUF,SECBUF+$7F,0 5900�* 5905�*�MESSAGE�FOR�SETTING�RECIPE 5910�* 5915�MSGROM�FCC�"S�IM�0500�80" 5920‚FCB�$D,4 5925�* 5930�* 5935�* 5940�ACIA�EQU�$FCF4 5945�BUFF�EQU�$FFA0 5950�* 5955�KEYBRD�PSHA 5960‚PSHB 5965‚LDAB�ACIA 5970‚RORB 5975‚BCC�OUTK 5980‚LDAA�ACIA+1 5985‚TST�BUFF 5990‚BNE�B1 5995‚STAA�BUFF 6000‚BRA�OUTK 6005�B1�TST�BUFF+1 6010‚BNE�B2 6015‚STAA�BUFF+1 6020‚BRA�OUTK 6025�B2�STAA�BUFF+2 6030�OUTK�PULB 6035‚PULA 6040‚RTS 6045�* 6050‚END åå€h��¶ÿ£�¥'½�$¶ÿ '6¶ÿ¡·ÿ ¶ÿ¢·ÿ¡2ÿ¢9~ðÿ ÿ¡ÿ¢Æ¥÷ÿ£967öüôV$¶üõ}ÿ &·ÿ  }ÿ¡&·ÿ¡ ·ÿ¢·üõ329åå€0005�PRINT�"�GEEF�EEN�GETAL�:�"; 0006�INPUT�N 0008�IF�N=0�THEN�GOTO�40 0010�FOR�I=1�TO�10 0020�PRINT�I;"x";N;"=";I*N 0030�NEXT�I 0035�GOTO�5 0040�STOP ååå+ åååååååååååååååååååååååååå, åååååååååååååååååååååååååå- åååååååååååååååååååååååååå. åååååååååååååååååååååååååå/ åååååååååååååååååååååååååå0 åååååååååååååååååååååååååå1 åååååååååååååååååååååååååå2 åååååååååååååååååååååååååå3 åååååååååååååååååååååååååå4 åååååååååååååååååååååååååå5 åååååååååååååååååååååååååå6 åååååååååååååååååååååååååå7 åååååååååååååååååååååååååå8 åååååååååååååååååååååååååå9 åååååååååååååååååååååååååå: åååååååååååååååååååååååååå; åååååååååååååååååååååååååå< åååååååååååååååååååååååååå= åååååååååååååååååååååååååå> åååååååååååååååååååååååååå? åååååååååååååååååååååååååå@ ååååååååååååååååååååååååååA ååååååååååååååååååååååååååB ååååååååååååååååååååååååååC ååååååååååååååååååååååååååD ååååååååååååååååååååååååååE ååååååååååååååååååååååååååF ååååååååååååååååååååååååååG ååååååååååååååååååååååååååH ååååååååååååååååååååååååååI ååååååååååååååååååååååååååJ ååååååååååååååååååååååååååK ååååååååååååååååååååååååååL åååååååååååååååååååååååååå