".. o g^#VFORTȅ+^N_^h^R{*4+p+q"4KB EXIQ*4N#F#"4 HUNNESQ*4+p+q"4  `U{X.*^#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{w' CS{' CURREN{!' #VOCӝ' CONTEX{!!Z0( 'TI{( WIDT{( VOC-LIN{wN(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-I6q&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Ӆ+x3>344)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 % (-=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+TiB N>LIN6_iB L>NAM6BiB BODY6_iB !NAME6 4iB LINK6!$!iB!>BOD6BiBB!>NAM6Q iBR!>LIN6Z! iBh!>VIE6p!_iBz!VIEW6B8!iC0!HASȧ!#~o&) C!(FIND!|##?!#!!###~@! ^#V|!D' #THREADӝD!FIN6wr"m T \n"i ;dwj"wm m `\"ij"!!w0"~"idB!iD"?UPPERCAS6"wPiD!DEFINE6o. ""iE"?STAC6' q&Stack Underflow'q&Stack OverflowiE"STATUEINTERPRE6""(#4#4#i #iF #ALLO6 iF"6oH#iF"C6oH#iF@#ALIG6iFw#EVE6iFd#COMPIL6wB%V#iF#IMMEDIAT6@ iFR#LITERA6#V#iF#DLITERA6##iF#ASCI6o. 4{ $#iF#CONTRO6o. 4{ ;$#iG$CRAS6q& Uninitialized execution vector.iG?$?MISSIN6$ q& ?iGr$6"}$iG$['6$#iG$[COMPILE6$V#iG#("6 d%iG$(."6 d%iG$,6" Z4H#iG".6#$$iG%6#$$iH%%FENC{X_H$TRI6 "\t%  h%X%BT% iHC%(FORGET6w=%q& Below fencew% %%w%w% "J%%i iH5%FORGE6o. "w !!}$!%iI$WHER!I&?ERRO*&Iz%(?ERROR6`&%% 8F T1P&=1 &Q-b& iI&(ABORT"6=&d%iI#ABORT6#q&$iI&ABOR6q&iJ&?CONDITIO6q&Conditionals WrongiJ%>MAR6oV#iJ&>RESOLV6oiJf&MAR6&iJ''?>RESOLV6&&iJ:'?*6{ TiN)6{ B""w*8**V#*i*#*i# *iN)6a)  L))*)6Nv*6t)#i)z*iO*RECURSIV6)iO*CONSTAN6L)V#)O*VARIABL6L)V#){OX*DEFE6L)G$V#)O%+VOCABULAR6L) "\w+V#o+o%V#%.*k iO>+DEFINITION6  iPV+2CONSTAN6L)V#V#.*kO iP+2VARIABL6+.*kiP*AVO{!P+COD6L))ow_ +)iPEND-COD6+ )iQ+#USE{Q+USE҅+,V,,h,*QALLO6;,iQCREAT6L);,V#)QVARIABL6q,^,iQDEFE6,)R+>I6ww`w`i,J!d,J!iR+(IS6=,B%iRA,I6{ -#,-$,iS,RU6{ D-*{ @-#F-#iS-QUI6 1Tz* W#(-{ }-$ oka-iS"-BOO^S3,WAR6q& Warm StartiS-COL6-Q-iTJ-INITIA̝T-O6-iT-STAR6iT-BY6o4$Pagesii!-*."Z"v"4͓8"͓!-Z.X_) _vvXW,DEPT6' iW-.6..\..;QR ..$Empty iW..I6w4w/wS /_/4w. iWx.DUM6\a/wO\Y/wO4K/75/iiX.RECURS6 $!V#i -C/̝@ &/L/SCҝ /6=w/b =i /(6{ i /6>i /?ENOUG6.Qq&Not enough Parametersi /THR6/40;0i /+THR61d1d0i ---6=T1i g/ROOԅ+1f0l1BR, ALS6 wB _i ONL6X0J! Q dX0i 0SEA6$J!  i PREVIOU6 wB _ _dTi FORT6i 0DEFINITION6+i 0ORDE6$ Context: \N1wH1!Z!.B81i$ Current: !Z!.i 0VOC6%w "!Z!.wy1ii FCB{F83 COM@a=>?@ABCDEFGHIa 1RESE6 iii CLOS6iq& Close errori 1SEARCH6ii 2SEARC6ii DELET6ii 1REA6iq& Read errori 2WRIT6iq& Write errori MAKE-FIL6iq&Can't MAKE File i 32(!FCB6w7w4 %4:`2@=>4\83w.`$3;d03 443 i 2!FC6o. Y3 P2i j2SELEC6iii 2HEADE! a3SAV61wE3w<2iw233;Qwr2731i ;0MOR6/w$% 3;L 3% 1i 0CREATE-FIL61wwE323i H2.NAM6 /74 / d4 di /DI6$ ????????.???12Q12'41'2w4ii [4DRIVE6iAdS $: i 3A6j3i Q0B6j3i 4FILE6=L)=ow7H#E3.*ki 3?DEFIN6="5J!%5i=4i 4DEFIN6 5ii 3OPE6 5i 4FRO6 55 i <5SAVE-SYSTE6o3i O5VIEW-FILE{5#6_66 5VIEW6 5 (d!5di d5KERNEL80.BL4KERNEL80BLK 4EXTEND80.BL4EXTEND80BLK 5CPU8080.BL4CPU8080 BLKG 6UTILITY.BL4UTILITY BLKz{|}~7o0)5LABE6L))i06DOES-OН06DOES-SIZŝ06DOES6w6d6`i0C6#,i0,INI6i07Ci#0V#037?>MAR0'0H7?>RESOLVF'0W7?7HPUSȝ 07DPUSȝ0&70x7WPUSȝ007Ý07ĝ07ŝ07ɝ07I07ם07W07IН08IP07ȝ0'8̝08͝018PSם08SН0Q8ӝ0;81M6L)87.*k87i072M6L)87.*kd87i0\83M6L)87.*k$d87i0E84M6L)87.*k8787i0f85M6L)87.*k87B7i08NOt808HLt8v08Dt808Et808RLt809RRt80$9RAt80/9RAt809PCHt80E9XCHt80:9REt80]9RNt80h9Rt80s9RNt80}9Rt808CMt8/09STt8709CMt8?09SPHt80Q9XTHt809RPt809RPt809Rt809DAt8'09ADč809ADÍ809SU80 :SB80:AN809XR80:OR808:CMЍ80C:STAب80":INҨ80Z:INب80-:DAĨ8 0p:DCب8 0{:POШ80:PUSȨ809RSԨ80:DCҨ80:LDAب8 0N:OU80e:I80:AD80:AC80:SU80:SB80:AN80:XR80:OR80;CP80!;SHL8"0,;CAL80 ;LHL8*08;ST820D;LD8:0:JM80f;JN80q;J80|;JN80;J80;JP80;JP80;J80;J80P;C00;C0<0;Cӝ0[;00;0<0;Pŝ0<00 <0>0;NO6i0"?LIN6 d-@U@@i@3@?C6;@i@#@.SC6$Scr # _ /Ii@@LIS6/w_ p@/\@;Ow;// d/P @ii@@TRIA6 S R / \@;@@i@i@.LINE6wb AwO/P i@?INDE6/4\OA; AGAi@1AIN6w A4]Aii@@LARGES6\A A wBAii@Y@WORD6@ o "o "yAwAw!w;@.AOA i@1WORD6Ai@A#TIME{@oATIME6BBDBBHB=Ti@UAMAN6aB=Ti@A:6)o%6V#a)*= i@eB6_ JTi@B6_ JTi@ B6_ @i@LBESTABLIS6% l i@B(COPY6 diBi@BCOP6fBfi@B@VIE6!wwq&entered at terminal.R i@BVIE6$CC5d$is in J!$screen >C$may be in current file: I$screen w>@i@CHOPPE{@BU/{@CCONVEY-COPB@CHO6Ci@WC.T6>$to w>i@C(CONVEY6PDwwCd DCCd4Dfi@CCONVE6fC'yD4Dw4C@ %,DD,DDii@!DT6o. iCi @DFOUN{ @VDSCAN-1S6DiDi @DSEARC6DT% ?ZE4R=%=DwFE% LDEDBi%wTE> E  Di @DDELET6%=w8E w=ddi @CINSER6%=w=di @DREPLAC6i @EBLOO @E-LIN! @EAFOk  i @hEDAR&FOk T Ti @EEDITO҅+VRRR3P@ @.SCREEO @AUT+# @^FEDITING{ @CHANGE{ @mFINSTAL6xFFXFeFm0xFBFTJTi@~FC/SCҝ@TO6 Ti@F6 dFb i@F6F// Fi@FCURSO6 i@FLINE6G/R i@GCOL6G/b i@/G+6#GdFi@BG'STAR6_ i@SG'CURSO6\GGdi@hG'LIN6rG6Gi@~G#AFTE6/6Gi@G#REMAININ6 Gi@G#EN6G6Gdi@FMODIFIE6FBi@GEOӝ^@G?TEX6%GwH=/4=ZH i@GC/PAĝT@&H'INSER6.Hdi@4H'FIN6>H.Hdi@JH'VIDE6RH.Hdi@NF.FRAME6$'$'i@sH.BUF6$I >H}H$F RH}Hi@^H?MISSIN6HiRH}H$ not found Q-i@HKEE6G/>HZi@H6RH.H>HRH.H>H.Hi@H6i@I'C#6rGGGi@G(I6>HG*Ii@6I(TILL6RHG*IDHi@#I'F6RHdi@GID-LEΝ @uII{ @cISTAM6I\G/d~IQ~IQi@I?STAM6FIIFTi@I6HGiG/Gi@I6/FG/GEIi@I6HGG/qEGi@ISPLI6/ rGGEGi@HJOI6G/d/*IEi@?JWIP6\G Gi@J6q&Use G !i@vJ6// d/>HZ/wFJ/Fi@]JBRIN64\Jw;JJii@JFIND6RHGrGGDi@J6JHiIFi@J6/J)KiIFOi_ \hKBFRHrGGDWKiIFijYKiq&Break!7KHi@J6RHwwF*IqEi@)J6KrKi@K6rKIi@KTIL6*ISIiIqEi@K6*ISIqEi@KK6rGSIiI>HZi@KD؝@KDٝ@K.LIN6#GOG6GP ^S rGGP i@KREDISPLA6KdFwOw// \Gd/> Ei@KCHANGED6// w\GdgHd/i@L.AL6JLKFp@ EI/\L;cLL;(LL\GgH FKFEF Ti@nKEDIT-A6G/@ KdKdFi@}LNE6/\>M;FL=TJ2MI8M;(LjXFMXFi@XLGET-I6I~IM$Enter your ID: ~I\M.S yM~II~Ihi@FDON6xFM0xFT_ /'M$Un$modifiedIIJTeFO i@7FE6MMF@FgH "FLi@MEDI6/_ FMi@EFI6=$C0N5dM=Ki@M(WHERE6J`NMQF RHZi@DSHADOׅ+NsOu\JF@DISPLACEMEN64i@{N(>SHADOW6N NdNi@>SHADO6% Ni@N>IN-SHADO65 Ni@M6_ N_ i@COP6f BNNBfi@OCONVE6 _DNNNNC_Di@&O6 JN/wFNJINi@NBRIN64\Ow;UOOii@K(AT6 i@O(BLOT6/i@O(DARK6\OOi@M.DUM6Ki@ODUM6#J!eFl O,XFO,FO,E!,EO,"Fi@DMSMAR6{J!eFl L,XFi@LANSI-A6 S [S 4O;S 4OHS i@WPANSI-BLO6iS $[Ki@PANSI-DAR6S $[2Ji@PANSI--LIN6S $[1Mi@PANS6;PaP,FP,"FP,EP,Ei@OH19-A6S YS  dS  dS i@"QH19-DAR6S ES i@MQH19-BLO6iS KS i@jQH19--LIN6S MS i@QHEAT6;P+Q,FXQ,"FQ,EuQ,Ei@QTVI-A6S =S  dS  dS i@QTVI-BLO6iS TS i@RTVI-DAR6S i@!RTVI--LIN6S RS i@8RTELEVIDE6;PQ,F,R,"FDR,E R,Ei@PQUM6bRi@OFALC6bRi@N.6]].i@Q-i @RMA6 TBdThTi @bTCASE6+)*.*kTi!@TASSOCIATIVE6+.*kww\9UB `5U i;jU i"@GT(SEEX"@.WOR6wZ!.Bi"@MU.INLIN6UUw>Bi"@eU.BRANC6UUw>Bi"@U.QUOT6UUUUi"@U.STRIN6UU di#@U.(;CODE6UU7U$DOES> Uii#@U.UNNES6$; ii#@U.FINIS6UUii$@EXECUTION-CLAS U7\#$q&.*i$)%@V.EXECUTION-CLASToUUUUUUUUUUVUUVUUi&@YV.PF6J!_@w7VlVwVii&@V.IMMEDIAT6Z!@V$ IMMEDIATEi'@V.CONSTAN6wJ!/$ CONSTANT Z!.i'@V.VARIABL6wJ!>$ VARIABLE wZ!.$Value = J!/i'@W.6$: wZ!.Vi'@GW.DOES6$DOES> !Vi'@cW.USER-VARIABL6wJ!/$USER VARIABLE wZ!.$Value = ,/i(@W.DEFE6$ DEFERRED wZ!.$IS ,GUi(@W.USER-DEFE6$USER DEFERRED wZ!.$IS ,GUi(@W.OTHE6wZ!.wJ!`SXi$is CodeOw7cXlWiO $ is Unknowni)@DEFINITION-CLAS U6{)@&X.DEFINITION-CLASTLWVWWWW/Xi*@vX((SEE)6wwXXVi*@TSE6$GUi,@TEPSO6S i,@XINIT-P!,@SFOOTIN[,@?UL/PAGŝB,@'YLOGϝ,@X#PAG{,@6YPAG\YYkKY T Ti,@YFORM-FEE6 S  S i,@QY(PAGE60Y YYi,@Y(SEMIT6F Y3Yi,@SCR#{ALLOT #i -@XTEXT6wo~! Z OZi-@YP6w?1Zi=YYYwdi-@X2P6wO// %=d/d/d4/i-@GZ2SC6O=wO\Z ;MZZ i.@ZP-HEADIN6$Page# KY/Ii.@ZP-FOOTIN6:$Forth 83 ModelXYi/@ [PR-STAR6F B TY,S YTKYYi/@:[PR-STO6X,S F Ti/@g[PR-PAG6ZYTYB\[wdZB[i!Yi/@[PR-S-PAG6ZYTYB\[wBZd[i!Yi/@[PR-FLUS6Yw.\Y*\!Z\=Y!ZOi0@CYSHO6E[4g\;YS\;!ZY`c\[G\\o\[q[i0@QOSHO6E[4\;Y\;!Z;N!ZY`\[\\\[q[i0@YLISTIN6Q|\i2@>L.I6w.w$!Qdi2@t=SLO{2@=RE{2@\(DEBUG6M=A=5= >i2@\'UNNES64wi`:]i3@]TRAC6%.Z! \\]\T]T$ --> :C`]\\F`]i(-]]Q`q&Unbugi >i3@\DEBU6$_w8]]i3@sYRESUM6]B >i5@]TASK6L) o;,>o>wodw d o }>>o;,do }>o>H#i5@4\SET-TAS6w }>__ }> }>i5@YACTIVAT6s^>i6@]BACKGROUND6 ^o>_s^a)*i ^HELL6$8080 Forth 83 Model$Version 2.1.0 Modified 01Jun84 0m0+i ^MAR6L).*k%+i 4_EMPTA_ B:F83.COM M BL4HUFFMAN BLK OZ_D+6wO % l iN_ARRA6L)H#.*kdi^2ARRA6L)/ H#.*kdi_0OR6Oi_HAPP`kw4`T$ ...Working <`B  i_READING{_IO-ARRA6L)wV#H#.*kwQ``i