Z3ENVFRPIl>z>ANSI POsedit.COMReVU]^ô*V؎^V؎IA^MMv^[*>[EXITVvEEÇEXECUTEuX2ЭvSP@lSP!\cRP@WRP!]N>RXMMF@R>FEE2R@F'2>RXFXF2R>FV2R@ FVDROPXDUP*XP?DUP5X tPSWAP@ZXOVERPZXPROT\Z[XSROLLi;J 1|PICKv[܋s2DROPXXg2DUPXZRPW2SWAPY[XZSQF2OVERY[XZRPSQ32ROTg}}|DEPTHP.WU|@[![XC@![*C!,[X2@9[W2!E[XXG@LS[&!Lc[X&C@Lp[&*C!L~[X&+![Xt?DS:gMOVEooL o = o |FILLXY_ێ0ERASEa|ANDX[#ORX[ XOR X[3NOTXS>D$Z+ yHNEGATE0XABSAX yDNEGATEP[Y++DABS`XP x+wX[-ZX+D+XZ[YnD-j|M+6|1+X@I2+X@@>1-XH42-XHH)UM*X[M*PVWVL !j|*/1|UM/MOD#[ZX;sFM/MOD0GL ;~V9WL JWL JcL oW1|/MODM6V|/W1|MOD1|*/MOD{V|*/iW1|M*/XVWVoo~Woo9oo9W1WoL Cj|2*X2/EXD2*PXZD2/[XZLSHIFTjYXRSHIFTyYX0=X t@r=X[;ظt@a0<X x@P0>X @?<X[;ظ|@.U<X[;ظr@>X[;ظ@ MIN?L $W1|MAX(L ;W1|WITHIN(c|D0=?X[ øt@D=Y_|D0|<# 9K%|#> )Kc|SIGN( L S - |#> V9W9o cL 0 |#SU Y L |CMOVE Y_XiCMOVE> Y_XWCMOVEL Y_XV^ÅBLANK r|COUNT a;W1|PLACE LW>|SCAN XY_ڎ‹uAOWQSKIP XY _ڎtAOWQ-TRAILING: ;V cc1L | =  l |/STRINGU c;L 1= ocoo|COMPARE [_Y^؎3;t wH@ tyHH)SEARCH [_ZXPRV t+x؎VW_^t tFJ^ ^XXQR BRANCH 4?BRANCH4 X tFFX[MMVFFMM^+MMFX[;uFqFFX[X;tPFFz>MARKB .M|>RESOLVE .W%| #<Y.M|VARIABLE+|CONSTANTM8M|2VARIABLEc|2CONSTANT{J8MM|USERb8<|-1O03F1>253,BL" #BUFFERS  ICF*S01R0)($ BASE2 SPANOOUTZBLKe>INo SCRy"CONTEXT&CURRENT(STATE*#TIB,.WARNING02(KEY)4(EMIT)t6APPLICATION3SYSTEM%ALLOT8|HERE(|C,'.>|,7 .%|>BODYIX@@@XHHH |p|CGL WcGL ;~L |p= W= 1| |!CSPZu%|?CSPcdefinition incomplete|?PAIRS5conditionals not paired|?COMP compilation only|?EXECBexecution only|?STACKh.W stack empty out of memory| is undefined|[v%|]g%|EXPECTSW;a%L ; L 1o;= ;HL P;2c>= ;cL L {W= ;22;L 1= 1|PAD;D|WORDJWc A cW$ co;*%; ;c >|'A)|IMMEDIATE*@ |( )1|.(8 ) |\HJuL w@= {|VOCABULARY[M.CMC%%|FORTHIDEFINITIONS%|UNUSEDsL ;.= .|TIBGWuXX);1L GL FL @M= B= ; L To=  E$ W1V L |,G%= GL 1L  = L  = 1|uJJXuX|EVALUATE||QUITl7'" ;PaL e ok= BYE1"=L >'*b@ L!ABORT.=L  >%uGL '"1L v#.uXe  Scr @e Ln e Error: ";2; 2|z oL "=L lO|ABORT"GH- |Ȏ؎Ў!&#0!?<w/ J! Requires MS-DOS 2.x or greater $@3 9;С= B£COLD<t<t <tPjX*#e3O >+---+>%<F" % .=;%GL 8%Pe 1DX-Forth 1.1 23-Sep-2000 MS-DOS (beta version)e - [Forth-83 version, with floating point] %'">(B1L B> SCR!I&L e Using v#OFREEZE^% |FORGET>%)r;/in protected dictionary;L a;;%CciL = i;C%;;cL p= W%GL ;%|EMPTY/= cCOMPILEzJ;M|g |SLITERALM.c |5" |)! =  S"L N - |P! Pc | |."6 e - |LITERALv ;L <|M|2LITERAL MM|[']  |[COMPILE] tM|RECURSE a~M|CHAR O1|[CHAR]!9! |Y/N!*e (y/n) NQY;L P!Y= S!N2|RESET-DISKS&!!P !Z!߉+FILENAMEY!.$ W1L !|a  Wc .c>W |-FILENAMEx!t.$ W1|PARSE-FILENAME!_[XVGI< tWS,@<s5<:u $,DDDD[_S<.tG˷EFu^2GˊtU"<.t:<+t6<:r2<>s.:tF<*u?Gut GF uá"R"|}"|o"|"޻ X!j#Z[_ tLS#ڊ[ u?R״!QSW(_[YZR&j#!Z<t uǀAS!u[Ku2"FILENAME!"  GL #;L #. 1;L # = #1= #: 1@ - |FILE-SIZEk#"|SEEK-RECORD#d"!;%>|READ-RECORD#<"#cL 5$;|WRITE-RECORD $"#W1|""$W'""#X|REPOSITION-FILE9$ݓ9;#[$W#W"#%|FLUSH-FILEw$"#cWL $H$""'cW#X|"G ;G S| ][$X3 [u  G :Ë"G ;G SR| 2ݴ$X3Z[ u  G :ÉREAD-CHAR$ۊWRITE-CHARB%ZۉREAD-FILEV%Y_3WRQjYZ_uGBI t3ۊWRITE-FILEj%Y_WQbY_uGIREAD-LINE%Y_3%*u$tt t tGCIt tSSWQS[Y_ÊWRITE-LINE%Y_GIWQY_t u uOPEN-FILE & """>";">"JW9WL &"%#";#X|CREATE-FILE=&""">"1"= ]&CLOSE-FILE&"1L &">"|DELETE-FILE&Qۙ"1= &RENAME-FILE&-"1"11c>L &1= &X"لFILE';  no bufferi'8M'MM.M*|' TEMP SCRD)A~Inڳ'"1 no file open|EMPTY-BUFFERSp''نUPDATE(0'$;W%|#SCREENS('"|;H(Hblock out of range|block r/w error|SAVE-BUFFERS=('$L ($;W(;o%'#"H${(|FLUSH(x١((|BUFFER(f١(W($%"|BLOCK(O'$cL =);(W'#$1{(= ?)1"|LOAD( ;)ou)1|-->C)u; loading onlycuX)X|THRUc)Wt ) J) )|NEWBLOCKS)ؓ H(;"%#t *H$can't extend file" )|CLOSE)Cس'&1(|6 ;specify filename|ؽI&&1L |*v#e  exists - delete it? ,!L |*O&can't create file|USING * *SCR!*I&L *v#e  not found - create it? ,!L *OB*||\SAVE*W"W;% *COM!*B*;c%W1$&can't save file%|TURNKEY*= +FDROPP+C؄FDUPc+E؅FSWAPn+I؅FOVERx+O؄FROT+W؂F@+؂F!+؄FABS+AkFNEGATE+.XD>F+[ZQˊ CF>D+  ֊Y!ՃF0=+[^ۃF0<+[Z usF< ,YyFMIN*,Sr[x;FMAX>,S[[y$FLOORU,|FROUNDl,jFCONSTANT},FVARIABLE,FLITERAL,F+,CDZF-,51LF*,'m>F/, 0>FLOAT,[[QъYsRSAՓ.|REPRESENT,'-u+,-Xu+,*L -+u+/,*L l-9,-= -u+}L/,L -9,-= -L L-V -9, -,,+ V -Y -- 1 1L -- -JW|9PRECISION#-$SET-PRECISION-M--%|0u+,.; -/-1L K.-.>|6Wc~ Y Y oL s.-= v.+ E - .-W |..;c >. A a |(FS.)-&.S..|FS.R..= pFS..s.|(F.).a&.;-HL ..|F.R.D.= pF. /4/|FSQRT/FLN-/FEXP>/F**M/Ҁ+D/,T/|FSIN]/yCFCOSp/i-FATAN/XFRANDOM/Ex/t*//D*9/KK7KK/M=5Dzh(F1AYZ[,9[.9QR,9[!0[09[29!0S09Yл&9CC/CC72&9ȊùðR0^2'9"4&9"uCC2CC7o"u먊CCC7 22L uÊ ÊЊ u Cu2x2ŊK:uC:uC:u C:u[ð2C2CC7"uO݊ 2û'92+9K"u*r y*<r4#x†EDITOR^>/YHB/BUFC/L|>@DX>DY>uTABSIZE>fROW>]COL>RINS>GBELL>wÓ2|SPAUSE>dÙ /|HIGHBLK>OH(.|!CURSOR>8>%>%|@CURSOR?!ý>>|CXY+?5?>W>o|UPB?½>L u?>H?|DOWN[?½>L ?>H?|LEFTw?>L ?>H?|RIGHT?>>L ?>H?|HOME?v?H?|TAB?c²>>cV @? @H?|SOL?>>%H?|NEWLINE@'@~?|LSTART%@ª>>'|LEND8@A@>|CPOSR@A@>|BLINEf@>J|LBUFFz@@>|BBELOW@>>'>|BLEFT@Y@m@|.BORDER@x>>o>V A >JL A-= A!2 @!2>oV 1A > #Ae Buffer|.LINE@m@@a H?|.LINES>A5?>V A >%@FA rA?H?|.MODEYAAo>L Ae Insert= A|.STATUSAoe Scr # ov#H?|.LBUFAg>o@>H?|MODEAL>*>%AH?|.BLOCKB05??AbA?H?|SCLEARB> &B|BCLEAR7B>@ |LBCLEARMB志@> |LOADBLKgBп)> |RESTORE|B赿B&B|SAVEBLKB袿(> &(|+BLKB舿?L BB|-BLKBhL CB|?KEYBJQ; HL %C;2|CLRMSGC&o|?CLEAR'C0Ce &* * * CLEAR-OUT: (B)uffer, (S)creen ? C;BL C1VB= CSL C@B?0CH?|?EXIT?C谾0Ce * * * EXIT: (S)ave, (Q)uit ? C;SL C1&((|= CQL C(|0CH?|TRUNCCSm@@;H? |(OPEN)C7>>Y@1L LDm@;@ m@>= ND>|OPENDDFA|JUMPPD10Ce * * * JUMP: Screen (0-?e )? ;Pa;L D0CH?|A L nD1;?HL lD%0C?B|REDRAW`Du@A&BA|DELD`>>L Em@m@@ Y@>FA|EUPDATED3B0Ce * * * UPDATED BLOCK: >0CH?|OVERTYPEE>>L |E;2m@>>= E1>|INSERTPE˼Y@1L ED[EFA= E1>|BSPE覼>L E?D|GETE菼@A@> 5?@FA?H?|PUTErA@@> A|KILLE\A@@> A@>A@@ bA|ILINEE9A@;>@ @A@> bA|SPLITFm@;>@@ m@> bA|JOIN8FA@>>V F1 L F | wF>@m@W bA|KEYVECTORS]FfEDB?`?dFDE?gD#EB/@FWDE?B?DC B@F~?EHCMAPKEYFb;L G;ȮL G1= G;ЮL *G1= G;ͮL >G1= G;ˮL RG1= G;ҮL fG1= G;ӮL zG1= G;ɮL G1= G;ѮL G1= G;ǮL G1|KEYDOF蛺JF|EDITLOOPGF;HL GG= H; HL H>L HE= H[E= H1>;L G1|INITG,;>H>W??%VBqB>%BDH?|(EDIT)#H*HG|EDITl>bH|WHEREoHϹJWbH|LH边9|NH诹|BH蠹|COPYH莹W)W( &((|COPIESHnWce Copy ce thru ;e onto ce thru ;e - continue? ,!L TI1= IL fIW= hIV I ce -> ;HL I1| c pI|MAINH豸(* I&L Ie file not found|1 EDIT*|