–€€@LÌ}ˬð5 _­¬¦$ަ%Ž l0¬±$)ªÈ$ð±$Hȱ$ Uh¨ŠL"©À ¨`©€e$…$�æ%`­…$­…%`� Œ ©R @�©W €¦!àÐ( �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óó½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¤!©JÀðŒ©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¦äðüŒÔx …D­Ó)ãD�Ó`}Need DOS2.5,type Y ÒÅÔÕÒ}Λd÷ÿ@ › "€€dd€ÿþýüû\ÌÌìDOS SYSCOPY3TO2COM€}B€}}CDOS SYSB6'DUP SYSBg]VFORTH COMBhÄ4TH COMBm,SPAR4TH COMBw¢DEBUG COMBCALL F BCREATE } F ­ …C­ C*É�( ‹Ð> Ë¥C8jJ…3©j…2­…C­…D (� ±C‘2ˆù0±2‘Cˆù© Þ ÀŒÔ „BXÈ` N ©1�?©ñ¢ l© ¢LlD:RAMDISK}.COM›©LÍu ÐL¥1©��©í¢ ÍL ¥;ÐL�ê˜HL³ê³êºŽ  T `ºŽ  ” `1©�ž©Ÿ… ©… ­œêÉ�Ð ©� ©�  àêêê¥Ð Ø`�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.›D1:MEM.SAV› ’©�J y08© �B©|�D©�E©Š�H©�I$} Vä0 ’0 `©�B©;�D©�ELŒ`­?�<�0LVä �`@¢ŽžŽŸʆ v s©…ð? F0Ξ05©:¢ ¦©[¢ ¦©�B©�D©�E©�H©�I%} Vä­ÉYÐ8©…¢ © �B Vä¥ �œ¥ ��©@… ©… ©/¢�D©�E ŒžˆŒ� ¤`E:›D1:DUP.SYS›ERROR-SAVING USER MEMORY ON DISK›TYPE Y TO &}STILL RUN DOS› œ©�B©;�D©�E© �J Œ œ(`©ð 9¢ Vä©ðî ­â�Ç­ã�È©âª�é ï©ðî¾­à�Ç­á�È©àª�é ï ’­ž-o}ÿÿ 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 ADDRES)}S›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©.}�E©D�ñ©:�ó­}É:Щ1�ò¢©�B©�J©|�D©�E é1©ô�D©�E©�B©�¢©�H©�I é1­õÉ Ðhî­Í0ߢ ¹ôÉ ð �ôèÈà0ð©./}�ôè  ¹ô�ôÈèÀ 0ôŽ©?�ôè©›�ô©ñ¢ °1 y0ÉYЛ­�®©›�ô¢ é1 ;#LŠ" ;#L!¢© �BLé1TYPE "Y" TO DELETE...›DELETE FILE SPEC0}›COPY--FROM, TO?›OPTION NOT ALLOWED›697 FREE SECTORS›› COPYING---D8:COPY32.COM››l# Ê0­�­|ÉDТ Ò.ðL/%©€��#©1}��#©�‘#¢©�J©�B©|�D©�E é1©�B©�H©�I©’�D©#�E é1­’#É0�É:° © �B é1L!­�#Í‘#ðî‘#ÐÁî�#© �B é1 ¹œ#Ùc$Јõ0‰SY2}S 1­}É:𨌳#¢ ½’#É ð™²#Èèà Ðð½’#É ð©.™²#Ƚ’#É ð™²#Èèà Ðð©›™²#©¦¢# °1,�#P¢©²�D©#�ELJ- <.¢©�B©�J©²�D©#�EŽþ é3}1¢ Ø1­H­H ã0h�h�®½|ÉDðL¨% 1½}É:ð¨Ì³#Ð ’L¾%¢ Œ³#©²�D©#�ELÞ%¢ Ø1 ã0® è.® Ò.Ð0©O¢% °1L!WILD CARDS NOT A4}LLOWED IN DESTINATION› ¿0 <.­|ÉKð<ÉCð8ÉEТŽþL¨%ÉSð(¢©�B©�JŽþ é1®½|ÉKð ÉEЩ�ÿLõ%©|¢# °1 ’L!ÉCðﮞàAÐÉDÐä© 5}Щ¢ �J©�BŽÿ é1©�K©®þ¬ÿ�B© ™B¥�D™D¥�E™E®þ­�H­�I VäŒø®ÿ¬þ¹H�H¹I�IHð é1­øÌɈðLñ1®þð© �B6} Vä®ÿð© �B Vä®ÿЩI¢' ¦,�#Lì#L!œ& Ê0 Õ0 ¿0 ¸&© ¢�B é1L!RENAME - GIVE OLD NAME, NEW› ­}É:ð)¨ŒöLS)'©ýÐ'©þ�7}' 70 ¹2i0�H'�K' ¿0©0¢' °1 y0ÉYЭ' ! 'L!þ¢�B©J�D©'�E˜�JLé1WHICH DRIVE TO FORMAT?›TYPE "Y" TO FORMAT DISK 1›D1:›«'¬ý¿8}©ª�ý¿Íý¿Ð©U�ý¿Íý¿Ð Œý¿©Ÿ¢' °1L!­ü¿Ðñª­ý¿ðëÍý¿ÐæèÐó v©¢ä _ \ä©¢ä b \äLNO CARTRIDGE›È' 70 2 ¿0…†­ÉðP vL RUN FROM9} 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�ÿ?} ¿0­öÍÿð.¢*©Ù °1 y0Î 0)INSERT BOTH DISKS, TYPE RETURN›©^¢, °1 y0©�©3�­å8é€�­æé�­Í­í° ©N¢, °1L! Ý,©�@}ž�C, t*­ �ù­ �ú­�û­�ü­þ�ýLx+©�ž, 0 ©^¢, °1 y0 , ¡,0,ž0 Ç,LŽ+ Í,­I€�0î ¾,­ÍðV­Í­í°Ç­ž0A}«Îž, 0 ©}¢, °1 y0­C,ШîC,­ÿ 0�K' !­ "­ H­ H©ý 'h� h� Lx+­ž¸­ÿ…!©ô…E©…F 5Lð1L! ¹D,…¹I,…¢¡H¹ù�h™ùˆB}å­�­�` þNOT ENOUGH ROOM›INSERT SOURCE DISK,TYPE RETURN›INSERT DESTINATION DISK,TYPE RETURN›þÎÐôC}�þ©�­þ`î Ðî `­ö�­ÿ8� rLð1`¥ð©-¢* °1©P¢* °1 y0ÉYЩ…�ž`hhL!NAME OF FILE TO MOVE?›- Ê0 ¿0­|ÉDðL¾% <.¢D},©^ °1 70 ¿0 Ò.Щ@Lä#¢ è.¢©�B©�J é1©� � ¢¥�D¥�E­�H­�I©�B Vä ÀˆðLð1Î ¢,©} °1 70,õL.¢   ­ Рî E}˜�J©�B©| ,�#P©² #�D˜�E é1 ¢ ©ÙHÐÙIð© �B¥�D¥�E¹H�H¹I�I é1© �B é1­ Т,©^ °1 70,õ0La-¢© �B Vä,�#PF}¢,©^ °1 70 ¿0Lì#L!¥ð©-¢* °1©P¢* °1 y0ÉYÐj©…�ž©…©3…­å8é�­æé3�©��©}m�©m�­Í� Ðå­Í°Ý­Ð©G}}Í�`­8é}�­é�`©ô…©…©ú�©�`½|èÉ*ð É?ð É›ðÉ,Ðìè`è½|É:ðèè ¹-)Ý|ÐÈèÀÐò© ¢/ °1L!`DESTINATION CANT BE DOH}S.SYS›0©� �¾ Ê0­žH®©›�{ 2�ÃŽÄà4°Δ 2�ÅŽÆ8íÃ�ó/ŠíİL!�ø/À›ð) 2�âŽã ãðΠÀ›ð 2 ¿0�àŽá áðξ©�žI}hÉAÐΞ¢©�B,ž0©Ð© �J é1© �B©Á�D©�E©�H©�I,ž©�H©Ã�D©�E é1¢©ù�H©�IþHÐþI­Ã�D­Ä�EL“SAVE-GIVE J}FILE,START,END(,INIT,RUN)›©›¢O�¤Êú©���õ S0 ¶1`©�B©¤�D©�E©P�H©�I¢ VäÀ€ÐÎõ`©�õ S0­H�÷ ¶1­õ ’L!­÷ÉK}0 ©ª¢0 °1L~0­¤`PLEASE TYPE 1 LETTER›,õ0`hhL! 70¢ Ø1Lã0©�¬®L<1¬®© �½¤É,ð;É›ð7½¥É,ð"É›ð©:ݦð1Ý¥Ðν¤ÉL}A"©D™|ÈÎÎݤðíΩD™|È©:™|È©�ž½¤™|èÈÉ›ð,É,ð(É/ð+É.Щ�ÎÞ©�¢1 °1Îõ½¤èÉ,ðÉ›ÐôŽŒ`½¤�ž轤™{èéNAMEM} 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 ’LN}!ERROR- 162›©�©��®½¤îÉ›ð+É,ð'  20* ..ˆö �ÎÓ©r¢2 °1Îõ`¨­®`©‚¢2ÐëTOO MANY DIGITS›INVALID HEXAO}DECIMAL PARAMETER›8é00É 0 8éÉ 0É0©ÿÉ`,õ0'®½¤èÉDðø8é0ð0É H½¤èÉ,ðÉ›ÐôŽh`Îõ©ð¢2L°1NEED D1 THRU D8› àáuP} ECIMAL PARAMETER›8é00É 0 8éÉ 0É0©ÿÉ`,õ0'®½¤èÉDðø8é0ð0É H½¤èÉ,ðÉ›ÐôŽh`Îõ©ð¢2L°1NEED D1 THRU D8› àáuÿÿ 7SêL€JêL KLº Eºº€»7S ÷LL\B[Q R}$VOLKSFORTH-83 3 S}.8 COMPILED 11AUG06CS�ÿÿ±¬…»­ÿÿ…º¥¬i…¬°lÿÿæ­°ù END-TRACE5!©¥…±©¬…²©i…³©…´L§'!RECOVER™9h…ºh…»¥ºÐƻƺLÎ:J!NOOP§ T}i!ORIGIN; t!S0™;ƒ!R0™; �!DP™; —!OFFSET™;¡!BASE™;¯!OUTPUT™;»!INPUT™;É! ERRORHANDLER™;Ö!V U}OC-LINK™;ê!UDP™; ú!SP@ "¥¥…Â¥¦…⥥8é…¥°Ʀµ‘¥µ¢L¤ "SP!7"¡¥ª±¥…¦†¥¢L§ /"UP@O"¢¢L" G"ƒUP!^"¢¢±¥•ˆ±¥•¢ V} ¥¥i…¥�æ¦L§ V"RP@…"¢ L" }"ƒRP!”"¢ L`" Œ"‚>R¢"¥ 8é… °Æ¡¡¥� ±¥‘ Lm" ›"‚R>Á"¥¥8é…¥°Ʀ¡ �¥± ‘¥©e … �æ¡L§ º"R W}@ë"¥¥8é…¥°Ʀ± ‘¥¡ L¤ ä"…RDROPÔ" #EXIT#¡ …¬± …­LÔ" #?EXIT-#¡¥¥¥¥i…¥�æ¦(ÐÖL§##EXECUTEQ#¡¥…º±¥…»¥¥i…¥�æ¦L X}¹E#PERFORMÎ:Ú#O##i#C@„#¡¥…±¥…é‘¥¡ÂL¤}#C!ž#¡¥…±¥…Ãȱ¥�ˆ¥¥i…¥�æ¦L§—#CTOGGLEÎ:4%‚#&C$œ##¼#@Ü#¡¥…±¥ Y}…ñ‘¥¡ÂL¤Ö#!õ#¡¥…±¥…Ãȱ¥�Âȱ¥ ‘ÂL¬#ï#+!$¡¥…±¥…Ãȱ¥aÂ�Âȱ¥ qÂL$$DROPm"1$SWAPE$±¥ª ±¥…Š‘¥¥Â ‘¥È¢±¥…¡ Z}¥‘¥ˆ¥ÂL¤<$DUPr$¥¥8é…¥°Ʀ ±¥ ‘¥È±¥ˆL¤j$?DUP—$¡¥¥ÐL§Lr$Ž$OVER®$¥¥8é…¥°Ʀ ±¥�¥È±¥ ‘¥L§¥$ROTÓ$ ±¥…à± [}¥ ‘¥ ±¥…¥Ñ¥ ¥Â‘¥È±¥…ᥑ¥ ±¥�¥¥Ã‘¥ L§Ë$-ROTÎ:Ñ$Ñ$# %NIPÎ:C$8$#%UNDERÎ:C$¬$#,%PICKÎ:Û&î- "¯%Ú##>%R \}OLLÎ:p$ "E% "p$ù&¿"Û&î-µ/8$#U%2SWAPÎ:Ñ$ "Ñ$¿"#x%2DROP¬#Ž%2DUPÎ:¬$¬$#š%+±%È¡¥q¥‘¥ˆ±¥ q¥‘¥Li"«%ORÎ%È¡¥¥‘¥ˆ |}^}U@U@_}P`}*ªªª ªªª  @ a}   b}   c} d}e}f} @  g}  @*ªªªªªª h}U@i}U@j}k}UUUUTl}m}n}UU@UU@ÿÿðÿÿÀ@o}U@TP@p}@@q}r}s}t}@Àu}ÀPÀÀv}ÀÀUU@UU@ÀUw}UÀÀÀx}ÀÀÀy}ÿÿÿÿÿÿÿÿÀz}{}Z±¥ ¥‘¥Li"Ç%ANDë%È¡¥1¥‘¥ˆ±¥ 1¥‘¥Li"ã%XOR&È¡¥Q¥‘¥ˆ±¥ Q¥‘¥Li"&-#&ȱ¥8ᥑ¥È±¥ ñ¥ ‘¥Li"&NOTC&Šá¥�¥Šñ¥‘¥L§ }};&NEGATE^&8°ãS&DNEGATEo&È8Šñ¥‘¥ÈŠñ¥‘¥Šá¥�¥ Šñ¥‘¥L§ ª¨ˆ±¥™ÂˆøŠe¥…¥�榢 `c&D+¯&© ‹&ȱ¥eÄ‘¥È±¥eÅ‘¥¡¥eÂ�¥ ±¥eÑ ~}¥L§¨&1+Ý&©a¥°L¤�¥±¥i‘¥L§Ö&2+û&©Ðàô&3+'©ÐÓ'©ÐÍ'©ÐÇ'1-!'8¡¥é�L¤�¥±¥é‘¥L§'2-?'�à8'TRUE; }ÿÿD'FALSE;Q'"-1K'_'!0Y'h'1;p'2;z'3;„'4;Ž'ONÎ:K'C$ó##˜'OFFÎ:Y'C$ó##©'„CLITÄ'¥¥8é… €}¥°Ʀ¡¬�¥Š‘¥æ¬Ðæ­L§»'ƒLITé'¥¥8é…¥°Ʀ±¬‘¥¡¬�¥¥¬i…¬�æ­L§á'ÇLITERALÎ:p$ç'ÿé%>+ ú0ç'Ï0#ú0Â'â0# (0<=(±¥©ÿ$Š‘¥ �}L¤6(0=S(¡¥¥ðèÐéL(UWITHINi(© ‹& ¡¥Å±¥åð ¡¥Åı¥åŰ½LD( ](<�(¡¥…±¥…Ã¥¥i…¥�榥ÃQ¥0•¡¥Å±¥åÃL?( ‰(U<¼(¡¥…±¥…à ‚}¥¥i…¥�榡¥Å±¥åðLA(LD(Î:ç'€é%)#!µ(>Î:C$�(#!í(0>Î:\&ß(#!û(0<>Î:Q(A&#! )U>Î:C$º(#!)=Î:!&Q(#!))D0=Î:Ì% ƒ}Q(#!7)D=Î:m&­&=)#!G)D<Î:Ñ$¡%!&>+ ñ("%"%+–%º(#Î: #>+C$8$#"X)MINÎ:¡%ñ(y)"‰)MAXÎ:¡%�(y)"™)UMAXÎ:¡%º(y)"©)U „}MINÎ:¡%)y)"º)EXTENDÎ:p$ß(#"Ë)DABSÎ:Ô)>+m&#"Þ)ABSÎ:Ô)>+\&#Î: #¿"ù&p$ "Ñ$ "C$ " "##ó)ƒ(DOÎ:¬$!&*#*„(?DOÎ:¬$! …}&•$>+*¿"p$Ú#¯% "8$##/*BOUNDSÎ:¬$¯%C$##T*‡ENDLOOPu*©LÖ"$i*…(LOOP†*©a � � ± i‘ �L§ ± …­ˆ± …¬ L§$|*†(+LOOP·* †}¡¥a � ±¥q ‘ jQ¥¥¥i…¥�æ¦(ÄL§%¬*�Iá* ¥¥8é…¥°Ʀ± ÈÈq �¥ˆ± ÈÈq  ‘¥L§%Û*�J + ÐÒ&+†BRANCH+¥¬a¬…Â¥­q¬…­¥Â…¬L§& ‡}+‡?BRANCH@+¡¥¥¥¥i…¥�æ¦(ðËLü''4+>MARKÎ:›0Y'Ï0#'X+>RESOLVEÎ:›0¬$!&C$ó##'l++`+t'#),ÄTHE ‰}NÎ:ù)t'·+w+#)),ÄELSEÎ:t'·+ú0+`+C$w+K'#)>,ÅBEGINÎ:�+~'#)[,ÅWHILEÎ:~'·+~'ú0>+`+ç'þÿ€%#Î:¢+p$ç'þÿ-)>+ 8$w++îÿ#)m,ÆRE Š}PEATÎ:~'·+ú0+‹,#)§,ÅUNTILÎ:~'·+ú0>+‹,#*À,ÂDOÎ:ú0%*`+ˆ'#*Ø,Ã?DOÎ:ú06*`+ˆ'#*ë,ÄLOOPÎ:ˆ'·+ú0„*ú0s*w+#*-Å+LOOPÎ:ˆ'·+ ‹}ú0µ*ú0s*w+#*-…LEAVEÎ:s*¿"='p$Ú#¯% "#+7-UM*[-±¥…¡¥…ÃȆĆŢÅ&Ä&Ã&Â�±¥eÅ…Åȱ¥ˆeÄ…Ä�æÃÐæÂÊÐܥő¥È¥Ä‘¥ ¥Â‘¥¥Ã�¥L§, Œ}S-M*Î:p$ß(p$ ">+\&C$p$ß(>+ \&¿"A& "Y-¿">+m&#,¦-*Î:Y-8$#,Û-2*ð-¡¥ �¥±¥*‘¥L§Î:p$¯%#Î:K'’BDIVISION OVERFLOW#-é- �}UM/MOD,.¡¥…DZ¥…Æ¥¥i…¥�榡¥…ñ¥…Âȱ¥…Åȱ¥…Ä¢fÈ8¥ÃåǨ¥Â寰&È�…„Ã&Å&Ä&Ã&ÂÊÐß fÂfÃ� V!.#¥Ä‘¥È¥Ã‘¥È¥Â‘¥ ¥ÅL¤/!.M/ Ž}MODÎ:p$ "ù)¬$ß(>+4%¯%C$*.é"ß(>+\&¬$>+ C$é"¯%C$' ##/›.2/â.±¥ ±¥j‘¥¡¥jL¤0Û./MODÎ: "Ô)¿"£.#0ò./Î:ù."%#0/MODÎ: �}ù.8$#0/*/MODÎ: "«-¿"£.#0%/*/Î:-/"%#0;/U/MODÎ:Y'C$*.#0J/UD/MODÎ: "Y'é"*.¿"C$ "*.¿"#1^/CMOVE‰/© ‹&ˆÄÂÐ ÆÃ L �}§±Æ‘ÄÈÐìæÇæÅL�/2/CMOVE>·/© ‹&¥ÃeÅ…Å¥ÃeÇ…ÇæÃ¤Â�ˆ±Æ‘Ä˜ÐøÆÅÆÇÆÃÐð L§2¬/MOVEÎ: "¡%º(>+¿"µ/#¿"‡/#3è/PLACEÎ:¬$ " ‘}Ñ$¬$Û&¿"ï/œ##3 0COUNT10¡¥…Âi�¥±¥…Ãi‘¥¥¥8é…¥°ƦLŒ#3'0ERASEÎ:Y'k0#4R0FILLm0© ‹&ˆ¥Â¦Åð ‘ÆÈÐûæÇÊÐö¦Äð‘ÆÈÊÐú L§5 ’}d0HEREÎ:œ!Ú##5”0PADÎ:›0ç'B¯%#5¥0ALLOTÎ:œ!$#5¹0,Î:›0ó#~'Á0#5Ë0C,Î:›0œ#t'Á0#5Ý0‡COMPILEÎ:¿"p$ù& "Ú#Ï0#6ð0#T “}IB™96 1>TIB™961>IN™96&1BLK™9621SPAN™96>1TIBÎ: 1Ú##6K1QUERYÎ:Q1ç'P�IE1Ú#1ó#,1¯'81¯'#7[1SCANÎ: "p$ ³}\ transient Assembler clv10oct87 ›\ Basis: Forth Dimensions VOL III No. 5) ›\ internal loading 04may85BP/re) ›\ Fort•}h-6502 Assembler clv10oct87 ›\ Basis: Forth Dimensions VOL III No. 5) ››CR .( Loading 6502 resident Assembler...) CR››–}Onlyforth Assembler also definitions ››\ Forth-83 6502-Assembler 20oct87re ››: end-code context 2- @ context ! ; —} ››Create index›$0909 , $1505 , $0115 , $8011 ,›$8009 , $1D0D , $8019 , $8080 ,›$0080 , $1404 , $8014 , $8080 ,›$8080 , $1C0˜}C , $801C , $2C80 ,››| Variable mode››: Mode: ( n -) Create c, › Does> ( -) c@ mode ! ;››0 Mode: .A 1 M™}ode: # ›2 | Mode: mem 3 Mode: ,X›4 Mode: ,Y 5 Mode: X)›6 Mode: )Y $F Mode: )› ›\ upmode cpu š} 20oct87re ››| : upmode ( addr0 f0 - addr1 f1)› IF mode @ 8 or mode ! THEN› 1 mode @ $F and ?dup IF› 0 DO›} dup + LOOP THEN › over 1+ @ and 0= ;››: cpu ( 8b -) Create c, › Does> ( -) c@ c, mem ;›› 00 cpu brk $18 cpu clc $œ}D8 cpu cld›$58 cpu cli $B8 cpu clv $CA cpu dex›$88 cpu dey $E8 cpu inx $C8 cpu iny›$EA cpu nop $48 cpu pha $08 cpu php›$68 cp�}u pla $28 cpu plp $40 cpu rti›$60 cpu rts $38 cpu sec $F8 cpu sed›$78 cpu sei $AA cpu tax $A8 cpu tay›$BA cpu tsx $8A cpu txaž} $9A cpu txs›$98 cpu tya› ›\ m/cpu 20oct87re ››: m/cpu ( mode opcode -) Create c, , › Does>› dupŸ} 1+ @ $80 and IF $10 mode +! THEN› over $FF00 and upmode upmode› IF mem true Abort" invalid" THEN› c@ mode @ index + c@ + c,  }mode @ 7 and › IF mode @ $F and 7 <› IF c, ELSE , THEN THEN mem ;››$1C6E $60 m/cpu adc $1C6E $20 m/cpu and ›$1C6E $C0 m/c¡}pu cmp $1C6E $40 m/cpu eor ›$1C6E $A0 m/cpu lda $1C6E $00 m/cpu ora ›$1C6E $E0 m/cpu sbc $1C6C $80 m/cpu sta ›$0D0D $01 m/¢}cpu asl $0C0C $C1 m/cpu dec ›$0C0C $E1 m/cpu inc $0D0D $41 m/cpu lsr ›$0D0D $21 m/cpu rol $0D0D $61 m/cpu ror ›$0414 $81 m£}/cpu stx $0486 $E0 m/cpu cpx ›$0486 $C0 m/cpu cpy $1496 $A2 m/cpu ldx ›$0C8E $A0 m/cpu ldy $048C $80 m/cpu sty ›$0480 $14 ¤}m/cpu jsr $8480 $40 m/cpu jmp ›$0484 $20 m/cpu bit››\ Assembler conditionals 20oct87re ››| : range? ( branch -- bran¥}ch )› dup abs $7F u> Abort" out of range " ; ››: [[ ( BEGIN) here ;›: ?] ( UNTIL) c, here 1+ - range? c, ; ›: ?[ ( IF) ¦} c, here 0 c, ;›: ?[[ ( WHILE) ?[ swap ;›: ]? ( THEN) here over c@ IF swap ! › ELSE over 1+ - range? swap c! THEN ;§} ›: ][ ( ELSE) here 1+ 1 jmp› swap here over 1+ - range? swap c! ; ›: ]] ( AGAIN) jmp ;›: ]]? ( REPEAT) jmp ]? ;¨} ››\ Assembler conditionals 20oct87re ›$90 Constant CS $B0 Constant CC›$D0 Constant 0= $F0 Constant 0<>›$10 ©}Constant 0< $30 Constant 0>=›$50 Constant VS $70 Constant VC››: not $20 [ Forth ] xor ;››: beq 0<> ?] ; : bmiª} 0>= ?] ;›: bne 0= ?] ; : bpl 0< ?] ;›: bcc CS ?] ; : bvc VS ?] ;›: bcs CC ?] ; : bvs VC ?] ;››\«} 2inc/2dec winc/wdec 20oct87re ››: 2inc ( adr -- )› dup lda clc 2 # adc › dup sta CS ?[ swap 1+ inc ]? ;››: 2¬}dec ( adr -- ) › dup lda sec 2 # sbc› dup sta CC ?[ swap 1+ dec ]? ;››: winc ( adr -- )› dup inc 0= ?[ swap ­}1+ inc ]? ;››: wdec ( adr -- )› dup lda 0= ?[ over 1+ dec ]? dec ; ››: ;c: › recover jsr end-code ] 0 last ! 0 ; ®}››\ ;code Code code> bp/re03feb85 ››Onlyforth ››: Assembler› Assembler [ Assembler ] mem ;››: ;Code› [compile] Doe¯}s> -3 allot› [compile] ; -2 allot Assembler ; ›immediate ››: Code Create here dup 2- ! Assembler ; ››: >label ( adr°} -)› here | Create immediate swap , › 4 hallot heap 1 and hallot ( 6502-alig) › here 4 - heap 4 cmove › heap last @ count±} $1F and + ! dp ! › Does> ( - adr) @ › state @ IF [compile] Literal THEN ; ››: Label › [ Assembler ] here >la²}bel Assembler ; ››Onlyforth ›››››%>+¬$‚#é"!&>+'C$Û&C$+äÿ ##7�1SKIPÎ: "p$>+¬$‚#é"-)>+'C$Û&C$+äÿ ##7°1/STRINGÎ:¬$Á)Ñ$¬$¯%%!&#Éa�É{°8é `8ß1 ´}CAPITAL2¡¥ û1�¥L§9 2 CAPITALIZE02¡¥…±¥…á…ĈÄÄРL§È±Â û1‘ÂL=2S2†È ±¥™Âˆø ­.1eÄ…Ä­/1eÅ…Å8¥Âí.1…Â¥Ãí/1…ð ¡¥�.1±¥ µ}�/1Lå2 ¥ÂÃð=¡ÄÑ¥ÐæÄÐæÅ¥ÂÐÆÃÆÂL�2¥Ä…ƥŅǡÄÑ¥æÄÐæÅ¥ÂÐÆÃÆÂ(ðæÈ¥ÂÃÐâ8 ¥Äñ¥�.1È¥Åñ¥�/1©e¥…¥�榠 ±¢�¥…Âȱ¢ ‘¥…ȥȑ ¶}±ÆÈÆÈ÷© ‘ L§=!2SOURCEÎ:Q11Ú##=3WORDÎ:!3Q2#=-3PARSEÎ: "!3,1Ú#é1¬$C$¿"ˆ1 "¬$!&p$¿")!&,1$#=>3NAMEÎ:ñB43.2# ·}#>p3STATE™9>…3EASCIIÎ:ñB43Û&‚#�3Ú#>+(#>“3,"Î:ç'"F3›0¬$Û&Á00#>³3„"LITÎ:¿"¿"4%/0¯% " "#>Î3‚("Î:Õ3#>é3Á"Î:ú0î ¸}3¸3#?ö3ƒ(."Î:Õ3/0ËH#?4Â."Î:ú0 4¸3#?4A(Î:ç')F3–%#?)4B.(Î:ç')F3ËH#?;4A\Î:,1Ú#»D /Û&»Dß-,1ó##?N4B\\Î:M,1ó##?j ¹}4\NEEDSÎ:w3U>"%>+R4#?{4HEXÎ:ç'¶!ó##?–4DECIMALÎ:ç' ¶!ó##@ª4DIGIT?Î:ç'0!&p$ç' )>+ç'!&p$ç' )>+¶!Ú#¬$) º}•$+#8$Y'#@Â4 ACCUMULATEÎ:C$ "C$¶!Ú#Y-8$Ñ$¶!Ú#Y-­&¿"#@5CONVERTÎ:Û&/0Ë4>+5+ôÿ'#Î:*6Ú#Q(#Î:/0K'*6$#Î:'/0#A25D »}PL™9ÿÿÎ:>+ #–%8$ #Y'#Î:>+ #8$¿">+m&Ñ$8$x5Ú#Û&•$+#8$K'#Î:ç'&ú+>+ ç' K'#ç'$ú+>+ ç'K'#ç'Hú+>+ ç'K'#ç'%ú+> ¼}+~'K'#Y'#Î:ç',¬$-)C$ç'.-)Ì%#Î:x5Ú#K'-)+#t'x5$#™9Cr5NUMBER?Î:¶!VAp$/0*6ó#x5�'Y' "ç'ç'Ñ$R5|5\5ç'-ú+>+ #K' " ½}R5|5\5´5>+ ¶!ó#R5|5\5Ë4Q(|556R5Ž5\5Ë4Q(>+ðÿh56Q(|5x5¯'R5Ž5\5+Ôÿ#C06NUMBERÎ::6•$Q(’B?ß(>+Ô)#D¸6LAST™9Î:à6Ú#•$ ¾}#DÙ6HIDEÎ:ä6>+ ='Ú#<Ú#ó##Dð6REVEALÎ:ä6>+ ='<Ú#ó##D 7ÉRECURSIVEÎ:7#Î:ä6>+ 4%‚#Ì%¬$œ#8$#D*7 IMMEDIATEÎ:ç'@<7# ¿}DT7RESTRICTÎ:ç'€<7#El7 CLEARSTACK’7 ±¢…¥È±¢…¦ L§Eƒ7HALLOTÎ:ˆ!Ú#¬$!&C$ "ù&p$Ñ$!&p$ˆ!ó#~'E%¬$!&ï/�7ˆ!ó##E¤7HEAPÎ:ˆ À}!Ú#'#EÝ7HEAP?Î:ä7M"g(#Î:p$›0¬$!&p$­7ä7C$‡/ä7¬$!&à6$7#¥ 8é… °Æ¡¥­‘ ¥¬� ¡ºi…¬Šqº…­©eºHŠe»LÙ+Î:¿"à6Ú#V:ó##Fð7ÅDO Á}ES>Î:ú0O8ç'Lâ0ú0$8#Î:p$ç'ÿé%ç'ÿ-)!&#Î:›0ç'ÿé%ç'ÿ-)>+p$p$Û&›0¬$!&Û&µ/t'à6$t'Á0#G_8?HEAD™9G¿8|Î:Ç8Ú#+#K'Ç8ó## Â}HÍ8WARNING™9Î:í8Ú#+#à6Ú#<Ú#™="%>+CCà6Ú#ˆ: 4EXISTS ^H#Hã8CREATEÎ:›081Ú#Ï0<Ú#Ú#Ï0w3‚#p$t'ç' g(A&’B INVALID NAME›0à Ã}6ó#Û&Á0ñ8Ç8Ú#>+ t'Ç8$p$y8Ï08ç' <7y8œ!ó#+�88$7Y'Ï0O8LC8ž9¡¥…Ʊ¥…Ç¥¥i…¥�榡¥…ı¥…ÅÄÐLD(±Ä‘¥…áÄ�¥…ÂÃÐL§¥Âi…Â� Ä}æÃ¡ÂH8)eÂ…Â�æÃh) ð ±ÂH¡Â…Âh…Ã¥ÂÅÆÐ°¥ÃÅÇЪLû&J!9>NAMEÎ:õ!Ú#p$>+¡%’'!&C$œ9•$>+%–%#+àÿ"%#Î:/0ç'é%¯%#J :NAME>Î: Å}p$>:C$‚#ç' é%>+Ú##JN:>BODYÎ:ù&#Jp:.NAMEÎ:•$>+p$ø7>+ 4|/0ç'é%ËH+ 4???CC#K€::Î:*9÷6<Ú##<ó#î?Y'O8¥ 8é…  Æ}°Æ¡¥¬� ¥­‘ ¥ºi…¬Še»…­L§K¶:Á;Î:Y'·+ú0#Ø?7#Kò:CONSTANTÎ:*9Ï0O8¥¥8é…¥°Ʀ ±º�¥È±º ‘¥L§K;VARIABLEÎ:*9~'Á0#L8; Ç}UALLOTÎ:p$"Ú#¯%ç'ÿ)’B USERAREA FULL"Ú#C$"$#LO;USERÎ:*9~'X;â0O8¥¥8é…¥°Ʀ ±ºe¢�¥ŠÈe£ ‘¥L§L†;ALIASÎ:*9à6Ú#p$‚#ç È}' é%>+ ç'þÿÁ0+ç' <7>:ó##Mº;VP™9Ü<Ë<Ë<Mð;CURRENT™9Ë+^Hp$ù&ˆ:CC+æÿ8$#Pa=(FIND›= ±¥™Âˆø¡Ä)…Æ ±ÂªÈ±Â…ÆÂÂР¢LD(È Ì}±Â)ÅÆÐà©eÂ…Ç©eÅȤƱÄÑÇÐˈÐ÷ ¥È‘¥ˆ¥Ç‘¥ˆ¢LA(ö=¡¥…±¥…á…Ä)8eÂ…Â�æÃ¥Ä) Ð ¥Â�¥¥ÃL">¡Â�¥±Â‘¥¥¥8é…¥°Ʀ¥ÄÈ 0˜Iÿ¨È˜�¥ Í}©ÿ$Š ‘¥L§T‘=FINDÎ:#+='4%Ú#™=>+"%ô=#¬$õ;ù&)>+ C$='+Þÿ"%Y'#TN>'Î:w3U>Q(’BWHAT?#T—>É[COMPILE]Î: Î}›>Ï0#T¯>Ã[']Î:›>(#TÅ> NULLSTRING?Î:p$‚#Q(p$>+"%#ȱºi…¬È±ºi…­ L§UÕ> >INTERPRETõ>]?V ?NOTFOUND"@??V? NO.EXTEN Ï}SIONSÎ:¬BWHAT?#V/? INTERPRETÎ:?Î:ó@w3U>•$>+t'é%>+O#?’B COMPILE ONLYã>+#:6Q(>+)??Î:ó@w3U>•$>+)>+O#?Ï0?ã>+#: Ð}6•$>+)>+C$((+)??WM?A[Î:ç']?<@?�3¯'#WÔ?]Î:ç'–?<@?�3�'#Î:K'’BCRASH#Xê?DEFERÎ:*9ç'þ?Ï0O8 ±ºHȱº…»h…º L¹ Ñ}X@(ISÎ:¿"p$ù& "Ú#ó##Î:Ú#ç')?Ú#¬$-)C$ç'?Ú#-)Ì%A&’B NOT DEFERRED#X6@BISÎ:›>p$L@x:�3Ú#>+ ú0<@Ï0#ó##Î:‘Aç' ñ(’B TIGHT Ò}STACK7ä6>+p$ø7>+V:+’'!&jGK'’BDICTIONARY FULL#Y{@?STACKõ@  8¥¥ñ¢…ÂÈ¥¦ñ¢Ð   V!ž@# ±¢Å¥È±¢å¦ �L§ V!K'’B STACK Ó}EMPTYZê@.STATUS"@p!™9¿"¿"ó##Z5A„PUSHÎ:¿"C$p$ "Ú# "CA " "#[OARDEPTHÎ:’!Ú#ƒ"ù&!&à.#[nADEPTHÎ: "ˆ!Ú#C$!&à.#Î:�3Ú#>+ Ô} 4] # 4 OK#\‰A(QUITÎ:?A¿Hc1Y?¡A+ôÿ\¼A'QUIT"@ÄA\ÖAQUITÎ:’!Ú#’"Ø?ÞA\äA STANDARDI/OÎ:ç' Ä!’'‡/#\ùA'ABORT"@p!\B Õ}ABORTÎ:�73! BBëA]&BSCR™9]+BBó#,1Ú#MBó#ëA]SB‡(ABORT"Î:Õ3C$>+ "�7¿"å!s Ö}##8$#Î:Õ3C$>+å!s##8$#^ˆBÆABORT"Î:ú0’B¸3#^ÂBÆERROR"Î:ú0¬B¸3#_×BBL; _ìB -TRAILINGC˜ ‹&¡¥…ı¥eÅŤÂ�ˆ±ÄÉ ð ÈÐ ×}æÃ˜H¥ÃLÙ+˜ÐêÆÅÆÃä˜LÖ+`÷BSPACEÎ:ñBµH#`;CSPACESÎ:Y'6*CC„*s*#Î:«0='#aMCHOLDÎ:K'fC$fCÚ#œ##apC<#Î:fCfCó##a‰C#> Ø}Î:–%fCÚ#fC¬$!&#ašCSIGNÎ:ß(>+ç'-wC#a±C#Î:¶!Ú#g/Ñ$ç' ¬$�(>+ç'¯%ç'0¯%wC#aÊC#SÎ:ÎC¡%=)>+øÿ#böCD.RÎ:%4%å)ŽCû Ù}CÑ$¸CŸCÑ$¬$Ÿ)¬$!&VCËH#b D.RÎ:C$Ô)Ñ$D#b5DU.RÎ:Y'C$D#bHDD.Î:Y'DCC#bZD.Î:Ô)_D#bkDU.Î:Y'_D#cyD.SÎ: "ˆ!Ú#¬$!& Ú}ç' Á)]*6*ß*Ú#~D~'µ*s*#cˆDC/L;(cµDL/S;dÁDPAUSE§dÍDLOCKÎ:p$Ú#M"-)>+8$#p$Ú#>+ÕD+ôÿM"C$ó##dÙDUNLOCKÎ:p Û}$àD¯'#h8é…¢hé…£©L�¢ ±¢…¥È±¢…¦ ¡¥… ±¥…¡¥¥i…¥�榢¬L`"e EFILE™;eSEPREV™9™9e_EB/BUF;ppELIMIT;¼p~EFIRS Ü}T™9¼Î:‚#ç' é%#Î:V:4%Û&º(C$ø7Ì%#Î:ä7õ!Ú# "¿"Ú#•$>+^p$ "’'!& "¿"Ú# "¬$'p$é"º(C$é"ù&V:º(é%>+.é"ø7>+Úÿé"ù&˜E>+¬$é"ù&¤E>+ Ý} é"ù&>:ù&°)+¶ÿ #+œÿ#*F ±¥™Âˆø ±¢i…Èȱ¢i…É ¡Â…ʱ…ËÊð5¥ÊÅÈ¥ËåÉ� ¥ÊÅÄ¥ËåÅLoF¥ÆÅÊ¥Çå˰ ¡Ê�±ʑÂL„F¥Ê…¥˅ÃLFFLm"Î:õ Þ}!Ú#•$>+p$ "’'!&(F¿"+êÿ#Î:M"Û&p$Ú#M"!&>+(¡%Ú#C$›0g(>+p$Ú#Û&Ú#¬$ó#'+Ú#+Îÿ–%#Î:õ!(F1<%* ¡%ß*Ú#%g(>+ ç'Ë<ß*ó#ç'þÿ ß}µ*s*¡%<Ú#%g(>+ ç'Ë<<ó##Î:¬$¨FäFŠFä7C$!&­7œ!ó#Y'à6ó##uŒECLEARÎ:›0p$M"&Gœ!ó##uFG(FORGETÎ:p$ø7’B IS SYMBOL¶E&G#u`G à}FORGETÎ:›>p$ç' Ú#º(’B PROTECTED:p$ø7>+V:+='='jG#u„GEMPTYÎ:ç' Ú#M"&Gç'" Ú#"ó##vÁGSAVEÎ:›0M"&Gõ!Ú#p$='='Ú#¬$='ó# á}Ú#•$Q(>+êÿM"}!ç'‡/#vãGBYEÎ:p!M#Î:YIK-)>+K' ##vHSTOP?Î:eI>+*H*HY'#v>H?CRÎ:I»Dç' !&)>+¿H#Î:*9p$â0ù&O8L â}$8‚#Ä!Ú#¯%s##wXHOUTPUT:Î:*9î?O8L$8Ä!ó##w‘HEMIT€Hw®HCR€HwºHTYPE€HwÄHDEL€HwÐHPAGE€HwÛHAT€H wçHAT?€H wñH ã}ROWÎ:÷H8$#wüHCOLÎ:÷H"%#Î:*9p$â0ù&O8L$8‚#Ñ!Ú#¯%s##w IINPUT:Î:*9î?O8L$8Ñ!ó##w7IKEY&IwSIKEY?&Iw^IDECODE&IwjI ä}EXPECT&IxSEALÎ:Y'ç'Ú+ê å}ÿ#Î:Y'fEó#†E”Eó##yxI'COLD"@p!Î:ÛIûIJ= 4volksFORTH-83 REV 3.81.03¿HKy J'RESTART"@p!Î:ç'ÄA<@àAQJç' Ú#å!ó#ç'p!<@"B.B æ}zFJCOLD€J©JH©HX ­ i…­ i…ù ‘ÂÈÐø¥ �«J¥ �¬J @ ¹ !™¤ˆ÷­ i…¢­ i…£ ±¢…¥È±¢…¦  ±¢… È±¢…¡¢ Š� ‘ h…¬h…­©K… © ç}… ¢ L§{wJRESTART K©JH©WHLªJ;üK­üiLÖ+­%äH­$äH`,K„ÿ†þ !K¦þ¤ÿLÖ+;ð@K©�ðL§JK©LBKýJ65KEYÎ:>KÕDK>+úÿHK*K#QK è}#BS;~mK#CR;›yK#ESC;…K65DECODEÎ:sKú+>+p$>+ÖH'#Kú+>+ p$E1ó## "¡%¯%é"C$œ#¿"µHÛ&#’K65EXPECTÎ:E1ó#Y' é}p$E1Ú#º(>+ YIsI+îÿ–%CC#ÙKKEYBOARDHIYKK�KäK­äH­äHŠ`L(EMIT3L„ÿ†þ¡¥ª L¦þ¤ÿLm";()L65EMITÎ:1L#JL65CRÎ:KSL ê}#[L65DELÎ:sKSLCCsKSL#lL65PAGEÎ:ç'}µH#„L65ATÎ:ç'Uó#ç'Tœ##™L65AT?Î:ç'T‚#ç'UÚ##²L65TYPEÎ:]*6* ß*‚#µH„*s ë}*#ÌLDISPLAY£HSLbLÕLtL�L LºLM­«J… ­¬J… l ëLB/BLK;MR/O;$MW/O;0MR/W; +Y?+ðÿPÚ#—N’B File Error#[PINCLUDEDÎ:PÚ# "*MÉNp$ç'€�(>+8$jP›0ç'PZ01Ú#,1 ó}ó#+ 4 FileError:oD.B¿"Pó##™PFILE"Î:Pç'PñBk0›0ç'PñBk0ç'"43/0PC$‡/PY'#ïPHINCLUDE"Î:÷P¤P#|#QFORTH-83Î:#}8Q ô} ASSEMBLER¶<RRà<}PUSHA;Ì+}_QPUSH0A;Ö+}mQPUSH;Ù+}|QRP; }‰QUP;¢}”QSP;¥}ŸQIP;¬}ªQN;Â}µQPUTA; õ}¤}¿QW;º}ÌQSETUP;‹&~ÖQNEXT;§~äQXYNEXT;ôJ~ñQPOPTWO;¬#~RPOP;m"IQ SAVE-SYSTEMÎ:ç'ÿÿç'ó#}!Â'!&ç'ó#›0ç ö}'ó#÷P6MÉN8$p$ç'Â'Ñ$ËO8$p$}!Â'!&›0}!Â'!&!&Û&Ñ$ËO8$ç'àç'ó#ç'áç'ó#ç' ç'ó#p$ç'Â'Ñ$ËO8$—N8$#Î:Â'ÉNp$Â'€ñ(>+ ÷} 4 File Error:oD.B8$Pó#¿Hç'€Â'PÚ#vOÂ'€�(>+8$ç'€C$ËH+Þÿ–%PÚ#—N8$¿H#RDIRÎ:î3D:*.*/0°R#SDIR"Î:÷P°R# àá |HEX››8FFF SP!››››022F CONSTANT SDMCTL››026F CONSTANT GPRIOR››D000 CONSTANT HPOS0››D01D CONSTANT GRACTL››D407 CONSTANT PMBASE›ù}›230 CONSTANT SDLSTL››D40B CONSTANT VCOUNT››A000 CONSTANT SCREEN0››BF60 CONSTANT SCREEN1››››02C0 CONSTANT PCOLR0››02C4 CONSTú}ANT COLOR0››02C5 CONSTANT COLOR1››02C6 CONSTANT COLOR2››02C8 CONSTANT COLOR4››0278 CONSTANT STICK0››D004 CONSTANT P0PF››D01E û}CONSTANT HITCLR››››VARIABLE XPOS››VARIABLE YPOS››VARIABLE TESTXY››VARIABLE MILLI››VARIABLE ODLIST››VARIABLE COLOR0O››VARIABLEü} COLOR1O››VARIABLE COLOR2O››VARIABLE COLOR4O››VARIABLE ZC››VARIABLE ZZ ››VARIABLE ZA››VARIABLE ZA1››››VARIABLE DLIST -2 ALLOTý}››70 C, 70 C, 70 C,››4D C, SCREEN0 ,››0D0D , 0D0D , 0D0D , 0D0D ,››0D0D , 0D0D , 0D0D , 0D0D ,››0D0D , 0D0D , 0D0D , 0D0D ,þ}››0D0D , 0D0D , 0D0D , 0D0D ,››0D0D , 0D0D , 0D0D , 0D0D ,››0D0D , 0D0D , 0D0D , 0D0D ,››0D0D , 0D0D , 0D0D , 0D0D ,››0D0D , }: HALLO-WELT›› CR ." Hallo Welt. Hier ist volksForth" CR›› KEY DROP›› ;››››' HALLO-WELT IS 'COLD››››SAVE››››SAVE-SYSTEM D:!}HALLO.COM›››››››› 0D0D , 0D0D , 0D0D ,››0D0D , 0D0D , 0D0D , 0D0D ,››0D0D , 0D0D , 0D0D , 0D C,››42 C, SCREEN1 ,››0202 , 02 ,››41 C, DLIST ,}››››VARIABLE SPRITE0 9 ALLOT››FF SPRITE0 C!››81 SPRITE0 1 + C!››81 SPRITE0 2 + C!››81 SPRITE0 3 + C!››81 SPRITE0 4 + C!››81 S}PRITE0 5 + C!››81 SPRITE0 6 + C!››81 SPRITE0 7 + C!››FF SPRITE0 8 + C!››››: GCLS SCREEN0 C80 0 FILL ;››››: READ-DAT›››SCREEN0} C80 SOURCE-ID @ READ-FILE›››SOURCE-ID @ CLOSE-FILE ;››››: INCLUDED-DAT›››SOURCE-ID @ >R R/O OPEN-FILE DUP $80 < IF DROP›}››SOURCE-ID ! READ-DAT ELSE›››." FEHLER:" . ABORT THEN R> SOURCE-ID ! ;››››: FILE-DAT"›››FNBUF $50 BL FILL HERE $50 BL FILL A}SCII " WORD›››COUNT FNBUF SWAP CMOVE FNBUF 0 INCLUDED-DAT ;››››: FILE-DAT›››FNBUF $50 BL FILL " D:MULBI.BIN"›››COUNT FNBUF SW}AP CMOVE FNBUF 0 INCLUDED-DAT ;››››: INITPM›››SDMCTL C@ 1C OR SDMCTL C!›››3 GRACTL C!›››1 GPRIOR C!›››90 PMBASE C! ;››››: DEL}AY›››ZZ @ 0 DO›››LOOP ;››››: PM0POS›››9400 FF 0 FILL›››SPRITE0 9400 YPOS C@ + 9 MOVE›››XPOS C@ HPOS0 C!›››DELAY ;››››: BEWEGE }›› PAGE›› ZA1 ! ›››››BEGIN››› ››››FF ZZ !››››››STICK0 C@››››DUP 0E = IF YPOS C@ 1 - YPOS C! 1 TESTXY C! 1 ZA @ + DUP ZA  }! . CR PM0POS THEN››››DUP 0D = IF YPOS C@ 1 + YPOS C! 2 TESTXY C! 1 ZA @ + DUP ZA ! . CR PM0POS THEN››››DUP 07 = IF XPOS C@ 1 } + XPOS C! 3 TESTXY C! 1 ZA @ + DUP ZA ! . CR PM0POS THEN›››› 0B = IF XPOS C@ 1 - XPOS C! 4 TESTXY C! 1 ZA @ + DUP ZA ! .  }CR PM0POS THEN››››››P0PF C@ 0 > IF››››500 ZZ !›› TESTXY C@ 1 = IF YPOS C@ 4 + YPOS C! 1 ZC @ + ZC ! PM0POS THEN››››TESTXY } C@ 2 = IF YPOS C@ 4 - YPOS C! 1 ZC @ + ZC ! PM0POS THEN››››TESTXY C@ 3 = IF XPOS C@ 4 - XPOS C! 1 ZC @ + ZC ! PM0POS THEN›}›››TESTXY C@ 4 = IF XPOS C@ 4 + XPOS C! 1 ZC @ + ZC ! PM0POS THEN››››THEN›› ›› ZC @ A = IF ZA1 @ ZA ! THEN›› ››››1} HITCLR C!››››0 TESTXY C!›››ZA @ ZA1 @ = UNTIL›››› 0 ZC !›› 0 ZA !›› 0 ZA1 !›››PAGE ." wegpunkte/colli erreicht ! " CR ;››}››: INIT›››INITPM›››››70 PCOLR0 C!›››0C COLOR4 C!›››DLIST SDLSTL !›››4 2BF C!›››››FILE-DAT›››››32 DUP XPOS C! YPOS C! PM0POS›}››0 ZC !›››0 ZA !›››0 ZA1 !›››DECIMAl ;››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››}›¥¥i…¥�榡¥Å±¥åðLA(LD(Î:ç'€é%)#!µ(>Î:C$�(#!í(0>Î:\&ß(#!û(0<>Î:Q(A&#! )U>Î:C$º(#!)=Î:!&Q(#!))D0=Î:Ì%}Q(#!7)D=Î:m&­&=)#!G)D<Î:Ñ$¡%!&>+ ñ("%"%+–%º(#Î: #>+C$8$#"X)MINÎ:¡%ñ(y)"‰)MAXÎ:¡%�(y)"™)UMAXÎ:¡%º(y)"©)U}MINÎ:¡%)y)"º)EXTENDÎ:p$ß(#"Ë)DABSÎ:Ô)>+m&#"Þ)ABSÎ:Ô)>+\&#Î: #¿"ù&p$ "Ñ$ "C$ " "##ó)ƒ(DOÎ:¬$!&*#*„(?DOÎ:¬$!}&•$>+*¿"p$Ú#¯% "8$##/*BOUNDSÎ:¬$¯%C$##T*‡ENDLOOPu*©LÖ"$i*…(LOOP†*©a � � ± i‘ �L§ ± …­ˆ± …¬ L§$|*†(+LOOP·*}¡¥a � ±¥q ‘ jQ¥¥¥i…¥�æ¦(ÄL§%¬*�Iá* ¥¥8é…¥°Ʀ± ÈÈq �¥ˆ± ÈÈq  ‘¥L§%Û*�J + ÐÒ&+†BRANCH+¥¬a¬…Â¥­q¬…­¥Â…¬L§&}+‡?BRANCH@+¡¥¥¥¥i…¥�æ¦(ðËLü''4+>MARKÎ:›0Y'Ï0#'X+>RESOLVEÎ:›0¬$!&C$ó##'l++`+t'#),ÄTHE}NÎ:ù)t'·+w+#)),ÄELSEÎ:t'·+ú0+`+C$w+K'#)>,ÅBEGINÎ:�+~'#)[,ÅWHILEÎ:~'·+~'ú0>+`+ç'þÿ€%#Î:¢+p$ç'þÿ-)>+ 8$w++îÿ#)m,ÆRE}PEATÎ:~'·+ú0+‹,#)§,ÅUNTILÎ:~'·+ú0>+‹,#*À,ÂDOÎ:ú0%*`+ˆ'#*Ø,Ã?DOÎ:ú06*`+ˆ'#*ë,ÄLOOPÎ:ˆ'·+ú0„*ú0s*w+#*-Å+LOOPÎ:ˆ'·+}ú0µ*ú0s*w+#*-…LEAVEÎ:s*¿"='p$Ú#¯% "#+7-UM*[-±¥…¡¥…ÃȆĆŢÅ&Ä&Ã&Â�±¥eÅ…Åȱ¥ˆeÄ…Ä�æÃÐæÂÊÐܥő¥È¥Ä‘¥ ¥Â‘¥¥Ã�¥L§,}S-M*Î:p$ß(p$ ">+\&C$p$ß(>+ \&¿"A& "Y-¿">+m&#,¦-*Î:Y-8$#,Û-2*ð-¡¥ �¥±¥*‘¥L§Î:p$¯%#Î:K'’BDIVISION OVERFLOW#-é-}UM/MOD,.¡¥…DZ¥…Æ¥¥i…¥�榡¥…ñ¥…Âȱ¥…Åȱ¥…Ä¢fÈ8¥ÃåǨ¥Â寰&È�…„Ã&Å&Ä&Ã&ÂÊÐß fÂfÃ� V!.#¥Ä‘¥È¥Ã‘¥È¥Â‘¥ ¥ÅL¤/!.M/}MODÎ:p$ "ù)¬$ß(>+4%¯%C$*.é"ß(>+\&¬$>+ C$é"¯%C$' ##/›.2/â.±¥ ±¥j‘¥¡¥jL¤0Û./MODÎ: "Ô)¿"£.#0ò./Î:ù."%#0/MODÎ: }ù.8$#0/*/MODÎ: "«-¿"£.#0%/*/Î:-/"%#0;/U/MODÎ:Y'C$*.#0J/UD/MODÎ: "Y'é"*.¿"C$ "*.¿"#1^/CMOVE‰/© ‹&ˆÄÂÐ ÆÃ L!}§±Æ‘ÄÈÐìæÇæÅL�/2/CMOVE>·/© ‹&¥ÃeÅ…Å¥ÃeÇ…ÇæÃ¤Â�ˆ±Æ‘Ä˜ÐøÆÅÆÇÆÃÐð L§2¬/MOVEÎ: "¡%º(>+¿"µ/#¿"‡/#3è/PLACEÎ:¬$ ""}Ñ$¬$Û&¿"ï/œ##3 0COUNT10¡¥…Âi�¥±¥…Ãi‘¥¥¥8é…¥°ƦLŒ#3'0ERASEÎ:Y'k0#4R0FILLm0© ‹&ˆ¥Â¦Åð ‘ÆÈÐûæÇÊÐö¦Äð‘ÆÈÊÐú L§5#}d0HEREÎ:œ!Ú##5”0PADÎ:›0ç'B¯%#5¥0ALLOTÎ:œ!$#5¹0,Î:›0ó#~'Á0#5Ë0C,Î:›0œ#t'Á0#5Ý0‡COMPILEÎ:¿"p$ù& "Ú#Ï0#6ð0#T$}IB™96 1>TIB™961>IN™96&1BLK™9621SPAN™96>1TIBÎ: 1Ú##6K1QUERYÎ:Q1ç'P�IE1Ú#1ó#,1¯'81¯'#7[1SCANÎ: "p$%}>+¬$‚#é"!&>+'C$Û&C$+äÿ ##7�1SKIPÎ: "p$>+¬$‚#é"-)>+'C$Û&C$+äÿ ##7°1/STRINGÎ:¬$Á)Ñ$¬$¯%%!&#Éa�É{°8é `8ß1&}CAPITAL2¡¥ û1�¥L§9 2 CAPITALIZE02¡¥…±¥…á…ĈÄÄРL§È±Â û1‘ÂL=2S2†È ±¥™Âˆø ­.1eÄ…Ä­/1eÅ…Å8¥Âí.1…Â¥Ãí/1…ð ¡¥�.1±¥'}�/1Lå2 ¥ÂÃð=¡ÄÑ¥ÐæÄÐæÅ¥ÂÐÆÃÆÂL�2¥Ä…ƥŅǡÄÑ¥æÄÐæÅ¥ÂÐÆÃÆÂ(ðæÈ¥ÂÃÐâ8 ¥Äñ¥�.1È¥Åñ¥�/1©e¥…¥�榠 ±¢�¥…Âȱ¢ ‘¥…ȥȑ(}±ÆÈÆÈ÷© ‘ L§=!2SOURCEÎ:Q11Ú##=3WORDÎ:!3Q2#=-3PARSEÎ: "!3,1Ú#é1¬$C$¿"ˆ1 "¬$!&p$¿")!&,1$#=>3NAMEÎ:ñB43.2#)}#>p3STATE™9>…3EASCIIÎ:ñB43Û&‚#�3Ú#>+(#>“3,"Î:ç'"F3›0¬$Û&Á00#>³3„"LITÎ:¿"¿"4%/0¯% " "#>Î3‚("Î:Õ3#>é3Á"Î:ú0î*}3¸3#?ö3ƒ(."Î:Õ3/0ËH#?4Â."Î:ú0 4¸3#?4A(Î:ç')F3–%#?)4B.(Î:ç')F3ËH#?;4A\Î:,1Ú#»D /Û&»Dß-,1ó##?N4B\\Î:M,1ó##?j+}4\NEEDSÎ:w3U>"%>+R4#?{4HEXÎ:ç'¶!ó##?–4DECIMALÎ:ç' ¶!ó##@ª4DIGIT?Î:ç'0!&p$ç' )>+ç'!&p$ç' )>+¶!Ú#¬$),}•$+#8$Y'#@Â4 ACCUMULATEÎ:C$ "C$¶!Ú#Y-8$Ñ$¶!Ú#Y-­&¿"#@5CONVERTÎ:Û&/0Ë4>+5+ôÿ'#Î:*6Ú#Q(#Î:/0K'*6$#Î:'/0#A25D-}PL™9ÿÿÎ:>+ #–%8$ #Y'#Î:>+ #8$¿">+m&Ñ$8$x5Ú#Û&•$+#8$K'#Î:ç'&ú+>+ ç' K'#ç'$ú+>+ ç'K'#ç'Hú+>+ ç'K'#ç'%ú+>.}+~'K'#Y'#Î:ç',¬$-)C$ç'.-)Ì%#Î:x5Ú#K'-)+#t'x5$#™9Cr5NUMBER?Î:¶!VAp$/0*6ó#x5�'Y' "ç'ç'Ñ$R5|5\5ç'-ú+>+ #K' "/}R5|5\5´5>+ ¶!ó#R5|5\5Ë4Q(|556R5Ž5\5Ë4Q(>+ðÿh56Q(|5x5¯'R5Ž5\5+Ôÿ#C06NUMBERÎ::6•$Q(’B?ß(>+Ô)#D¸6LAST™9Î:à6Ú#•$0}#DÙ6HIDEÎ:ä6>+ ='Ú#<Ú#ó##Dð6REVEALÎ:ä6>+ ='<Ú#ó##D 7ÉRECURSIVEÎ:7#Î:ä6>+ 4%‚#Ì%¬$œ#8$#D*7 IMMEDIATEÎ:ç'@<7#1}DT7RESTRICTÎ:ç'€<7#El7 CLEARSTACK’7 ±¢…¥È±¢…¦ L§Eƒ7HALLOTÎ:ˆ!Ú#¬$!&C$ "ù&p$Ñ$!&p$ˆ!ó#~'E%¬$!&ï/�7ˆ!ó##E¤7HEAPÎ:ˆ2}!Ú#'#EÝ7HEAP?Î:ä7M"g(#Î:p$›0¬$!&p$­7ä7C$‡/ä7¬$!&à6$7#¥ 8é… °Æ¡¥­‘ ¥¬� ¡ºi…¬Šqº…­©eºHŠe»LÙ+Î:¿"à6Ú#V:ó##Fð7ÅDO3}ES>Î:ú0O8ç'Lâ0ú0$8#Î:p$ç'ÿé%ç'ÿ-)!&#Î:›0ç'ÿé%ç'ÿ-)>+p$p$Û&›0¬$!&Û&µ/t'à6$t'Á0#G_8?HEAD™9G¿8|Î:Ç8Ú#+#K'Ç8ó##4}HÍ8WARNING™9Î:í8Ú#+#à6Ú#<Ú#™="%>+CCà6Ú#ˆ: 4EXISTS ^H#Hã8CREATEÎ:›081Ú#Ï0<Ú#Ú#Ï0w3‚#p$t'ç' g(A&’B INVALID NAME›0à5}6ó#Û&Á0ñ8Ç8Ú#>+ t'Ç8$p$y8Ï08ç' <7y8œ!ó#+�88$7Y'Ï0O8LC8ž9¡¥…Ʊ¥…Ç¥¥i…¥�榡¥…ı¥…ÅÄÐLD(±Ä‘¥…áÄ�¥…ÂÃÐL§¥Âi…Â�6}æÃ¡ÂH8)eÂ…Â�æÃh) ð ±ÂH¡Â…Âh…Ã¥ÂÅÆÐ°¥ÃÅÇЪLû&J!9>NAMEÎ:õ!Ú#p$>+¡%’'!&C$œ9•$>+%–%#+àÿ"%#Î:/0ç'é%¯%#J :NAME>Î:7}p$>:C$‚#ç' é%>+Ú##JN:>BODYÎ:ù&#Jp:.NAMEÎ:•$>+p$ø7>+ 4|/0ç'é%ËH+ 4???CC#K€::Î:*9÷6<Ú##<ó#î?Y'O8¥ 8é… 8}°Æ¡¥¬� ¥­‘ ¥ºi…¬Še»…­L§K¶:Á;Î:Y'·+ú0#Ø?7#Kò:CONSTANTÎ:*9Ï0O8¥¥8é…¥°Ʀ ±º�¥È±º ‘¥L§K;VARIABLEÎ:*9~'Á0#L8;9}UALLOTÎ:p$"Ú#¯%ç'ÿ)’B USERAREA FULL"Ú#C$"$#LO;USERÎ:*9~'X;â0O8¥¥8é…¥°Ʀ ±ºe¢�¥ŠÈe£ ‘¥L§L†;ALIASÎ:*9à6Ú#p$‚#ç:}' é%>+ ç'þÿÁ0+ç' <7>:ó##Mº;VP™9Ü<Ë<Ë<Mð;CURRENT™9Ë+^Hp$ù&ˆ:CC+æÿ8$#Pa=(FIND›= ±¥™Âˆø¡Ä)…Æ ±ÂªÈ±Â…ÆÂÂР¢LD(È>}±Â)ÅÆÐà©eÂ…Ç©eÅȤƱÄÑÇÐˈÐ÷ ¥È‘¥ˆ¥Ç‘¥ˆ¢LA(ö=¡¥…±¥…á…Ä)8eÂ…Â�æÃ¥Ä) Ð ¥Â�¥¥ÃL">¡Â�¥±Â‘¥¥¥8é…¥°Ʀ¥ÄÈ 0˜Iÿ¨È˜�¥?}©ÿ$Š ‘¥L§T‘=FINDÎ:#+='4%Ú#™=>+"%ô=#¬$õ;ù&)>+ C$='+Þÿ"%Y'#TN>'Î:w3U>Q(’BWHAT?#T—>É[COMPILE]Î:@}›>Ï0#T¯>Ã[']Î:›>(#TÅ> NULLSTRING?Î:p$‚#Q(p$>+"%#ȱºi…¬È±ºi…­ L§UÕ> >INTERPRETõ>]?V ?NOTFOUND"@??V? NO.EXTENA}SIONSÎ:¬BWHAT?#V/? INTERPRETÎ:?Î:ó@w3U>•$>+t'é%>+O#?’B COMPILE ONLYã>+#:6Q(>+)??Î:ó@w3U>•$>+)>+O#?Ï0?ã>+#:B}6•$>+)>+C$((+)??WM?A[Î:ç']?<@?�3¯'#WÔ?]Î:ç'–?<@?�3�'#Î:K'’BCRASH#Xê?DEFERÎ:*9ç'þ?Ï0O8 ±ºHȱº…»h…º L¹C}X@(ISÎ:¿"p$ù& "Ú#ó##Î:Ú#ç')?Ú#¬$-)C$ç'?Ú#-)Ì%A&’B NOT DEFERRED#X6@BISÎ:›>p$L@x:�3Ú#>+ ú0<@Ï0#ó##Î:‘Aç' ñ(’B TIGHT D}STACK7ä6>+p$ø7>+V:+’'!&jGK'’BDICTIONARY FULL#Y{@?STACKõ@  8¥¥ñ¢…ÂÈ¥¦ñ¢Ð   V!ž@# ±¢Å¥È±¢å¦ �L§ V!K'’B STACK E}EMPTYZê@.STATUS"@p!™9¿"¿"ó##Z5A„PUSHÎ:¿"C$p$ "Ú# "CA " "#[OARDEPTHÎ:’!Ú#ƒ"ù&!&à.#[nADEPTHÎ: "ˆ!Ú#C$!&à.#Î:�3Ú#>+ F} 4] # 4 OK#\‰A(QUITÎ:?A¿Hc1Y?¡A+ôÿ\¼A'QUIT"@ÄA\ÖAQUITÎ:’!Ú#’"Ø?ÞA\äA STANDARDI/OÎ:ç' Ä!’'‡/#\ùA'ABORT"@p!\BG}ABORTÎ:�73! BBëA]&BSCR™9]+BBó#,1Ú#MBó#ëA]SB‡(ABORT"Î:Õ3C$>+ "�7¿"å!sH}##8$#Î:Õ3C$>+å!s##8$#^ˆBÆABORT"Î:ú0’B¸3#^ÂBÆERROR"Î:ú0¬B¸3#_×BBL; _ìB -TRAILINGC˜ ‹&¡¥…ı¥eÅŤÂ�ˆ±ÄÉ ð ÈÐI}æÃ˜H¥ÃLÙ+˜ÐêÆÅÆÃä˜LÖ+`÷BSPACEÎ:ñBµH#`;CSPACESÎ:Y'6*CC„*s*#Î:«0='#aMCHOLDÎ:K'fC$fCÚ#œ##apC<#Î:fCfCó##a‰C#>J}Î:–%fCÚ#fC¬$!&#ašCSIGNÎ:ß(>+ç'-wC#a±C#Î:¶!Ú#g/Ñ$ç' ¬$�(>+ç'¯%ç'0¯%wC#aÊC#SÎ:ÎC¡%=)>+øÿ#böCD.RÎ:%4%å)ŽCûK}CÑ$¸CŸCÑ$¬$Ÿ)¬$!&VCËH#b D.RÎ:C$Ô)Ñ$D#b5DU.RÎ:Y'C$D#bHDD.Î:Y'DCC#bZD.Î:Ô)_D#bkDU.Î:Y'_D#cyD.SÎ: "ˆ!Ú#¬$!&L}ç' Á)]*6*ß*Ú#~D~'µ*s*#cˆDC/L;(cµDL/S;dÁDPAUSE§dÍDLOCKÎ:p$Ú#M"-)>+8$#p$Ú#>+ÕD+ôÿM"C$ó##dÙDUNLOCKÎ:pM}$àD¯'#h8é…¢hé…£©L�¢ ±¢…¥È±¢…¦ ¡¥… ±¥…¡¥¥i…¥�榢¬L`"e EFILE™;eSEPREV™9™9e_EB/BUF;ppELIMIT;¼p~EFIRSN}T™9¼Î:‚#ç' é%#Î:V:4%Û&º(C$ø7Ì%#Î:ä7õ!Ú# "¿"Ú#•$>+^p$ "’'!& "¿"Ú# "¬$'p$é"º(C$é"ù&V:º(é%>+.é"ø7>+Úÿé"ù&˜E>+¬$é"ù&¤E>+O} é"ù&>:ù&°)+¶ÿ #+œÿ#*F ±¥™Âˆø ±¢i…Èȱ¢i…É ¡Â…ʱ…ËÊð5¥ÊÅÈ¥ËåÉ� ¥ÊÅÄ¥ËåÅLoF¥ÆÅÊ¥Çå˰ ¡Ê�±ʑÂL„F¥Ê…¥˅ÃLFFLm"Î:õP}!Ú#•$>+p$ "’'!&(F¿"+êÿ#Î:M"Û&p$Ú#M"!&>+(¡%Ú#C$›0g(>+p$Ú#Û&Ú#¬$ó#'+Ú#+Îÿ–%#Î:õ!(F1<%* ¡%ß*Ú#%g(>+ ç'Ë<ß*ó#ç'þÿQ}µ*s*¡%<Ú#%g(>+ ç'Ë<<ó##Î:¬$¨FäFŠFä7C$!&­7œ!ó#Y'à6ó##uŒECLEARÎ:›0p$M"&Gœ!ó##uFG(FORGETÎ:p$ø7’B IS SYMBOL¶E&G#u`GR}FORGETÎ:›>p$ç' Ú#º(’B PROTECTED:p$ø7>+V:+='='jG#u„GEMPTYÎ:ç' Ú#M"&Gç'" Ú#"ó##vÁGSAVEÎ:›0M"&Gõ!Ú#p$='='Ú#¬$='ó#S}Ú#•$Q(>+êÿM"}!ç'‡/#vãGBYEÎ:p!M#Î:YIK-)>+K' ##vHSTOP?Î:eI>+*H*HY'#v>H?CRÎ:I»Dç' !&)>+¿H#Î:*9p$â0ù&O8LT}$8‚#Ä!Ú#¯%s##wXHOUTPUT:Î:*9î?O8L$8Ä!ó##w‘HEMIT€Hw®HCR€HwºHTYPE€HwÄHDEL€HwÐHPAGE€HwÛHAT€H wçHAT?€H wñHU}ROWÎ:÷H8$#wüHCOLÎ:÷H"%#Î:*9p$â0ù&O8L$8‚#Ñ!Ú#¯%s##w IINPUT:Î:*9î?O8L$8Ñ!ó##w7IKEY&IwSIKEY?&Iw^IDECODE&IwjIV}EXPECT&IxSEALÎ:Y'ç'Ú+êW}ÿ#Î:Y'fEó#†E”Eó##yxI'COLD"@p!Î:ÛIûIJ= 4volksFORTH-83 REV 3.81.03¿HKy J'RESTART"@p!Î:ç'ÄA<@àAQJç' Ú#å!ó#ç'p!<@"B.BX}zFJCOLD€J©JH©HX ­ i…­ i…ù ‘ÂÈÐø¥ �«J¥ �¬J @ ¹ !™¤ˆ÷­ i…¢­ i…£ ±¢…¥È±¢…¦  ±¢… È±¢…¡¢ Š� ‘ h…¬h…­©K… © Y}… ¢ L§{wJRESTART K©JH©WHLªJ;üK­üiLÖ+­%äH­$äH`,K„ÿ†þ !K¦þ¤ÿLÖ+;ð@K©�ðL§JK©LBKýJ65KEYÎ:>KÕDK>+úÿHK*K#QKZ}#BS;~mK#CR;›yK#ESC;…K65DECODEÎ:sKú+>+p$>+ÖH'#Kú+>+ p$E1ó## "¡%¯%é"C$œ#¿"µHÛ&#’K65EXPECTÎ:E1ó#Y'[}p$E1Ú#º(>+ YIsI+îÿ–%CC#ÙKKEYBOARDHIYKK�KäK­äH­äHŠ`L(EMIT3L„ÿ†þ¡¥ª L¦þ¤ÿLm";()L65EMITÎ:1L#JL65CRÎ:KSL\}#[L65DELÎ:sKSLCCsKSL#lL65PAGEÎ:ç'}µH#„L65ATÎ:ç'Uó#ç'Tœ##™L65AT?Î:ç'T‚#ç'UÚ##²L65TYPEÎ:]*6* ß*‚#µH„*s]}*#ÌLDISPLAY£HSLbLÕLtL�L LºLM­«J… ­¬J… l ëLB/BLK;MR/O;$MW/O;0MR/W; +Y?+ðÿPÚ#—N’B File Error#[PINCLUDEDÎ:PÚ# "*MÉNp$ç'€�(>+8$jP›0ç'PZ01Ú#,1e}ó#+ 4 FileError:oD.B¿"Pó##™PFILE"Î:Pç'PñBk0›0ç'PñBk0ç'"43/0PC$‡/PY'#ïPHINCLUDE"Î:÷P¤P#|#QFORTH-83Î:#}8Qf} ASSEMBLER¶<RRà<}PUSHA;Ì+}_QPUSH0A;Ö+}mQPUSH;Ù+}|QRP; }‰QUP;¢}”QSP;¥}ŸQIP;¬}ªQN;Â}µQPUTA;g}¤}¿QW;º}ÌQSETUP;‹&~ÖQNEXT;§~äQXYNEXT;ôJ~ñQPOPTWO;¬#~RPOP;m"BYE S âã _İÿÿÿÿÿÿÿÿÿÿ|ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿb%DOS SYSb*'DUP SYSB]MULBI BINBiQFTH COMBøFJOYTEX F €gVFORTH COMBvCALL F B”AS65 F BÿFSAVE F €sSAVESYS F €0AS65 F € OTAS65 F € SIEVE F €‘SAVESYS F €4TH F €(README TXT€šHANDBOOKTXTCR ›.( Build 4TH.COM from plain kernel )››\needs SAVE-SYSTEM INCLUDE" D:SAVESYS.F"››SAVE›SAVE-SYSTEM D:4TH.COM››CR›.( 4TH.COM!r} saved )›CR›› : SAVE-SYSTEM› $FFFF $600 !› ORIGIN 8 - $602 !› HERE $604 !› FILE" W/O OPEN-FILE DROP › DUP $600 6 ROT › WRI%t}TE-FILE ( save header ) DROP› DUP ORIGIN 8 - HERE › ORIGIN 8 - - 1+ ROT › WRITE-FILE DROP› $02E0 $602 !› $02E1 %u} $604 !› $2000 $606 !› DUP $602 6 ROT › WRITE-FILE DROP › CLOSE-FILE DROP ;›››$[( Call Machine Routine at "addr" )›( return value is A-Reg and Y-Reg)›HEX› CODE CALL ( addr -- res )› 4C # lda n sta› Sw}P x) lda n 1+ sta› SP )y lda n 2+ sta› n jsr› n sta› n 1+ sty› 00 # ldx› 01 # ldy› n lda SP x) sta› n 1x}+ lda SP )y sta› next jmp end-code›&EMPTYZê@.STATUS"@p!™9¿"¿"ó##Z5A„PUSHÎ:¿"C$p$ "Ú# "CA " "#[OARDEPTHÎ:’!Ú#ƒ"ù&!&à.#[nADEPTHÎ: "ˆ!Ú#C$!&à.#Î:�3Ú#>+ z} 4] # 4 OK#\‰A(QUITÎ:?A¿Hc1Y?¡A+ôÿ\¼A'QUIT"@ÄA\ÖAQUITÎ:’!Ú#’"Ø?ÞA\äA STANDARDI/OÎ:ç' Ä!’'‡/#\ùA'ABORT"@p!\B{}ABORTÎ:�73! BBëA]&BSCR™9]+BBó#,1Ú#MBó#ëA]SB‡(ABORT"Î:Õ3C$>+ "�7¿"å!s|}##8$#Î:Õ3C$>+å!s##8$#^ˆBÆABORT"Î:ú0’B¸3#^ÂBÆERROR"Î:ú0¬B¸3#_×BBL; _ìB -TRAILINGC˜ ‹&¡¥…ı¥eÅŤÂ�ˆ±ÄÉ ð ÈÐ}}æÃ˜H¥ÃLÙ+˜ÐêÆÅÆÃä˜LÖ+`÷BSPACEÎ:ñBµH#`;CSPACESÎ:Y'6*CC„*s*#Î:«0='#aMCHOLDÎ:K'fC$fCÚ#œ##apC<#Î:fCfCó##a‰C#>~}Î:–%fCÚ#fC¬$!&#ašCSIGNÎ:ß(>+ç'-wC#a±C#Î:¶!Ú#g/Ñ$ç' ¬$�(>+ç'¯%ç'0¯%wC#aÊC#SÎ:ÎC¡%=)>+øÿ#böCD.RÎ:%4%å)ŽCû}CÑ$¸CŸCÑ$¬$Ÿ)¬$!&VCËH#b D.RÎ:C$Ô)Ñ$D#b5DU.RÎ:Y'C$D#bHDD.Î:Y'DCC#bZD.Î:Ô)_D#bkDU.Î:Y'_D#cyD.SÎ: "ˆ!Ú#¬$!&€}ç' Á)]*6*ß*Ú#~D~'µ*s*#cˆDC/L;(cµDL/S;dÁDPAUSE§dÍDLOCKÎ:p$Ú#M"-)>+8$#p$Ú#>+ÕD+ôÿM"C$ó##dÙDUNLOCKÎ:p�}$àD¯'#h8é…¢hé…£©L�¢ ±¢…¥È±¢…¦ ¡¥… ±¥…¡¥¥i…¥�榢¬L`"e EFILE™;eSEPREV™9™9e_EB/BUF;ppELIMIT;¼p~EFIRS‚}T™9¼Î:‚#ç' é%#Î:V:4%Û&º(C$ø7Ì%#Î:ä7õ!Ú# "¿"Ú#•$>+^p$ "’'!& "¿"Ú# "¬$'p$é"º(C$é"ù&V:º(é%>+.é"ø7>+Úÿé"ù&˜E>+¬$é"ù&¤E>+ƒ} é"ù&>:ù&°)+¶ÿ #+œÿ#*F ±¥™Âˆø ±¢i…Èȱ¢i…É ¡Â…ʱ…ËÊð5¥ÊÅÈ¥ËåÉ� ¥ÊÅÄ¥ËåÅLoF¥ÆÅÊ¥Çå˰ ¡Ê�±ʑÂL„F¥Ê…¥˅ÃLFFLm"Î:õ„}!Ú#•$>+p$ "’'!&(F¿"+êÿ#Î:M"Û&p$Ú#M"!&>+(¡%Ú#C$›0g(>+p$Ú#Û&Ú#¬$ó#'+Ú#+Îÿ–%#Î:õ!(F1<%* ¡%ß*Ú#%g(>+ ç'Ë<ß*ó#ç'þÿ…}µ*s*¡%<Ú#%g(>+ ç'Ë<<ó##Î:¬$¨FäFŠFä7C$!&­7œ!ó#Y'à6ó##uŒECLEARÎ:›0p$M"&Gœ!ó##uFG(FORGETÎ:p$ø7’B IS SYMBOL¶E&G#u`G†}FORGETÎ:›>p$ç' Ú#º(’B PROTECTED:p$ø7>+V:+='='jG#u„GEMPTYÎ:ç' Ú#M"&Gç'" Ú#"ó##vÁGSAVEÎ:›0M"&Gõ!Ú#p$='='Ú#¬$='ó#‡}Ú#•$Q(>+êÿM"}!ç'‡/#vãGBYEÎ:p!.M#Î:YI‚K-)>+K' ##vHSTOP?Î:eI>+*H*HY'#v>H?CRÎ:I»Dç' !&)>+¿H#Î:*9p$â0ù&O8Lˆ}$8‚#Ä!Ú#¯%s##wXHOUTPUT:Î:*9î?O8L$8Ä!ó##w‘HEMIT€Hw®HCR€HwºHTYPE€HwÄHDEL€HwÐHPAGE€HwÛHAT€H wçHAT?€H wñH‰}ROWÎ:÷H8$#wüHCOLÎ:÷H"%#Î:*9p$â0ù&O8L$8‚#Ñ!Ú#¯%s##w IINPUT:Î:*9î?O8L$8Ñ!ó##w7IKEY&IwSIKEY?&Iw^IDECODE&IwjIŠ}EXPECT&IxSEALÎ:Y'ç'Ú+ê‹}ÿ#Î:Y'fEó#†E”Eó##yxI'COLD"@öTÎ:ÛIûIâHJ= 4volksFORTH-83 REV 3.81.03¿H Ky J'RESTART"@p!Î:ç'ÄA<@àASJç' Ú#å!ó#ç'p!<@"BŒ}.BzHJCOLD‚J©JH©HX ­ i…­ i…ù ‘ÂÈÐø¥ �­J¥ �®J à ¹ !™¤ˆ÷­ i…¢­ i…£ ±¢…¥È±¢…¦  ±¢… È±¢…¡¢ Š� ‘ h…¬h…­©K… �}© … ¢ L§{yJRESTART K©JH©YHL¬J;üK­üiLÖ+­%äH­$äH`/K„ÿ†þ $K¦þ¤ÿLÖ+;ðCK©�ðL§MK©LEKK65KEYÎ:AKÕDK>+úÿKK-K#Ž}TK#BS;~pK#CR;›|K#ESC;ˆK65DECODEÎ:vKú+>+p$>+ÖH'#‚Kú+>+ p$E1ó## "¡%¯%é"C$œ#¿"µHÛ&#•K65EXPECTÎ:E1ó�}#Y'p$E1Ú#º(>+ YIsI+îÿ–%CC#ÜKKEYBOARDHI\KK KçK­äH­äHŠ` L(EMIT6L„ÿ†þ¡¥ª L¦þ¤ÿLm"™9€;(,L65EMITÎ:t'GL$4L#Q�}L65CRÎ:‚KZLGLÚ#KL /Û&KLß-GLó##hL65DELÎ:vKZLCCvKZLç'þÿGL$#‹L65PAGEÎ:GL¯'#«L65ATÎ:C$KLß-¯%GLó##¾L65AT?Î:GLÚ#K‘}Lù.ç'�)C$#×L65TYPEÎ:]*6* ß*‚#µH„*s*#õLDISPLAY£HZLoLþL“L´LÅLßL0M­­J… ­®J… l MB/BLK;?MR/O;MMW/O;’}YMR/W; eMIO-OPEN;qM IO-GETREC;�M IO-GETCHR;“M IO-PUTREC; ¥M IO-PUTCHR; ·MIO-CLOSE; ÉMICF“}LG;@ÚMICCOM;BèMICSTA;CöMICBAL;DNICBAH;ENICBLL;H NICBLH;I.NICAX1;J+Y?+ðÿ9PÚ#ÀN’B File Error#„PINCLUDEDΙ}:9PÚ# "SMòNp$ç'€�(>+8$“P›0ç'PZ01Ú#,1ó#+ 4 FileError:oD.B¿"9Pó##ÂPFILE"Î:GPç'PñBk0›0ç'PñBk0ç'"43/0GPC$‡/GPY'#š}QHINCLUDE"Î: QÍP#|LQFORTH-83Î:#}aQ ASSEMBLER¶<9R9Rà<}PUSHA;Ì+}ˆQPUSH0A;Ö+}–QPUSH;Ù+}¥QRP; }²QUP;¢}›}½QSP;¥}ÈQIP;¬}ÓQN;Â}ÞQPUTA;¤}èQW;ºó}õQSETUP;‹&~RNEXT;§~RXYNEXT;öJ~RPOPTWO;¬#~*RPOP;m"œ}rQ SAVE-SYSTEMÎ:ç'ÿÿç'ó#}!Â'!&ç'ó#›0ç'ó# Q_MòN8$p$ç'Â'Ñ$ôO8$p$}!Â'!&›0}!Â'!&!&Û&Ñ$ôO8$ç'àç'ó#ç'áç'ó#ç' ç'�}ó#p$ç'Â'Ñ$ôO8$ÀN8$#Î:Â'òNp$Â'€ñ(>+ 4 File Error:oD.B8$9Pó#¿Hç'€Â'9PÚ#ŸOÂ'€�(>+8$ç'€C$ËH+Þÿ–%9PÚ#ÀN8$¿H#ERDIž}RÎ:î3D:*.*/0ÚR#:SDIR"Î: QÚR#RSCALLlS©L…¡¥…ñ¥…Ä Â…Â„Ã¢ ¥Â�¥¥Ã‘¥L§cS?SPARTAÎ:ç'‚#Â'S-)#�SCOMTABÎ:Â' Ú#Ÿ}#«SBUFOFSÎ:´SÂ' ¯%#¿SZCRNAMEÎ:´Sˆ'¯%jS8$#ÕSGETPARMÎ:p$p$p$Â'¯%C$%*ß*‚#Â'›-)>+ß*?-„*s*C$!&#ïSFNAMEÎ:´SÂ'!¯ }%ùS#)TPARMÎ:´SÂ'$¯%ùS#@TRESETBUFÎ:Y'ÈSœ#ßS#VTPARAMSÎ:aTY'ßSGTC$8$p$>+C$Û&C$Q(>+èÿaT#oT(TIME)Î:´S¯%‚##žT¡}HOURÎ:Â'§T#³TMINUTEÎ:Â'§T#ÅTSECONDÎ:Â'§T#ÙTLAUNCHÎ:xT>+ ¿HßS1TÍP# àá Y;&NEGATE^&8°ãS&DNEGATEo&È8Šñ¥‘¥ÈŠñ¥‘¥Šá¥�¥ Šñ¥‘¥L§ ª¨ˆ±¥™ÂˆøŠe¥…¥�榢 `c&D+¯&© ‹&ȱ¥eÄ‘¥È±¥eÅ‘¥¡¥eÂ�¥ ±¥eÑ£}¥L§¨&1+Ý&©a¥°L¤�¥±¥i‘¥L§Ö&2+û&©Ðàô&3+'©ÐÓ'©ÐÍ'©ÐÇ'1-!'8¡¥é�L¤�¥±¥é‘¥L§'2-?'�à8'TRUE;¤}ÿÿD'FALSE;Q'"-1K'_'!0Y'h'1;p'2;z'3;„'4;Ž'ONÎ:K'C$ó##˜'OFFÎ:Y'C$ó##©'„CLITÄ'¥¥8é…¥}¥°Ʀ¡¬�¥Š‘¥æ¬Ðæ­L§»'ƒLITé'¥¥8é…¥°Ʀ±¬‘¥¡¬�¥¥¬i…¬�æ­L§á'ÇLITERALÎ:p$ç'ÿé%>+ ú0ç'Ï0#ú0Â'â0# (0<=(±¥©ÿ$Š‘¥¦}L¤6(0=S(¡¥¥ðèÐéL(UWITHINi(© ‹& ¡¥Å±¥åð ¡¥Åı¥åŰ½LD( ](<�(¡¥…±¥…Ã¥¥i…¥�榥ÃQ¥0•¡¥Å±¥åÃL?( ‰(U<¼(¡¥…±¥…ç}¥¥i…¥�榡¥Å±¥åðLA(LD(Î:ç'€é%)#!µ(>Î:C$�(#!í(0>Î:\&ß(#!û(0<>Î:Q(A&#! )U>Î:C$º(#!)=Î:!&Q(#!))D0=Î:Ì%¨}Q(#!7)D=Î:m&­&=)#!G)D<Î:Ñ$¡%!&>+ ñ("%"%+–%º(#Î: #>+C$8$#"X)MINÎ:¡%ñ(y)"‰)MAXÎ:¡%�(y)"™)UMAXÎ:¡%º(y)"©)U©}MINÎ:¡%)y)"º)EXTENDÎ:p$ß(#"Ë)DABSÎ:Ô)>+m&#"Þ)ABSÎ:Ô)>+\&#Î: #¿"ù&p$ "Ñ$ "C$ " "##ó)ƒ(DOÎ:¬$!&*#*„(?DOÎ:¬$!ª}&•$>+*¿"p$Ú#¯% "8$##/*BOUNDSÎ:¬$¯%C$##T*‡ENDLOOPu*©LÖ"$i*…(LOOP†*©a � � ± i‘ �L§ ± …­ˆ± …¬ L§$|*†(+LOOP·*«}¡¥a � ±¥q ‘ jQ¥¥¥i…¥�æ¦(ÄL§%¬*�Iá* ¥¥8é…¥°Ʀ± ÈÈq �¥ˆ± ÈÈq  ‘¥L§%Û*�J + ÐÒ&+†BRANCH+¥¬a¬…Â¥­q¬…­¥Â…¬L§&¬}+‡?BRANCH@+¡¥¥¥¥i…¥�æ¦(ðËLü''4+>MARKÎ:›0Y'Ï0#'X+>RESOLVEÎ:›0¬$!&C$ó##'l++`+t'#),ÄTHE®}NÎ:ù)t'·+w+#)),ÄELSEÎ:t'·+ú0+`+C$w+K'#)>,ÅBEGINÎ:�+~'#)[,ÅWHILEÎ:~'·+~'ú0>+`+ç'þÿ€%#Î:¢+p$ç'þÿ-)>+ 8$w++îÿ#)m,ÆRE¯}PEATÎ:~'·+ú0+‹,#)§,ÅUNTILÎ:~'·+ú0>+‹,#*À,ÂDOÎ:ú0%*`+ˆ'#*Ø,Ã?DOÎ:ú06*`+ˆ'#*ë,ÄLOOPÎ:ˆ'·+ú0„*ú0s*w+#*-Å+LOOPÎ:ˆ'·+°}ú0µ*ú0s*w+#*-…LEAVEÎ:s*¿"='p$Ú#¯% "#+7-UM*[-±¥…¡¥…ÃȆĆŢÅ&Ä&Ã&Â�±¥eÅ…Åȱ¥ˆeÄ…Ä�æÃÐæÂÊÐܥő¥È¥Ä‘¥ ¥Â‘¥¥Ã�¥L§,±}S-M*Î:p$ß(p$ ">+\&C$p$ß(>+ \&¿"A& "Y-¿">+m&#,¦-*Î:Y-8$#,Û-2*ð-¡¥ �¥±¥*‘¥L§Î:p$¯%#Î:K'’BDIVISION OVERFLOW#-é-²}UM/MOD,.¡¥…DZ¥…Æ¥¥i…¥�榡¥…ñ¥…Âȱ¥…Åȱ¥…Ä¢fÈ8¥ÃåǨ¥Â寰&È�…„Ã&Å&Ä&Ã&ÂÊÐß fÂfÃ� V!.#¥Ä‘¥È¥Ã‘¥È¥Â‘¥ ¥ÅL¤/!.M/³}MODÎ:p$ "ù)¬$ß(>+4%¯%C$*.é"ß(>+\&¬$>+ C$é"¯%C$' ##/›.2/â.±¥ ±¥j‘¥¡¥jL¤0Û./MODÎ: "Ô)¿"£.#0ò./Î:ù."%#0/MODÎ:´}ù.8$#0/*/MODÎ: "«-¿"£.#0%/*/Î:-/"%#0;/U/MODÎ:Y'C$*.#0J/UD/MODÎ: "Y'é"*.¿"C$ "*.¿"#1^/CMOVE‰/© ‹&ˆÄÂÐ ÆÃ Lµ}§±Æ‘ÄÈÐìæÇæÅL�/2/CMOVE>·/© ‹&¥ÃeÅ…Å¥ÃeÇ…ÇæÃ¤Â�ˆ±Æ‘Ä˜ÐøÆÅÆÇÆÃÐð L§2¬/MOVEÎ: "¡%º(>+¿"µ/#¿"‡/#3è/PLACEÎ:¬$ "¶}Ñ$¬$Û&¿"ï/œ##3 0COUNT10¡¥…Âi�¥±¥…Ãi‘¥¥¥8é…¥°ƦLŒ#3'0ERASEÎ:Y'k0#4R0FILLm0© ‹&ˆ¥Â¦Åð ‘ÆÈÐûæÇÊÐö¦Äð‘ÆÈÊÐú L§5·}d0HEREÎ:œ!Ú##5”0PADÎ:›0ç'B¯%#5¥0ALLOTÎ:œ!$#5¹0,Î:›0ó#~'Á0#5Ë0C,Î:›0œ#t'Á0#5Ý0‡COMPILEÎ:¿"p$ù& "Ú#Ï0#6ð0#T¸}IB™96 1>TIB™961>IN™96&1BLK™9621SPAN™96>1TIBÎ: 1Ú##6K1QUERYÎ:Q1ç'P�IE1Ú#1ó#,1¯'81¯'#7[1SCANÎ: "p$¹}>+¬$‚#é"!&>+'C$Û&C$+äÿ ##7�1SKIPÎ: "p$>+¬$‚#é"-)>+'C$Û&C$+äÿ ##7°1/STRINGÎ:¬$Á)Ñ$¬$¯%%!&#Éa�É{°8é `8ß1º}CAPITAL2¡¥ û1�¥L§9 2 CAPITALIZE02¡¥…±¥…á…ĈÄÄРL§È±Â û1‘ÂL=2S2†È ±¥™Âˆø ­.1eÄ…Ä­/1eÅ…Å8¥Âí.1…Â¥Ãí/1…ð ¡¥�.1±¥»}�/1Lå2 ¥ÂÃð=¡ÄÑ¥ÐæÄÐæÅ¥ÂÐÆÃÆÂL�2¥Ä…ƥŅǡÄÑ¥æÄÐæÅ¥ÂÐÆÃÆÂ(ðæÈ¥ÂÃÐâ8 ¥Äñ¥�.1È¥Åñ¥�/1©e¥…¥�榠 ±¢�¥…Âȱ¢ ‘¥…ȥȑ¼}±ÆÈÆÈ÷© ‘ L§=!2SOURCEÎ:Q11Ú##=3WORDÎ:!3Q2#=-3PARSEÎ: "!3,1Ú#é1¬$C$¿"ˆ1 "¬$!&p$¿")!&,1$#=>3NAMEÎ:ñB43.2#½}#>p3STATE™9>…3EASCIIÎ:ñB43Û&‚#�3Ú#>+(#>“3,"Î:ç'"F3›0¬$Û&Á00#>³3„"LITÎ:¿"¿"4%/0¯% " "#>Î3‚("Î:Õ3#>é3Á"Î:ú0î¾}3¸3#?ö3ƒ(."Î:Õ3/0ËH#?4Â."Î:ú0 4¸3#?4A(Î:ç')F3–%#?)4B.(Î:ç')F3ËH#?;4A\Î:,1Ú#»D /Û&»Dß-,1ó##?N4B\\Î:GM,1ó##?j¿}4\NEEDSÎ:w3U>"%>+R4#?{4HEXÎ:ç'¶!ó##?–4DECIMALÎ:ç' ¶!ó##@ª4DIGIT?Î:ç'0!&p$ç' )>+ç'!&p$ç' )>+¶!Ú#¬$)À}•$+#8$Y'#@Â4 ACCUMULATEÎ:C$ "C$¶!Ú#Y-8$Ñ$¶!Ú#Y-­&¿"#@5CONVERTÎ:Û&/0Ë4>+5+ôÿ'#Î:*6Ú#Q(#Î:/0K'*6$#Î:'/0#A25DÁ}PL™9ÿÿÎ:>+ #–%8$ #Y'#Î:>+ #8$¿">+m&Ñ$8$x5Ú#Û&•$+#8$K'#Î:ç'&ú+>+ ç' K'#ç'$ú+>+ ç'K'#ç'Hú+>+ ç'K'#ç'%ú+>Â}+~'K'#Y'#Î:ç',¬$-)C$ç'.-)Ì%#Î:x5Ú#K'-)+#t'x5$#™9Cr5NUMBER?Î:¶!VAp$/0*6ó#x5�'Y' "ç'ç'Ñ$R5|5\5ç'-ú+>+ #K' "Ã}R5|5\5´5>+ ¶!ó#R5|5\5Ë4Q(|556R5Ž5\5Ë4Q(>+ðÿh56Q(|5x5¯'R5Ž5\5+Ôÿ#C06NUMBERÎ::6•$Q(’B?ß(>+Ô)#D¸6LAST™9Î:à6Ú#•$Ä}#DÙ6HIDEÎ:ä6>+ ='Ú#<Ú#ó##Dð6REVEALÎ:ä6>+ ='<Ú#ó##D 7ÉRECURSIVEÎ:7#Î:ä6>+ 4%‚#Ì%¬$œ#8$#D*7 IMMEDIATEÎ:ç'@<7#Å}DT7RESTRICTÎ:ç'€<7#El7 CLEARSTACK’7 ±¢…¥È±¢…¦ L§Eƒ7HALLOTÎ:ˆ!Ú#¬$!&C$ "ù&p$Ñ$!&p$ˆ!ó#~'E%¬$!&ï/�7ˆ!ó##E¤7HEAPÎ:ˆÆ}!Ú#'#EÝ7HEAP?Î:ä7M"g(#Î:p$›0¬$!&p$­7ä7C$‡/ä7¬$!&à6$7#¥ 8é… °Æ¡¥­‘ ¥¬� ¡ºi…¬Šqº…­©eºHŠe»LÙ+Î:¿"à6Ú#V:ó##Fð7ÅDOÇ}ES>Î:ú0O8ç'Lâ0ú0$8#Î:p$ç'ÿé%ç'ÿ-)!&#Î:›0ç'ÿé%ç'ÿ-)>+p$p$Û&›0¬$!&Û&µ/t'à6$t'Á0#G_8?HEAD™9G¿8|Î:Ç8Ú#+#K'Ç8ó##È}HÍ8WARNING™9Î:í8Ú#+#à6Ú#<Ú#™="%>+CCà6Ú#ˆ: 4EXISTS ^H#Hã8CREATEÎ:›081Ú#Ï0<Ú#Ú#Ï0w3‚#p$t'ç' g(A&’B INVALID NAME›0àÉ}6ó#Û&Á0ñ8Ç8Ú#>+ t'Ç8$p$y8Ï08ç' <7y8œ!ó#+�88$7Y'Ï0O8LC8ž9¡¥…Ʊ¥…Ç¥¥i…¥�榡¥…ı¥…ÅÄÐLD(±Ä‘¥…áÄ�¥…ÂÃÐL§¥Âi…Â�Ê}æÃ¡ÂH8)eÂ…Â�æÃh) ð ±ÂH¡Â…Âh…Ã¥ÂÅÆÐ°¥ÃÅÇЪLû&J!9>NAMEÎ:õ!Ú#p$>+¡%’'!&C$œ9•$>+%–%#+àÿ"%#Î:/0ç'é%¯%#J :NAME>Î:Ë}p$>:C$‚#ç' é%>+Ú##JN:>BODYÎ:ù&#Jp:.NAMEÎ:•$>+p$ø7>+ 4|/0ç'é%ËH+ 4???CC#K€::Î:*9÷6<Ú##<ó#î?Y'O8¥ 8é… Ì}°Æ¡¥¬� ¥­‘ ¥ºi…¬Še»…­L§K¶:Á;Î:Y'·+ú0#Ø?7#Kò:CONSTANTÎ:*9Ï0O8¥¥8é…¥°Ʀ ±º�¥È±º ‘¥L§K;VARIABLEÎ:*9~'Á0#L8;Í}UALLOTÎ:p$"Ú#¯%ç'ÿ)’B USERAREA FULL"Ú#C$"$#LO;USERÎ:*9~'X;â0O8¥¥8é…¥°Ʀ ±ºe¢�¥ŠÈe£ ‘¥L§L†;ALIASÎ:*9à6Ú#p$‚#çÎ}' é%>+ ç'þÿÁ0+ç' <7>:ó##Mº;VP™9Ü<Ë<æRË<Mð;CURRENT™9Ë+^Hp$ù&ˆ:CC+æÿ8$#Pa=(FIND›= ±¥™Âˆø¡Ä)…Æ ±ÂªÈ±Â…ÆÂÂР¢LD(ÈÒ}±Â)ÅÆÐà©eÂ…Ç©eÅȤƱÄÑÇÐˈÐ÷ ¥È‘¥ˆ¥Ç‘¥ˆ¢LA(ö=¡¥…±¥…á…Ä)8eÂ…Â�æÃ¥Ä) Ð ¥Â�¥¥ÃL">¡Â�¥±Â‘¥¥¥8é…¥°Ʀ¥ÄÈ 0˜Iÿ¨È˜�¥Ó}©ÿ$Š ‘¥L§T‘=FINDÎ:#+='4%Ú#™=>+"%ô=#¬$õ;ù&)>+ C$='+Þÿ"%Y'#TN>'Î:w3U>Q(’BWHAT?#T—>É[COMPILE]Î:Ô}›>Ï0#T¯>Ã[']Î:›>(#TÅ> NULLSTRING?Î:p$‚#Q(p$>+"%#ȱºi…¬È±ºi…­ L§UÕ> >INTERPRETõ>]?V ?NOTFOUND"@??V? NO.EXTENÕ}SIONSÎ:¬BWHAT?#V/? INTERPRETÎ:?Î:ó@w3U>•$>+t'é%>+O#?’B COMPILE ONLYã>+#:6Q(>+)??Î:ó@w3U>•$>+)>+O#?Ï0?ã>+#:Ö}6•$>+)>+C$((+)??WM?A[Î:ç']?<@?�3¯'#WÔ?]Î:ç'–?<@?�3�'#Î:K'’BCRASH#Xê?DEFERÎ:*9ç'þ?Ï0O8 ±ºHȱº…»h…º L¹×}X@(ISÎ:¿"p$ù& "Ú#ó##Î:Ú#ç')?Ú#¬$-)C$ç'?Ú#-)Ì%A&’B NOT DEFERRED#X6@BISÎ:›>p$L@x:�3Ú#>+ ú0<@Ï0#ó##Î:‘Aç' ñ(’B TIGHT Ø}STACK7ä6>+p$ø7>+V:+’'!&jGK'’BDICTIONARY FULL#Y{@?STACKõ@  8¥¥ñ¢…ÂÈ¥¦ñ¢Ð   V!ž@# ±¢Å¥È±¢å¦ �L§ V!K'’B STACK Ù}EMPTYZê@.STATUS"@p!™9¿"¿"ó##Z5A„PUSHÎ:¿"C$p$ "Ú# "CA " "#[OARDEPTHÎ:’!Ú#ƒ"ù&!&à.#[nADEPTHÎ: "ˆ!Ú#C$!&à.#Î:�3Ú#>+ Ú} 4] # 4 OK#\‰A(QUITÎ:?A¿Hc1Y?¡A+ôÿ\¼A'QUIT"@ÄA\ÖAQUITÎ:’!Ú#’"Ø?ÞA\äA STANDARDI/OÎ:ç' Ä!’'‡/#\ùA'ABORT"@p!\BÛ}ABORTÎ:�73! BBëA]&BSCR™9]+BBó#,1Ú#MBó#ëA]SB‡(ABORT"Î:Õ3C$>+ "�7¿"å!sÜ}##8$#Î:Õ3C$>+å!s##8$#^ˆBÆABORT"Î:ú0’B¸3#^ÂBÆERROR"Î:ú0¬B¸3#_×BBL; _ìB -TRAILINGC˜ ‹&¡¥…ı¥eÅŤÂ�ˆ±ÄÉ ð ÈÐÝ}æÃ˜H¥ÃLÙ+˜ÐêÆÅÆÃä˜LÖ+`÷BSPACEÎ:ñBµH#`;CSPACESÎ:Y'6*CC„*s*#Î:«0='#aMCHOLDÎ:K'fC$fCÚ#œ##apC<#Î:fCfCó##a‰C#>Þ}Î:–%fCÚ#fC¬$!&#ašCSIGNÎ:ß(>+ç'-wC#a±C#Î:¶!Ú#g/Ñ$ç' ¬$�(>+ç'¯%ç'0¯%wC#aÊC#SÎ:ÎC¡%=)>+øÿ#böCD.RÎ:%4%å)ŽCûß}CÑ$¸CŸCÑ$¬$Ÿ)¬$!&VCËH#b D.RÎ:C$Ô)Ñ$D#b5DU.RÎ:Y'C$D#bHDD.Î:Y'DCC#bZD.Î:Ô)_D#bkDU.Î:Y'_D#cyD.SÎ: "ˆ!Ú#¬$!&à}ç' Á)]*6*ß*Ú#~D~'µ*s*#cˆDC/L;(cµDL/S;dÁDPAUSE§dÍDLOCKÎ:p$Ú#M"-)>+8$#p$Ú#>+ÕD+ôÿM"C$ó##dÙDUNLOCKÎ:pá}$àD¯'#h8é…¢hé…£©L�¢ ±¢…¥È±¢…¦ ¡¥… ±¥…¡¥¥i…¥�榢¬L`"e EFILE™;eSEPREV™9™9e_EB/BUF;ppELIMIT;¼p~EFIRSâ}T™9¼Î:‚#ç' é%#Î:V:4%Û&º(C$ø7Ì%#Î:ä7õ!Ú# "¿"Ú#•$>+^p$ "’'!& "¿"Ú# "¬$'p$é"º(C$é"ù&V:º(é%>+.é"ø7>+Úÿé"ù&˜E>+¬$é"ù&¤E>+ã} é"ù&>:ù&°)+¶ÿ #+œÿ#*F ±¥™Âˆø ±¢i…Èȱ¢i…É ¡Â…ʱ…ËÊð5¥ÊÅÈ¥ËåÉ� ¥ÊÅÄ¥ËåÅLoF¥ÆÅÊ¥Çå˰ ¡Ê�±ʑÂL„F¥Ê…¥˅ÃLFFLm"Î:õä}!Ú#•$>+p$ "’'!&(F¿"+êÿ#Î:M"Û&p$Ú#M"!&>+(¡%Ú#C$›0g(>+p$Ú#Û&Ú#¬$ó#'+Ú#+Îÿ–%#Î:õ!(F1<%* ¡%ß*Ú#%g(>+ ç'Ë<ß*ó#ç'þÿå}µ*s*¡%<Ú#%g(>+ ç'Ë<<ó##Î:¬$¨FäFŠFä7C$!&­7œ!ó#Y'à6ó##uŒECLEARÎ:›0p$M"&Gœ!ó##uFG(FORGETÎ:p$ø7’B IS SYMBOL¶E&G#u`Gæ}FORGETÎ:›>p$ç' Ú#º(’B PROTECTED:p$ø7>+V:+='='jG#u„GEMPTYÎ:ç' Ú#M"&Gç'" Ú#"ó##vÁGSAVEÎ:›0M"&Gõ!Ú#p$='='Ú#¬$='ó#ç}Ú#•$Q(>+êÿM"}!ç'‡/#vãGBYEÎ:p!.M#Î:YI‚K-)>+K' ##vHSTOP?Î:eI>+*H*HY'#v>H?CRÎ:I»Dç' !&)>+¿H#Î:*9p$â0ù&O8Lè}$8‚#Ä!Ú#¯%s##wXHOUTPUT:Î:*9î?O8L$8Ä!ó##w‘HEMIT€Hw®HCR€HwºHTYPE€HwÄHDEL€HwÐHPAGE€HwÛHAT€H wçHAT?€H wñHé}ROWÎ:÷H8$#wüHCOLÎ:÷H"%#Î:*9p$â0ù&O8L$8‚#Ñ!Ú#¯%s##w IINPUT:Î:*9î?O8L$8Ñ!ó##w7IKEY&IwSIKEY?&Iw^IDECODE&IwjIê}EXPECT&IxSEALÎ:Y'ç'Ú+êë}ÿ#Î:Y'fEó#†E”Eó##yxI'COLD"@p!Î:ÛIûIâHJ= 4volksFORTH-83 REV 3.81.03¿H Ky J'RESTART"@p!Î:ç'ÄA<@àASJç' Ú#å!ó#ç'p!<@"Bì}.BzHJCOLD‚J©JH©HX ­ i…­ i…ù ‘ÂÈÐø¥ �­J¥ �®J à ¹ !™¤ˆ÷­ i…¢­ i…£ ±¢…¥È±¢…¦  ±¢… È±¢…¡¢ Š� ‘ h…¬h…­©K… í}© … ¢ L§{yJRESTART K©JH©YHL¬J;üK­üiLÖ+­%äH­$äH`/K„ÿ†þ $K¦þ¤ÿLÖ+;ðCK©�ðL§MK©LEKK65KEYÎ:AKÕDK>+úÿKK-K#î}TK#BS;~pK#CR;›|K#ESC;ˆK65DECODEÎ:vKú+>+p$>+ÖH'#‚Kú+>+ p$E1ó## "¡%¯%é"C$œ#¿"µHÛ&#•K65EXPECTÎ:E1óï}#Y'p$E1Ú#º(>+ YIsI+îÿ–%CC#ÜKKEYBOARDHI\KK KçK­äH­äHŠ` L(EMIT6L„ÿ†þ¡¥ª L¦þ¤ÿLm"™9¸;(,L65EMITÎ:t'GL$4L#Qð}L65CRÎ:‚KZLGLÚ#KL /Û&KLß-GLó##hL65DELÎ:vKZLCCvKZLç'þÿGL$#‹L65PAGEÎ:GL¯'#«L65ATÎ:C$KLß-¯%GLó##¾L65AT?Î:GLÚ#Kñ}Lù.ç'�)C$#×L65TYPEÎ:]*6* ß*‚#µH„*s*#õLDISPLAY£HZLoLþL“L´LÅLßL0M­­J… ­®J… l MB/BLK;?MR/O;MMW/O;ò}YMR/W; eMIO-OPEN;qM IO-GETREC;�M IO-GETCHR;“M IO-PUTREC; ¥M IO-PUTCHR; ·MIO-CLOSE; ÉMICFó}LG;@ÚMICCOM;BèMICSTA;CöMICBAL;DNICBAH;ENICBLL;H NICBLH;I.NICAX1;J+Y?+ðÿ9PÚ#ÀN’B File Error#„PINCLUDEDÎù}:9PÚ# "SMòNp$ç'€�(>+8$“P›0ç'PZ01Ú#,1ó#+ 4 FileError:oD.B¿"9Pó##ÂPFILE"Î:GPç'PñBk0›0ç'PñBk0ç'"43/0GPC$‡/GPY'#ú}QHINCLUDE"Î: QÍP#|LQFORTH-83Î:#}aQ ASSEMBLER¶<ÊVÊVà<}PUSHA;Ì+}ˆQPUSH0A;Ö+}–QPUSH;Ù+}¥QRP; }²QUP;¢}û}½QSP;¥}ÈQIP;¬}ÓQN;Â}ÞQPUTA;¤}èQW;ºó}õQSETUP;‹&~RNEXT;§~RXYNEXT;öJ~RPOPTWO;¬#~*RPOP;m"ü}rQ SAVE-SYSTEMÎ:ç'ÿÿç'ó#}!Â'!&ç'ó#›0ç'ó# Q_MòN8$p$ç'Â'Ñ$ôO8$p$}!Â'!&›0}!Â'!&!&Û&Ñ$ôO8$ç'àç'ó#ç'áç'ó#ç' ç'ý}ó#p$ç'Â'Ñ$ôO8$ÀN8$#ERTOOLS¶<¦Y¦Y„Q™9™9бöRÎòR¡ …¬± …­¥ i… �æ¡­îR…º­ïR…»L¹™9ôR™9ƒ"/0¡%¯%’"¿"C$‡/#NPUSHÎ:¿"þ}%¬$ "ƒ"¬$Û&!&p$’"0S " "#Î:?ACCc1Y?ç'®ÿÁ0 ##¥¬i…¬�æ­¥ ÍòRðL¹¥¡ÍóRÐöîòR¥º�îR¥»�ïR V!é"S "Ñ!VALÄ!VAM¿H='p$’'NDÚ#p$Âÿ}'ND~'VC:ˆ:Â'I!&Y'Ÿ)VC�D�3VA81VA,1VAç'àAVAç'?VA1VAQ11Ú#;S’!VAƒ"’!ó#Â'‚Á0ç'[S<@àAëAT©S…³©o…²©L…±L§3STRACE'Î:ƒ"='ðRó}#›>TO#3!#'T…BREAKÎ:ƒ"ù&ðRó#T#FTTRACEL:Î:*9Ï0O8L$8Ú#ðR$#^T+DOpTúÿ}T-DOpT‰T+RpTþÿ•T-RpT T+PUSHpTú}ÿ«T-PUSHpT™9¹TA¥¬i…¬�æ­­ÇT…­ÈT…áÂÍÉTð¥ �òR¥¡�óR©S…³©o…²L‹S±ÂÍÊTÐäL¹U©T…³©Ë…²©L…±L§¹TWATCH'Î:p$ÅTó#Ú#ÅTù&ó#›}>UO#3!#UCONTÎ:ÅTÚ#Ú#ÅTù&ó#U#Î:p$’'ND 4:#Î:p$Ú#Â'ND#Î:p$‚#ˆ':D#Î:Â'$I!&Y'Ÿ)VC#>USÎ:WUCCrU’'VCp$/0ËHp$‚#¯%Û&~}U#‘UNÎ:WUeU~'VCp$Ú#:ˆ:ù&~U#µULÎ:WUeUù&~U#ÓUDÎ:¡%C$WUˆ'VCC$Y'%* rUÛ&„*s*’'VC%ËH~U#åUCÎ:t'éU#VBÎ:WUeUp$}Ú#¬$¯%Â'NDù&~U#!VUNRAVELÎ: # # #¿H 4TRACE DUMP IS ¿Hƒ"’!Ú#!&>+¿"p$Â'NDCC='Ú#:ˆ:¿H+Ýÿ\B#@VUNNEST�V¡ …¬± …­L¬#}’VCREATE:Î:*9÷6<Ú##<ó#Y'î?#9RWCMPÎ:¬$ã´p$É´C$Û&ã´Û&ý´#™9ªV™9 ±™9±™9ö°™9ê°™9Þ°™9°™9ƒ"/0¡%¯%’"¿"C$‡/#ªVCPUSHÎ:¿"}%¬$ "ƒ"¬$Û&!&p$’"0W " "#Î:Â'RÁ0LM?ACCc1Y?ç'®ÿÁ0 ##WRANGEÎ:ïV¯'p$ëVó#Û&p$Ú#ç'›V-)>+òÿ'ïVó##�W©ÿ�ùV�úV¡ …¬± …­¥ i}… �æ¡­éV…º­êV…»L¹™9�W#¥¬i…¬�æ­­ùVðç­õVÐ¥¬ÍíV¥­íîV�Ö¥¬ÍñV¥­íòV°ÊLðWŽõVŽùVŽúV¥º�éV¥»�êV V!óVÚ#>+"óV¯'¿"ïVVAëVVAp$='iWW}VAt'W$ "é"·W "Ñ!VAÄ!VA='p$ûVó#¿HWÚ#VCp$’'NDÚ#p$Â'NDCC:ˆ:Â'I!&Y'Ÿ)VC�D�3VA81VA,1VAç'àAVAç'?VA1VAQ11Ú#"W’!VAƒ"’!ó#ç'B }W<@àAëA#©X©W…³©½…²©L…±L§Î:p$Ú#ç'º:Ú#ú+>+x:#ç'YIÚ#ú+>+x:‚#Ñ!Ú#¯%Ú#¸X#ç'ËHÚ#ú+>+x:‚#Ä!Ú#¯%Ú#¸X#ç'kMÚ#ú+>+ x:Ú#¸X#Ú }#ç'L$-)>+ Ú#ˆ'¯%#:ˆ: 4can't be DEBUGgedëA#aWNESTÎ:ûVÚ#Ú#¸X8$óV�'#LYUNNESTÎ:ëV�'ïV¯'#gYENDLOOPÎ:ûVÚ#’'¯%ëVó## }~Y%UNBUG3!šY(DEBUGÎ:¸XiWóV¯'÷V�'W¯'äR§X#ÜRDEBUGÎ:›>¯Y#ÉYTRACE'Î:›>p$¯YO#3!# àá I!&Y'Ÿ)VC�D�3VA81VA,1VAç'àAa\ Sieve benchmark››CR .( Loading Sieve Benchmark... ) CR›Onlyforth››: allot ( u --)› dup sp@ here - $180 - u>› abort" no ro2 }om" allot ;››&8192 Constant size›Create flags size allot›: do-prime ( -- #primes )› flags size 1 fill 0› size 0 DO f2}lags I + c@› IF I 2* 3+ dup I +› BEGIN dup size <› WHILE 0 over flags + c!› 2} over +› REPEAT 2drop 1+› THEN› LOOP ;›: benchmark › do-prime . ." Primzahlen" ;›: .prim2}es size 0 DO flags I + c@› IF I 2* 3+ . THEN ?cr› stop? IF LEAVE THEN LOOP ;››CR .( Start Benchmark ) CR›benchmark CR2}››.primes CR››.( Benchmark finished ) CR›#:ˆ:¿H+Ýÿ\B#VUNNESTrV¡ …¬± …­L¬#gVCREATE:Î:*9÷6<Ú##<ó#Y'î?#9RWCMPÎ:¬$0)CR ›.( Build 4TH.COM from plain kernel )››\needs SAVE-SYSTEM INCLUDE" D:SAVESYS.F"››SAVE›SAVE-SYSTEM D:4TH.COM››CR›.( 4TH.COM:} saved )›CR››îVRANGEÎ:ÄV¯'p$ÀVó#Û&p$Ú#ç'pV-)>+òÿ'ÄVó##cW©ÿ�ÎV�ÏV¡ …¬± …­¥ i… �æ¡­¾V…º­¿V…»L¹™9aW#¥¬i…¬�æ­­ÎVðç­ÊV8 VolksForth Atari 8-bit Readme››Version 1.1›13. August 2006 (cas)››VolksForth is a 16bit Forth System›produced by the german F>}orth ›Gesellschaft e.V. Main development ›of this system was done between 1985›until 1989. The VolksForth Project was›revived>} in 2005 with the goal to ›produce a managable Forthsystem for ›computer systems with restricted ›system resources.››Some mod>}ern Forth Systems were›influenced by or were derived from ›VolksForth (GNU-Forth, bigForth).››The current Version of VolskFor>}th is›3.81. Work on Version 3.90 has been ›started.››At this time VolksForth is available ›for this Systems:››VolksForth MS-D>q}( Call Machine Routine at "addr" )›( return value is A-Reg and Y-Reg)›HEX› CODE CALL ( addr -- res )› 4C # lda n sta› S}P x) lda n 1+ sta› SP )y lda n 2+ sta› n jsr› n sta› n 1+ sty› 00 # ldx› 01 # ldy› n lda SP x) sta› n 1}+ lda SP )y sta› next jmp end-code›&: CREATE: create hide › current @ context ! 0 ] ;›››=volksForth, Copyright (c) 1985-2005, ›Forthgesellschaft e.V. ›(www.forth-ev.de)›All rights reserved.››Redistribution and use "}in source ›and binary forms, with or without ›modification, are permitted provided ›that the following conditions are met:›› "} * Redistributions of source code › must retain the above copyright › notice, this list of conditions › and " }the following disclaimer.› * Redistributions in binary form › must reproduce the above copy-› right notice, this"!} list of › conditions and the following › disclaimer in the documentation › and/or other materials provided › ""} with the distribution.› * Neither the name of the › Forthgesellschaft e.V. nor the › names of its contribut"#}ors may› be used to endorse or promote › products derived from this › software without specific prior › w"$}ritten permission.››THIS SOFTWARE IS PROVIDED BY THE COPY-›RIGHT HOLDERS AND CONTRIBUTORS "AS IS"›AND ANY EXPRESS OR IMPLIED "%}WARRANTIES,›INCLUDING, BUT NOT LIMITED TO, THE ›IMPLIED WARRANTIES OF MERCHANTABILITY›AND FITNESS FOR A PARTICULAR PURPOSE ›A"&}RE DISCLAIMED. IN NO EVENT SHALL THE ›COPYRIGHT OWNER OR CONTRIBUTORS BE ›LIABLE FOR ANY DIRECT, INDIRECT, ›INCIDENTAL, SPECI"'}AL, EXEMPLARY, OR ›CONSEQUENTIAL DAMAGES (INCLUDING, BUT ›NOT LIMITED TO, PROCUREMENT OF ›SUBSTITUTE GOODS OR SERVICES; LOSS "(}OF›USE, DATA, OR PROFITS; OR BUSINESS ›INTERRUPTION) HOWEVER CAUSED AND ON ›ANY THEORY OF LIABILITY, WHETHER IN ›CONTRACT, ST")}RICT LIABILITY, OR TORT ›(INCLUDING NEGLIGENCE OR OTHERWISE) ›ARISING IN ANY WAY OUT OF THE USE OF›THIS SOFTWARE, EVEN IF ADV"*}ISED OF THE ›POSSIBILITY OF SUCH DAMAGE.› )CR›.( List Directory Command for volksForth )›-1 ?HEAD ! ( move head of DIRX in Heap )›: DIRX› &6 OPEN-FILE DUP› $80 > IF .&,}" File Error:" . ABORT THEN› DROP SOURCE-ID ! CR› BEGIN $580 &18 SOURCE-ID @ READ-LINE› $80 < WHILE› DROP $580 SWAP TYP&-}E› REPEAT 2DROP› SOURCE-ID @ CLOSE-FILE DROP CR ;››( Generic Directory listing for )›( current directory )›: DIR " D:*.*" C&.}OUNT DIRX ;››( Directory Listing with Parameter )›( Example: DIR" D2:*.COM"›: DIR" FILE" DIRX ;››CR .( DIR and DIR" Command l&/}oaded )›CR›$ \ transient Assembler clv10oct87 ›\ Basis: Forth Dimensions VOL III No. 5) ›\ internal loading 04may85BP/re) ›\ Fort*1}h-6502 Assembler clv10oct87 ›\ Basis: Forth Dimensions VOL III No. 5) ››CR .( Loading 6502 resident Assembler...) CR››*2}Onlyforth Assembler also definitions ››\ Forth-83 6502-Assembler 20oct87re ››: end-code context 2- @ context ! ; *3} ››Create index›$0909 , $1505 , $0115 , $8011 ,›$8009 , $1D0D , $8019 , $8080 ,›$0080 , $1404 , $8014 , $8080 ,›$8080 , $1C0*4}C , $801C , $2C80 ,››| Variable mode››: Mode: ( n -) Create c, › Does> ( -) c@ mode ! ;››0 Mode: .A 1 M*5}ode: # ›2 | Mode: mem 3 Mode: ,X›4 Mode: ,Y 5 Mode: X)›6 Mode: )Y $F Mode: )› ›\ upmode cpu *6} 20oct87re ››| : upmode ( addr0 f0 - addr1 f1)› IF mode @ 8 or mode ! THEN› 1 mode @ $F and ?dup IF› 0 DO*7} dup + LOOP THEN › over 1+ @ and 0= ;››: cpu ( 8b -) Create c, › Does> ( -) c@ c, mem ;›› 00 cpu brk $18 cpu clc $*8}D8 cpu cld›$58 cpu cli $B8 cpu clv $CA cpu dex›$88 cpu dey $E8 cpu inx $C8 cpu iny›$EA cpu nop $48 cpu pha $08 cpu php›$68 cp*9}u pla $28 cpu plp $40 cpu rti›$60 cpu rts $38 cpu sec $F8 cpu sed›$78 cpu sei $AA cpu tax $A8 cpu tay›$BA cpu tsx $8A cpu txa*:} $9A cpu txs›$98 cpu tya› ›\ m/cpu 20oct87re ››: m/cpu ( mode opcode -) Create c, , › Does>› dup*;} 1+ @ $80 and IF $10 mode +! THEN› over $FF00 and upmode upmode› IF mem true Abort" invalid" THEN› c@ mode @ index + c@ + c, *<}mode @ 7 and › IF mode @ $F and 7 <› IF c, ELSE , THEN THEN mem ;››$1C6E $60 m/cpu adc $1C6E $20 m/cpu and ›$1C6E $C0 m/c*=}pu cmp $1C6E $40 m/cpu eor ›$1C6E $A0 m/cpu lda $1C6E $00 m/cpu ora ›$1C6E $E0 m/cpu sbc $1C6C $80 m/cpu sta ›$0D0D $01 m/*>}cpu asl $0C0C $C1 m/cpu dec ›$0C0C $E1 m/cpu inc $0D0D $41 m/cpu lsr ›$0D0D $21 m/cpu rol $0D0D $61 m/cpu ror ›$0414 $81 m*?}/cpu stx $0486 $E0 m/cpu cpx ›$0486 $C0 m/cpu cpy $1496 $A2 m/cpu ldx ›$0C8E $A0 m/cpu ldy $048C $80 m/cpu sty ›$0480 $14 *@}m/cpu jsr $8480 $40 m/cpu jmp ›$0484 $20 m/cpu bit››\ Assembler conditionals 20oct87re ››| : range? ( branch -- bran*A}ch )› dup abs $7F u> Abort" out of range " ; ››: [[ ( BEGIN) here ;›: ?] ( UNTIL) c, here 1+ - range? c, ; ›: ?[ ( IF) *B} c, here 0 c, ;›: ?[[ ( WHILE) ?[ swap ;›: ]? ( THEN) here over c@ IF swap ! › ELSE over 1+ - range? swap c! THEN ;*C} ›: ][ ( ELSE) here 1+ 1 jmp› swap here over 1+ - range? swap c! ; ›: ]] ( AGAIN) jmp ;›: ]]? ( REPEAT) jmp ]? ;*D} ››\ Assembler conditionals 20oct87re ›$90 Constant CS $B0 Constant CC›$D0 Constant 0= $F0 Constant 0<>›$10 *E}Constant 0< $30 Constant 0>=›$50 Constant VS $70 Constant VC››: not $20 [ Forth ] xor ;››: beq 0<> ?] ; : bmi*F} 0>= ?] ;›: bne 0= ?] ; : bpl 0< ?] ;›: bcc CS ?] ; : bvc VS ?] ;›: bcs CC ?] ; : bvs VC ?] ;››\*G} 2inc/2dec winc/wdec 20oct87re ››: 2inc ( adr -- )› dup lda clc 2 # adc › dup sta CS ?[ swap 1+ inc ]? ;››: 2*H}dec ( adr -- ) › dup lda sec 2 # sbc› dup sta CC ?[ swap 1+ dec ]? ;››: winc ( adr -- )› dup inc 0= ?[ swap *I}1+ inc ]? ;››: wdec ( adr -- )› dup lda 0= ?[ over 1+ dec ]? dec ; ››: ;c: › recover jsr end-code ] 0 last ! 0 ; *J}››\ ;code Code code> bp/re03feb85 ››Onlyforth ››: Assembler› Assembler [ Assembler ] mem ;››: ;Code› [compile] Doe*K}s> -3 allot› [compile] ; -2 allot Assembler ; ›immediate ››: Code Create here dup 2- ! Assembler ; ››: >label ( adr*L} -)› here | Create immediate swap , › 4 hallot heap 1 and hallot ( 6502-alig) › here 4 - heap 4 cmove › heap last @ count*M} $1F and + ! dp ! › Does> ( - adr) @ › state @ IF [compile] Literal THEN ; ››: Label › [ Assembler ] here >la*N}bel Assembler ; ››Onlyforth ›››››(%\ transient Assembler clv10oct87 ›\ Basis: Forth Dimensions VOL III No. 5) ›\ internal loading 04may85BP/re) ›\ Fort.P}h-6502 Assembler clv10oct87 ›\ Basis: Forth Dimensions VOL III No. 5) ››CR .( Loading 6502 transient Assembler...) CR›.Q}›Onlyforth Assembler also definitions ›here $800 hallot heap dp ! ››\ Forth-83 6502-Assembler 20oct87re.R} ››: end-code context 2- @ context ! ; ››Create index›$0909 , $1505 , $0115 , $8011 ,›$8009 , $1D0D , $8019 , $8080 ,›$0.S}080 , $1404 , $8014 , $8080 ,›$8080 , $1C0C , $801C , $2C80 ,››| Variable mode››: Mode: ( n -) Create c, › Does> ( -) .T} c@ mode ! ;››0 Mode: .A 1 Mode: # ›2 | Mode: mem 3 Mode: ,X›4 Mode: ,Y 5 Mode: X)›6 Mod.U}e: )Y $F Mode: )› ›\ upmode cpu 20oct87re ››| : upmode ( addr0 f0 - addr1 f1)› IF mode @ 8 or mod.V}e ! THEN› 1 mode @ $F and ?dup IF› 0 DO dup + LOOP THEN › over 1+ @ and 0= ;››: cpu ( 8b -) Create c, › Does> ( -).W} c@ c, mem ;›› 00 cpu brk $18 cpu clc $D8 cpu cld›$58 cpu cli $B8 cpu clv $CA cpu dex›$88 cpu dey $E8 cpu inx $C8 cpu iny›.X}$EA cpu nop $48 cpu pha $08 cpu php›$68 cpu pla $28 cpu plp $40 cpu rti›$60 cpu rts $38 cpu sec $F8 cpu sed›$78 cpu sei $AA c.Y}pu tax $A8 cpu tay›$BA cpu tsx $8A cpu txa $9A cpu txs›$98 cpu tya› ›\ m/cpu 20oct87re ››: m/cpu ( .Z}mode opcode -) Create c, , › Does>› dup 1+ @ $80 and IF $10 mode +! THEN› over $FF00 and upmode upmode› IF mem true Abort".[} invalid" THEN› c@ mode @ index + c@ + c, mode @ 7 and › IF mode @ $F and 7 <› IF c, ELSE , THEN THEN mem ;››$1C6E $60 m/c.\}pu adc $1C6E $20 m/cpu and ›$1C6E $C0 m/cpu cmp $1C6E $40 m/cpu eor ›$1C6E $A0 m/cpu lda $1C6E $00 m/cpu ora ›$1C6E $E0 m/.]}cpu sbc $1C6C $80 m/cpu sta ›$0D0D $01 m/cpu asl $0C0C $C1 m/cpu dec ›$0C0C $E1 m/cpu inc $0D0D $41 m/cpu lsr ›$0D0D $21 m.^}/cpu rol $0D0D $61 m/cpu ror ›$0414 $81 m/cpu stx $0486 $E0 m/cpu cpx ›$0486 $C0 m/cpu cpy $1496 $A2 m/cpu ldx ›$0C8E $A0 ._}m/cpu ldy $048C $80 m/cpu sty ›$0480 $14 m/cpu jsr $8480 $40 m/cpu jmp ›$0484 $20 m/cpu bit››\ Assembler conditionals .`} 20oct87re ››| : range? ( branch -- branch )› dup abs $7F u> Abort" out of range " ; ››: [[ ( BEGIN) here ;›: ?] ( UNTI.a}L) c, here 1+ - range? c, ; ›: ?[ ( IF) c, here 0 c, ;›: ?[[ ( WHILE) ?[ swap ;›: ]? ( THEN) here over c@ IF swap.b} ! › ELSE over 1+ - range? swap c! THEN ; ›: ][ ( ELSE) here 1+ 1 jmp› swap here over 1+ - range? swap c! ; ›: ]].c} ( AGAIN) jmp ;›: ]]? ( REPEAT) jmp ]? ; ››\ Assembler conditionals 20oct87re ›$90 Constant CS $B0 Constant CC.d}›$D0 Constant 0= $F0 Constant 0<>›$10 Constant 0< $30 Constant 0>=›$50 Constant VS $70 Constant VC››: not $20 .e}[ Forth ] xor ;››: beq 0<> ?] ; : bmi 0>= ?] ;›: bne 0= ?] ; : bpl 0< ?] ;›: bcc CS ?] ; : bvc VS ?].f} ;›: bcs CC ?] ; : bvs VC ?] ;››\ 2inc/2dec winc/wdec 20oct87re ››: 2inc ( adr -- )› dup lda clc 2 # adc.g} › dup sta CS ?[ swap 1+ inc ]? ;››: 2dec ( adr -- ) › dup lda sec 2 # sbc› dup sta CC ?[ swap 1+ dec ]? ;›.h}›: winc ( adr -- )› dup inc 0= ?[ swap 1+ inc ]? ;››: wdec ( adr -- )› dup lda 0= ?[ over 1+ dec ]? dec ; ››: ;c: .i}› recover jsr end-code ] 0 last ! 0 ; ››\ ;code Code code> bp/re03feb85 ››Onlyforth ››: Assembler› Assembler [.j} Assembler ] mem ;››: ;Code› [compile] Does> -3 allot› [compile] ; -2 allot Assembler ; ›immediate ››: Code Create h.k}ere dup 2- ! Assembler ; ››: >label ( adr -)› here | Create immediate swap , › 4 hallot heap 1 and hallot ( 6502-alig) › h.l}ere 4 - heap 4 cmove › heap last @ count $1F and + ! dp ! › Does> ( - adr) @ › state @ IF [compile] Literal THE.m}N ; ››: Label › [ Assembler ] here >label Assembler ; ››dp ! ››Onlyforth ››CR .( .n}Assembler loaded...) CR›››,”ðî”LLu �ÄèŽÅ�Æ¢©Ã�D©�E©�H©�ILVä 9©�� .lú¿ 9©�� .l­œ… ­�… `­žÐ` s©…ð$©�B Œ©�B©Š�H©�p}I©|�D©�E Vä© �BLVä n䢩�B©,�D©�E© �JLVä© ¢�B Vä¢ © �BLVä�DŽE¢ŽIÊ© �Bêê­�ðåLÿÿÿàáu • Ä`}OS (Intel x86 › Architecture › i8086-ia64)››VolksForth 6502 (Commodore 64, › >r} Commodore Plus 4, › Atari 8bit, Apple I)››VolksForth Z80 (CP/M, › Schneider CPC CP/M)››Vol>s}ksForth 68000 (Atari ST)›››VolksForth is in work for this ›Systems:››VolksForth MS-DOS (Atari Portfolio)›VolksForth 6502 (App>t}le II)›VolksForth Z80 (Schneider CPC AMSDOS)›VolksForth 68000 (Mac Classic)››Copyright››The VolksForth Sources are made avail>u}-›able under the terms of the BSD ›License ›http://www.opensource.org/licenses/bsd-license.php››The Handbook is Copyright (c)>v} ›1985 - 2006 Forth Gesellschaft e.V. ›( Klaus Schleisiek, Ulrich Hoffmann, ›Bernd Pennemann, Georg Rehfeld and ›Dietrich Wei>w}neck).››The Handbook, binary Files and Source-›code for VolksForth as well as Informa-›tion about Forth Gesellschaft are ›ava>x}ilable on the Forth Gesellschaft ›Webserver at http://www.forth-ev.de/››(most of the Information is still ›in german. We are >y}planning to provide ›future versions with full englisch ›documentation)››Information and Help about the Program-›ming Languag>z}e Forth can be found in the›Internet, starting with the Website of›the Forthgesellschaft, or in the Usenet›Forum de.comp.lang>{}.forth ›(via Google Groups: ›http://groups.google.de/group/de.comp.lang.forth )››Details on VolksForth 6502 ›(Atari 8bit)››* >|}Requirements› Atari 8bit with 48 KB RAM, Floppy › Atari 800, 800XL, Atari 130 XE› 600XL (+ Atari 1064), ››* Files ›› This is >}}list of VolksForth Files in› this Distribution.›› DISK 1:›› DOS.SYS› DUP.SYS - Atari DOS 2.5› VFORTH.COM - the plain vol>~}ksForth › kernel› 4TH.COM - volksForth binary› STAR4TH.COM - volksForth with› SPARTA/REAL/BEW>}E› DOS Extensions› DEBUG.COM - volksForth with › Debug Tools › (Tracer etc)› CALL>€}.F - Sourcecode for CALL,› to call Machine- › language Suproutines› CREATE.F - Sourcecode>�} for CREATE› DIR.F - Sourcecode for DIR and › DIR" Commands, to list› Diskdirectories› AS65>‚}.F - Sourcecode for the› resident 6502 Assembler› TAS65.F - Sourcecode for the› transien>ƒ}t 6502 Assembler› (living in HEAP)› SAVESYS.F - Sourcecode for› SAVE-SYSTEM command › SIEVE.F >„} - Primes Sieve Benchmark› 4TH.F - Build volksForth binary› from plain kernel› README.TXT - This Text›>…} COPYING - License Information ››Disk 2› DOS.SYS› DUP.SYS - Atari DOS 2.5› 4TH.COM - volksForth binary› COPYING >†} - License Information › DEBUG.F - Script to build an› volksForth with › DEBUGGER› TAS65.F >‡} - Sourcecode for the› transient 6502 Assembler› (living in HEAP)› CREATE.F - Sourcecode fo>ˆ}r CREATE› TOOLS.F - Debugging Tools› TRACER.F - Interactive Tracer› DEBUGT.F - more Debugging Tools› SEE.F - >‰}build Decompiler without› Disassembler› SEE2.F - built Decompiler with› Disassembler› DISAS.>Š}F - 6502 Disassembler› DECOMP.F - volksForth Decompiler› DIS.F - build 6502 Disassembler› MTASK.F - volksFor>‹}th Multitasker› MTDEMO.F - Multitask Demo› "RatRace"› CALL.F - Sourcecode for CALL,› to c>Œ}all Machine- › language Suproutines› SPARTA.F - Sparta/Real/BEWE-DOS› Support› LAUNCH.F - S>�}parta DOS CLI› Support› SPAR4TH.F - Build volksForth with› Sparta-DOS Support› TEST.F› TEST2.F›>Ž} TEST3.F - Test Files for› nested INCLUDE" › ›* Editor› This verion of volksForth for Atari › 8bit does not>�} contain an Editor for› Sourcecode. An Forth Editor will be› supplied for Version 3.90. We › recommend Ken Siders KEDIT› ( ht>�}tp://atari.ksiders.tzo.com/ )› or the CompyShop Editor.››* Emulator› VolksForth 6502 Atari 8bit 3.81 has › been tested in the>–}: SAVE-SYSTEM› $FFFF $600 !› ORIGIN 8 - $602 !› HERE $604 !› FILE" W/O OPEN-FILE DROP › DUP $600 6 ROT › WRI6’}TE-FILE ( save header ) DROP› DUP ORIGIN 8 - HERE › ORIGIN 8 - - 1+ ROT › WRITE-FILE DROP› $02E0 $602 !› $02E1 6“} $604 !› $2000 $606 !› DUP $602 6 ROT › WRITE-FILE DROP › CLOSE-FILE DROP ;››› DROP› $02E0 $602 !› $02E2 4['ó#÷P6MÉN8$p$ç'Â'Ñ$ËO8$p$}!Â'!&›0}!Â'!&!&Û&Ñ$ËO8$ç'àç'ó#ç'áç'ó#ç' ç'ó#p$ç'Â'Ñ$ËO8$—N8$#Î:Â'ÉNp$Â'€ñ(>+•} 4 File Error:oD.B8$Pó#¿Hç'€Â'PÚ#vOÂ'€�(>+8$ç'€C$ËH+Þÿ–%PÚ#—N8$¿H#RDIRÎ:î3D:*.*/0°R#SDIR"Î:÷P°R# àá | Atari 8bit Emulator› "Atari800" (atari800.sourceforge.net)››The Forth Live-Linux CD-ROM (available›in the Downloadsection of>—} the Forth›Gesellschaft Website) includes the›current Versions of VolksForth direct›usable without Installation including›the>˜} Handbooks as PDF-Files.››Have fun with VolksForth›the VolksForth Team›››<IRÎ:î3D:*.*/0ÚR#:SDIR"Î: QÚR# àá 4 File Error:oD.B8$9Pó#¿Hç'€Â'9PÚ#ŸOÂ'€�(>+8$ç'€C$ËH+Þÿ–%9PÚ#ÀN8$¿H#ERDI )THE VOLKSFORTH 6502 HANDBOOK›CAN BE DOWNLOADED FOR FREE›FROM THE FORTH GESELLSCHAFT›WEBSITE.››LOOK FOR THE ULTRAFORTH C=64›HAB›}NDBOOK FOR NOW ON›HTTP://WWW.FORTH-EV.DE››ADED FOR FREE›FROM THE FORTH GESELLSCHAFT›WEBSITE.››LOOK FOR THE ULTRAFORTH C=64›HA@*