–è,Äû8°(!;›©€  c©ý…E © q0 \ ±C)ªÈCð±C¨Šæ8`¤D¥CeE…C�˜i…D�`� ¢R�¢PŒ  ˜Ž�Œh©1�©€ $E È�Œ ©@®ìyÐ �­ðb Yä­Ò)ðÎhÐÜ­]ðL]¦˜`™¦ q   þ DÎMΩ�D¨™ÈÐú­ ðÉ �©� ¨™u j�èŒç ¹Ú™)ˆ÷`©…0®Ó­ ¬ ,pÀ°„2 &28jJ…1f0¤2Š ü9’Ь ðégÉ �iJf0, 0ihiX…1©þx ŒÔ�Ó­…2­…3­±2‘0Èùˆ±0‘2ÈùŽÓX©À�Ô¦ `ãçëïãçëï  ’¥*ð'  } £ ¥*ÉÐ(LŽ Éð`(°ÉðÉ ðÉ ðL í l pL[ ª, ©L] í Â¥C i¨0¹€�†�ð ¹��‡É� p ��û½ƒ gÞŠÞ‹Lh (° ž LD ©0´   „©…C¢ © ™ÈÊù¦ Ĥ™½†™©C™©™™  £ \©€�‚îi ÝÐ+$+0'©;�ý©›�¼ˆ½‰ ”©€…$…(©…%©…)  b L[¥C �€¥�Œ¥��©�‚�…�Š�‹`…D P¬^¹Éß°†"½�)ð(¼…˜Ýƒ�    °±$…Dþ…¥D‘G©@‚�‚Ð� ‡L]½‚S¥")ðM T °H½‚0  ±G‘$Ș݃�õ° b 8¥$}ƒ…$�æ%8¥(ýƒ…(°Æ) T �Æ`$E0¥(0ö¥)Ðò8` ±$‘GÈÄE�÷˜�…` P½�ÉýÐ Li 8½…¨ýƒ°ðÉÿ±G…Dþ…�  ½†‡ð}L[ P½�ðH© ‚�>Îi½€J¨½ˆ™�½‰™‘ ; ཌ ¼�½Šy™½‹y™©B™ ' |L[ ¥"Éü°EÉ(°é� ¨¹% H¹$ H©¤#` ¨L]B  0Â Ä ý G LO€<  (€ÿ dè lÉÿðHéÛª¥!ðA ¹3 ™ˆÐ÷ŒA ˜à Ð Èj¢ŽA ¢!ý†ŒB …EI€�C Yä$E0•¦ � ­F € <©ÿ¨™À ЩˆÐôŒ7©� J…N8Nd©Ã¢¤!Ð,P ¢Ž  ©hÐ0Ê J©óРd,ê Š©ñèÎ6�Ž�ŽŽ©™ÈÐú™ÈÐú 'ÆÐù rÉ/Ð ¢ © �ÊúÈè±$ €É›ð�à �ï©`� ' à £L[ ’„ l }°- í ž¤ œ ÝÐ ¦¼½ ”  ’Єý Š�ÖL[LÚ ’ }°õ ž à ž ' ŠÐ�íL[ í ©€™  p ˜™îÐî ��ê`© �g ’ l }°ª¤¹)ß g™ ' ŠÐ�éL[¤¹) ðÌ §, ¦L]¤TÈð-½‚0ñð |©�‚½L�†½M�‡ �½N�…݃ð:°Ë�6¤U¥V ¼L½M ѽN L¤(¥TUð ½…�N¼ˆ½‰,¥)�M˜�LL[¤IL3± ýG…DæIÉ›ð ÉœÐè© …DÈÀÐ…IðÛ Š ,° Ñ ¢›îÉ ­É J�èÈŠ‘Gм Å ­® ÿ ¹ç‘GÈÀÐö© …I ©) ÿ ð•  ˜‘GˆûȦ=ð©*‘G ½‘GèÈÀ �õÈ„I¤¹¾ †1„2…0¢08¤2¥0ùI H¥1ùE �…1h…0è°èhФI‘GæIÆ2ÚÈ¢†I`FE©˜  ¬­0ɛРrÉ›ð¢±$�ÈèàÐõ l ' ¢õè蚦TèІT†U†V¦ ý¥D` ˜ˆÉMð L±$É:ðÉ;Ðì©P�yȱ$` r Ü�É ˆ© ¢ �iÊÐú†ȱ$É/Ð:ȱ$ÉVЩW�yÐòÉAÐ¥*ÉÐæ*ÉÐâ©€�É ÐÛÈé/É �ˆ©¦�ަ½Ž`É$Ð¥*ÉÐæ*æ*©? m�ù°¯ ¥L]É-ðîÉ+Ðȱ$É›ðÏ m�ô°ŽÉ*Ð ©? g�ù°€É.Ð $0³¢f�.É?ð'É@�ЩB�r©A�s©T�tÐÉ[� àð§É0�†É:°‚ gL¨à� ýðà �`$0`�jè`©ÿ�& ……C©p…æC¥i æ¥É°s ©…¨¹ðL0JÉCðÜ¢½jÉ?ðÙÐÎèÈà Ð�IŽð#¹øù𴽎н�ÉÐ¥Fð �ŽÞŽМގ�­& ¥�& ¥�0 ¥C�4 ¹0ß8L㽆�ˆ½‡�‰`½‚0  �‚ | ��ë ˆL] ĤE½‡€‘GȽ†‘GȽ…‘G |þŠÐþ‹ ©�†�‡� ý…¥E�ƒ` £ ¤¹�†¹�‡8½†‡ð,  }¤E±G)üð݀бG)�‡ȱG�†ȱG�ƒ©�…`¥"É!ðù ¤L] l¤!­iðÀðæ  ÐëŒÍ¨™€Èú$8  Ï(½�IðÆ­Ið­º pÐ © � h, g©Ð+…�¢¤½jÉ?ð™Èèà �ð8 �¢¥ii¨°èŠ(Lq­)ˆ�ê¥!ð �©S� Sä0$ }­ê) ð ý„EŒ9 ý¦˜��`H­ê)ðN £, ¢L]8¤G¥H ‘¼ˆ½‰Lq© Œ�`½ˆ…½‰�g© NgfjˆÐ÷****¨©8jˆüH¥i ¨h`  ÈÀŠð¬¹ðö„ ÿÈ �ü„2Jˆü¤™˜é  „ &ÈÀ�øe2�†¥i�‡¬ÐÎÎ`¥"É%ð?É&ð;†ºŽ^ ±$IMð ¤!À °¹…! < ¹uð ÈÌ �õ ¡hh`$E¹vÐì˜�„†ºŽ^¥!� ð1¦ý½�…E½„…H©FHjm …G¨¥Hm …H`��¨¼„™u$E™v`LÐŒ=�?©°Ð ÝÐ+©`�¥!Ð,pFE © ‘È„D©8 q ϤDÀÐî&E`­I€�0î`  ¹iÙëЈÐõ`+DOS SYSMOC.©I… ©… ­ �ÆJ� ©Ù�©�©�Ù©�Ú à¥ð=¥ )ð F­Ð)ð©ð©…�8`Ll Тÿ†æT©!…U­‡¬† Ðý©Lnæ ¬Ü�Üð ê­J�©M� -©1�íü𸠹™ˆ÷Œ8 Ñ¢ÿš ¢ ­ �Æ¥ð’©H©›H =©D� î©1 î©: î /ð1¢€Ž[ „„F©:�MР #ð.É!Ð Žü­ü0û`ÈÉ>ÐC #ð ð Á„¤‘¤æ #Ðî`©>  Р± Ô˜ÈÀÐõe…�æ©›Lî¢É'ð>É/ðb¢É;ð\ˆ½IÙнý\ÙнoÙð@Êå ¹ð¨É@ð ¹÷�èˆöLK©~™ °L𢠩 %¢ /ðe Ñ L› ;Š ª½ƒH½‚H¹0S¾0Nà:ðà;Ð=ÈÈÉ9°É1�®�ê©D°®Ã,¢1Ž�¢¹�É›ðÈèàKÐð $­É›`¾à:ðà;ÐʾÈÈÈÐÌ ½†…¹ÈÉ ðøÉ,ðôˆÉ›` ŒXŒYˆÈ„ #ðÄðô`DTDRLUFFFCICLRSJý==CIYEEONSMDLNOOUAOOOARPLNCL#####PANVBNFRäñ*),-PQORa/%<‰§´ù „­Ó)ý¢ Ð¢À­Ó Œø†j „ �Ó©û… ©… ¢ ©…R©E…S�© L%Ð�©-�©,© #¢† 3ð ¹¢0†© % Ê¢ Ê© 4¦¥(�H© 4(Ðã`ˆˆˆˆÐ( 3ð © #©ÿ Ñ ¾©Ð ŒZ Oˆˆˆ˜iýÛ¨„ ¶¥L4¢½ÿ�RÊÐ÷ÉE𢆠3 ¹É=ÐæF©›…©€… ……¦ð S© ©�Z +­æ�8íè Ñ¥¤0�©+�¢¹�Èèà Ðô¥Ð¥ �…F¥F𢠋¦¥ð©% 4© 4ð©& 4Ææ¥(�X¥)�Y  ¢¥  #© 4 ʤÐ È„ ¢LŽ¥Fð æF ¢L…H¬ç­è ÂhL4©™à©™á`ŠºŽçªý¥*�Ù©�J© 0 „ B  B ¼ÀÿÐÉÿð¦Ð «0a ¼„…¦Ð Œà�áè† ¼…ÈÐæ8˜å¨¥å Ñ ¾ ñ ¹Lklâ ¦ Ï )ÀˆÐ­à�†­á�‡©ÿð  : „¢÷𦠤`… 0ìôð© �ü©} î©…T ‹†T 7­€»î€»Í€»ð΀»LIlú¿ð   ½އ�†¢`­‡ð¶l† 3  ½†… #É/ý !  ŒR(ð©ÿ 7 7 © Â Ï 7 ¾8¥å¨¥å�9ÈÐi ÑL7 ,(Ð& ©¢  ͩ L4¹8é0É � éÉ �ɰÈ`© Ln Áª ¢ … ¢` Û˜ Û© ÐHJJJJ æh)É �ii0¢ŽHŽI„  ŒB Vä¤`¢0 ¢© ,©�BLVä¹ë™ˆ÷[©¢�J ¸©Ð Ê©�B VäsÀˆðoÀªÐ ¥FÉ�hh`ý˜  „G „H ,H ý hÉ�Щ¨É€ðÉ¡°©¡)Hª©…D©ù ÿ…CȱCÉ›Ðù˜eC�æDÊ먥D •hÉð�N©¨ °�Š¢MìSðìп` ©Ð ¢ ©Ð¤¥�E˜�D` ° O©�I˜�H`hhXØh¨h Щ nLœ Free Files›Break›I/O-Error 128›Disk full›Write protected›File Mismatch›Bad Filename›TURBOý DOS (c) 1989 ver 2.5 RUN: Correction by KNS ›File locked›Device done›Directory full›File not found›Bad Load File›Not DOS 2JS›Bad Hex›Abortý›-> Source›-> Destination›D1:+DOS SYÿÄÿÿ b7êL§/êLÂ/Ò^7~€·Æÿc7c7-/êƒ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µ†ÿ L7¦ÿh¨LU!ƒKEÙa"‘"†ÿ 97¦ÿL³#‰?TERMINẢ"©"­üið©L³#‚CÒ›"½"†ÿ˜H©› L7¦ÿh¨LC …CMOVŶ"×"© k ÄðÐÆñLC ±ô‘òÈÐîæõæýóLÜ"‚UªÍ"ü"µ…𔵅ñ” 666�¥ðu•¥ñu•©u•ˆÐàLC ‚U¯õ"4#µ´” •µ´”*•©…ð668µõ¨µõ�”•66ÆðÐäLU!ƒANÄ-#q#µ5Hµ5èèL> ‚OÒi#†#µHµèèL> ƒXOÒ#œ#µUHµUèèL> ƒSPÀ”#²#ŠH©L< ƒSP¡ª#Á# ±ýªLC ƒRP¡¹#Ñ#†ÿ ±ýªš¦ÿLC ‚;ÓÉ#å#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< „DROÐÃ$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Î30µ%Ê$Ê$(½ ä$Û$ã#ƒMAØB0µ%Ê$Ê$ý'½ ä$Û$ã#‚MªZ0µ%Ê$Ê$š#$+0ä$+0ú"#$0ã#‚M¯r0µ%Ê$$$:0^!+02##$^!š#0ä$#$0ä$ã#�ª�0µ%ú"Û$ã#„/MOÄ(ý¶0µ%$ø/#$”0ã#�¯Â0µ%É0ä$Û$ã#ƒMOÄÕ0µ%É0Û$ã#…*/MOÄã0µ%$w0#$”0ã#‚*¯ñ0µ%ù0ä$Û$ã#…M/MOÄ1µ%$9&^!2##$ä$$2##$ã#‡MESSAGÅ1µ%Ô*MSG # ¤3ã#Á§21µ%û,5$9&ï(Û$*.ã#†FORGEÔK1µ%.'X% 'X%Ø'c ï(O1%À&X%ý'c ï(%³(É&|%–(X%.'X%|%ã#„BACË_1µ%›'Ø'·'ã#Å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µ%,2ã#ÅAGAIÎ:2µ%A&6)})ž £1ã#ÆREPEAÔF2µ%$$N2#$#$I&Ø'Ç1ã#ÂIÆ\2µ%})½ ›'9&·'I&ã#ÄELSÅy2µ%I&6)})ž ›'9&·'ä$I&Ç1I&ã#ÅWHILÅŽ2µ%~2Œ'ã#†S*ýPACEÓ¯2µ%9&`0K(½ 9&E!<(Þ üÿã#‚<£¿2µ%,v'|%ã#‚#¾à2µ%Û$Û$v'X%,Ê$Ø'ã#„SIGÎï2µ%((J$½ c -ð+ã#�£3µ%E'X%1((c Ê$ý'½ c [$c 0[$ð+ã#‚#Ó3µ%"3Ê$Ê$„#5$½ ôÿã#ƒD.ÒE3µ%$ä$Ê$:0å2J3 3ô2#$Ê$Ø'È2s*ã#‚.Ò\3µ%$ø/#$b3ã#‚D®€3µ%9&b3<(ã#�®‘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/×I4ñ% ƒW/ÏS4ñ%ƒCIÏ]4o4LC ˆFREEIOCÂg44 Œ4JJJJH©L< ©p¨¹@Éÿð˜8éÐò˜`ŠCLOSE-FILÅr4­4 54© ™B =4¹C,ý0©H©L> ‹CREATE-FILÅž4Õ4LC ‹DELETE-FILÅÅ4è4LC ŠFLUSH-FILÅØ4ú4LC ‰OPEN-FILÅë4 5 Œ4©™Bµ™Dµ™Eµ™J©™K =4èè¹C•0Ö©••˜JJJJ•LC ‹RENAME-FILÅý4V5LC ‰READ-FILÅF5g5 54µ™Hµ™Iµ™Dµ™E©™B =4èè¹C•0Ö¹H•¹I•©•LC ‰READ-LINÅY5±5 54µ™H-ýµ™Iµ™Dµ™E©™B =4¹C•0Ö¹H•yD•Ö¹I•yE•©�•••LC †REFILÌ£5µ%š&X%) €è&X%¯5ä$ñ&|%ä$Û$ã#ŠWRITE-FILÅý516 54© ™Bµ™Hµ™Iµ™Dµ™E =4èèèè¹C•0Ö©•LC ŠWRITE-LINÅ"6s6 54© ™BL96ŒINCLUDE-FILÅd6µ%è&|%6) €ý'½ �.ž ðÿè&X%«4_/ã#ˆINCLU.ýDEÄ~6µ%O4 5) €ý'½ �6è&X%«49&è&|%ã#…FILE¢¯6µ%) Z&á+›'Z&á+c ",`*) ä$Õ") 9&ã#ÈINCLUDE¢Ú6µ%â6º6ã#ƒMOÎ 7$7†ÿ­Ã/… ­Ä/… l ê¦ÿLC ˜H C7ªh¨Š`­%äH­$äH`†ÿª˜H Y7h¨¦ÿ`­äH­äHŠ`àá ´( FORTH-65 ASSEMBLER WFR-79JUN03 )››( X-FORTH Version 01/2003 )››HEX››VOCABULARY ASSEMBLER IMMEDIATE ASSEMBLER DEFINITIONS››››( REGISTER ASSIGNMENT SPECIFIC TO IMPLEMENTATION )››FF CONSTANT XSAVE››FB CONSTANT W››F0ýD CONSTANT UP››F8 CONSTANT IP››F0 CONSTANT N››››( NUCLEUS LOCATIONS ARE IMPLEMENTATION SPECIFIC )››' (DO) 10 + CONSTANT POP››' (DO) 0D + CONSTANT POPTWO››' LIT 15 + CONSTANT PUT››' LIT 13 + CONSTANT PUSH››' LIT 18 + CONSTANT NEXT››' EXECUTE NFA 11 - 1ýCONSTANT SETUP››››0 VARIABLE INDEX -2 ALLOT››0909 , 1505 , 0115 , 8011 ,››8009 , 1D0D , 8019 , 8080 ,››0080 , 1404 , 8014 , 8080 ,››8080 , 1C0C , 801C , 2C80 ,››››2 VARIABLE MODE››: .A 0 MODE ! ;››: # 1 MODE ! ;››: MEM 2 MODE ! ;››: ,X 3 MODE ! ;››:2ý ,Y 4 MODE ! ;››: X) 5 MODE ! ;››: )Y 6 MODE ! ;››: ) F MODE ! ;››››: BOT ,X 0 ; ( ADDRESS THE BOTTOM OF THE STACK *)››: SEC ,X 2 ; ( ADDRESS SECOND ITEM ON STACK *)››: RP) ,X 101 ; ( ADDRESS BOTTOM OF RETURN STACK *)››››( UPMODE, CPU WFR-78OCT23 >ýHEX››››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 CONSTANT COLOR0››04ý2C5 CONSTANT COLOR1››02C6 CONSTANT COLOR2››02C8 CONSTANT COLOR4››0278 CONSTANT STICK0››D004 CONSTANT P0PF››D01E CONSTANT HITCLR››››00 VARIABLE XPOS››00 VARIABLE YPOS››00 VARIABLE TESTXY››00 VARIABLE MILLI››00 VARIABLE ODLIST››00 VARIABLE COLOR0O››00 VAR5ýIABLE COLOR1O››00 VARIABLE COLOR2O››00 VARIABLE COLOR4O››00 VARIABLE ZC››00 VARIABLE ZZ››00 VARIABLE ZA››00 VARIABLE ZA1››››00 VARIABLE DLIST -2 ALLOT››70 C, 70 C, 70 C,››4D C, SCREEN0 ,››0D0D , 0D0D , 0D0D , 0D0D ,››0D0D , 0D0D , 0D0D , 0D0D ,››0D0D 6ý, 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 , 0D0D , 0D C,››42 C, SCREEN1 ,››0202 , 7ý02 ,››41 C, DLIST ,››››00 VARIABLE SPRITE0 9 ALLOT››FF SPRITE0 C!››81 SPRITE0 1 + C!››81 SPRITE0 2 + C!››81 SPRITE0 3 + C!››81 SPRITE0 4 + C!››81 SPRITE0 5 + C!››81 SPRITE0 6 + C!››81 SPRITE0 7 + C!››FF SPRITE0 8 + C!››››: GCLS SCREEN0 C80 0 FILL ;››››:8ý INITPM›››SDMCTL C@ 1C OR SDMCTL C!›››3 GRACTL C!›››1 GPRIOR C!›››B0 PMBASE C! ;››››: DELAY›››ZZ @ 0 DO›››LOOP ;››››: PM0POS›››B400 FF 0 FILL›››SPRITE0 B400 YPOS C@ + 9 CMOVE›››XPOS C@ HPOS0 C!›››DELAY ;››››: READFILE"›› FILE" R/O OPEN-FILE›› 128 < IF9ý›› SOURCE-ID !›› SCREEN0 C80 SOURCE-ID @ READ-FILE›› SOURCE-ID @ CLOSE-FILE›› 0 SOURCE-ID !›› ELSE›› ." Error open file"›› THEN ;››››: BEWEGE›› 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 ! PM<ý0POS 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 !›››." wegpunkte/colli erreicht ! " CR ;››››: INI=ýT›››INITPM›››››70 PCOLR0 C!›››0C COLOR4 C!›››DLIST SDLSTL !›››4 2BF C!›››››32 DUP XPOS C! YPOS C! PM0POS›››0 ZC !›››0 ZA !›››0 ZA1 ! ;››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››È)››››: UPMODE›› IF MODE @ 8 AND 0=›› IF 8 MODE +! THEN ›› THEN›› 1 MODE @ 0F AND -DUP›› IF 0 DO DUP + LOOP THEN›› OVER 1+ @ AND 0= ;››››: CPU 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 CPU 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 CP@ýU TYA,››››( M/CPU, MULTI-MODE OP-CODES WFR-79MAR26 )››››: M/CPU ›› DUP 1+ @ 80 AND›› IF 10 MODE +! THEN›› OVER FF00 AND UPMODE›› UPMODE IF›› MEM CR LATEST ID. 3 ERROR›› THEN››Aý C@ MODE C@›› INDEX + C@ + C,›› MODE C@ 7 AND›› IF MODE C@ 0F AND 7 <›› IF C,›› ELSE ,›› THEN›› THEN MEM ;››››1C6E 60 M/CPU ADC,››1C6E 20 M/CPU AND,››1C6E C0 M/CPU CMP,››1C6E 40 M/CPUBý 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 CCý0 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 WFR-79MAR26 )››: BEGIN, HERE 1 ; IMMEDIATE››: UNTIL, ?EXEC >R 1 ?PAIRS R> C, HERE›› 1+ -Dý C, ; IMMEDIATE››: IF, C, HERE 0 C, 2 ; IMMEDIATE››: THEN, ?EXEC 2 ?PAIRS HERE OVER C@›› IF SWAP ! ›› ELSE OVER 1+ - SWAP C! ›› THEN ; IMMEDIATE››: ELSE, 2 ?PAIRS HERE 1+ 1 JMP,›› SWAP HERE OVER 1+ - ›› SWAP C! 2 ; IMMEDIATE››: NOT 20 +Eý ;››››( REVERSE ASSEMBLY TEST )››90 CONSTANT CS ( ASSEMBLE TEST FOR CARRY SET )››D0 CONSTANT 0= ( ASSEMBLER TEST FOR EQUAL ZERO )››10 CONSTANT 0< ( ASSEMBLE TEST FOR LESS THAN ZERO )››90 CONSTANT >= ( ASSEMBLE TEST FOR GREATER OR EQUAL ZERO )››( >= IS OFýNLY CORRECT AFTER SUB, OR CMP, )››››( USE OF ASSEMBLER WFR-79APR28 )››: END-CODE ( END OF CODE DEFINITION *)›› CURRENT @ CONTEXT !›› ?EXEC ?CSP SMUDGE ; IMMEDIATE››››FORTH DEFINITIONS DECIMAL››: CODE ( CREATE WORD AT ASSEMBLY CODE LEVEL *)›› Gý?EXEC CREATE ~[COMPILE] ASSEMBLER›› ASSEMBLER MEM !CSP ; IMMEDIATE››››( LOCK ASSEMBLER INTO SYSTEM )››' ASSEMBLER CFA ' ;CODE 8 + !›› ( OVER-WRITE SMUDGE )›› LATEST 12 +ORIGIN ! ( TOP NFA )›› HERE 28 +ORIGIN ! ( FENCE )›› HERE 30 +ORIGIN ! ( HýDP )›› ' ASSEMBLER 6 + 32 +ORIGIN !›› ( VOC-LINK )›› HERE FENCE !››J8L$8‚#Ä!Ú#¯%s##wXHOUTPUT:Î:*9î?O8L$8Ä!ó##w‘HEMIT€Hw®HCR€HwºHTYPE€HwÄHDEL€HwÐHPAGE€HwÛHAT€H wçHAT?€H wñHROWÎ:÷H8$#wüHCOLÎ:÷H"%#Î:*9p$â0ù&O8L$8‚#Ñ!Ú#¯%s##w IINPUT:Î:*9î?O8L$8Ñ!ó##w7IKEY&IwSIKEY?&Iw^IDECODE&IwjIEJýXPECT&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.BzFJKýCOLD€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;~Lý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#[L65DEMýLÎ: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à<}PURýSHA;Ì+}_QPUSH0A;Ö+}mQPUSH;Ù+}|QRP; }‰QUP;¢}”QSP;¥}ŸQIP;¬}ªQN;Â}µQPUTA;¤}¿QW;º}ÌQSETUP;‹&~ÖQNEXT;§~äQXYNEXT;ôJ~ñQPOPTWO;¬#~RPOP;m"IQ SAVE-SYSTEMÎ:ç'ÿÿç'ó#}!Â'!&ç'ó#›0ç'ó#÷P6MÉN8$p$ç'Â'Ñ$ËO8$Sý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# àá ÝU@U@ UýP*ªªª ªªª  @ Vý       Wý  Xý @   Yý  @*ªªªªªª U@U@ Zý [ýUUUUT \ýUU@UU@ÿÿðÿÿÀ@U ]ý@TP@@@ ^ý _ý@ÀÀ `ýPÀÀÀÀUU@UU@ÀUUÀ aýÀÀÀÀÀÿÿÿÿÿÿÿÿÀ bý cý -HEX››9FFF SP!››9FFF S0 !››››230 CONSTANT SDLSTL››D40B CONSTANT VCOUNT››A000 CONSTANT SCREEN››BF60 CONSTANT SCREEN1››02C6 CONSTANT COLOR2››››VARIABLE A››VARIABLE B››VARIABLE ZC››››: SETDL ( ADDR -- )›› BEGIN›› VCOUNT C@ 10 <›› UNTIL›› SDLSTL ! ;››eý››VARIABLE DLIST -2 ALLOT››70 C, 70 C, 70 C,››62 C, SCREEN ,››22 C, 22 C, 22 C, 22 C, 22 C, 22 C, 02 C,››42 C, SCREEN1 ,››02 C, 02 C, 02 C,››41 C, DLIST ,››››: SETDLIST›› DLIST SETDL ;››››: DELAY›› ZC @ 0 DO›› LOOP ;››››: VSCROLL›› SCREEN 140 0 FILLfý›› 0 A C!›› 104 B !›› 21 SCREEN B @ + C!›› 22 SCREEN B @ + 1 + C!›› A C@ D405 C!›››› 2A 0 DO›› A C@ 7 > IF›› B @ 28 - B !›› SCREEN 140 0 FILL›› 21 SCREEN B @ + C!›› 22 SCREEN B @ + 1 + C!›› 0 A C!›› THEN›››› A C@ gýD405 C!›› A C@ 1 + A C!›› 800 ZC ! DELAY›› LOOP›››› 7 A C!›› 2A 0 DO›› A C@ 0 = IF›› B @ 28 + B !›› SCREEN 140 0 FILL›› 21 SCREEN B @ + C!›› 22 SCREEN B @ + 1 + C!›› 7 A C!›› THEN›››› A C@ D405 C!›› A C@ 1 -hý A C!›› 800 ZC ! DELAY›› LOOP ;››››: LOS›› SETDLIST›› 94 COLOR2 C!›› 4 2BF C! ;›› ›› ^HEX››9FFF SP!››9FFF S0 !››››230 CONSTANT SDLSTL››D40B CONSTANT VCOUNT››A000 CONSTANT SCREEN››BF60 CONSTANT SCREEN1››02C6 CONSTANT COLOR2››››VARIABLE A››VARIABLE B››VARIABLE ZC››››: SETDL ( ADDR -- )›› BEGIN›› VCOUNT C@ 10 <›› UNTIL›› SDLSTL ! ;››jý››VARIABLE DLIST -2 ALLOT››70 C, 70 C, 70 C,››62 C, SCREEN ,››22 C, 22 C, 22 C, 22 C, 22 C, 22 C, 2 C,››42 C, SCREEN1 ,››02 C, 02 C, 02 C,››41 C, DLIST ,››››: SETDLIST›› DLIST SETDL ;››››: DELAY›› ZC @ 0 DO›› LOOP ;››››: VSCROLL›› SCREEN 140 0 FILL›ký› 0 A C!›› 104 B !›› 21 SCREEN B @ + C!›› 22 SCREEN B @ + 1 + C!›› A C@ D405 C!›› ›› 31 0 DO›› A C@ 7 > IF›› B @ 28 - B !›› SCREEN 140 0 FILL ›› 21 SCREEN B @ + C!›› 22 SCREEN B @ + 1 + C!›› 0 A C!›› THEN›››› A Clý@ D405 C!›› A C@ 1 + A C!›› 800 ZC ! DELAY›› LOOP ;››››: LOS›› SETDLIST›› 94 COLOR2 C!›› 4 2BF C! ;››oIABLE 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 ný,››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 , 0D C,››42 C, SCREEN1 ,››0202 , 02 C,››41 C, DLIST ,›oý›››VARIABLE SPRITE0 9 ALLOT››FF SPRITE0 C!››81 SPRITE0 1 + C!››81 SPRITE0 2 + C!››81 SPRITE0 3 + C!››81 SPRITE0 4 + C!››81 SPRITE0 5 + C!››81 SPRITE0 6 + C!››81 SPRITE0 7 + C!››FF SPRITE0 8 + C!››››: GCLS SCREEN0 C80 0 FILL ;››››: READ-DAT›››SCREEN0 C80pý 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 ASCII " qýWORD›››COUNT FNBUF SWAP CMOVE FNBUF 0 INCLUDED-DAT ;››››: FILE-DAT›››FNBUF $50 BL FILL " D:MULBI.BIN"›››COUNT FNBUF SWAP CMOVE FNBUF 0 INCLUDED-DAT ;››››: INITPM›››SDMCTL C@ 1C OR SDMCTL C!›››3 GRACTL C!›››1 GPRIOR C!›››B0 PMBASE C! ;››››: DELAY›››ZZ @ rý0 DO›››LOOP ;››››: PM0POS›››B400 FF 0 FILL›››SPRITE0 B400 YPOS C@ + 9 MOVE›››SPRITE0 B400 YPOS C@ + 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!sý 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 @tý + 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 ! PuýM0POS 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 ;›››vý›: INIT›››INITPM›››› 4 2BF C!›››70 PCOLR0 C!›››94 COLOR2 C!›››0C COLOR4 C!›››DLIST SDLSTL !›››››FILE-DAT›››››32 DUP XPOS C! YPOS C! PM0POS›››0 ZC !›››0 ZA !›››0 ZA1 !›››DECIMAl ;››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››ó›››SPRITE0 B400 YPOS C@ + 9 MOVE›››XPOS C@ HPOS0 C!›››DELAY ;››››: BEWEGE›››32 DUP XPOS C! YPOS C! PM0POS›››0 ZA !›››››BEGIN››››FF ZC !››››››STICK0 C@››››DUP 0E = IF YPOS C@ 1 - YPOS C! 1 TESTXY C! PM0POS THEN››››DUP 0D = IF YPOS C@ 1 + YPOS C! 2 TESTXYxý C! PM0POS THEN››››DUP 07 = IF XPOS C@ 1 + XPOS C! 3 TESTXY C! PM0POS THEN››››0B = IF XPOS C@ 1 - XPOS C! 4 TESTXY C! PM0POS THEN››››››P0PF C@ 0 > IF››››500 ZC !›› TESTXY C@ 1 = IF YPOS C@ 4 + YPOS C! 1 ZA @ + ZA ! PM0POS THEN››››TESTXY C@ 2 = IF YPOyýS C@ 4 - YPOS C! PM0POS THEN››››TESTXY C@ 3 = IF XPOS C@ 4 - XPOS C! PM0POS THEN››››TESTXY C@ 4 = IF XPOS C@ 4 + XPOS C! PM0POS THEN››››THEN››››››1 HITCLR C!››››0 TESTXY C!›››ZA @ A = UNTIL›››››ODLIST @ SDLSTL !›››COLOR0O C@ COLOR0 C!›››COLOR1O C@ COLORzý1 C!›››COLOR2O C@ COLOR2 C!›››COLOR4O C@ COLOR4 C! ;››››: INIT›››COLOR0 C@ COLOR0O C!›››COLOR1 C@ COLOR1O C!›››COLOR2 C@ COLOR2O C!›››COLOR4 C@ COLOR4O C!›››SDLSTL @ ODLIST !›››››INITPM›››››70 PCOLR0 C!›››37 COLOR0 C!›››C7 COLOR1 C!›››87 COLOR2 C!›››0C {ýCOLOR4 C!›››DLIST SDLSTL !›››FILE-DAT›››BEWEGE ;››››››››››››<ÂÐÆÃÆÂ(ðæÈ¥ÂÃÐâ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ó##?j4\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#A25DPL™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ÅDOES>Î:ú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.EXTENSIONSÎ:¬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!\BABORTÎ:�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~EFIRST™9¼Î:‚#ç' é%#Î:V:4%Û&º(C$ø7Ì%#Î:ä7õ!Ú# "¿"Ú#•$>+^p$ "’'!& "¿"Ú# "¬$'p$é"º(C$é"ù&V:º(é%>+.é"ø7>+Úÿé"ù&˜E>+¬$é"ù&¤E>+ é"ù&>:ù&°)+¶ÿ #+œÿ#*F ±¥™Âˆø ±¢i…Èȱ¢i…É ¡Â…ʱ…ËÊð5¥ÊÅÈ¥ËåÉ� ¥ÊÅÄ¥ËåÅLoF¥ÆÅÊ¥Çå˰ ¡Ê�±ʑÂL„F¥Ê…¥˅ÃL�ýFFLm"Î:õ!Ú#•$>+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`GFORGETÎ:›>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ù&O’ý8L$8‚#Ä!Ú#¯%s##wXHOUTPUT:Î:*9î?O8L$8Ä!ó##w‘HEMIT€Hw®HCR€HwºHTYPE€HwÄHDEL€HwÐHPAGE€HwÛHAT€H wçHAT?€H wñHROWÎ:÷H8$#wüHCOLÎ:÷H"%#Î:*9p$â0ù&O8L$8‚#Ñ!Ú#¯%s##w IINPUT:Î:*9î?O8L$8Ñ!ó##w7IKEY&IwSIKEY?&Iw^IDECODE&IwjIE“ýXPECT&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.BzFJ”ýCOLD€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#[L65DE–ýLÎ: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à<}PU›ýSHA;Ì+}_QPUSH0A;Ö+}mQPUSH;Ù+}|QRP; }‰QUP;¢}”QSP;¥}ŸQIP;¬}ªQN;Â}µQPUTA;¤}¿QW;º}ÌQSETUP;‹&~ÖQNEXT;§~äQXYNEXT;ôJ~ñQPOPTWO;¬#~RPOP;m"BYE S âã Ã\ 6502 Assembler clv10oct87››\ Basis: Forth Dimensions VOL III No. 5)››\ internal loading 04may85BP/re)››\ Forth-6502 Assembler clv10oct87››\ Basis: Forth Dimensions VOL III No. 5)››››CR .( Loading 6502 Assembler...) CR››››Onlyforth Assembler also defi�ýnitions››››\ 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 , $1C0C , $801C , $2C80 ,››››| Variable možýde››››: Mode: ( n -) Create c,›› Does> ( -) c@ mode ! ;››››0 Mode: .A 1 Mode: #››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 $B ý8 cpu clv $CA cpu dex››$88 cpu dey $E8 cpu inx $C8 cpu iny››$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 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/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 ;››: ?] ( 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 20oc¦ýt87re››$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= ?] ; : bp§ýl 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 ]? ;››››: 2dec ( 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] Does> -3 allot›› [compile] ; -2 allot Assembler ;››immediate››››: Code Create here dup 2- ! Assembler ;››››: >label ( adr -)›› here | Create immediªýate 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 >label Assembler ;››››Onlyforth››››ú( Call Machine Routine at "addr" )›( return value is A-Reg and Y-Reg)›HEX› CODE CALL ( addr -- res )› 4C # lda n sta› SP 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+ l¬ýda SP )y sta› next jmp end-code›#@ 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 ASCII " WORD›››COUN®ýT FNBUF SWAP CMOVE FNBUF 0 INCLUDED-DAT ;››››: FILE-DAT›››FNBUF $50 BL FILL " D:MULBI.BIN"›››COUNT FNBUF SWAP CMOVE FNBUF 0 INCLUDED-DAT ;››››: INITPM›››SDMCTL C@ 1C OR SDMCTL C!›››3 GRACTL C!›››1 GPRIOR C!›››90 PMBASE C! ;››››: DELAY›››ZZ @ 0 DO›››LOOP¯ý ;››››: PM0POS›››9400 FF 0 FILL›››SPRITE0 9400 YPOS C@ + 9 MOVE›››SPRITE0 9400 YPOS C@ + 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 @ + D°ýUP 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›››I³ýNITPM›››› 4 2BF C!›››70 PCOLR0 C!›››94 COLOR2 C!›››0C COLOR4 C!›››DLIST SDLSTL !›››››FILE-DAT›››››32 DUP XPOS C! YPOS C! PM0POS›››0 ZC !›››0 ZA !›››0 ZA1 !›››DECIMAl ;››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››ðHEX››8FFF SP!››››022F CONSTANT SDMCTL››026F CONSTANT GPRIOR››D000 CONSTANT HPOS0››D01D CONSTANT GRACTL››D407 CONSTANT PMBASE››230 CONSTANT SDLSTL››D40B CONSTANT VCOUNT››9000 CONSTANT SCREEN0››9CE0 CONSTANT SCREEN1››››02C0 CONSTANT PCOLR0››02C4 CONSTANT µý 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 COLOR ¶ý1O››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 , 0 ·ýD0D , 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 , 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 SPRITE0 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 ASCII " WORD›››COUNT ºý FNBUF SWAP CMOVE FNBUF 0 INCLUDED-DAT ;››››: FILE-DAT›››FNBUF $50 BL FILL " D:MULBI.BIN"›››COUNT FNBUF SWAP CMOVE FNBUF 0 INCLUDED-DAT ;››››: INITPM›››SDMCTL C@ 1C OR SDMCTL C!›››3 GRACTL C!›››1 GPRIOR C!›››A8 PMBASE C! ;››››: DELAY›››ZZ @ 0 DO›››LOOP »ý;››››: PM0POS›››AC00 FF 0 FILL›››SPRITE0 AC00 YPOS C@ + 9 MOVE›››SPRITE0 AC00 YPOS C@ + 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 @ + DU ¼ýP 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›››IN ¿ýITPM›››››70 PCOLR0 C!›››94 COLOR2 C!›››DLIST SDLSTL !›››››FILE-DAT›››››32 DUP XPOS C! YPOS C! PM0POS›››0 ZC !›››0 ZA !›››0 ZA1 !››››› 21 SCREEN1 C!›››22 SCREEN1 1 + C! ;›››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››› ú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 ;›››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››››› ß,#*À,Â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§5d0HEREÎ:œ!Ú##5”0PADÎ:›0ç'B¯%#5¥0ALLOTÎ:œ!$ Åý#5¹0,Î:›0ó#~'Á0#5Ë0C,Î:›0œ#t'Á0#5Ý0‡COMPILEÎ:¿"p$ù& "Ú#Ï0#6ð0#TIB™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ß1CAPITAL2¡¥ û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ó##?j4\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#A25DPL™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ÅDOES>Î:ú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.EXTENSIONSÎ:¬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!\BABORTÎ:�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~EFIRST™9¼Î:‚#ç' é%#Î:V:4%Û&º(C$ø7Ì%#Î:ä7õ!Ú# "¿"Ú#•$>+^p$ "’'!& "¿"Ú# "¬$'p$é"º(C$é"ù&V:º(é%>+.é"ø7>+Úÿé"ù&˜E>+¬$é"ù&¤E>+ é"ù&>:ù&°)+¶ÿ #+œÿ#*F ±¥™Âˆø ±¢i…Èȱ¢i…É ¡Â…ʱ…ËÊð5¥ÊÅÈ¥ËåÉ� ¥ÊÅÄ¥ËåÅLoF¥ÆÅÊ¥Çå˰ ¡Ê�±ʑÂL„F¥Ê…¥˅ÃL ÛýFFLm"Î:õ!Ú#•$>+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`GFORGETÎ:›>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ù&O Ýý8L$8‚#Ä!Ú#¯%s##wXHOUTPUT:Î:*9î?O8L$8Ä!ó##w‘HEMIT€Hw®HCR€HwºHTYPE€HwÄHDEL€HwÐHPAGE€HwÛHAT€H wçHAT?€H wñHROWÎ:÷H8$#wüHCOLÎ:÷H"%#Î:*9p$â0ù&O8L$8‚#Ñ!Ú#¯%s##w IINPUT:Î:*9î?O8L$8Ñ!ó##w7IKEY&IwSIKEY?&Iw^IDECODE&IwjIE ÞýXPECT&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.BzFJ ßýCOLD€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#[L65DE áýLÎ: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à<}PU æýSHA;Ì+}_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# àá ÝÃ}àÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbDOS SYSBXFTH 65O€/XASM F BTMULBI BINB 3XJOYTEX F €iFSCROV F €œASM F €«CALL F i  o € ´FJOYTEX2F €¹FSAVE F Creation ATR: by Pajero/Madteam/Poland (pajero_pn@poczta.onet.pl)