a.[. o g^#VFORT+#__^^R{*4+p+q"4KB EXIQ*4N#F#"4 HUNNESQ*4+p+q"4  `U{.*^#V*s#r^#V ^#V* (LIT o g  -BRANC`iN#F  ?BRANC} *4"4  (LOOP*44#4*4s#r (+LOOP9*4^#V|L!! -(DO6w%Bw%%%i U(?DO6 ` %w%Bw%%%i BOUND6di>NEXԝ EXECUTzPERFOR^#V^#V͋GNOO# PAUS2 =*4^#V#~#fo T*4@((LEAVEl*4####N#F#"4 `(?LEAVE|l ^#V 7s#r Cn& Cs CMOV`ix~#  CMOVE`i + +x~+  SP)!9 !SP: NRPI*4 ARPY"4 DROk bDUy 2SWAЉ OVEҙqTUC˪QNIк RO-ROFLIcj ?DU6wwiR*4^#V#"4  >'*4++"4s#r  R?*4^#V PICT)9^#V 8ROL6%=R'wB4iiANċ{ozg Oҟ{ozg KXOҴ{ozg `NO}/o|/g TRUŝFALSŝ! ! CSE~w CRESE{/_~w CTOGGL3~w 'OD!í=OFV!íNf NEGATy+z/W{/_ ABӞ|y `+~w#~w n2) 2|g}o U2|g}o 8&)))  16# 2D## /1S+ =2a++ !)t)| lLUMD}ggxDgJ UlgU*6i_|g{|g{)Ҵ_|g{,! UM/MO`i}||ejkW\a 0}0))"0:|30W>o>g! S>c !zn +!9 DAB| |E "s D2 {_zW}o|g" D2 |g}ozW{_" D6C  i"[ ?DNEGAT6' C i# D06i# D6 i# DU6 % 5 x3 5 i# D6R`R Z ii#9 D6 > i#^ DMI6 c  i#m DMA6 >  i$ *6 % i$M/MO6 w% %%z =' w Q=ii$ MU/MO6%=%i% 6ii% /MO6%a  i%9 6@ i% MO6@ ii%+ */MO6%  i%l *6t i& TOӦ&\ ENTR٦& LIN˦&N SP& RP& DЦ & #OUԦ & #LINŦ& OFFSEԦ& BASŦ& HLĦ& FILŦ& IN-FILŦ& PRINTINǦ'+ EMI' SC{'; PRIO{!'Y STAT{'s WARNIN{'e DP{' R{' LAS{y' CS{' CURREN{!' #VOCӝ' CONTEX{!!0( 'TI{( WIDT{( VOC-LIN{N(BL{(+>I{{( SPA{(C#TI{(L END{)7B̝ )jBӝ)uBEL̝)PCAP{)FIḶ`ixʵ} é )]ERAS6i)BLAN6oi)COUN^#) LENGT^#V)MOV6 #'ia{ *UP<})o *4UPPERzc~)w#T *HER6 i*hPA6oPdi*H-TRAILIN6w dQoxQi+COMi`x~# !! ! ,CAPS-COMi`x9~)O~)&# 6/!2!  ! ,COMPAR6\^i-BDOkM&o -bBIOӄ*BK&o -y(KEY?6Oi-(KEY60i-(CONSOLE60i i.BKEY.KE.C{.PR-STA6i.(PRINT60!5i i.)(EMIT6F nw3 i. CRL6 S  S T i.OTYP6S ii.tSPAC6oS i.SPACE6 i.{BACKSPACE6zS i.BEE6S i/BS-I6iw1Qz3S i/(DEL-IN6iw\QzS z^S i/BACK-U6iwwi/dRES-I6&Reseti/9P-I6iF F i0CR-I6iJoS i0(CHAR6 S d4i0CHA0DEL-ID0C{0CC-FORT{nn1EXPEC6wJRwow dw`t ii1TI6i1_QUER6PhJW1T=Ti2#BUFFERӝ2B/BUƝ2B/REÝ2REC/BL˝2B/FC*2DISK-ERRO{2=LIMIԝ2/>SIZŝ*2^FIRSԝ2INIT-R2l>BUFFER6tfi2>EN6t_i2BUFFER6$di2>UPDAT6di3READ-BLOC=3WRITE-BLOCp3.FIL6'@dS &%: d&%.i3 FILE6% i3SWITC6% 5 % 5 i3PDO+3}35>5)3!FILE6w% 5 i3DISK-ABOR6&% in &i3?DISK-ERRO6wJ% Disk errorii4FCB{ 4CLR-FC6w74 i4)SET-DM6iii4RECORD6!di4MAXREC6&di4uIN-RANG6wiwJB% Out of Rangei4_REC-REA6w!ii4REC-WRIT6w"ii5GSET-I6wO )/ id)i5FILE-REA6\] QwidE i51FILE-WRIT6\ Qwidx i5cFILE-I6=,-p,-i6UCAPACIT6% 4i6tLATEST6JT d O  dii6zABSENT64\Si ;O M ;jO3w%wddl i7UPDAT6Bi7DISCAR6i7MISSIN6_'_Tddwd$i7(BUFFER60#?di7ABUFFE6% 'i7(BLOCK6'8wdTi7CBLOC6% bi7IN-BLOC65 bi8EMPTY-BUFFER6tX4$t\wBd  dd i8SAVE-BUFFER6\Xw4Twd'NwwdTd&ii8FLUS6ii8^VIEW6% (di9FILE-SIZ6w#iiii9DOS-ERR6`i9OPEN-FIL65 wi% Open errorwQi9DOS-FC\9XDEFAUL6w5 w% 34oxJ i9(LOAD6% %1%=%=T15 % g-=1i9NLOAW:DIGIԨ{0  _:DOUBLE6 4Oi: CONVER64w% % i   ii;(NUMBER?6w4-`w% w,/! y [C o`i;vNUMBER6; ij9ii;-(NUMBER6$i;NUMBE<HOL6  i<<6 i<#6  i<)SIG6'U-i<@6   yd0di<Y#6] i<HE6 i<DECIMA6 i<OCTA6 i=(U.6.i=U6i=U.6%i=(.6wG.i=6$i=:.6%$i=(UD.6.i=UD6ki=wUD.6%ki=c(D.6z G.i=D6i=D.6%i >SKI`iz ~#>SCA`iz/~# ?/STRIN6di?PLAC6 4ii?R(SOURCE61 Wi?4SOURCw?lPARSE-WOR6%=>=%wOd=i?PARS6%=>%wO=i@'WOR6oi@ WOR6 Z wdoi@J>TYP6i@H .6)P i@6) i@w \6dBiA TRAVERSť > A DONE6{ xddTiAd FORTH-86+TiA VERSIOΝA .VERSIO6 ].].].iB N>LIN6_iB L>NAM6BiB)!BODY6_iBK!NAME6 4iB:!LINK6C!c!iB[!>BOD6BiB!>NAM6Q iB!>LIN6!2!iB!>VIE6!_iB!VIEW6Bw!iCo!HAS!#~o&) C!(FIND"|##?0"#0""###~@! ^#V|"D' #THREADӝD!FIN6w"m T \"i ;dw"wm m `"i"!!wo""idB!iD?"?UPPERCAS6"wPiD!DEFINE6o. "W"iE"?STAC6' &Stack Underflow'&Stack OverflowiE"STATUEINTERPRE6#"g#s#s#i Y#iFK#ALLO6 iF"6o#iF<#C6o#iF#ALIG6iF#EVE6iF#COMPIL6wB%#iF#IMMEDIAT6@ iF#LITERA6##iF $DLITERA6$$iF#ASCI6o. 4{ R$$iF#CONTRO6o. 4{ z$$iGV$CRAS6& Uninitialized execution vector.iG~$?MISSIN6$ & ?iG$6"$iG$['6$$iG$[COMPILE6$#iG$("6 d%iG %(."6 d%iG%,6" Z4#iGP".6#&%=%iGS%6#%=%iHd%FENC{_H8%TRI6J"\%  %%B% iH%(FORGET6w|%& Below fencew% %%w%w& J"%%i iHt%FORGE6o. "w !!$!%iI$WHER!IA&?ERROi&I%(?ERROR6&%% 8F T1&=1I&-& iI^&(ABORT"6=X&d%iI6$ABORT6#&=%iI&ABOR6&iJO&?CONDITIO6&Conditionals WrongiJ&>MAR6o#iJ'>RESOLV6oiJ&MAR6 'iJf'?>RESOLV6&7'iJy'?)o&% isn't unique io !wo_ow4#oQ#{iL(CREAT6o. "(iM(!CS6' iM)?CS6' x& Stack ChangediM(HID6 w2! !iM(REVEA6 w2! !iM)(;USES6 c!iM)ASSEMBLE+<=E=5=M);USE6)#**);*iM*(;CODE6 c!iMI*;COD6)#m**);*iMc*DOES6#m*#k#iN}*6{ TiN/*6{ B#"w*8**#*i**$*i$ *iN)6)  ))**6N*6)#i)*iO +RECURSIV6)iO%+CONSTAN6)#*O9+VARIABL6)#*{O*DEFE6)$#*Od+VOCABULAR6)J"\+#+o%#%m*k iO}+DEFINITION6  iP+2CONSTAN6)##m*kO iP+2VARIABL6+m*kiP*AVO{!PM+COD6))ow_ .,;*iPEND-COD6., )iQ4,#USE{Q',USE+,,,,E*QALLO6z,iQCREAT6)z,#*QVARIABL6,,iQDEFE6,*R ,>I6ww`w`i-!d!-!iR+(IS6=,B%iR,I6{ W-#,-]-$,iS,RU6{ -*{ -W#-W#iS@-QUI6 1T* WE#g-{ -&% ok-iSa-BOO+_Sr,WAR6& Warm StartiS-COL6--iT-INITIA̝T-O6.iT.STAR6iT-BY6o4&%Pagesii!-*."Z"v"4͓8"͓!-Ù.Δ_. y*x*xXW%-DEPT6' iW/..6./\/.;QR . /&%Empty iW..I6w4w]/wS S/_Y/4w1/ iW.DUM6\/wO\/wO4/7t/iiX/RECURS6 c!#i .C/̝@ e/L/SCҝ /6=w/b =i /(6{ i /6>i /?ENOUG6.Q&Not enough Parametersi /THR604V0;N0i 0+THR61d1d@0i ---6=T1i /ROO+?101@B, ALS6 wB _i ONL60! Q d0i 0SEA6$!  i PREVIOU6 wB _ _dTi FORT6i 1DEFINITION6+i 0ORDE6&% Context: \1w1S!!/Bw1i&% Current: S!!/i /1VOC6%wJ"S!!/w1ii FCB{F83 COMaa 1RESE6 iii CLOS6i& Close errori #2SEARCH6ii G2SEARC6ii DELET6ii 2REA6i& Read errori ]2WRIT6i& Write errori MAKE-FIL6i&Can't MAKE File i r2(!FCB6w7w4 %4:`93@=>4\w3w.`c3;do3 44E3 i 2!FC6o. 3 P3i 2SELEC6iii 2HEADE! 3SAV61w3w{2iw233;Qw273+2i z0MOR60w$% 04;L "4% +2i Z0CREATE-FIL61ww324i 2.NAM6 /v4 / d4 di 90DI6% ????????.???13Q1Q2f41f2w4ii 4DRIVE6iAdS &%: i 3A63i 0B63i ^4FILE6=)=ow7#3m*ki 3?DEFIN6="\5!d5i=5i 4DEFIN6H5ii <4OPE6H5i 5FRO6H55 i {5SAVE-SYSTE6o3i 5VIEW-FILE{A%6b6666wO )/ i 5VIEW6H5 (dS!5di 5KERNEL80.BL55KERNEL80BLK 4EXTEND80.BL55EXTEND80BLK 6CPU8080.BL55CPU8080 BLKG S6UTILITY.BL55UTILITY BLK=>KLMNOP7o0h5LABE6);*i07DOES-OН07DOES-SIZŝ0*7DOES6w67d$7`i0C6b,i0W,INI6i0X7C#0#0r7?>MARo'07?>RESOLV'07?0;NO6i0aC&%may be in current file: I&%screen w>@i@SCHOPPE{@CU/{@@CCONVEY-COP*C@DHO6Di@C.T6>&%to w>i@4D(CONVEY6DwwDdJD.DDdsDfi@ DCONVE6fD'D4Dw4D@ %kDDkDDii@`DT6o. i:Di @DDFOUN{ @DSCAN-1S6,Ei.Ei @ESEARC6 ET% ?E4R=%=EwE% LE EBi%wE>_E   Ei @DDELET6%=w8E w=ddi @DINSER6%=w=di @EREPLAC6i @ FBLOO @E-LIN! @,FACFOk  i @EDAReFPk T Ti @:FEDITO+RRRpPN@ @.SCREE!P @AUT ,G# @FEDITING{ @CHANGE{ @FINSTAL6FFFF0FBFTJTi@FC/SCҝ@TO6 Ti@F6 dGb i@ G6G// !Gi@GCURSO6 i@5GLINE6PG/R i@GGCOL6PG/b i@nG+6bGd9Gi@G'STAR6_ i@G'CURSO6GPGdi@G'LIN6GuGi@G#AFTE6/uGi@G#REMAININ6 PGi@G#EN6GuGdi@FMODIFIE6FBi@HEOӝ^@G?TEX6%/Hw[H=/4=Z]H i@5HC/PAĝT@eH'INSER6mHdi@sH'FIN6}HmHdi@H'VIDE6HmHdi@F.FRAME6&%'&%'i@H.BUF6&%I }HH&%F HHi@H?MISSIN6IiHH&% not found -i@HKEE6G/}HZi@I6HmH}HHmH}HmHi@4I6i@VI'C#6GGHi@ZG(I6}H=HiIi@uI(TILL6H=HiI;EHi@bI'F6Hdi@)HID-LEΝ @II{ @ISTAM6IG/dIQIQi@I?STAM6FJIFTi@I6{IE!Gi@I6{IF!Gi@I6}H=HiG/Hi@J6/!GG/HE:Ji@6J6&IGH/EHi@&JSPLI6/ GGEHi@HJOI6G/d/iIEi@~JWIP6G Hi@NJ6&Use G !i@J6// d/}HZ/w!GRJ/!Gi@JBRIN64\"Kw;JKii@KFIND6H=HGG;Ei@(K60KHI!Gi@J600KhKI!GOi_ \KBGHGG;EKI!GijKi&Break!vKHi@J6Hww!GiIEi@hJ6DKKi@@K6KJi@KTIL6iIIIEi@K6iIIEi@RKK6GII}HZi@KD؝@LDٝ@K.LIN6bGOGuGP ^S GGP i@3LREDISPLA6-Ld?FwOw// Gd/> &Fi@LCHANGED6// wGdHd/i@[L.AL6JM"L?F@ &FJ/\L;LL;gLLGH ?F;L?F4F?F Ti@KEDIT-A6PG/@ "Ld-Ld?Fi@LNE6/\}M;9G-M=TJqM:JwM;gLjFWMFi@LGET-I6IIM&%Enter your ID: I\M.S MIIIhi@ZFDON6F N 1FT_ 0'M&%Un&%modifiedJZIJTFO i@vFE6MFFH aFLi@NEDI60_ G Ni@FFI6=$[CoN5d=N=DKi@M(WHERE6JN=N!G HZi@2ESHADO+NO\F@DISPLACEMEN64i@N(>SHADOW6N NdNi@>SHADO6% Ni@O>IN-SHADO65 Ni@6N6_  O_ i@COP6f *C O$O*Cfi@DOCONVE6 D O O$O ODDi@cO6 J4O/w!G$OJI4Oi@OBRIN64\Ow;OOii@(L(AT6 i@O(BLOT6/i@O(DARK6\PPi@GM.DUM6;Li@ODUM6E#!Fl !P,-FO,-?FO,-&F!,-4FP,-aFi@MSMAR6{!Fl L,-Fi@#MANSI-A6 S [S 4O;S 4OHS i@PANSI-BLO6iS &%[Ki@PANSI-DAR6S &%[2Ji@PANSI--LIN6S &%[1Mi@QANS6xPP,-?FP,-aFQ,-4FP,-&Fi@-PH19-A6S YS  dS  dS i@_QH19-DAR6S ES i@QH19-BLO6iS KS i@QH19--LIN6S MS i@QHEAT6xPhQ,-?FQ,-aFQ,-4FQ,-&Fi@QTVI-A6S =S  dS  dS i@RTVI-BLO6iS TS i@?RTVI-DAR6S i@^RTVI--LIN6S RS i@uRTELEVIDE6xPR,-?FiR,-aFR,-4FJR,-&Fi@0QQUM6Ri@PFALC6Ri@ON.6]].i@{ND.6S;R Si@0OEMIT6wo~! ASi.S i@RDL6w  SdSS;#S}Si@N?.6 `S&%\/iSOi@S?.6 `S&%ViSOi@R.HEA6w\T;ST\T;ST\2T;S*Tdi@GSDUM6 S\cT;MS7ST i@:TD6w@AT@di@kTD6// _ d/ATi @SOU6&%Subscript out of range on wS!!/&% Max is 0&% tried >-i @SMA6 UBdUTi @TCASE6X+)*m*kTi!@TASSOCIATIVE6X+m*kww\vUB `rU i;jZU i"@T(SEEY"@.WOR6w!/Bi"@U.INLIN6Uw>Bi"@U.BRANC6Uw>Bi"@U.QUOT6UUi"@U.STRIN6U di#@U.(;CODE6UD7+V&%DOES> /Vii#@ V.UNNES6&%; ii#@3V.FINIS6Uii$@EXECUTION-CLASGU7\#&%&m*i%*%@LV.EXECUTION-CLAS'UUUUUUUUUUV=VUUVVUi&@V.PF6!@wtVVwVii&@V.IMMEDIAT6!@W&% IMMEDIATEi'@V.CONSTAN6w!0&% CONSTANT !/i'@#W.VARIABL6w!>&% VARIABLE w!/&%Value = !0i'@KW.6&%: w!/Vi'@W.DOES6w!/&%DOES> 67_dVi'@W.USER-VARIABL6w!0&%USER VARIABLE w!/&%Value = ,0i(@W.DEFE6&% DEFERRED w!/&%IS ,Ui(@ X.USER-DEFE6&%USER DEFERRED w!/&%IS ,Ui(@8X.OTHE6w!`X!/&%IS CODEOwk`XWO!/&% IS UNKNOWNi)@DEFINITION-CLASGU6{)@oX.DEFINITION-CLAS'UW/WWWWXFXxXi*@X((SEE)6wwXXWi*@USE6$Ui,@2UEPSO6S i,@>YINIT-P!,@SFOOTIN\[,@|UL/PAGŝB,@rYLOGϝ,@.Y#PAG{,@YPAGŧYYkY T Ti,@bYFORM-FEE6 S i,@Y(PAGE6{Y YYi,@Y(SEMIT6F Z3Zi,@SCR#{ALLOT +)U*-@YTEXT6wo~! [Z O]Zi-@3ZP6w@vZiY!Z!Zwdi-@X2P6wO// %=d/d/d4/i-@Z2SC6O=wO\[ ;Z [ i.@aZP-HEADIN6&%Page# Y0Ii.@[P-FOOTIN6:&%Forth 83 ModelYi/@P[PR-STAR6F B TZ,-S !ZTY\Yi/@[PR-STO6X,-S F Ti/@[PR-PAG6)[!ZT!ZB\[wdZB[ilYi/@[PR-S-PAG6)[!ZT!ZB\:\wBZd$\ilYi/@\PR-FLUS6!Zws\!Zo\fZY\YfZOi0@YSHO6[4\;;Z\;fZ!Z`\[\M\\[[i0@OSHO6[4\;;Z\;fZ; OfZ!Z`\\\M\\\[i0@YLISTIN6Q\i2@D>L.I6w/wc!Qdi2@=SLO{2@=RE{2@](DEBUG6==t=L>i2@:]'UNNES64wi`]i3@S]TRAC6%.! "]A]^A]TM]T&% --> :C`]A]A]F`^ig-M]]Q`&UnbugiL>i3@]DEBU6$_w}]]]i3@YRESUM6M]BL>i5@^TASK6) oz,>o>wodw d o >>oz,do >o>#i5@y\SET-TAS6w >__ > >i5@RYACTIVAT6^ ?i6@2^BACKGROUND6Q^o>_^)*i I^HELL6&%8080 Forth 83 Model !&%Modified 01Apr84 00+i ^MAR6)m*k%+i p_EMPT}_ B:F83.COM M BL55HUFFMAN BLKklmnopqr_D+6wO % l i_ARRA6)#m*kdi^2ARRA6)/ #m*kdi_0OR6Oi1`HAPPP`kwp`T&% ...Working x`B  i `READING{_IO-ARRA6)w##m*kw``i`dBi^#BITӬ``#BYTEӬ`j `BIT-BUFFEҬ