Ã*Ã58/¸WW¸WW8/U/X* ³¸W´W31WÃ?‡ ;Ã?® Õå o g^#Vëé‡ENCLOSÅVÑáå{ÿÿ+#¾Ê^Õ45ÂqÕÕÃ?#¾Ê�45ÂqÕÕÃ?ÕÕÃ?…DIGIÔJ‘áÑ{Ö0ú°þ ú¥Öþ ú°½ò°_!Ã=lÃ>†TOGGLŇ¿Ñá~«wÃ?†(FIND©´ÒÑá宿?Âþ#®‡ÂûÒÜ!ã·òì_!Ã=Ú·òþë^#Vz³ÂÓá!Ã>†Ä6aÑ!zæ€Êl+Ã=ƒSPÀXw!9Ã>ƒSP¡o†*&^#VëùÃ?ƒRP¡~�*&^#Vë"(Ã?„2DUЕ·áÑÕåÃ=ƒLI郞 o gÃ>†BRANCȾÚ`i^#V+MDÃ?‡0BRANCÈÏòá}´ÊÚÃ?‚;Óæ*(N#F#"(Ã?‡(+LOOP©ýÑÃ2„(DO©**(++++"(Ñs#rÑ#s#rÃ?„USEÒ!j.[ë^*&Ã>‚S°@M‚R°YMƒTIÂbM …WIDTÈkM …FENCÅuM‚DÐ�MˆVOC-LINË�MƒOUÔ–MƒFLÄ¥M:†OFFSEÔ¯M‚R£¹M.ƒCSÐÆM,ƒHLÄÏM0ƒDPÌÙM(‡+ORIGIÎãjÄO†LATESÔíj8Ý݈TRAVERSÅj›©OÄ©úpððÿ›¸ƒPFÁjÄÄO‡(;CODE©;jt AÄbë„!CSÐQjuÕë„WHAÔmj„tÜ}Ý ? †SMUDGÅ~j Ä ½…?COMОjDݲð… COMPILE ONLYÛÈDLITERA̳jDÝð›Â„(."©Üj|!ÜÄXtO^…M/MOÄùj^Ä|!ýt›^ýt‚BÌ6 ƒD+­4j’ðì‚+­=j’ðÕ‚M¯Oj©^^ÄC|!<ýt|!LT›tT›ƒD.Ò`j^›©ÄCðÛ1ÿt©b~‚D®‰jÄ�m…2DROЯj¸¸‚MªÀjµL^<›<›tC…#BUFÆÐ6‡SEC/BLËë6…B/SCÒ÷6…FIRSÔ6øW…LIMIÔ6`ƒUSÅ•øW„PREÖ)•øWƒSEÃ3•…TRACË>•…DRIVÅH•ŠDISK-ERROÒT•‡DENSITÙ`•…B/BUÆq6*éÅÍ‹ÁÉÅÍ‹ÁÉå Í‹áÉ Í‹Éͤë!�~·ÊÄKÍ­ÉÍ’!·ÊÐ,Ã>Í›þ_Âå!� ~îwk&Ã>Í´ÁÃ?Å iÍ´ iÍ´ÁÃ?‰?TERMINAÌ!ÃÅ…PEMIÔ!áÅMÍ´ÁÃ?†SET-IÏ6Å*1DM!Í‹*FMÍ‹*RDMÍ‹ÁÃ?‰SET-DRIVÅ+iÅ:^OÍ‹ÁÃ?ˆSEC-REAÄ[…Å$Í‹2oÁÃ?‰SEC-WRITÅx¡Å'Í‹2oÁÃ?„+BUÆ“j‡ÄOOÄ%ôð¸Ä:ÝbƒDR°¯jÄÂëƒR/×Új/Ý^›SÑ/ëÄ(µc4ðƒØŸXÄ€/-âÿÈt/ë†(LINE©ìj^Ä@‡ct SOLOÄ@….LINÅ8jA{‚I§_x*(^#VÕÃ?†NUMBEÒqjÄÄÑÄXúÄ-ôÄ^OÄÿÿéë®Äú9bð.éÝ’ðÄúÄ.bð…ÛØ…ÛÄØÄÿ¸tðì†Á€–jÝð*£ › ëÝ £ b'²ð* t¸Øt¸…U/MOĹÿ!9^q#VpÁá}‘|˜Ú!ÿÿÿÿÃE>)ë)Ò%§ëõÒ4}‘o|˜gÃ?}‘o|˜gÒ? ñ=ÂÁåÕÃ?�«õQÑáÃ>}“o|šgÉ�­KdÑáÍWÃ>�¼^rÑáz¬ú|ÍW$%ú‡!Ã>!Ã>‚0¼l”á)!Ò�#Ã>�¾�j›pƒNOÔ ´á}´!¾#Ã>‚0½¬j²†NEGATÅÁ×á}/o|/g#Ã>‡DNEGATÅÌîáÑ—“_>šW>�o>œgÃ=‚D«â !9^q#VpÁáëá}‰o|ˆgÁÃ=ƒANÄ)Ñá{¥oz¤gÃ>‚OÒ!;Ñá{µoz´gÃ>ƒXOÒ4NÑá{­oz¬gÃ>‚>ÒF`Ñ*(++"(s#rÃ?‚R¾Yv*(^#V#"(ÕÃ?‡EXECUTÅo�áÃE„SWAЄ�áãÃ>„OVEÒ”«ÑáåÃ=„DROТºáÃ?ƒDUбÆáåÃ>ƒROÔ¾ÓÑáãÃ=�ÀËßá^#VÕÃ?�¡ÙíáÑs#rÃ?‚CÀçüán&Ã>‚C¡õ áÑsÃ?‚+¡áÑ~ƒw#~ŠwÃ?ˆCONSTANÔj0�[݈ͨVARIABLÅ#j0« „�º=jt8Ý*ë0§È[*(+p+q"(KBÃ?Á»Rj ¦§ºÅDOES¾zj ¦[ÄÍ ¦¨*(+p+q"(ÁÕÃ?ŠVOCABULARÙŒj0Ä� �8Ý« b�t¡Ý�¡ë[ͨe*ëÅFORTȸç� 8/ƒBLËòMƒ>IÎMƒSCÒ M‡CONTEXÔM ‡CURRENÔ M"…STATÅ.M$„BASÅ<M&‚1«Hj£ O‚2«Sj« O„HERÅ`j’Ý…ALLOÔmj’�¬|jtë« „‡COMPILÅŒj»tÄe^Ý�ÇLITERAÌœjDÝð¦Ä�…COUNÔ¸jÄX›ú„?DUÐÔjÄðÄ„TYPÅèjïð©O›(Œ!úz-øÿظƒPAÄûjtÄDOƒABÓ$jÄT„/MOÄ6j^_te�¯DjK›¸…SPACÅWj9z†SPACEÓej› œïð › (m-üÿƒMAØujµpð›¸�£–jOÝÑÄ ©pðÄOÄ0O‚#Ó¬j°µ9²ðöÿ‚<£Öj*ßë‚#¾ëj¸¸ßÝ*©b„HOLÄújÄÿÿßßÝ„SIGÎjÑ’ðÄ-�®*j_´�ªCjÕ¸…*/MOÄOj^Õte‰-TRAILINÇ[jÄ› (©©O£ bú9bðEØ£ b-àÿƒKEÙo¯ÃÓ‚CÒ§¹Ãò�EMPTY-BUFFERÓ²j%©b› 6#†UPDATżj:ÝÝÄ€9:Ýë†BUFFEÒÜj/ÝÄ^¶ðüÿ/ë|!Ý’ð|!e|!ÝÄÿ'› ò|!ë|!:ëte…BLOCËûjÂÝO^:ÝÄÝ|!bÄOð4¶²ð¸|!Ä|!£ ò« bÄÝ|!bÄO²ðÖÿÄ:ët¸e‡CONVERÔDjXÄ^úOÝ�ð,›OÝ›¸ÑOÝ›éÝXð£ étØÆÿt�½¤jb²„WORÄðjÝð ÝLØqÝÝO›TÄÄý"bÄÿ¤ð… INPUT > 255ÛtÄ"96#©b^|!tOtXt]"t„EMIÔüj£ «†EXPECÔsj©O©(­ÄÄô©Äô9ð2¸ÄŒ!ôÄt×!O^ð ÄØÄÄzÄ zØ(ÄÄ ôðE¸9› ØÄŒ!› Œ!Xëz-Žÿ¸ƒMIΆjµ¤ð›¸†CREATÅj9ÄÄXú› ôð#„ATTEMPTED TO REDEFINE NULLÛú}ÝX„ÄÄ€½tË!Ä€½ �« „8Ýë[ÕÃ?…QUERÙ'jqÝÄP�› ëÁÛšj› Dë�ݶjÄÀDë„QUIÔÄj› 뺷›¢< DݲðOKØçÿ‹DEFINITIONÓÔj*Ý8ë‡DECIMAÌjÄ Oë…ABORÔj„&T G ······Ä~ FORTH-79 STANDARD Version 0.0 ·Ä~!by G. F. BOUTELLE & G. B. HAYDON ··Ä~+ This implementation contains all and only·Ä~+the 79-STANDARD vocabulary. All extensions·Ä~*and applications must be added with this ·Ä~'vocabulary to remain 79-STANDARD. The ·Ä~+definition of some words may be subject to ·Ä~individual interpretation. ··úÛÅBEGIÎ2j»t£ ÄTHEÎâj»«  t©b›ëÂDÏôj¦(tÄÄLOOÐjÄ ¦-tb�…LEAVÅ"G*(^#V#s#rÃ?„EXIÔ=]*(N#F#"(Ã?Å+LOOÐTjÄ ¦tb�ÅUNTIÌjj£  ¦ðtb�ÆREPEAÔ†j^^ï tt« bûÂIÆ j¦ðt› �« ÄELSŽj«  ¦Øt› �›« û« ÅWHILÅÒjÂeŒSAVE-BUFFERÓójóX› (› ¸-øÿ„LISÔ j&·ÄëSCR #GÄ› (·|!Ä\ m|!ÝgðE-âÿ·‰IMMEDIATÅ( j Ä@½Á¨q jÄÿÿÄ)¸É[COMPILE݉ j¡ ²ð…Û¸« b�Á§¡ j¡ ²ð…۸ƒMOÄÅ jK¸�¿Ý jÝG„LOAÄë jÝ^Ý^› ë Së< tëtë‚D¼÷ jÑ©©ôðÑÑì’Ø ›p›¸›¸‚U®*!j› ´‚U¼Y!j› ›› /!‚RÀf!~!*(^#VÕÃ?�Éw!Ž!*(^#VÕÃ?�ʈ!ž!*(^#VÕÃ?…DEPTȘ!juÄW›b« [‚1­¬!Í!á+Ã>‚2­Æ!Ù!á++Ã>‚0¾Ò!æ!á+)!Òð!+Ã>„ROLÌß!jÄ£ pðROLL ARGUMENT < 1 ·¸Ø2XÄý"›ÄOuOÄ« bÝ©ë« bu©k!²ðæÿ¸¸…CMOVÅó!jÄ£ p𠸸¸Ø@„MOVÅU"jÄ£ p𠸸¸ØÄO@„FINÄw"j¡ ð ¸×!Ø› Â.¢œ"jÝð ÝLØqÝÝOúÄ"ô²ð� Ø£ „PICË·"jÄä!ðÄOuOÝØPICK ARGUMENT < 1·¸„FILÌö"j©ä!ðØ¸¸¸‚*¯/#jc›¸‹79-STANDARÄN#j†FORGEÔ]#j98ÝÝÐÆð#…NOT IN CURRENT VOCABULARY Û¸· ĉÝk!ð …IN PROTECTED DICTIONARYÛ^|!*Ýk!ðú|!8Ýk!ðú¡Ý|!©k!ðÝØòÿÄ¡ëÄÄbA ÝÄ|!k!ðòÿ©×!ëÝïÆðÚÿt’ë‚'Óo#ju…-TEXÔE$jµO›(¸eÄ×!ÝŒ!ÝbÄð Ä<[E« Þÿ›¸Å/LOOÐP$jr‚D­Œ$jìƒD0½š$jÆ›Æ'‚D½§$jŸ$­$‰2VARIABLŹ$j0Ä„‚2ªÆ$j« S‚2¯Þ$j« […2OVEÒë$jÄý"Äý"…2SWAÐø$jÄú!Äú!‡>BINARÙ%j®…>TYPÅ(%j' Used in multiprogrammed systems only. ‰ASSEMBLEÒ8%jASSEMBLER is not loaded …BLANËn%jú „DMAØ™%j%%/!ð%È‚D¾§%j%/!„DMIÎÀ%j%%Å%ð%ȇOLDBASÅÍ%•?I‡.?ASCIÉæ%jÄ› (ÄŒ!OúÄÄ p©Ä~¤9ð¸Ä.z-Øÿ¸„8HEØô%jÄ› (ÄŒ!OúÄ\ -ðÿ¸„DUMÐ6&j› OÝ^n (·ÄŒ!OÄ› Ä�« ~Ä=&mÄÄO=&Ä~þ%ÄÌÿ¸·tOë‚.Ó]&j·^Ýuµb« bð« O(Œ!Ý› ´« ôÿ·Ø EMPTY STACK ·¸¸†EDITOÒ´&jEDITOR is not loaded …ERASÅ'j› 6#�È%'j’‚M«5'j› …OCTAÌ?'jÄOë„PAGÅL'jÄzÄEz„TEXÔ`'jt Xú t* X]"„COPÙw'j SÂÝO› S ©O›(ÄŒ!L« bëXå-îÿ¸?„WIPÅ–'jÄzÄEzˆLINE£þ*j³*›¸ˆFIND-BUÆ'+j*ÄPOŠINSERT-BUÆ:+jE+ÄPO†(HOLD©Q+j*^+X Ä^+]"†(KILL©j+j* ú åˆ(SPREAD©‡+j0+Ä£ bÄ(Œ!*Œ!Xò*Äÿÿðÿ�+�Øœ+j0+Äs+ÄÄÑ(Œ!X*Œ!ò*-ôÿ�+ŽDISPLAY-CURSOÒÍ+j·mÇ*Ä^zØ*³*G¸�Ôõ+j SËë› ,�Ì",jÝ/ �Î6,j£ �ÂD,jÄÿÿ…(TOP©R,j› ËëŠSEEK-ERROÒb,jj,E+t X]"tÜNONEÛƒ(R©t,j0+^+X›ò*�Р,jÄ^î)^+ +¦,„WIPÅ´,jÄ› (Œ!�+-úÿ„COPÙÈ,j SÂÝO› S ©O›(ÄŒ!L« bëXå-îÿ¸?…1LINÅã,jØ*E+ÜŸ)ˆ(SEEK© -jÄÿËÝpð�,(-ðìÿˆ(DELETE©8-j^Ø*O|!bØ*|!1ËÇ*O›]"tú åƒ(F©[-jÄ^î)E+ +A-�ÆŒ-j’-,ƒ(E©¢-jE+úf-�Å®-j´-,�ľ-j’-Â-„TILÌÊ-jÇ*OÄ^î)E+ +(-Æð�,Ç*O›bf-,‡COUNTEÒÖ-• „BUMÐ.j£ ..ÝÄ8¤ð› .ë··Ä z�Ó.jÄ zÄ^î)› .ëE+ +ÝÄ^(Œ!ëj,(-ð ,ï .ÄÿËÝpðæÿ-Úÿtë�ÉB.jÄ^î)^+ +^+ÜØ*Ñ©^|!Ë|!b^Ät|!]"tÇ*Ot]"t]"å,�Õ˜.j ˧+¸,�ÒÞ.j´-œ.�Íð.jÝ^ËÝ^0+s+›ëX SËë§+¦,t OËëtëŠSAVE-FORTÈZ*jÄ\ëg¡î SAVE-FORTH „COPÙ________________________________________________________________ GURE YOUR DRIV