–€€@LƒÌ}ˬð5 _­¬¦$ަ%Ž l0¬±$)ªÈ$ð±$Hȱ$ Uh¨ŠL"©À ¨`©€e$…$�æ%`­…$­…%`� Œ ©R @�©P €¦!àÐ( �L¹(�©�Œ©1�©� ©€� � ­� YäÎ ð¦I˜` ­ d  LÇd� M � ¼* €@ ÿ­ …$­ …%­ …C¢©C� ‘$¥$�)¥%�1©� U©d�Êߥ$�9¥%�:¬ ¢ˆ˜�!0 SèàÐñ¥$�ç¥%�詨™�Èú¨¹ð ÉDðÈÈÈÀÐð©D™©Ë™©™` ­ }½J�‚)ðLr 콂Éd� M � ¼* €@ ÿ­ …$­ …%­ …C¢©C� ‘$¥$�)¥%�1©� U©d�Êߥ$�9¥%�:¬ ¢ˆ˜�!0 SèàÐñ¥$�ç¥%�詨™�Èú¨¹ð} ÉDðÈÈÈÀÐð©D™©Ë™©™` ­ }½J�‚)ðLr 콂ÉðÉðJÉ ð É ð ¥¨(°�(°  p LÇ ¥ª(°ù¬¹�ƒ)ð  ‘ J�޽}‹��L= ¥¬(° Á ¬L ­ 0q� A­ �­ � ‘¬¢ © ™ÈÊù¦I©B�ƒ J¬™½‹™©C™©™™¢½;É?ð™Èèà �ð D W ¶}©€�… ‚ÐLLÇ ¥©©�…­ ��©�‡����` W ¬¹�ƒ)�„¹�‹¹�ŒLê�½A…! ­¬ ¹Éß°©…"½‚)ð-¼‡˜Ý†� p°" }ä  °±$�þ‡­‘G©@…�…LÇL� ¥ˆ½…08`©�©�Q¥")ð<Ð2Q­0 â°- ±G‘$Ș݆�õ UL# ; p8¥(ý†…(°Æ)¥(0Ê¥)ÐÆNQ`  }±$‘GȘ݆�õ�‡LU ­½‚)ðL­ ½‡݆� ë â�ðLà ¨±G�Ș�‡¼‹Ð¼ŒР݆�©L¯LÇ ­½‚)ðW>…�Z ‡  ½�H½�H½‚)ð½ƒH }p h�ƒ â�û½��‹½Ž�Œ ެhy™hy™½ƒ™ D ”©�‚LÂ>…�ó ËLñ ½�JJ�  �  ! �LA© �*ˆÐù` ­½BÉþðFÉ }ýð7É'°8é � ¨¹M H¹N H` 8 ¤ Z ß â  \L�dÃÊòÊòýJЩ!¢ð©"ªŽ�¥!¢ ÉðG¥F�¥E� @­F �(À‹Ð®ð©!ÍÐÑL¯ }À�Ðù ©ÿÑEÐÈÑEðì ¥­¢­É!𢩠�‘EˆÐû½^ �è½^ ‘EÈÀÐõ  ©‘E©ÿÈÌÐö 7©‘EÈ©‘E® d‘E Š©/‘EÈ©‘E ”©¨™Èú©� DÎ }ø .L } ‰¢ ½;�FÊ÷ d  ‚¢Ž¬½;É?ÐÎÝFÐ7½FÉ?ð™Èèà Ðá(Ð . ‚Ð ®½¼ Z D­ð ü�®LÂLè d Á ‚}Ð . D ü�í ”L ‘¬  ©€™ p  â�ø ˜‘E`© ,©� d¬¹)ß ™ D ü�êL¬¹) ðÑ ¥§½…0B½M݊нL݉ð½…}ð Ë©�…½M�Œ½L�‹ ê° ½N݆�𠥦�‡LÇ ¥«½‡�N½‰�L½Š�MLÇ ì�[ T Š±E qEHȱE ‹qEªh¨Š¢Ž 0 Š‘GÈ¹Ô ‘GÈÀÐö} HLǬLà ±G�îÉ›ÐéÀ°©€�L ü°¥ ä LÇFREE SECTORS® © ‘G½) ð©*‘GÈ© ‘GȽ‘GèÈÀ �õ© ‘GÈŒ®¥*j�½j� ˆ©>‘G} ©<‘G¼½¢d R¢ R¢ R¢ ˜ð¢+ ©›‘G Œ`Ž¢ÿ…D„Cè8¥Cí¨¥Dé�à ÐêŠ 0¬‘Gî¥D¤C` ±$ˆ0dÉ:Ð÷ÈÈ©¢�±$É.Ð àÐÈ© Ðî�},É*Ð ©?ì°%�$É?ðÉ0�É:�)ßÉA�É[� © �à ð© ÐÈìð¹�;èг­;É ð¦I` ¥¥©ÿ� ��©p�î­iî©Í�ðN A©�¨¹}ð#0!)CÉð)ÐÏ¢½;É?ðÙÐÁèÈà Ðî�­ ­� ­� ­� ¹0œ8¦I` } ì°`L¤½…0  �… Ë0"Lâ J½‡ ‘G½Œ� }‘GȽ‹}‘G Ë ©�‚­L¯þ�Ðþ� Õ©�‹�Œ�‡©}�†`8½Š¼‰L½‹�‰½Œ�Š`½…ðLp½‹ŒÐ8` Õ Ì04 }±G)üÝ�Ð,±G)�ŒȱG�‹ȱG}H½„Ðh0©})Hh�†©�‡` ½½BÉ!𠥤8`�8­ii¨(¢©ÐZ ±EÐ6¤!©ŠÀðŒ©S� Sä©d¬ê©Š¤!™� Ì ê ‘E ¨ û` T©} ‘E ê8 ¨ û8LÌ¥F¦E hŒ  Œ �Ž r9ÀƒðL½ ¥£­)©� ©� ¥Eiª¥Fi(L¶ d±E™î©‘EÈÀ�Ðò`¬  d¹î‘EÈÀ�Ðö`½‰H)}¨hŠð/¹×H½‰ ^ŠjˆÐùi ¨hE‘EÀd � Š±Ei‘EȱEi‘E`  Ḛ̀W±Eðö¢ÿè �ü½×QE‘EŠH¦I˜8é �‹©À‹*°ú�Œh‹�‹Àd �  Š½ƒ)¿ }�ƒ8±Eé‘EȱEé‘E ˜‘E½Œ` ¥¢†IºèèŽ ¦!Žʽ)…E½1…F½ð5�¦I¼ˆÐ¹! ÈÀ�ö ¥¡©€™!Ș�ˆˆ˜JH©jm9…Ghm:…H` ¥ ¼ˆ𠈩�}ˆ™!`¦GަHŽLl¼‰½Š Z dLÇ©�©� ŒÈ©8 l­I€�0î¬ ÌÐä`Œ�©ÐÌ _©}�† ; ¥$Í ¥%í ° pLl`¢¬¹}ÝšÐÈèà Ðò¦I(`DOS SYSh…Ch…D ±C® š¦I�C¨­`­0í¦I ©Ðä „B®ß0¦äðüŒÔLY…D­Ó)ƒD�Ó`}Need DOS2.5,type Y ÒÅÔÕÒ}Λd÷› €€ddŠ€ÿþýüûì\Ì|DOS SYSRAMDISK COM}B€}B€}-}CDOS SYS}­ …C­ C*É �( ‹Ð> Ë¥C8jJ…3©j…2­…C­…D (� ±C‘2ˆù0±2‘Cˆù© e ÀŒÔ „BXÈ` N ©1�?©ñ¢ l© ¢LlD:RAMDISK}.COM›©LÍu ÐL¥1©��©í¢ ÍL ¥;ÐL�ê˜HL³ê³êºŽ  T `ºŽ  ” `8©�ž©Ÿ… ©… ­œêÉ�Ð ©� ©�  àêêê¥Ð Ø`�TŽU “©À } ¦L’­�ð­žð ? . “ tä©��`…ðöÿàá©€�Ÿ©G�à©�ᢩ�B©�J Œ©Ð~¢©ô�D©�E©�H©�I� ©�B Vä0d©ÿÍôÐVÍõ!}ÐQ¢© �D©�E©�H©�I VäFÀˆÐ9 ’,ž0 ©,Ÿ�Ÿ0 s0hhL¸­�Ð ©¢ ¦L©ª` ’©Ð÷˜H ’h¨Ð �DH­¡�E¨hÈШÈЭ"}¢� ­£�¡©¢�D©�E©L­¢8í �H­£í¡�I­¡É4ê°­£Éê° ­ 0©€ Ÿ�ŸþHÐþI,Ÿ0­ 0Î  9©�� .¢©G�â©�ã VäLO#},ž0 L÷É�É4*IJ`lâlàD1:AUTORUN.SYS›NEED MEM.SAV TO LOAD THIS FILE.›D8:MEM.SAV› ’©�J y08© �B©|�D©�E©Š�H©�I$} Vä0 ’0 `©�B©;�D©�ELŒ`­?�<�0LVä �`@ÿ¢ŽžŽŸʆ v s©…ð? F0Ξ05©:¢ ¦©I¢ ¦©�B©�D©�E©�H©�I%} Vä­ÉYÐ8©…¢ © �B Vä¥ �œ¥ ��©@… ©… ©/¢�D©�E ŒžˆŒ� ¤`E:›D8:DUP.SYS›SPEICHERFEHLER›DOS LADEN? J/N›SxH)…Dh) D&} Là RUN DOS› œ©�B©;�D©�E© �J Œ œ(`©ð 9¢ Vä©ðî ­â�Ç­ã�È©âª�é ï©ðî¾­à�Ç­á�È©àª�é ï ’­ž-'}”ðî”LLu �ÄèŽÅ�Æ¢©Ã�D©�E©�H©�ILVä 9©�� .lú¿ 9©�� .l­œ… ­�… `­žÐ` s©…ð$©�B Œ©�B©Š�H©�(}I©|�D©�E Vä© �BLVä n䢩�B©,�D©�E© �JLVä© ¢�B Vä¢ © �BLVä�DŽE¢ŽIÊ© �Bêê­�ðåLÿÿÿàáu • òl}ÿÿ 3E:›}DISK OPERATING SYSTEM II VERSION  ²®µ COPYRIGHT 1984 ATARI CORP.››A. DISK DIRECTORY I. FORMAT DISK›B. RUN CARTRIDG*}E J. DUPLICATE DISK›C. COPY FILE K. BINARY SAVE›D. DELETE FILE(S) L. BINARY LOAD›E. RENAME FILE M. RUN AT $2080 +} ›F. LOCK FILE N. CREATE MEM.SAV›G. UNLOCK FILE O. DUPLICATE FILE›H. WRITE DOS FILES P. FORMAT SINGLE›L˜ �!N'Æ,}#"�&¾)æ)9(Ð&©*)/h)¬'ú'-Ê&¢ÿ؆莟©…R©'…S¥ €…�Ò v­¾ÉLð/©��©Ë¢ ÍL¼ }Insert DOS 2.0s, type Y ÒÅÔÕÒΛ©�ô©x…© …©-}�D©�E©f�H©�I ž1¢ÿšèŽ�#©q¢! ¦©@�¾ y0É›ðÏ8éA0,Íô' ¨±È…±… ±ªˆ± °1 ¶1¥i…�æl©d¢! °1L!NO SUCH ITEM›SELECT.} ITEM OR ÒÅÔÕÒÎ FOR MENU›õ! Ê0 ¿.®½zÉ:Щ*�{�}©.�|èè莩›�{Ž¢ Ø1 ã0 ¿0©¢�J©�BŽþ é1­8íÉðL¨%®½|ÉDÐóL¶/}%DIRECTORY--SEARCH SPEC,LIST FILE?›[# Ê0 ¿0 ¸&­|ÉDð©3¢" °1L!NOT A DISK FILE›¢­žÉNÐ ©!�B é1L!©E¢# °1©�¢ ©!�B©ñ�D©0}�E©D�ñ©:�ó­}É:Щ1�ò¢©�B©�J©|�D©�E é1©ô�D©�E©�B©�¢©�H©�I é1­õÉ Ðhî­Í0ߢ ¹ôÉ ð �ôèÈà0ð©.1}�ôè  ¹ô�ôÈèÀ 0ôŽ©?�ôè©›�ô©ñ¢ °1 y0ÉYЛ­�®©›�ô¢ é1 ;#LŠ" ;#L!¢© �BLé1TYPE "Y" TO DELETE...›DELETE FILE SPEC2}›COPY--FROM, TO?›OPTION NOT ALLOWED› 572 FREE SECTORS›› COPYING---D1:TEXTJ.TXT›››l# Ê0­�­|ÉDТ Ò.ðL/%©€��#©3}��#©�‘#¢©�J©�B©|�D©�E é1©�B©�H©�I©’�D©#�E é1­’#É0�É:° © �B é1L!­�#Í‘#ðî‘#ÐÁî�#© �B é1 ¹œ#Ùc$Јõ0‰SY4}S 1­}É:𨌳#¢ ½’#É ð™²#Èèà Ðð½’#É ð©.™²#Ƚ’#É ð™²#Èèà Ðð©›™²#©¦¢# °1,�#P¢©²�D©#�ELJ- <.¢©�B©�J©²�D©#�EŽþ é5}1¢ Ø1­H­H ã0h�h�®½|ÉDðL¨% 1½}É:ð¨Ì³#Ð ’L¾%¢ Œ³#©²�D©#�ELÞ%¢ Ø1 ã0® è.® Ò.Ð0©O¢% °1L!WILD CARDS NOT A6}LLOWED IN DESTINATION› ¿0 <.­|ÉKð<ÉCð8ÉEТŽþL¨%ÉSð(¢©�B©�JŽþ é1®½|ÉKð ÉEЩ�ÿLõ%©|¢# °1 ’L!ÉCðﮞàAÐÉDÐä© 7}Щ¢ �J©�BŽÿ é1©�K©®þ¬ÿ�B© ™B¥�D™D¥�E™E®þ­�H­�I VäŒø®ÿ¬þ¹H�H¹I�IHð é1­øÌɈðLñ1®þð© �B8} Vä®ÿð© �B Vä®ÿЩI¢' ¦,�#Lì#L!œ& Ê0 Õ0 ¿0 ¸&© ¢�B é1L!RENAME - GIVE OLD NAME, NEW› ­}É:ð)¨ŒöLS)'©ýÐ'©þ�9}' 70 ¹2i0�H'�K' ¿0©0¢' °1 y0ÉYЭ' ! 'L!ý¢�B©J�D©'�E˜�JLé1WHICH DRIVE TO FORMAT?›TYPE "Y" TO FORMAT DISK 2›D2:›«'¬ý¿:}©ª�ý¿Íý¿Ð©U�ý¿Íý¿Ð Œý¿©Ÿ¢' °1L!­ü¿Ðñª­ý¿ðëÍý¿ÐæèÐó v©¢ä _ \ä©¢ä b \äLNO CARTRIDGE›È' 70 2 ¿0…†­ÉðP vL RUN FROM;} WHAT ADDRESS?›TYPE "Y" TO CREATE MEM.SAV›ß' y0ÉYÐ s0 ©¢( °1 ’L! FõLð1MEM.SAV FILE ALREADY EXISTS›Õ( 70 ¹2 ¿0�ö 0�+)�<}') S)©¢) °1 y0ÉYÐr©ò¢( °1©¢�B©*�D©)�E©�J é1¢© �B é1¢ ½.�{ÊÐ÷­+)�}Ž¢ Ø1© �é�Ä©�Å©ù�ó/©�ø/©3�ÆH©u�à© �=}áξL›/L!DRIVE TO WRITE DOS FILES TO?›WRITING NEW DOS FILES›TYPE "Y" TO WRITE DOS TO DRIVE 2.›D2:DOS.SYS›ERROR - NOT VERSIO>}N 2 FORMAT.› t*­ôÉð ©5¢) °1L!`©) Ê0©®ž�žàNÐΞ ¿0 ©àðàð˜Lñ1©›¢) °1 ’L!BAD LOAD FILE›LOAD FROM WHAT FILE?›Ó) Ê0 ?}¿0©#¢�B é1L!WHAT FILE TO LOCK?›û) Ê0 ¿0©$¢�B é1L!WHAT FILE TO UNLOCK?›DUP DISK-SOURCE,DEST DRIVES?›TYPE "Y" IF OK TO US@}E PROGRAM AREA›CAUTION: A "Y" INVALIDATES MEM.SAV.›©…F©ô…E­ö…!©�ù +Lð1© �­þ�þ©�©� ©� `*©�  70 ¹2�ö ¹2�ÿA} ¿0­öÍÿð.¢*©Ù °1 y0Î 0)INSERT BOTH DISKS, TYPE RETURN›©^¢, °1 y0©�©3�­å8é€�­æé�­Í­í° ©N¢, °1L! Ý,©�B}ž�C, t*­ �ù­ �ú­�û­�ü­þ�ýLx+©�ž, 0 ©^¢, °1 y0 , ¡,0,ž0 Ç,LŽ+ Í,­I€�0î ¾,­ÍðV­Í­í°Ç­ž0C}«Îž, 0 ©}¢, °1 y0­C,ШîC,­ÿ 0�K' !­ "­ H­ H©ý 'h� h� Lx+­ž¸­ÿ…!©ô…E©…F 5Lð1L! ¹D,…¹I,…¢¡H¹ù�h™ùˆD}å­�­�` þNOT ENOUGH ROOM›INSERT SOURCE DISK,TYPE RETURN›INSERT DESTINATION DISK,TYPE RETURN›þÎÐôE}�þ©�­þ`î Ðî `­ö�­ÿ8� rLð1`¥ð©-¢* °1©P¢* °1 y0ÉYЩ…�ž`hhL!NAME OF FILE TO MOVE?›- Ê0 ¿0­|ÉDðL¾% <.¢F},©^ °1 70 ¿0 Ò.Щ@Lä#¢ è.¢©�B©�J é1©� � ¢¥�D¥�E­�H­�I©�B Vä ÀˆðLð1Î ¢,©} °1 70,õL.¢   ­ Рî G}˜�J©�B©| ,�#P©² #�D˜�E é1 ¢ ©ÙHÐÙIð© �B¥�D¥�E¹H�H¹I�I é1© �B é1­ Т,©^ °1 70,õ0La-¢© �B Vä,�#PH}¢,©^ °1 70 ¿0Lì#L!¥ð©-¢* °1©P¢* °1 y0ÉYÐj©…�ž©…©3…­å8é�­æé3�©��©}m�©m�­Í� Ðå­Í°Ý­Ð©I}}Í�`­8é}�­é�`©ô…©…©ú�©�`½|èÉ*ð É?ð É›ðÉ,Ðìè`è½|É:ðèè ¹-)Ý|ÐÈèÀÐò© ¢/ °1L!`DESTINATION CANT BE DOJ}S.SYS›0©� �¾ Ê0­žH®©›�{ 2�ÃŽÄà4°Δ 2�ÅŽÆ8íÃ�ó/ŠíİL!�ø/À›ð) 2�âŽã ãðΠÀ›ð 2 ¿0�àŽá áðξ©�žK}hÉAÐΞ¢©�B,ž0©Ð© �J é1© �B©Á�D©�E©�H©�I,ž©�H©Ã�D©�E é1¢©ù�H©�IþHÐþI­Ã�D­Ä�EL“SAVE-GIVE L}FILE,START,END(,INIT,RUN)›©›¢O�¤Êú©���õ S0 ¶1`©�B©¤�D©�E©P�H©�I¢ VäÀ€ÐÎõ`©�õ S0­H�÷ ¶1­õ ’L!­÷ÉM}0 ©ª¢0 °1L~0­¤`PLEASE TYPE 1 LETTER›,õ0`hhL! 70¢ Ø1Lã0©�¬®L<1¬®© �½¤É,ð;É›ð7½¥É,ð"É›ð©:ݦð1Ý¥Ðν¤ÉN}A"©D™|ÈÎÎݤðíΩD™|È©:™|È©�ž½¤™|èÈÉ›ð,É,ð(É/ð+É.Щ�ÎÞ©�¢1 °1Îõ½¤èÉ,ðÉ›ÐôŽŒ`½¤�ž轤™{èéNAMEO} TOO LONG›© �B¢ VäÀ€ÐL!` ¦L¶1©ª�I© �H©1�E©Î�DLž1œ©|m�D©i�E` Vä˜0`˜8éd¢/è8é úi:�2Ž2¢2© °1 ’LP}!ERROR- 128›©�©��®½¤îÉ›ð+É,ð'  20* ..ˆö �ÎÓ©r¢2 °1Îõ`¨­®`©‚¢2ÐëTOO MANY DIGITS›INVALID HEXAQ}DECIMAL PARAMETER›8é00É 0 8éÉ 0É0©ÿÉ`,õ0'®½¤èÉDðø8é0ð0É H½¤èÉ,ðÉ›ÐôŽh`Îõ©ð¢2L°1NEED D1 THRU D8› àáuR} ECIMAL PARAMETER›8é00É 0 8éÉ 0É0©ÿÉ`,õ0'®½¤èÉDðø8é0ð0É H½¤èÉ,ðÉ›ÐôŽh`Îõ©ð¢2L°1NEED D1 THRU D8› àáuT}U@U@U}PV}*ªªª ªªª  @ W}   X}   Y} Z}[}t}›MODULE››TYPE REAL=[CARD r1,r2,r3] ›BYTE Cix=$F2›INT Fr0Int=$D4›CARD InBuff=$F3›REAL Fr0=$D4, Fr1=$E0›BYTE ARRAY LBuff=$580› ]}›;************************************›;Built-in FP routines›;************************************››PROC ROM_AFP=$D800()›PROC ^} ROM_FASC=$D8E6()›PROC ROM_IFP=$D9AA()›PROC ROM_FPI=$D9D2()›PROC ROM_FSUB=$DA60()›PROC ROM_FADD=$DA66()›PROC ROM_FMULT=$DADB( _})›PROC ROM_FDIV=$DB28()›PROC ROM_EXP=$DDC0()›PROC ROM_EXP10=$DDCC()›PROC ROM_LOG=$DECD()›PROC ROM_LOG10=$DED1()›PROC ROM_INIT `}=$DA51()››;************************************›;A dummy procedure used to access the›;FP routines›;************************* a}***********››PROC Junk()›RETURN››;************************************›; Move REAL to another REAL›;************************* b}***********››PROC RealAssign(REAL POINTER a,b)› b.r1=a.r1› b.r2=a.r2› b.r3=a.r3›RETURN››;********************************* c}***›; Convert INTeger to REAL›;************************************››PROC IntToReal(INT i REAL POINTER r)› Fr0Int=i› Junk= d}ROM_IFP› Junk()› RealAssign(Fr0,r)›RETURN››;************************************›; Convert REAL to INTeger›;*************** e}*********************››INT FUNC RealToInt(REAL POINTER r)› RealAssign(r,Fr0)› ROM_FPI()›RETURN(Fr0Int)››;****************** f}******************›; Subtract REALs›;************************************››PROC RealSub(REAL POINTER a,b,c)› RealAssign(a,Fr g}0)› RealAssign(b,Fr1)› ROM_FSUB()› RealAssign(Fr0,c)›RETURN››;************************************›; Add REALs›;********** h}**************************››PROC RealAdd(REAL POINTER a,b,c)› RealAssign(a,Fr0)› RealAssign(b,Fr1)› ROM_FADD()› RealAssig i}n(Fr0,c)›RETURN››;************************************›; Multiply REALs›;************************************››PROC RealMult( j}REAL POINTER a,b,c)› RealAssign(a,Fr0)› RealAssign(b,Fr1)› ROM_FMULT()› RealAssign(Fr0,c)›RETURN››;********************** k}**************›; Divide REALs›;************************************››PROC RealDiv(REAL POINTER a,b,c)› RealAssign(a,Fr0)› R l}ealAssign(b,Fr1)› ROM_FDIV()› RealAssign(Fr0,c)›RETURN››;************************************›; Convert REAL to ASCII strin m}g›;************************************››PROC StrR(REAL POINTER r BYTE ARRAY s)› BYTE i,c›› BYTE POINTER ptr›› RealAssign n}(r,Fr0)› ROM_FASC()› ptr=InBuff› WHILE ptr^='0› DO› ptr==+1› OD› i=0› DO› c=ptr(i)› i==+1› s(i)=c&$7F› o} UNTIL c&$80› OD› s(0)=i›RETURN››;************************************›; Convert string to REAL›;************************* p}***********››PROC ValR(BYTE ARRAY s REAL POINTER r)› BYTE i›› FOR i=1 TO s(0)› DO› LBuff(i-1)=s(i)› OD› LBuff(i- q}1)=0 ; AN INVALID VALUE› InBuff=LBuff› Cix=0› ROM_AFP()› RealAssign(Fr0,r)›RETURN››;*********************************** r}*›; Base E exponentiation›;************************************››PROC Exp(REAL POINTER a,b)› RealAssign(a,Fr0)› ROM_EXP()› s} RealAssign(Fr0,b)›RETURN››;************************************›; Base 10 exponentiation›;********************************** Š} @  u}  @*ªªªªªª v}U@w}U@x}y}UUUUTz}{}|}UU@UU@ÿÿðÿÿÀ@}}U@TP@~}@@}€}�}‚}@Àƒ}ÀPÀÀ„}ÀÀUU@UU@ÀU…}UÀÀÀ†}ÀÀÀ‡}ÿÿÿÿÿÿÿÿÀˆ}‰}Z**››PROC Exp10(REAL POINTER a,b)› RealAssign(a,Fr0)› ROM_EXP10()› RealAssign(Fr0,b)›RETURN››;***************************** ‹}*******›; Natural logarithm›;************************************››PROC Ln(REAL POINTER a,b )› RealAssign(a,Fr0)› ROM_LOG() Ù}MODULE››››DEFINE EOL="$9B"››DEFINE OpenBuf = "$0500"››DEFINE OpenBufL = "$00"››DEFINE OpenBufH = "$05"››››BYTE ARRAY copy_rig�}ht(0) =››"(c) by A.C.S/OSS"››››; Primitive IO routines››PROC Clos=*(BYTE d)[$FFA2$A686$CA0$AD0]››››PROC Outputq=*(BYTE d,BYTŽ}E ARRAY s)››[$A684$BA0$4D0]››››PROC In=*(BYTE d,BYTE ARRAY s)››[$A684$5A0$A586$A2$0$A386]››››PROC XIOstr=*(BYTE d,x,c,a1,a2,B�}YTE ARRAY s)››[$A0A$A0A$98AA$9D$342$A3A5$AF0$9D$34A$A4A5$9D$34B$A9$0$9DA8$349››$A5B1$9D$348$12F0$18$A5A5$169$9D$344$A6A5$69$0�}$9D$345$4C$E456$60]››››PROC Opn=*(BYTE d,BYTE ARRAY s,BYTE m,o)››[$A586$A684$3A0$4CXIOstr]››››PROC Prt=*(BYTE d,BYTE ARRAY s)‘}››[$A586$A684$A2$0$A386$9A0$20XIOstr$AD0$BA9$9D$342$9BA9$4C$E456$60]››››PROC Error(BYTE err)[$6C$A$0$1113$8301]››››PROC Break’}=*()››[$BA$8E$4C1$80A0$98$4C Error]››››; math library routines››PROC LShift=*()››[$84A4$AF0$8586$A$8526$88$FAD0$85A6$60]››››P“}ROC RShift=*()››[$84A4$AF0$8586$8546$6A$88$FAD0$85A6$60]››››PROC SetSign=*()[$D3A4$1010]››PROC SS1=*()››[$8685$8786$38$A9$0$8”}6E5$A8$A9$0$87E5$AA$98$60]››››PROC SMOps=*()››[$D386$E0$0$310$20SS1$8285$8386$85A5$E10$AA$D345$D385››$84A5$20SS1$8485$8586$A9•}$0$8785$60]››››PROC MultB=*()››[$1BF0$CA$C786$AA$15F0$C686$A9$0$8A2$A$C606$290$C765$CA$F6D0››$18$8765$8785$86A5$87A6$60]››››P–}ROC MultI=*()››[$20SMOps$82A6$1BF0$C686$84A6$15F0$CA$C786››$8A2$A$8726$C606$690$C765$290$87E6$CA$F0D0››$8685$82A5$85A6$20Mult—}B$83A5$84A6$20MultB$4CSetSign]››››PROC DivI=*()››[$20SMOps$85A5$27F0››$8A2$8226$8326$8726$38$83A5$84E5$A8$87A5$85E5$490››$878˜}5$8384$CA$E7D0$82A5$2A$A2$0$83A4$8684$4CSetSign››$10A2$8226$8326$2A$4B0$84C5$390$84E5$38$CA$EFD0››$8226$8326$8685$82A5$83A6$4™}CSetSign]››››PROC RemI=*()[$20 DivI$86A5$87A6$60]››››PROC SArgs=*()››[$A085$A186$A284$18$68$8485$369$A8$68$8585$69$0$48$98$48š}$1A0››$84B1$8285$C8$84B1$8385$C8$84B1››$A8$B9$A0$0$8291$88$F810$11A5$FD0$11E6$4C Break$6308$1109$1819$2113$3323$60]››››SET $4›}E4=LShift››SET $4E6=RShift››SET $4E8=MultI››SET $4EA=DivI››SET $4EC=RemI››SET $4EE=SArgs››››PROC ChkErr=*(BYTE r,b,eC)[$1610$œ}88C0$8F0››$98$80C0$11F0››$4C Error$8A$4A4A$4A4A$98AA$9D EOF$60]››››PROC Break1=*(BYTE err)››[$1A2$1186$48$20 Break$68$A8$60]›�}›››PROC Open=*(BYTE d,BYTE ARRAY f,BYTE m,a2)››[$48$A186$A284$A8$A9$0$99 EOF$A8$A1B1$8D OpenBuf $A8$C8$9BA9$2D0$A1B1$99 OpenBž}uf $88$F8D0››$68$A2 OpenBufL $A0 OpenBufH $20Opn$4C ChkErr]››››PROC PrintE=*(BYTE ARRAY s)[$A186$AA$A1A4$A5device]››PROC PrinŸ}tDE=*(BYTE d,BYTE ARRAY s)››[$20 Prt$4C ChkErr]››››PROC Close=*(BYTE d)[$20 Clos$4C ChkErr]››››PROC Print=*(BYTE ARRAY s)[$A1 }86$AA$A1A4$A5device]››PROC PrintD=*(BYTE d,BYTE ARRAY s)››[$20Outputq$4C ChkErr]››››PROC InS=*()››[$20In$A084$BD$348$3F0$38$1¡}E9$A0$0$A591$A0A4$60]››››PROC InputS=*(BYTE ARRAY s)[$A286$AA$A2A4$A5device]››PROC InputSD=*(BYTE d,BYTE ARRAY s)[$48$FFA9$A3¢}85$68]››PROC InputMD=*(BYTE d,BYTE ARRAY s,BYTE m)››[$48$A186$A284$A0$0$A3A5$A191$68$A2A4]››PROC InputD=*(BYTE d,BYTE ARRAY s£})[$20InS$4C ChkErr]››››BYTE FUNC GetD=*(BYTE d)[$7A2]››PROC CCIO=*()››[$A486$A0A$A0A$AA$A4A5$9D$342$A9$0$9D$348$9D$349››$98$2¤}0$E456$A085$4C ChkErr]››››PROC PutE=*()[$A9$9B]››PROC Put=*(BYTE c)[$AA$A5device]››PROC PutD=*(BYTE d,BYTE c)[$A186$A1A4]››PR¥}OC PutD1=*()[$BA2$4C CCIO]››››PROC PutDE=*(BYTE dev)[$A0$9B$F7D0]››››PROC XIO=*(BYTE d,f,c,a1,a2,BYTE ARRAY s)››[$20XIOstr$4C¦} ChkErr]››››PROC CToStr=*()››[$D485$D586$20$D9AA$20$D8E6$FFA0$A2$0$C8$E8››$F3B1$9D$550$F710$8049$9D$550$8E$550$60]››››PROC Pr§}intB=*(BYTE n)[$A2$0]››PROC PrintC=*(CARD n)[$20 CToStr$A5device]››PROC PNum=*()[$50A2$5A0$20 Outputq$4C ChkErr]››››PROC Prin¨}tBE=*(BYTE n)[$A2$0]››PROC PrintCE=*(CARD n)[$20PrintC$4CPutE]››››PROC PrintBD=*(BYTE d, n)[$A0$0]››PROC PrintCD=*(BYTE d, CA©}RD n)››[$A085$8A$A284$A2A6$20 CToStr$A0A5$4CPNum]››››PROC PrintBDE=*(BYTE n)[$A0$0]››PROC PrintCDE=*(BYTE d,CARD n)››[$20Prinª}tCD$A0A5$4CPutDE]››››PROC PrintI=*(INT n)[$A286$AA$A2A4$A5device]››PROC PrintID=*(BYTE d,INT n)[$C0$0$1610$48$A186$A284$2DA0›«}›$20PutD1$38$A9$0$A1E5$AA$A9$0$A2E5$A8$68$4CPrintCD]››››PROC PrintIE=*(INT n)[$20PrintI$4CPutE]››››PROC PrintIDE=*(BYTE d,INT¬} n)››[$20PrintID$A0A5$4CPutDE]››››PROC StrB=*(BYTE n, BYTE ARRAY s)[$A286$A384$A2$0$A2A4]››PROC StrC=*(CARD n, BYTE ARRAY s)[­}$A284$20 CToStr$C8$B9$550$A291$88$F810$60]››PROC StrI=*(INT n, BYTE ARRAY s)[$E0$0$ED10$A085$A186$A284››$38$A9$0$A0E5$A8$A9$0®}$A1E5$AA$98$20 CToStr$E8$8A››$A8$B9$54F$A291$88$F8D0$8A$A291$C8$2DA9$A291$60]››››BYTE FUNC InputB=*()››CARD FUNC InputC=*()››¯}INT FUNC InputI=*()››[$A5 device]››BYTE FUNC InputBD=*(BYTE d)››CARD FUNC InputCD=*(BYTE d)››INT FUNC InputID=*(BYTE d)››[$13°}A2$8E$550$50A2$5A0$20InputD$50A9$5A2]››BYTE FUNC ValB=*(BYTE ARRAY s)››CARD FUNC ValC=*(BYTE ARRAY s)››INT FUNC ValI=*(BYTE A±}RRAY s)››[$A485$A586$A0$0$A084$A184$A284$A4B1$A385$A3E6››$20A9$C8$A4D1$5D0$C8$A3C4$F730$A4B1$2DC9$3D0$A285$C8$A3C4$3610››$A4B²}1$30C9$3030$3AC9$2C10$38$30E9$AA››$A1A5$48$A0A5$A$A126$A$A126$18$A065$A085$68$A165$A185$A006$A126››$18$8A$A065$A085$290$A1E6$³}C8$A3C4$CA30››$A2A5$DF0$38$A9$0$A0E5$A085$A9$0$A1E5$A185$60]››››PROC PrintH=*(CARD n)››[$A485$A586$4A9$A685$24A9$20Put››$A9$0´}$4A2$A406$A526$2A$CA$F8D0››$3069$3AC9$230$669$20Put$A6C6$E5D0$60]››››PROC PrintF=*(BYTE ARRAY f, CARD a1,a2,a3,a4,a5)››[$C085µ}$C186$8C$5F0$A0$0$C0B1$C285$C2E6$DA2$A2B5$9D$5F0$CA$F8D0$8B86$8A86]››PROC PF2=*()››[$8AE6$8AA4$C2C4$DAB0$C0B1$25C9$FD0$8AE6$C¶}8$C0B1$25C9$6F0$45C9$8D0$9BA9$20Put$4CPF2››$8BA4$8BE6$8BE6$A085$B9$5F0$BE$5F1$A0A4$43C0$E6F0$53C0$6D0$20Print$4CPF2››$49C0$6D·}0$20PrintI$4CPF2››$48C0$6D0$20PrintH$4CPF2››$20PrintC$4CPF2]››››PROC Note=*(BYTE d,CARD POINTER s,BYTE POINTER o)››[$A186$A28¸}4$A0A$A0A$AA$26A9$9D$342$20$E456$20 ChkErr$A0$0››$BD$34E$A391$BD$34C$A191$BD$34D$C8$A191$60]››››PROC Point=*(BYTE d,CARD s,BY¹}TE o)››[$A186$A0A$A0A$98AA$9D$34D$A1A5$9D$34C$A3A5››$9D$34E$25A9$9D$342$20$E456$4C ChkErr]››››MODULE ; GRAPHIC ROUTINES››››BYº}TE ARRAY dev_S="S:", dev_E="E:"››››PROC Graphics=*(BYTE m)››[$48$A9$0$20 Close$CA9$A385$A9$0$AEdev_E$ACdev_E+1$20Open››$6A9$2»}0 Close$68$A485$3029$1C49$A385$6A9$AEdev_S$ACdev_S+1$4COpen]››››PROC Position=*(CARD c,BYTE r)[$5B85$5C86$5A84]››PROC Pos1=*(¼})[$5585$5686$5484$60]››››PROC GrIO=*()››[$20Pos1$AD$2FD$8D$2FB$ADdev_S$A585$ADdev_S+1$A685$A9$0$A385$A485$6A9$60]››››PROC Dra½}wTo=*(CARD c,BYTE r)››[$20GrIO$11A0$4CXIO]››››BYTE FUNC Locate=*(CARD c,BYTE r)››[$20Position$6A9$4CGetD]››››PROC Plot=*(CARD¾} c,BYTE r)››[$20Pos1$6A9$AE$2FD$4CPutD]››››PROC SetColor=*(BYTE reg,hue,lum)››[$5C9$1610$A085$98$F29$A285$8A$A0A$A0A$A205$A0A¿}6$9D$2C4$9D$D016$60]››››PROC Fill=*(CARD c,BYTE r)››[$20GrIO$12A0$4CXIO]››››››BYTE FUNC Rand=*(BYTE r)››[$AE$D20A$C9$0$9F0$84À}86$A2$0$8586$20MultI$A086$60]››››PROC Sound=*(BYTE v, p, d, vol)[$A$A284$A8$7C9$530››$64A0$20 Error$998A$D200$A2A5$A0A$A0A$A3Á}05$99$D201$60]››››PROC SndRst=*()[$AD$232$EF29$8D$232$8D$D20F$A9$0$8A2$9D$D200$CA$FA10$60]››››BYTE FUNC Paddle=*(BYTE p)[$BDAÂ}A$270$A085$60]››››BYTE FUNC PTrig=*(BYTE p)[$A2$0$4C9$330$E8››$329$A8$BD$D300$39*+5$A085$60$804$8040]››››BYTE FUNC Stick=*(BYÃ}TE p)[$A2$0$2C9$330$E8$129››$BDA8$D300$88$4D0$4A4A$4A4A$F29$A085$60]››››BYTE FUNC STrig=*(BYTE p)[$BDAA$D010$A085$60]››››BYTEÄ} FUNC Peek=*(CARD a)››CARD FUNC PeekC=*(CARD a)››[$A285$A386$A0$0$A2B1$A085$C8$A2B1$A185$60]››››PROC Poke=*(CARD a,BYTE v)[$AÅ}085$A186$A098$9100$60A0]››››PROC PokeC=*(CARD a,v)[$20Poke$A5C8$91A3$60A0]››››PROC Zero=*(BYTE POINTER a,CARD s)[$48$A9$0$A48Æ}5$68]››PROC SetBlock=*(BYTE POINTER a,CARD s,BYTE v)››[$A085$A186$A284$A0$0$A4A5$A3A6$10F0$A091$C8$FBD0$A1E6$A3C6$F5D0››$3F0$Ç}A091$C8$A2C4$F9D0$60]››››PROC MoveBlock=*(BYTE POINTER d,s,CARD sz)››[$A085$A186$A284$A0$0$A5A5$16F0››$A2B1$A091$C8$F9D0››$A1È}E6$A3E6$A5C6$F1D0$5F0››$A2B1$A091$C8$A4C4$F7D0$60]››››››INT FUNC SCompare=*(BYTE ARRAY a,b)››[$A485$A586$A284$A0$0$A084$A184$É}A4B1$A2D1$3F0$20*+21››$C9$0$1D0$60$A685$C8$A4B1$A2D1$5D0$A6C4››$F590$60$FFA2$A086$390$A2B1$E8$A186$60]››››PROC SCopy=*(BYTE AÊ}RRAY d,s)››[$A085$A186$A284$A0$0$A2B1$A091$8F0$A8$A2B1$A091$88$F9D0$60]››››PROC SCopyS=*(BYTE ARRAY d,s,BYTE b,e)››[$A085$A18Ë}6$A284$A0$0$A2B1$A5C5$2B0$A585$A4C6$18$A2A5››$A465$A285$290$A3E6$38$A5A5$A4E5$2B0$A9$0$4CSCopy+10]››››PROC SAssign=*(BYTE ARRÌ}AY d,s,BYTE b,e)››[$A085$A186$A284$A0$0$A2B1$DF0$A685$A4C6$38$A5A5$A4E5$2F0››$1B0$AA60$A6C5$890$18$A6A5$AA$A465$A585››$A5A5$AÍ}0D1$390$A091$18$A0A5$A465$A085$290››$A1E6$4C8ASCopy+14]››››MODULE››››E›module››byte cio_status›card dlist =560››byte array data =› [ 63 33 33 33 33 33 63 ]››byte dlst0=›[ $70 $70 $70 $4D ]›card Ï}lms = [ 36960 ]›byte dlst1= [ $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D › $0D $0D $0D $0D $0D $0D $0D $0D $0D $0DÐ} › $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D › $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D › Ñ} $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D › $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D › $0D $0D $0D Ò}$0D $0D $0D $0D $0D $0D $0D› $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D › $0D $0D $0D $0D $0D $0D $0D Ó}$0D $0D $0D › $0D $0D $0D $0D $0D $41 ]›card djmp= [ 0 ]››proc pm_init ()› byte ramtop=$6A,sdmctl=$2Ô}2F, gractl=$D01D,pmbase=$D407› card pmadr=$2D5› byte gprior=$26F›› gprior=1› ramtop==-24› sdmctl==%$1C› pmadr=ramtop*$1Õ}00+$400›› pmbase=ramtop› gractl=3›› zero (ramtop*$100,$800)›return››proc p_pos (byte num,xpos,ypos,card shape,byte len)› Ö}byte array hpos=$D000› card pmadr=$2D5,adr›› adr=pmadr› adr==+num*$100+ypos›› moveblock (adr,shape,len)› hpos(num)=xpos›×}return››proc p_size (byte num,size)› byte array ps=$D008›› ps(num)=size›return››proc pm_col (byte num,hue,lum)› byte arrayØ} pcol=$2C0›› pcol (num)=hue*$10+lum›return››proc m_pos (byte num,xpos,ypos,card shape,len)› byte array hpos=$D004› card pmå}› RealAssign(Fr0,b)›RETURN››;************************************›; Base 10 logarithm›;************************************› Ú}›PROC Log10(REAL POINTER a,b)› RealAssign(a,Fr0)› ROM_LOG10()› RealAssign(Fr0,b)›RETURN››;******************************** Û}****›; Power function›;************************************››PROC Power(REAL POINTER a,b,c)› Ln(a,c)› RealMult(b,c,c)› Exp Ü}(c,c)›RETURN››;************************************›;Print REAL to device›;************************************››PROC PrintRD Ý}(BYTE d REAL POINTER a)› BYTE ARRAY temp(20)›› StrR(a,temp)› PrintD(d,temp)›RETURN››;************************************ Þ}›;Print REAL to default device›;************************************››PROC PrintR(REAL POINTER a)› PrintRD(device,a)›RETURN› ß}›;************************************›;Print REAL to device w/EOL›;************************************››PROC PrintRDE(BYTE à}d REAL POINTER a)› PrintRD(d,a)› PutDE(d)›RETURN››;************************************›;Print REAL to default device w/EO á}L›;************************************››PROC PrintRE(REAL POINTER a)› PrintRDE(device,a)›RETURN››;************************* â}***********›;Input REAL from a device›;************************************››PROC InputRD(BYTE d REAL POINTER a)› BYTE ARRA ã}Y temp(128)›› InputMD(d,temp,126)› ValR(temp,a)›RETURN››;************************************›;Input REAL from default devi ä}ce›;************************************››PROC InputR(REAL POINTER a)› InputRD(device,a)›RETURN››MODULE›› jadr=$2D5,adr›› adr=pmadr-$100› adr==+ypos›› moveblock (adr,shape,len)›› hpos=xpos›return››proc p_clear (byte num)› card æ}pmadr=$2D5› zero (pmadr+num*$100,$100)›return››proc pm_restore ()› byte u› byte array hpos=$D000›› for u=0 to 8› do› ç}hpos(u)=0› od›return››char func cioq=*(byte dev, card addr, size, byte cmd, aux1, aux2)›[$29$F$85$A0$86$A1$A$A$A$A$AA$A5$A5›è}$9D$342$A5$A3$9D$348$A5$A4$9D$349›$A5$A6$F0$8$9D$34A$A5$A7$9D$34B$98›$9D$345$A5$A1$9D$344$20$E456›$8C cio_status$C0$88$D0$6$9é}8$A4$A0›$99 eof$A085$60]››card func bget=*(byte dev, card addr, size)›[$48$A9$7$85$A5$A9$0$85$A6$A5$A3$5$A4›$D0$6$85$A0$85$A1ê}$68$60$68$20 cioq›$BD$348$85$A0$BD$349$85$A1$60]››proc bput=*(byte dev, card addr, size)›[$48$A9$B$85$A5$A9$0$85$A6$A5$A3$5$Aë}4›$D0$2$68$60$68$4C cioq]››proc delay(card z)› ›card i› ›for i=0 to z› ›do› ›od›return››proc main()› card shape› byte joy0,ì} x,y,p, testxy› byte p0pf=$D004, hitclr=$D01E›› graphics(7)› color=1›› pm_init ()›› shape=data› pm_col (0,7,0)›› djmp=í}@dlst0› dlist=@dlst0›› close (1)› open(1,"D:mulbi.bin",4)› bget (1,$9060,3840)› close (1)›› plot(0,0)› drawto(79,95)››î} x=80› y=60› p_clear (0)› p_pos (0,x,y,shape,7)›› do› ›joy0=stick(0)› delay(1000)›› ›if joy0=14 then› › testxy=1›ï} › y=y-1› ››p_clear (0)› ›p_pos (0,x,y,shape,7)› elseif joy0=13 then› testxy=2› ›y=y+1› ››p_clear (0)› ð}›p_pos (0,x,y,shape,7)› elseif joy0=7 then› testxy=3› ›x=x+1› ››p_clear (0)› ›p_pos (0,x,y,shape,7)› elseifñ} joy0=11 then› testxy=4› ›x=x-1› ››p_clear (0)› ›p_pos (0,x,y,shape,7)› ›fi›› ›if p0pf > 0 then› › if testxy=ò}1 then› ›› y=y+2› ›››p_clear (0)›››› p_pos (0,x,y,shape,7)› ›elseif testxy=2 then› › y=y-2› ›››p_clear (0)›››› pó}_pos (0,x,y,shape,7)››››elseif testxy=3 then› › x=x-2› ›››p_clear (0)›››› p_pos (0,x,y,shape,7)››››elseif testxy=4 thenô}› › x=x+2› ›››p_clear (0)›››› p_pos (0,x,y,shape,7)››››fi››››testxy=0››››hitclr=1› fi› od›return››l$0D $0D $0D › $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D › $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D ›ö} $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D › $0D $0D $0D $0D $0D $0D $0D $0D $0D $0D › $÷}0D $0D $0D $0D $0D $0D $0D $0D $0D $0D› $0D $0D $0D $0D $0D $0D $0D $0D $0D › $42 $E0 $9C› ø} $02 $02 $02 $41 ]›card djmp= [ 0 ]››proc pm_init ()› byte ramtop=$6A,sdmctl=$22F, gractl=$D01D,pmbase=$D407› card pmaù}dr=$2D5› byte gprior=$26F›› gprior=1› ramtop==-24› sdmctl==%$1C› pmadr=ramtop*$100+$400›› pmbase=ramtop› gractl=3›› zú}ero (ramtop*$100,$800)›return››proc p_pos (byte num,xpos,ypos,card shape,byte len)› byte array hpos=$D000› card pmadr=$2D5,û}adr›› adr=pmadr› adr==+num*$100+ypos›› moveblock (adr,shape,len)› hpos(num)=xpos›return››proc p_size (byte num,size)› byü}te array ps=$D008›› ps(num)=size›return››proc pm_col (byte num,hue,lum)› byte array pcol=$2C0›› pcol (num)=hue*$10+lum›retý}urn››proc m_pos (byte num,xpos,ypos,card shape,len)› byte array hpos=$D004› card pmadr=$2D5,adr›› adr=pmadr-$100› adr==+yþ}pos›› moveblock (adr,shape,len)›› hpos=xpos›return››proc p_clear (byte num)› card pmadr=$2D5› zero (pmadr+num*$100,$100)›ÿ}return››proc pm_restore ()› byte u› byte array hpos=$D000›› for u=0 to 8› do› hpos(u)=0› od›return››char func cioq=*(}byte dev, card addr, size, byte cmd, aux1, aux2)›[$29$F$85$A0$86$A1$A$A$A$A$AA$A5$A5›$9D$342$A5$A3$9D$348$A5$A4$9D$349›$A5$A6}$F0$8$9D$34A$A5$A7$9D$34B$98›$9D$345$A5$A1$9D$344$20$E456›$8C cio_status$C0$88$D0$6$98$A4$A0›$99 eof$A085$60]››card func bget}=*(byte dev, card addr, size)›[$48$A9$7$85$A5$A9$0$85$A6$A5$A3$5$A4›$D0$6$85$A0$85$A1$68$60$68$20 cioq›$BD$348$85$A0$BD$349$8}5$A1$60]››proc bput=*(byte dev, card addr, size)›[$48$A9$B$85$A5$A9$0$85$A6$A5$A3$5$A4›$D0$2$68$60$68$4C cioq]››proc delay(ca}rd z)› ›card i› ›for i=0 to z› ›do› ›od›return››proc main()› card shape› byte joy0, x,y,p, x1, y1, testxy›› graphics(7)› }color=1›› pm_init ()› zero ($9060,3360)› shape=data› pm_col (0,7,0)›› djmp=@dlst0› dlist=@dlst0›› close (1)› open(1,"}D:mulbi.bin",4)› bget (1,$9060,3200)› close (1)›› x=80› y=60› p_clear (0)› p_pos (0,x,y,shape,8)›› plot(0,0)› drawto(}79,79)›› poke($9CE0,33)› poke($9CE1,34)›› do› ›joy0=stick(0)›› delay(1000)›› ›if joy0=14 then› › y=y-1› › testxy=}1› elseif joy0=13 then› ›y=y+1› ›testxy=1› elseif joy0=7 then› ›x=x+1› ›testxy=1› elseif joy0=11 then› } ›x=x-1› ›testxy=1› ›fi›› if testxy =1 then› ›if x > 200 then› ›x=200› elseif x< 48 then› ›x=48›  } ›elseif y < 32 then› ›y=32› ›elseif y > 184 then› ›y=184› ›fi›› ›x1=x-44› ›y1=y/2-14›› ›p_clear ( }0)› ›p_pos (0,x,y,shape,8)››››plot(x1,y1)›››››testxy=0› fi› od›return›››O elseif joy0=7 then› ›x=x+1› ›testxy=1› elseif joy0=11 then› ›x=x-1› ›testxy=1› ›fi›› if testxy =1 then›  } ›if x > 200 then› ›x=200› elseif x< 48 then› ›x=48› ›elseif y < 32 then› ›y=32› ›elseif y > 184 }then› ›y=184› ›fi›› ›x1=x-44› ›y1=y/2-14›› ›p_clear (0)› ›p_pos (0,x,y,shape,8)››››plot(x1,y1)›››››testxy}=0› fi› od›return›››`L7 % 7¬ 7® 7­ 7 Ï6­ 7 Î&`L.7Ž*7�)7¬*7®)7­Q% 7`€}LÇ7 %A7©~…£ 7¢D­A7 .­C7…£¬B7¢7©D 5`Lð7Žì7�ë7¬ì7®ë7­Q% Ä7`}L8© i'L*8 Input x: ¢8© :'¢8© í7 ¨&LH8 Input y: ¢8©> :'¢8© í7 ¨&¢›© ¸&©8…£©8…¥©…¤  ¢8© ´3 8¢© 7©8}…£©8…¥©…¤  ¢8© t3 8¢© 7©8…£©8…¥©…¤  ¢8© ô3 8¢© 7©8…£©8…¥©…¤  ¢8© 44 8¢© 7©8…£ ¢8© ³5 8¢© 7©8…£ ¢8© â5 8}¢© 7©8…£ ¢8© 6 8¢© 7©8…£ ¢8© @6 8¢© 7L8``âã8©8…¥©…¤  ¢8© 44 8¢© 7©8…£ ¢8© ³5 8¢© 7©8…£ ¢8© â5 8>  ëŠÆŽ0LO³æŽ¥™…— P‹¥˜ ª‹ ¤²LŠ…  늦Žèä˜ð†ŽLS³ P‹†—¥˜¦™ ²‹ ¤² ݲL¤²¥™e˜ªÊ` œ‹ ±›ÅŒ° .Š œ‹` X‹¥RÅU�¥�ešðïÆ� ݲ _³L[³ }X‹�ߥUÅS�æ� ݲ [³L_³8¥še�eU8åR…Œ` Ø„¥ ÿР(„¥ „¦…¤†T ³ í²¦¤Ê¥ …¢e¥… ¥¡…£e¦…¡ '± ‘¢ˆùÊÐã` GŒ­�ðG K‰­‘ ŽŒÐ© € ­¯‘„}ˆ­®‘„¥„�®¦…ޝ ­‘‘„È¥”‘„È¥•‘„È œ‹‘„ ±” €‘”`©;¢ŒL8‰ tag not set©N¢ŒL‰tag id: GŒ­�ð9 K‰­‘ ŽŒðÊ ±„ªˆ±„ ׌ð½ ±¢· ±„}…Œ¥¢…”¦£†•LE¹… ­®®¯Ð` ±„Š𠱄ªˆ±„…„†…ŠÐ馅`­®®¯ð…ˆ†‰ ±ˆ… È±ˆ…¡ Ú€¥ ¦¡Ð莯`… †¡¥�¦‘Ð ` ±¢ªˆ±¢…¢†£Å Ðä¡ðŠÐ馣` Z}ˆ­§®¨ N…¥‘�� ³¢†TŽ–ÊŽœ†· c� ˆ¥Wð ³ à ³©a¢� ‰¬�ðä©…‘…˜©�¢¤ŒÈ Wµ c³­‘ ¢= � ñ¿L � Œ–ŒŒ(„é�œ­¥ð ­Î�œ}©1 ‹�© ‹� ¨†L_ƒ�Ÿ v‰LE¹ ³�æ«Ð欥«¦¬ ¶� 3ˆðî¢ÿŽüÉÞÐå` Ž H± , ²¥«¦¬ � ú± = ² ú± ÷�¨ ² ú± ÷� � ú± ÷�¢ H± ú± ÷� H±Lþ± }±«ªˆ±«` ÷µ…«†¬`©¢Ž &‰ÐLƒBoot? ¥ÓÉðÉÐ øŽ­â®ãÐ` ÷µ ¸©…·`¥ÓÉÐî­ãðé©…˜© T±©…©©ÿ…ª…«­‘eµ…¬­’e¶…­ª¥¬m“…®ÐÊ}Æ®Šm”…¯ ÅŽ¢© �B­‘�D­’�E­“�H­”�I Vä0/¢½ÀŽ•©Êø­â…®­ã…¯ ÅŽ©Lö¿âã©¢©  n°0`  Ln“©…µ…¶¥H¥H c³ K£ÉÐå©` ‘}hªhL¸ c� /±  L9±®Áð ©�Ášêêê`… †¡©…¢ $ ²©¢ &¡*ÊÐøi0É:0i¨ ²Æ¢Ðä`û#ŽbøŽcç·d^�ežo�pŽr<ŽwÖŽx³�?”�*>©¨…Œ…˜…½�ã}‘›��…¸…š…Ñ…“…È�Á®Äð‘ÎÈÐû‘±ÈÐû¥€¦�… †¡ ± ð ªˆ± … †¡L˜�¥ i�æ¡�‘…¥¡�’…­æ…¿Æ¿í•…°…¾æ¾Å°­£…½­¤…¾ Ln“­£…»®¤èè}†¼©w…¹©…º� `ces l�¦‚ð†À¦„ðʆÁ¢ &‡À�eÁ�æ‡ÊÐð…†¥‚¦… J�¥ƒ¦„ J�¤Âêêê…††‡8©å†¨©å‡ª˜`ðʆÁªð†À©¢ À�eÁÊÐöe‡…‡¥† }¦‡`†Âà 9�…‚†ƒ¥…ªEÂ…Â¥„ 9�…„†…©…‡` l�¥…ð'¢&‚&ƒ&‡8¥ƒå„¨¥‡å…�…‡„ƒÊÐ祂*¢¤ƒ„†L2�¢&‚&ƒ*°Å„�å„8ÊÐï&‚&ƒ…†¥‚¦ƒL2� ��¥†¦‡`!}¤„ð †…F…jˆÐú¦…`… †¡„¢h…„i¨h……iH˜H ±„…‚ȱ„…ƒÈ±„¨¹ ‘‚ˆø¥ÐæLÚ—`…¢†£…¤è†¥¤¯„­±¢…Ê𱤅ɠ±ÉQ½-ÊÐÄ®È�ò±É`æ­¤­Ä¯ÐÛ ¥£Å²"}ðÈLn“lþ¤®À©ÿ°È„ ¾.’†¡ ½7’0Q½-ÊÐ èÈÄ �î½7’`¥¡e ªÐÞ �­ª …¯ŠÈ„®‘½ ¯e¯…¯ ‘´¤®É_ðê ·Ð嘠‘½Æ� i‘Å¥¸ð ¥³¦´ +‘и¥±¦²¬#}­ÌÄ¥Î¦Ï +‘У¥¸ð ¥³¦´ +‘Жêê꥾‘¢¥½‘¤©¢œ +‘©ˆ¤®È‘½¥ÉÈ‘½¥ÊÈ‘½¥½…ɦ¾†ÊȘ 9·©ˆ`5h{˜ÿDObFIcIFPODdORTOeÿANDFORTINT"LSHMO$}D RSHSETDXORÿBYTE!CARD#CHAR ELSEaEXITSFUNCAPROCBSTEPfTHEN`TYPEFÿARRAY@UNTILXWHILEQÿDEFINE&ELSEIFjMODULEWRETURNRÿINCLUDECPOI%}NTEREÿ¥iª­üIÿÐäõ ±^I€‘^Là’ ¥]I€‘^®+à °8à�¢Ž+­üÉÀ� _“0)?É<ð!É'ð*¢p©… @³®+à °¢Ž+�¢`¢ÐÊ­ü)À�¾ _“0Œ­¶&}I€�¶LO“¢ŽÐŽ ÔÊ÷Žü`¥‘𮟥Ä�€¥Å�ˆ¥Æ�‰ á° þ± Ÿ±©¢ ± n°©�ã¢P  °L �Àˆð˜À€ðLËŠJJJJª˜�Àêêê`¢†H Ú—h¨`…À†ÁŒð '}±À…ÂæÂ¢ µ¢�ðÊÐø†‹†ŠæŠ¤ŠÄ°ڱÀÉ%ÐæŠÈ±ÀÉ%ðÉEЩ› ΔL铤‹æ‹æ‹… ¹ð¾ñ¤ ÀCðæÀSÐ ”Lé“ÀIÐ •Lé“ÀHÐ ¸Lé“ æ”Lé“H†¡„¢¨©™À¨±(}¡‘›¨È©›Ð±¡‘›ˆÐùh¦›¤œ °L¥“†¡ª¤¡¥· °L¥“ ö¿L¥“†¡ª¤¡¥· n°L¥“†¢ª¤¢¥·H©ÿ…£hH†¡„¢ ¥£‘¡h¤¢ ¶°L¥“¢†¤ ª¥¤�B©�H�I˜ Vä… L¥“©›)}ª¥·†¡¤¡¢ L¯” ›Ð÷ :°L¥“¢ H±L¥“¢ æ”LÌ” … Š„¢¦¢ ±¥  M±L¥“  ö”¥ LÚ”†¢ª¤¢¥·ÀÙH†¡„¢ - Õ”8©å¡ª©å¢¨hLö” •LÌ” •¥ LÚ”†¢„£¢¤*}¢„¢ ±È¹P‘¢ˆø`àí… †¡„¢8©å ¨©å¡ª˜ ±èЍ¹O‘¢ˆÐøŠ‘¢È©-‘¢`¥·¢ŽP¢P  §”©P¢…¤†¥ „ „¡„¢±¤…£æ£© ÈѤÐÈÄ£0÷±¤É-Ð…¢ÈÄ£6±¤É+}000É:,8é0ª¥¡H¥  &¡ &¡e … he¡…¡ &¡Še … �æ¡ÈÄ£0Ê¥¢ð 8©å … ©å¡…¡`†¡„¢ ª©&�B Vä ¥“ ½N‘£½L‘¡½MÈ‘¡`†¡ ª˜�M¥¡�L¥,}£�N©%�B VäL¥“H© y”© …£©¢„ – ° ¥“© y”h…¤)0I…£©¢ˆ – °L¥“E:›S:› ”– LÞ” ´–­ý�û©ˆ…¥©–…¦©…£…¤©`…[†\„Z…U†V„T` ®–©L­-}” ´–©®ýLєɅ ˜)…¢Š ¢¦ �Ä�Ð` ”– LÞ”® ÒÉ𠆄¢†… �† ` „¢¨É0 d ËŠ™Ò¥¢ £™Ò`­2)ï�2�Ò©¢�ÒÊú`¢É0è).}¨½Ó9J—… `@€¢É0è)¨½ÓˆÐJJJJ)… `…¢†£ ±¢… È±¢…¡`… †¡˜ ‘ ` w—È¥£‘ `H©…¤h… †¡„¢ ¥¤¦£ð‘ ÈÐûæ¡Æ£Ðõð‘ ÈÄ¢Ðù`… †¡„¢ ¥/}¥ð±¢‘ ÈÐùæ¡æ£Æ¥Ðñ𱢑 ÈĤÐ÷`ºŽÁ €˜LËhi…ªhi…«¥ª¦« ”©( Δ8¥ª „¯qª…ª�櫱ª…¬È±ª…­È±ª…©„®ð3殤®±ª0É毤¯±¬ªˆ° ±¬ •LA˜¢0}¤¯±¬ æ”æ¯Æ©ð©, ΔL˜¥ªe®ª¥«iHŠH©) ΔLÌ”…¤†¥„¢ „ „¡±¤Ñ¢ð Œ˜ÉÐ`…¦È±¤Ñ¢ÐĦ�õ`¢ÿ† �±¢è†¡`… †¡„¢ ±¢‘ ð¨±¢‘ ˆÐù`… †¡„¢ 1}±¢Å¥°…¥Æ¤¥¢e¤…¢�æ£8¥¥å¤°©L¢˜… †¡„¢ ±¢ð …¦Æ¤8¥¥å¤ð°`ªÅ¦�¥¦ªe¤…¥¥¥Ñ �‘ ¥ e¤… �桊L¦˜OpenÈD”ŠŠŠPrintEÈl”Pri2}ntDEÈs”ŠCloseÈy”ŠPrintÈ”PrintDȆ”ŠInputSÈŒ”InputSDÈ“”ŠInputMDÈ™”ŠŠGetDÊ­”ŠPutEÈÌ”PutÈΔ‰PutDÈÑ”Љ3}PutDEÈÚ”ŠXIOÈÞ”ŠŠŠŠŠPrintBÈ䔊PrintBEÈ씊PrintBDEÈ•ŠŠPrintCÈæ” PrintCEÈî” PrintCDÈö”Š PrintCDEÈ •Š Print4}IÈ• PrintIDÈ•Š PrintIEÈ6• PrintIDEÈ<•Š InputBʈ•InputBDÊŠ•ŠInputIˈ•InputIDËŠ•ŠInputC̈•InputCDÌŠ•ŠValB5}Êš•ValIËš•ValCÌš•StrBÈD•ŠStrIÈ[• StrCÈL• NoteÈ –ŠPointÈ4–Š ŠGraphicsÈT–ŠDrawToÈŒ– ŠPositionÈ®– Š6}LocateÊ»– ŠPlotÈÖ ŠSetColorÈΖŠŠŠFillÈé– ŠRandÊñ–ŠSoundÈ—ŠŠŠŠSndRstÈ!—PaddleÊ7�ŠPTrigÊ7—ŠStickÊN—ŠSTri7}gÊ/�ŠPokeÈw— ŠPokeCÈ�— ZeroÈŠ— SetBlockÈ�— ŠBreakÈÚ—SCompareËd˜SCopyȘ˜SCopySȯ˜ŠŠSAssignÈØ˜ŠŠ·8}·››š·œ›·›ššš�™š™›™™�›šš�™›š·››™›šš™™™™�›š››9}›™™·™™™›™›››ššššš™š›ššš™œš�™:}™›¼Þ?”Nê½Ð… `ª½p… `dÌPrintFÈÌ“ Ÿh˜PeekCÌg— €ÈÕ ýr/zàµ3A«lÁäÔå'c !#3ýðÉñS#BZ';}ªO4H‰ MoveBlockȳ— ¯œ¥“‰°PrintBDÈô”ŠŠÜôPeekÊg— Ì¥¹¯ÃٻΠ]�uâ<}W`=}¢¬ñ óžð©ð©"�ñ¢¬àÀ` óžð©`ЩL�à¢#¬ÊÀß óžð©ßЩÿ�Ê¢3¬Ã óžð©ð©ÿ�â:¬š óžð©ð©ÿ�š­Î Ÿ¢@ "ŸÉ°©=}É�©�ή¥ð�Œ¨ÈŒ¾8©íÎ�½­Ï Ÿ¢O "Ÿ�Ï¥R Ÿ¢Z "Ÿ…R­ã¨****)ª˜)Ÿ›Ÿ¨¢g ûž­‘¨)`ª˜)Ÿ��ã`ð YРNŒ‘  ŸŸ­‘¬�ÐÉÐ>}hh` Éy`¢ „£ �LL•¬� ŸŸ¬�Э‘ÉðÛ©�¢ š•¥ ` Display?Bell?Case sensitive?Trace?List?Window 1 size: Line size: Left ma?}rgin: EOL char: @`„¢ ½>Ÿ™šʈö¨© ™š©š¢¤¢L‰ACTION! (c)by Paul Lee Computer Services (PCS) April , 1985 Ý¥ÓÉÐ@} µL ­�…‘ ¹²ðr c³ c³ !¡ €ºÉWðóÉÐ_© u·�âŽã©` €¿8¥í‘�“¥í’�”¥Ñð9 ±Ð…¡ˆ±Ð…  එЊȑÐÈ¥qÐ…È¥qÐ…¥ …Ð¥¡…ÑÐÓ¥Íå¥A}íæ°` à¶�âŽã K£É𜠠L²¤L\·©¨ ¿LÆ¡©¾�™ �¢¥À¦Á  ¿  ¿ c³ÉÐà c³É[ÐÙ8©åµ…©å¶… c³É �¿É&°»ªiè�™½%£…„ �¢¥„ M· c³ÉðB}ñÉ]ÐÙ  A¿¦Г¥  þ¢©¨ ¿ c³ ÔÉ °`ÉFð€É'Щ {·†„¦Ó©�™ÐÉ&ðR°á�™ª¼%£„„¦ÓàAðÒà@ðqàEР„„ðg �¢®�ð £®�0¥ÓÉÐ Ò¢ÈC} þ¢ c³Ð¥„ M· c³ÉðÐL!¡ �¢ ©‘ˆ c³ÉÐ¥ÓÉР±½i 9· c³ c³ c³ÉÐÎðÑ Ln“i�™ c³ �¢©�›®�Ð`¥Ó¦„ðdÉÐ`©�›¥Ð¦Ñ  í¶ Ý¢ D}c³ ©ÑÈ©ñ°a c³Éг¥ÓÉð6­›Ð  ±ÐæÐÉ0¦†Ð¦†Ñ M· c³Éð–L!¡ £®�Ð0ìÉÐÊ Ò¢¬›ð  í¶ à¶  þ¢ c³­›L4¢ ±ˆÉ“°—Œ› E}‘ˆÈ à¶ þ¢Ð‡®�ð$hhLc³¥ÓɈð° É'ðÉp�æÉ°â¥¸ðá K¸ÉˆðLÆ¡…Ó© g·8©hm™‘ˆ)ª½‹¯…ŠÈ à¶ þ¢Lc³ c³®�ÐWL÷µ Ò¢„ „¡¤„¥ e†… ¥¡e‡…¡ˆÐðªF}¥  Lí¶‘ˆŠÈ‘ˆ` ±ˆH© u·É°i‘ˆ¨¦ÓàÐ m—�—�î˜h0ÉxðL »É‹�)îÂ)Ÿî‘ˆ` ”¨…Š øÉ[Ð# ½¦Óà]ð ÷µà𠥿° €¿ c³ÐæG} c³L�¤¦Óɉ� ÉÀ�6àð) ªªÐ1ɈÐ .¸ÐäÉpÐ nªL ¤ÉxÐ ‡ªL ¤¢Ÿ ¨Lñ¿ ß» «L�¤É�°I $«IÐ= « c³…ŠÉÐ(©…Š ¸ªÈ)øÉ˜Ð ±¹) ðȱ¹ªà �à°H}°þP c³ è ÿ«LK£  Ln“ ½¼ ±¹Ɉ�î c³Ð¨© F¨ ©‘» ”§É`Ðw­  ‘» �¤ª ±»� ŠÉjР ÷§  ¨¦¤¤¥ A¨ õ§ ¨L$¤ÉaÐ õ§ ¨  A¨ ¨I} �¤  ÉcÐ;  ÷§ð ¨ ½ õ§ð ¨ •¤ c³LK£ ±»ªÈ±»†»…¼`  Ln“ P§© ‘»ÐɈÐîL¢¶ P§ ”§ ÉbÐß �¤ÉXÐ ”§Ð   ÷§ A¨¥Â ÉdÐÑ  ÷§†’„“LJ}�¤ ¦“ð± ±’ªÈ±’H¥‘’¥ˆ‘’h¨ A¨L�¤ С© F¨ Ô§ c³É‰�íÉ��É–°å©Œ… ‘»È¥À¦Á ¨ $«ÉÐÎ ´¨ ÿ«¥ÂÉeЩ¢   ‘»ÈÊÐú  A§¥Â) €¢  K}¨© y¦¥ÂÉfЩ y¦¥ÂÉbÐÊ à¶  ¨ ½ >« ±»Éˆ°ȱ»ª©© ¥¿©Á —¾¥£ð3 ±»ª©© ¥¿LÕ¥ „ ©­ Û¦©Á —¾¥£ð¢ ±»É‹�Ü©­ Û¦©á ±¾¥£j©°�© €L}¿  ¨ €¿ « ¨  A¨  §  §  ±»Éˆ�¥½¦¾È ¨©¨‘½© 9·  ÷§ Ѝ �¤H  A§ ¸ª  A§© Ë«¥¥ð ç¬H ÿ«hð*hÉXð&H ±»ínªÈ±»íoÉÿM}Эn… ­o…¡ Š‘ h…ÂLȤH ´¨ >«h…  ‰¦L«¥¡Éˆ°  ±»¤ ‘»  ö¾¤ ÈL ¨ ±»)É0¥¡) ˆ ‘½…¢¤ ‘»æ ¥¡,Á¾Ð,þÐ( •¾ Ù¦¥¢É‹� ¯¾©�H¤  N}÷§¤  ¨È„ h¦¤¤¥L·¿`  ö¾  Í¿ © §¥¢É‹�è © ¿LÙ¦±»Éˆ�Ø„¢ à¶ ‘½ŠÈ‘½¤¢ 5§¤¢±»É‹�¾ÈÈÈ ÷§ ¨©LM·±»…ÂÈ ÷§†À„ÁL5ª© F¨ Ô§ à¶ O} ¨L½© u·)𠨨©  /ª¦ÓàÐ c³ ´¨ÉÐ ÿ«©` €¿L�¤ Ln“ ´¨H ±¹ÉHð *ª© °«hHÉdР 9¿ð ¨  ÷§Ð ¨  9¿ A¨  æ§ «h`¥’¦“ P} ¨¥»…’¥¼…“` n¨ t¨ Ѝ 6¨Ðõ` ±»ªÈ±»¨†¤„¥` ¥¦‘»ÈŠ‘»` þ§ )¨ à¶ "¨ 6¨Ðò`‘¤ÈŠ‘¤` ±¤… È±¤…¡ˆ`¥ ¦¡ð…¤†¥`©LL·¿… ¤»¦¼8˜å …»Šé…Q}¼¥»Í£¥¼í¤�˜ L ¨ Ln“ ö¾L<¨ ¢±¤ð Êe¤… Še¥…¡`¥夠‘¤`©¢�ïÊÐú`ø¤P¥T¹¤Qc§R§¤bí¤Sêêê c³© «¥Â…Š ÑÉ�iÉЦŠÐ R}̪Éð{¥Â`ÉЦŠÐmLª¦Šðo¢†ŠÉð}¦ÓÉ'ðÉp�çÐ nªÐPÉx�Ð ‡ªLT©àÐëÉ€�ÌÉ�° ɈðDɆðÀ $«ÐšÉÀ°< ½¼LT©¦Šð ÉðÉÐ¥©…ª½)«…Š Ìª «¥S} « c³Lè ̪Éð6¥Â` .¸ÐŠÐ1 ªªÐ´©L €¿ à¶i�è qÀ�è ¥¿ ¼¶ … /ªÆ� c³Ð½ Ln“ÉÈðËàÐÇ© F¨ ¥Š‘»„ ©¯…¡Æ ¤ ¹ð‘»ð ©¥¦¡ H ·¿¤ Æ¡T}ÀÐä­ðÐE ”¨ ß» Œð„ ©¢…¡æ ¤ ±»™ðð ©h¢…¤¡ ·¿¤ æ¡ÀÐäȱ»…Š •¤ ±¹) ¨¢  ¿LT© Ln“Æš0÷¤š¹€`©ª ‚„Â…À†Á8¥¹é…¹�Ý ¥Â‘¹È¥À¦ÁLU}¿ 5ª c³ c³ ‘¹ª)ø ÉpлŠ)ð¶…©L{·àðLϼ Lª  K¿˜ ‘¹ˆŠ‘¹`àðLǼ Lª¨¥ÂH˜ ‚ /ª©’  ½ h °‘¹` ÄÉÈ� �¸ „„Â`¥¹¦º <¨ 5ª ±¤‘V}¹ˆù` ªðBÉð>ª¼)«ÄŠ�6¤ŠÐ,¤¹ÀbÐ&àðàðàÐ ªÐŠÉÐ Ë«©` u«©` «Š °«L̪`¥¹i…¹`¤šæš™€` 5ªLc³…  ±¹…¡W})ª½‹¯…£ …¥ ±¹…¢)ª½‹¯…¤¥ª½Å¾…¦)ª ¨…§½‹¯…¥Lg¿ Ù¬ð9­cð.ɰ0¤ Àð© ¾¥¤ð©& ¡¾L¨«©F¦¤ð ¡¾©f ¾ÎcÐÍL« <« ×¥  e ¨¹œ¯…X}¨¹�¯¾ž¯L¨· Ù¬ðã­cÉÐÜ©æ ¾¥¤ð©Ð €¿  ¿© €¿©æ ¡¾  æ§L«Lª© <« × ç¬ÐR¥¡6,þÐOɈ°1¥¢É�°+¦¤ð ±¹É°#…¬ •½©„ ¡¾ ±¹É°…Y}¬ •½©„ÐÉp�²¦¤ð ¯¾©� ¡¾ •¾©� ¾ «L«)Ðâ ±¹É ðÚ¥¤ðW¥¢)ÐF¥£Ð ¯¾  ¿  ö¾ ¥¢)`Ð I¿ð„­ ©� ¿©  ¿©� ¡¾L^¬)@К 9¿ Š‘Z}®©ð㥣ðŠ  ¿Ð†  ¿¥£ð… ½Ѐ <«¥¡Éˆ°"­dТ­p)øÉ°ðɘТ½iÝpÐÊõ`©`¥¡D¢Éˆ°>¥§) €…§ ¦¨Ð±¹ q¹…©  ±¹ q¹LD­8±¹ [}ñ¹…©  ±¹ ñ¹ªð1¥¥Ð-©ƒÐ+¦¨½’¯ €¿ Õ¾ ¾ 3¿ —¾ —¿¥¥ð Ÿ¾ 3¿ ±¾ ‘¿¢¥§ ‘¹È¥© ¿L«¥¥ÐK¥¡Éˆ°E ±¹ðíÉ�¢†©©‚Ð×…¡© ¦¨ð©J…£ Õ¾ ¾\}¥£ €¿Æ¡Ð÷ —¿Lv­©«…¥…§êê ¯¾©…¢… ¥¿ Õ¾ •¾©…¢„ ¥¿¥¤ð Ÿ¾©ª €¿ ¾¥¤Ð©¢¢ ¥¿¦¨ [¿ —¿ ½¥¥ð©Š €¿ ‘¿Lv­ °®  ¿  9¿ð ¨  ¿  n]}¨ t¨ 6¨Ðø ±¹8 �¨ðV °®¥¹¦º <¨ )¨¥ i‘¤È±¤i‘¤ 6¨Ðê  ö¾  "¨  9¿©L ¾¿¥H¥®i…  æ§h…  ö¾i�è  ¿  ö¾  ¿  ¿ ½L^}«©HÅ¡ÐÅ¢Ð`hhLW­ Ln“ ¾ "¿ð©A —¾¥¥ð "¿ð©Ð t¿© ¡¾(ð ©A ±¾  æ§ 3¿ t¿©H…§  ¿Lv­ ¿ ¾©Á —¾¥¥ðß Ÿ¾©á ±¾°Õ ¿ •¾©Á ¾¥¥ð_}Æ ¯¾©á ¡¾°¼¥¡)xÐ8 ©ƒ‘¹8˜Èñ¹‘¹È©ñ¹‘¹` ¸ª ©ƒ‘¹©ªÈ ¿©L°«¥¡Éˆ�ɘ°  A¿È ¿ ©„‘¹`)øÉpðóLªa8áA!0�°ðЭ­Ä­`}Ì­®E® Å® Å®¯¯¯¯Ì­W­‡­‡­ 7¯h¯ACTION! (c)by Paul Lee Computer Services6„†¥„¦ Ð.†¥„¦¢†£  :°Ð © �B©›LVä`a}¢°†¦‘¥  Є¦ †¥¢†£ ª˜�B¥£ð �J¥¤�K©¨�I±¥�HðÉ¥¥i�D¥¦i�ELV䄦  ÐÀ„¬¤£„­ „£¤¤ ²¥¦eR…U _³ ±¬ð…£„¤æ¤¤¤±¬E¢ +³Æb}£Ðñ`êêê ª©ð‘›Š¦›¤œ 0°„ ½Hð8é ‘¥¤ `¦›¤œL °¬Ÿ¹ˆ…”¹‰…•L² 9±˜¢ ± �²©€…¤©…£ P©¢± t° ³ ¤²LW³Error …Ô†Õ ªÙ æØ ÿ¢Èè±c}ó�P÷I€�PŽP`­ñ�/�Ô`©"�/�Ô­À�È` ±¥·¢P Ln°H¥˜ ö¿h…£©: ÑÉð,ÈÑÉð'¥Éi…Ô¥Êi…Õ ±Éi‘ɨ±É‘ÔˆÐùÈ©D‘ÉÈ©:‘É¥˜¦É¤Ê °Ld}n“­šÐGLʰ„ò…¡†¢©…Ô…Õ¤ò±¡8é00)É 0 É0!éÉ…¥¥Ô¦Õ  ¾µe¥…Ô†ÕæòÐÓ ÒÙ°¥Ô¦Õ¤ò`  Ln“„ò…ó†ôLØ  Р›¥·L.³…¦†§„¢8e£…¤�膥 í² e}³ '¥¢‘ ˆû¥ eR… �æ¡È±¦å£�Q…¦¨©…§8¥SåRŦð°…¦¤¦©€…§¥¢Q¤H)`ªh)Ÿ�‘ ˆí¤¦¥§Ð ¥¢Ð È­ã‘ L{²Q ‘ ¥£ð ± I€‘ `¥£Ðó¨ðà ›² ³¬œf}„T`¥T…—¥U…–`¥—…T¥–…U ³ [³L_³¥•Ð¥�…”¥‘…•` µ²Ð¨‘›` èµ ± ‘›¨± ‘›ˆÐù`¥še�…£ ¥›¦œL²¥X¦Y¤Tð i(�èˆÐ÷… †¡`©]…^©…_` ¥]‘^`¦g} © ö¿© …£©¢' ³L°E:›¨©¢Ð¨©ªŽþ ª© �B©�H�I˜LVä©Ðß©ÐÛ©ýÐשÐÓ©ÐϥҦǤȆńƅĥ…‹¦É¤Ê¥Ó†À„Á… ‘´Éð9É!�õ¦�†ÒÉA°q}ÃÒÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb%DOS SYSb*)DUP SYSBSMULBI BINB&\REAL ACTBBŒRUNTIME ACTBÎSPRCOL1 ACT€óSPRPLOTTACT ¨¹}µðç%)Ð )·ÐÉ[ðÉ^ðÉ]ðÐÎ œ‘0 …Ó¢t µLñ¿…Ó¦À¤Á¥Â` ›´Ðµ©ƒ…Ó dµ ñ± ‘´ ·ÐøÉ.ðÉEðÆ� à±�  Ln“ˆ„�…ɆÊàÐé‚н©†…Ó¤ò¢ÿÐç ‘r}´…É©�Ъ ‘´É>Ð©П ‘´É=ÐæÓЖ©„…Óæ� dµ §±ÐºÆ�LÁ³¥¸ðù©…¸­—…½­˜…¾Ðé¥ÂÉðã©…© ‘´æ©ð É"𠤩‘½¥˜í Ln“ ‘´É"ð줩©›‘½ˆ˜ ‘½¥½¦¾s}¤�ˆL󳤙ÐU¤�ÄŒ�F¥˜ð0F §°!ÀˆðLn“ƘÐꤑðø ²¥”…Ǧ•†È ӵЅ‘­šð¥· ʰ „�±›¨È„Œ©›‘› È±›„�`©` ±žæ�Å�°¥™…�„™�™¤�±ž` ³©…™t}昩 T± ›´L‚³ :µ…«†¬ ³¥ÓÉÐ :µ ‘«ŠðÈ‘«L³ Ln“ ³L÷µ¥™ð Ln“© g·¥ˆ¦‰ Ÿ·¤�…ž†Ÿ„™©…�L³¤�¥™ð¥ž¦Ÿ`¥›¦œ`Á³)ͳ+´ ´ ´ @µu}ȳ ´>´B>´A>´WR´µCµDž�–„œœœœœœœœœœ•‹‰~„„¤„ð †… &…ˆÐú¦…` Ð  µ²ð ±”𠪈±”…”Š…•`¥”¦•i… �膡`©…†…‡¥ÓÉðv}UÉ[ðWÉ'ðÉpðÉxðÉðOɈðm° ­¶�© g· Ÿ·e†…†Še‡…‡ ‘´É+Ð c³Ð½ É^Ð ±†ªÈ±†††L2¶Æ�¥†¦‡` à¶L*¶ à¶HŠHÐ ¼¶L*¶¥ÓÉ]ð5 ­¶  í¶¥ŠðÈw}˜ M· c³Ðä© g·ªÈ±ˆð¨êêê© ·êêêL'¶ Ln“hªhL*¶  É��ñÉ…°í¥É¦Ê` à¶HŠH ±É‘ª¨±É‘ˆÐùèŠÐæ M·æ�hªh`¥eµH¥e¶ªh`‘ÈŠ‘`„¢‘¡†¡ª x}±¡¨ŠÑ¡ðˆˆˆÀÐõˆ±¡…¤ˆ±¡…£l£ )·Ð É00É:0¢`H ªhàa0à{0¢`e½…½�æ¾¥¿Å¾°ð =Ln“e…�æ¥°Å°Ü ~ c� Ln“¦ˆ†‚¦‰†ƒ¦É¤ÊÐ ¦Ž¤�y}ЦÀ¤Á†ˆ„‰¦‰eˆ�è8 qˆ…ˆ�膉ȱˆªˆ±ˆ`¤‚„ˆ¤ƒ„‰`…d†eldErrorÀËŠŠŠEOFšÀcolorŠýLISTŠšdeviceŠ·TRACEŠÃ©ø¢· &‰Ð©… l z}`DOS? !~¨h(` nŒÌ “ŒÍL¨·©0…  ¹¦†E Æ ™¦†ˆó`© {·àð…À†Áêêê© {·…Â`L¢¶êêê ô¡` ŒÉ ~ K£L#¸ #¸ © ŒÉ ~` h{}¸ ®L#¸ ~ à¢Lø· ~Ln£ #¸L ­Hêêê© {·…À†ÁhÐ �ì�í�î ±ˆ�›ðªà ° ȱˆÊ�¸Ð÷`êêê �êêêL¥“¢°†¦L,° œ‹ a‰­¡Éøð©\¢¹ „£ ( |}‰©ø�¢­(ðE ±›¨È„ ¤ŒÈÄ °„Œ¢±›èÝ(ÐíÈì(ð(Ä �î ӵ𠲩…ŒðÍ�¢ Ѱ ²©R¢¹ 8‰©�¢` “‰¤Œˆ˜ 2Š©þ` not foundFind? œ‹ a‰­¡É}}}ð)H©¢º „£  ‰h®Ð®àð Éøð© ¢º é¸Ð` ÷¸ðú©}�¢…Ã8­í(…£°©å£e›… ©¨eœ…¡±›(�𨱛‘ ˆÄŒ°÷�…¢¤ŒˆÈ± ‘›Ä¢�÷¤Œ¢ðè½~}‘›ÈìÐô ±›e£‘›LŠ… Substitute? for? œ‹ mº½£ð9;ºð „ Š  L2ŠÈÀ0æ èà0ß`€@ ¿ßï÷ûýþÿ gº½£;º�£` gº½£9Dº�£`} œ‹8é¨JJJª˜)¨à0 `ÉBð¦ÓàAð`©W�™Ð i8�™ c³ �¢ Æ¥À…Ž¥Á…�…¸© 9· ©‘ˆ�¨‘³ÈÐû¥½�—¥¾�˜© 9· ½¥ÓI��Ð Ò¢È þ¢ ±€}ˆ ‘ˆ�� c³ c³ÉÐ c³Éð !¡¦‹æ‹àðõÉð Ln“­�H©�� c³ !¡h0A© u·… †¡ à¶ þ¢©L €¿ à¶i�è ¥¿­Âð0ɰɩ�¦ ¤¡�©ŽèÐÈ ·¿ÎÂ�}LB»L±»¢ [¿¥ ¦¡¬Âˆ ·¿­Ãð5© ¢ä — ·¿ ±Ž¨ª±Ž‘ˆùèŠ M·¥ ¦¡ ¥¿© u·¨ª±ˆ‘ˆùèŠ M· K£L€º ±¹É�°mþL ±¹ÉªðeÞMà¢�^ >« ¯¾©� ¡¾L/‚}¼© �¸ 5ª c³¢ ŽÂ¦ÓàÐ c³ÐN®› ª½·®ÂŽïɰ�QîÂÈ�PîŠ /ª ´¨Î›0B®ïà£�‹ ÿ«¥ÂÉðÅÉÐ.­ÂÉ£°É¢°É¡° ½  9¿© L·¿¢¢ j¼¢ƒ}¡ j¼¢  j¼LH¼L »½Lн¼ L¥¿†  >«¦ ½¼à ð/¤¡Àˆ¼L°H„   ö¾¤ 0ªh ¥¿L^¬hL¥¿¼L¦£ðôL±¾ —¾L^¬¡¢ ¦Óàð3à^ð/ Œ„Âɘ� °ªL5ª ±„}¹É˜°È A¿àÐ  ‘¹ˆ±¹ °‘¹` *ªÐ $«É^ðØ ´¨ÉÐk¦ŠÐg ±¹H©Œ‘¹© <«hɘ°\)ª °…§¤¡À… °±¹È¹…à𼋯ð< Õ¾©¡¦àð •¾© ¢  ·¿©a‘¨ ¾ …}—¿©¡¦à𠯾©*¢( ¥¿©a ¡¾Ls­ Ln“L³« ‘¹¥¡ð,Á¾Ðë  ‘¹  ö¾  ¿L«­ Ŭð% g¿ÉЩˆ ‡¿Lº½ÉЩÈÐò© ¦¬ ¬¿¥¬� ¤­`©ÿ� `±¹È,þÐ,†}¾ð M¿ð ©®L·¿±¹ªÞP©¦L¥¿±¹…¬hhh¨Ð4) ðA 9¿¥¬ð.èÐ+ÈL-¾©¡H¥¢ ¢†¬ªà,ľÐ,Á¾Ð,þÐh,¾ðQ M¿ðbh L·¿æ¬)ðïLÀ®,¾Ð •½©…¬©…ª±¹‡}e¬É �/ɰ°+ªÞP�&˜HÈÈ È½h¨ M¿ðh L·¿h L¥¿©…ª¥¬ðȱ¹ªhªL¥¿©лh L¥¿©¡H¥¡ L ¾©¡¦¤ðH¥¢ ¢L¾©¡¦£ðH¥¡ Ðî L¥¿ @‚„„ˆ}„„„¢° Êʈ0½PÐöþP¥¥ðþQêêꆩ`Lª±¹…¯ªˆ±¹…®`©q¹…È©q¹…`¥¦‘¹ŠÈ‘¹`¥¦æ¨`¥£Ð ¥¡Ɉ° ±¹`¦¨½“¯`±¹ªÈ±¹¨` 9¿©L·‰}©…¬ A¿e¬ªÈ±ˆi¨`¼å½äª© L·¿„­¤„®¤„¯ ` €¿  ¿©…© g¿‘®ð  ͿȘLM·æ©  Р ¿¥©ª)þ…©©… g¿‘®ð  Í¿ŠÈ‘®ÐÕ g¿‘®ð„­  Í¿ŠŠ}¦­È‘®ÐäH˜e®…ª©e¯…«8¥宨𠱮‘ªˆÐù±®‘ªh‘®`„¢Lø¶Lθƒ—€ÿÿ€ï¢ÿš©�/�Ô 8©)…©…‘ÈÐûæ¦à€Ðó¥ � ¥ � ©… © … ©…©¼…©‹}8…©%… 7 ©�ð©J�…“© �†“©Q� “© �¡“©«�=�©"�>� ¸L û 4©�/�Ô©8…©%…©…©¼… 7 ©€…j�ä…©8�ç©)�è ³Lƒ¢ ±‘ÈÐùææŒ}ÊÐò`ŒP Lá° n°©™… © …¡ ± Éÿð,ÍP ðȱ ie … �çæ¡L\ ©¢•  n°¦ ¤¡èÐÈ© n°©›L+³ : Out of sys mem Missing "Nested DEFINE�}sGlobal sym tab fullLocal sym tab full SET syntaxDü ÷!eclaration formatInvalid arg listUndeclared var Not a constŽ} Ill assignment Unknown Missing THEN Missing FIOut of code space Missing DO Missing TOBad exprUnmatched parenthes�}es Missing ODCan't allocate mem Ill array refInput file tø!ó"oo large Ill cond exprIll FOR syntaxIll EXIT Nest le�}velIll TYPE syntax Ill RETURN=Out of sym tab space€BREAKˆEOFŠTimeout�Done¢ Disk full¥Filename§Locked©Dir fullÿàlð‘}Lû Ž þ±ºŽÙ" Ú"¥«e¯…«�æ¬ 3ˆðí¢ÿŽüÉÞÐä` é" 7$ Ÿ$ ¶$Lþ± ±«H)¨hHJô"ï#JJª½N#Jˆüh°©€H)ª¼n#hH®š#Ý›#ðÊø0¼£#„©¹Ž#…ª¹«#…¯’}h¨)�ª˜ àŠð J�JJ ˆÐúȈÐò¨¹·#…­¹÷#…®`cgccswcccwcccwccrus'wwswswccswcc        €xMH  Ààl–¶¾“} Š#]‹¡�Š#�‹¡)®i¨#$S#$S¡[[¥i$$®®¨­)|œmœ¥i)S„ð#ë$4¥i# ØbZH&b”ˆTDÈThDè”´„t´(ntôÌJrò¤Šª¢¢ttt”}rDh²2²"&&rrˆÈÄÊ&HDD¢È¥¬ ‰$¥« ‰$ % Ä¯� %Le$±«¢.)É �É}°±«ªŠ %ÈÀÐÜ % Ä¯� %L~$±« ‰$ %ÈÀÐéL%HJJJJ ”$h)É �ii•}0L%¢© ®&­*ˆÐøi? %ÊÐì`¥©É ð %¢ª�½Ö$ %àÐ Þ$Êì`YX,)X,(#©$ %¥©É 𤯈ì$7%𱫠‰$Lë$` ±«¤¬É€�ˆe«�Èi�ÈH˜ ‰$h–}L‰$ %© Ž6%Œ7%¨ ²0¬7%®6%`®Ù"šLn“àá€*ÿÿàá \7êLÀ/êLÑ/Ò^ 7~ŸÆÿ]7]7-/êƒLIÔ+ ±øHæøÐæù±øæøÐæùÊÊ•h• ±ø…üˆ±ø…û¥øi…ø�æùLú„CLIÔ# e ±øH˜ðË …ïµ™˜}ðèÈÄïÐõ `‡EXECUTÅ\ ˆ µ…ûµ…üèèLú†BRANCÈ|   ±øeøHȱøeù…ùh…øLE ‡0BRANCÈ• ¿ èèµþÿðÙ¥øi…ø�æùLC †(LOOP©³ à †ÿºþÐþ½™}ý½ý¦ÿ �£hhhhLÇ ‡(+LOOP©Õ !èè†ÿµÿHHµþºèè}�h}�h½½ý½ýLø „(DO©!G!µHµHµHµHèèèèLC �Ò>!`!†ÿº½H½¦š}ÿL< �ÉZ!`!�Êo!{!†ÿº½H½¦ÿL< …DIGIÔu!”!8µé00É 08éÉ 0 Õ •©H˜L> ˜HèèL> †(FIND©Š!Å!© k †ÿ ±ðQò)?Ð-ȱðQò Ð#�ö¦ÿÊÊÊʘ›}ieð• ˜eñ•”±ð•©HL< °ȱðûȱðªÈ±ð…ñ†ððе¦ÿ©HL< ‡ENCLOSź!+"© k Š8骔”ˆÈ±òÅððù”±òД”˜ÕÐöLC ”ÈÅðÐç”LC „EMIœ}Ô"j"˜8 qý‘ýÈ©qý‘ý˜Hµ†ÿ F7¦ÿh¨LU!ƒKEÙa"‘"†ÿ 37¦ÿL³#‰?TERMINẢ"©"­üið©L³#‚CÒ›"½"†ÿ˜H©› F7¦ÿh¨LC …CMOVŶ"×"© k ÄðÐÆñ�}LC ±ô‘òÈÐîæõæóLÜ"‚UªÍ"ü"µ…𔵅ñ” 666�¥ðu•¥ñu•©u•ˆÐàLC ‚U¯õ"4#µ´” •µ´”*•©…ð668µõ¨µõ�”•6ž}6ÆðÐäLU!ƒANÄ-#q#µ5Hµ5èèL> ‚OÒi#†#µHµèèL> ƒXOÒ#œ#µUHµUèèL> ƒSPÀ”#²#ŠH©L< ƒSP¡ª#Á# ±ýªLC ƒRP¡¹#Ñ#†ÿ ±ýªš¦ÿLŸ}C ‚;ÓÉ#å#h…øh…ùLC …LEAVÅÞ#ø#†ÿº½�½�¦ÿLC ‚>Òî#$µHµHèèLC ‚R¾ $%$ÊÊh•h•LC ‚0½$7$µ”ÐÈ”LC ‚0¼0$L$˜*”•LC �« }E$]$µu•µu•èèLC ‚D«W$v$µu•µu•µu•µu•LS!…MINUÓo$œ$8˜õ•˜õ•LC †DMINUÓ’$µ$8˜õ•˜õ•L�$„OVEÒª$Ì$µHµL< „D¡}ROÐÃ$U!„SWAÐÔ$æ$µHµ•µ´”L> „PICËÝ$ÿ$†ÿŠ8uuªÊµHµ¦ÿL> ƒDUÐö$%µHµL< ‚+¡%*%¡u�öÐö¡u�LS!†TOGGLÅ#%K%¡U�LS¢}!�À@%Z%¡HöÐö¡L> ‚CÀT%o%¡•”LC �¡h%~%µ�öÐöµ�LS!‚C¡x%–%µ�LS!Áº�%µ% )Ü(.'X% '|%Ÿ-¡)ð)¥ùH¥øH¥ûi…ø˜eü…ùLC Á»�%µ%£}H)})ã#µ)“)ã#ˆCONSTANÔÊ%µ%Ÿ-µ)·'ð) ±ûHȱûL< ˆVARIABLÅÜ%µ%ç%ð)¥ûiH˜eüL< „USEÒü%µ%ç%ð) ±ûeýH©eþL< �°&ñ%�±5&ñ%�²=&ñ%¤}�³E&ñ%‚BÌM&ñ% ‰ABORTINIÔU&ñ%³/‡+ORIGIÎ^&µ%) [$ã#‚S°n&&&‚R°‚&&&ƒTI‹&&& …WIDTÈ”&&& ‡WARNINÇž&&&…FENCŪ&&&‚Dи&&¥}&ˆVOC-LINËÄ&&&‰SOURCE-IÄÍ&&&‚IÎÜ&&&ƒOUÔì&&&ƒSCÒõ&&&†OFFSEÔÿ&&&‡CONTEXÔ '&& ‡CURRENÔ'&&"…STATÅ$'&&$„BASÅ2'&&¦}&ƒDPÌ>'&&(ƒFLÄI'&&*ƒCSÐS'&&,‚R£]'&&.ƒHLÄg'&&0‚1«p'µ%A&[$ã#‚2«z'µ%I&[$ã#„HERŇ'µ%É&X%ã#…ALLOÔ”'µ%É&(%ã#�¬£'µ%›'|%I&«'ã#‚§}C¬³'µ%›'”%A&«'ã#�­Ã'µ%š$[$ã#�½Ô'µ%Ø'5$ã#‚U¼à'µ%Ø'J$ã#�¼ì'ÿ'8µõµõ”PI€È”LU!�¾ù'µ%ä$ý'ã#ƒROÔ(µ%$ä$#$ä$ã#…SPACÅ"(µ%Z&h¨}"ã#„-DUÐ4(µ%%½ %ã#ˆTRAVERSÅD(µ%ä$Ê$[$c Ê$m%ý'½ ñÿä$Û$ã#†LATESÔW(µ%.'X%X%ã#ƒLFÁ}(µ%c Ø'ã#ƒCFÁ�(µ%I&Ø'ã#ƒNFÁŸ(µ%c Ø') ÿÿ©}b(ã#ƒPFÁ­(µ%A&b(c [$ã#„!CSÐÂ(µ%°#c'|%ã#†?ERROÒÕ(µ%ä$½ 3-ž Û$ã#…?COMÐæ(µ%:'X%5$c ï(ã#…?EXEÃ)µ%:'X%c ï(ã#†?PAIRÓ)µ%Ø'cª} ï(ã#„?CSÐ-)µ%°#c'X%Ø'c ï(ã#ˆ?LOADINÇA)µ%è&X%5$c ï(ã#‡COMPILÅY)µ% )#$%Œ'$X%·'ã#ÁÛs)µ%9&:'|%ã#�Ý�)µ%c À:'|%ã#†SMUDGÅ�)µ%†«}(c I%ã#ƒHEج)µ%c E'|%ã#‡DECIMAÌÀ)µ%c E'|%ã#‡(;CODE©Ñ)µ%#$†(È(¥(|%ã#Å;CODÅæ)µ%H)})ð)“)µ)ã#‡Ä·/µ%%J$š$ã#‚+­ö/µ%J$½ ¸}š$ã#ƒD+­0µ%J$½ ³$ã#ƒABÓ0µ%% 0ã#„DABÓ)0µ%%0ã#ƒMIÎ70µ%Ê$Ê$(½ ä$Û$ã#ƒMAØF0µ%Ê$Ê$ý'½ ä$Û$ã#‚Mª^0µ%Ê$Ê$š#$/0ä$/0ú"#¹}$0ã#‚M¯v0µ%Ê$$$>0^!/02##$^!š# 0ä$#$ 0ä$ã#�ª“0µ%ú"Û$ã#„/MOĺ0µ%$ü/#$˜0ã#�¯Æ0µ%Í0ä$Û$ã#ƒMOÄÙ0µ%Í0Û$ã#…*/MOÄç0µ%${0#$˜0ã#‚*º}¯õ0µ%ý0ä$Û$ã#…M/MOÄ 1µ%$9&^!2##$ä$$2##$ã#‡MESSAGÅ1µ%Ô*MSG # ¨3ã#Á§61µ%û,5$9&ï(Û$*.ã#†FORGEÔO1µ%.'X% 'X%Ø'c ï(S1%À&X%ý'c»} ï(%³(É&|%–(X%.'X%|%ã#„BACËc1µ%›'Ø'·'ã#ÅBEGIΠ1µ% )›'A&ã#ÅENDIƱ1µ% )I&6)›'Ê$Ø'ä$|%ã#ÄTHEÎÃ1µ%Ë1ã#ÂDÏß1µ%})E!›'Q&ã#ÄLOOÐì1µ¼}%Q&6)})Þ §1ã#Å+LOOÐý1µ%Q&6)})!§1ã#ÅUNTIÌ2µ%A&6)})½ §1ã#ÃENÄ(2µ%02ã#ÅAGAIÎ>2µ%A&6)})ž §1ã#ÆREPEAÔJ2µ%$$R2#$#$I&Ø'Ë1ã#ÂIÆ`2½}µ%})½ ›'9&·'I&ã#ÄELSÅ}2µ%I&6)})ž ›'9&·'ä$I&Ë1I&ã#ÅWHILÅ’2µ%‚2Œ'ã#†SPACEÓ³2µ%9&d0K(½ 9&E!<(Þ üÿã#‚<£Ã2µ%,v'|%ã#‚#¾ä2µ%Û$Û$v¾}'X%,Ê$Ø'ã#„SIGÎó2µ%((J$½ c -ð+ã#�£ 3µ%E'X% 1((c Ê$ý'½ c [$c 0[$ð+ã#‚#Ó"3µ%&3Ê$Ê$„#5$½ ôÿã#ƒD.ÒI3µ%$ä$Ê$>0é2N33ø2#$Ê$¿}Ø'Ì2s*ã#‚.Ò`3µ%$ü/#$f3ã#‚D®„3µ%9&f3<(ã#�®•3µ%ü/š3ã#�¿¤3µ%X%¨3ã#‚U®°3µ%9&š3ã#ƒC/̼3ñ% „CALÌÉ3Ü3†ÿµ�é3µ�ê3 ¦ÿ•”LC …WORDÀ}ÓÓ3µ%c €û&|% 'X%X%û&X%Ï3(½ »"9&û&|%%Z-È(–(X%%5$§"„#½ ØÿÛ$ã#µ ¨`†ÿ˜ª V䊨¦ÿ`ƒR/Ïô3ñ%ƒR/×M4ñ% ƒW/ÏW4ñ%ƒCIÏa4s4LC Á}ˆFREEIOCÂk4ƒ4 �4JJJJH©L< ©p¨¹@Éÿð˜8éÐò˜`ŠCLOSE-FILÅv4±4 94© ™B A4¹C0©H©L> ‹CREATE-FILÅ¢4Ù4LC ‹DELETE-FILÅÉ4ì4LC ŠFLUÂ}SH-FILÅÜ4þ4LC ‰OPEN-FILÅï45 �4©™Bµ™Dµ™Eµ™J©™K A4èè¹C•0Ö©••˜JJJJ•LC ‹RENAME-FILÅ5Z5LC ‰READ-FILÅJ5k5 94µÃ}™Hµ™Iµ™Dµ™E©™B A4èè¹C•0Ö¹H•¹I•©•LC ‰READ-LINÅ]5µ5 94µ™Hµ™Iµ™Dµ™E©™B A4¹C•0Ö¹H•yD•Ö¹IÄ}•yE•©�•••LC †REFIĻ5µ%š&X%) €è&X%³5ä$ñ&|%ä$Û$ã#ŠWRITE-FILÅ656 94© ™Bµ™Hµ™Iµ™Dµ™E A4èèèè¹C•0Ö©•LC ŠWÅ}RITE-LINÅ&6w6 94© ™BL=6ŒINCLUDE-FILÅh6µ%è&|% 6) €ý'½ �.ž ðÿè&X%¯4_/ã#ˆINCLUDEÄ‚6µ%S4 5) €ý'½ ‘6è&X%¯49&è&|%ã#…FILE¢³6µÆ}%) Z&á+›'Z&á+c ",`*) ä$Õ") 9&ã#ÈINCLUDE¢Þ6µ%æ6¾6ã#ƒMOÎ 7(7†ÿl ê¦ÿLC ˜H =7ªh¨Š`­%äH­$äH`†ÿª˜H S7h¨¦ÿ`­äH­äHŠ`vÃ]""6-@:Ñ7+›&g,$h%h<+›&g,$h%h,,Ê] 6ž-ž%gž"i6ž-fÔ]:(žA@"AA.ABñ:ACñÞ]; ž"gÈ}A@#AA/ABò;ACòè]; ž"hA@#AA/ABñ;ACòï]ž"hBAPÉ}ð]Œ-A2A8hñ]!(ž!Œ%@F:Œ%@,ò]" ž"g"Œ%@F:Œ%@,ó] Œô]#Œ-””%@9ŒfÊ} Œ#-ffõ]# ›"g#( CIN 0 MASK ž%g: ö]# ›"h#( MIN 0 MASK ž%g: ÷]$ ›"i$( PCIN 0 MASK ž%g: ø]*›"@Ë}*( CIN 12 MASK ž%g: ù]*›"@*( MIN 12 MASK ž%g: ú]+›"@+( PCIN 12 MASK ž%g: û]-›"Ì}@-(Super CIN MASK ž%g: ü]-›"@-(Super MIN MASK ž%g: ý].›"@ .(Super PCIN MASK ž%gÍ}: þ]%%6Ð-@:Ñ7+›&g,$h%ž%g<+›&g,$h%ž%g,,ÿ]%%6Ò-@:Ô7+›&g,$h%ž%g<+›&g,$h%ž%g,,^ Ð"f*Ò"h( GRAPHICS 0^$Ð"@d*Ò"hÎ}$( GRAPHICS 0.9^%Ð"A(*Ò"h%( GRAPHICS 0.10^%Ð"A’*Ò"h%( GRAPHICS 0.11^#Ð"f*Ò"@#( GRAPHICS 12Ï}$^+Ð"@d*Ò"@+( GRAPHICS 12.9.^,Ð"A(*Ò"@,(GRAPHICS 12.108^,Ð"A’*Ò"@,(GRAPHICSÐ} 12.11B^(ž6ƒ.‡L^ž"@6ƒ.†V^ž"@6ƒ.ˆ`^6�-@dP¬§aQ¨aO°©aP ²a#6í-¿%+À$@,#6Ñ}û-í%A$¼aŒ-f@Æa žgí%Œ�&+F:í%Œ,,Ðažû%Œ�&+F:û%Œ,,Úa ŒäaPìîaQ0uODuN.@@Ò} D:BUBBLES.FNTCC@¿A HN@Nu&&6-F:A`,%AV$F:Aa,XuŒ-%@3buFÓ}:Œ,"@fŒ@hluF:Œ,"@Œ@vu Œ¨uoA$AD'A%@9A&AKA'Ô}@]A(AoA)@²u'Œ-A0A9#ŒAU' Œ¼uKABA’'ACÕ}9AD@KAEÆu,A@'AV,AA¿'AVÐu'AH@'AIÚuKÖ}A@'A @9A@KA@ vh-@@ D:ICECIN.SCRKC@×}U:@ˆ,A `V@hAY@4 v(<=F:AU,`(AYvQ€ D:ICECIN.TURr