FORMP4THP4DI4=P=XlP4NM=XEXIT1-1+$ 2R@0 2R>< 2>RH2DUPTH2LITERALd (2LITERAL)x2-2+2OVER 2SWAP ACCEPTHALITERAL (ALITERAL)ALLOCATEARSHIFTAND BAIL,BRANCH< BODY_OFFSETLBYE`C@lCMOVExCMOVE>:(:)COMPARE=!<>>"U> <#U<$0='0<>%0> &0<,(CR8)CREATED*(CREATE)T9D+h6D-t:UM/MOD8MU/MOD7M*;UM*,DEFER+C!.DEPTH//0.1.S2(DO)3DROP4DUMP(5DUP8=(EMIT)DEMITT>EOLd?(?ERROR)p??ERROR@EXECUTEA@LFILLMFINDC CREATE-FILED OPEN-FILEB CLOSE-FILEF READ-FILE J FILE-SIZE K WRITE-FILE4E FILE-POSITIONHGREPOSITION-FILE`HR/OxIR/WNFINDNFAO FLUSHEMITPFREED>FF!F*F+F-F/F0< F0=F<$F>D0F@<FDEPTHHFDROPXFDUPhFLITERALx (FLITERAL)FLOAT+FLOATSFLOORFMAXFMINFNEGATEFOVERFROTFROUND FSWAP0F**@FABSLFACOS\FACOSHlFALOG|FASINFASINHFATANFATAN2FATANHFCOSFCOSHFLNFLNP1FLOGFSIN(FSINCOS8FSINHHFSQRTXFTANhFTANHxFPICKQHERER (SNUMBER?)SIUJT INCLUDE-FILEVKEYW(LEAVE)XGLITERALY (LITERAL)ZLOADSYS,[LOCAL-COMPILER<\ (LOCAL.ENTRY)T] (LOCAL.EXIT)l^(LOCAL@)_ (1_LOCAL@)` (2_LOCAL@)a (3_LOCAL@)b (4_LOCAL@)c (5_LOCAL@)d (6_LOCAL@)e (7_LOCAL@) f (8_LOCAL@)$ h(LOCAL!)8 i (1_LOCAL!)L j (2_LOCAL!)` k (3_LOCAL!)t l (4_LOCAL!) m (5_LOCAL!) n (6_LOCAL!) o (7_LOCAL!) p (8_LOCAL!) g (LOCAL+!) q(LOOP) rLSHIFT sMAX tMIN, u-8 wNAME>D vPREVNAMET xNOOPh NUMBER?x zOR {OVER |PICK }+ ~(+LOOP) +! (QUIT) QUIT (?DO) ?DUP ?TERMINAL KEY?0 REFILL@ RESIZEP ROLL` ROTp RSHIFT| RDROP R@ R> RP@ RP! A; SP@ SP! ! (SAVE-FORTH) SCAN SKIP$ SOURCE4 SET-SOURCED SOURCE-IDX PUSH-SOURCE-IDl POP-SOURCE-ID SWAP TEST1 ' * >R TYPE BASE CODE-BASE CODE-LIMIT CONTEXT( DP8 ECHOD HEADERS-PTRT HEADERS-BASEh HEADERS-LIMIT #TIB RETURN-CODE TRACE-FLAGS TRACE-LEVEL TRACE-STACK OUT STATE>INVLIST WORD0W@@W!LXORX0BRANCHd(CTEST0t4CTEST1x::::system.fth@ FIRST_COLONDLATESTPFLAG_IMMEDIATE\ IMMEDIATE|A(A\COUNTON$OFF0CELL<CELL+LCELL-\CELLSlCHAR+|ECHARS-ROT(3DUPP2DROP\NIPhTUCKt<=>=INVERTNOTNEGATEDNEGATE,ID.<DECIMALHOCTALXHEXh(BINARYt<PADP$MOVEdBETWEENA[]EVEN-UPALIGNEDALIGNALLOT C,(W,X, p N>NEXTLINK,NAMEBASE@CODEBASET NAMELIMITh CODELIMIT| NAMEBASE+>CODECODE>N>LINK>BODYBODY>USE->REL$REL->USE0X@8X!(@COMPILE,4HI[COMPILE]HT (COMPILE)\hGCOMPILEpt:NONAME ERR_ABORTERR_CONDITIONAL ERR_EXECUTING ERR_PAIRS ERR_DEFER ERR_UNDERFLOWCONDITIONAL_KEY ?CONDITION,>MARK@>RESOLVEP)@<EDOES>PpVARIABLE` 2VARIABLEtCONSTANT-1-22!2@ABS,DABSDS>DlD>St/MODMOD2*2/(D2*4FALSE@TRUEPBL` IF.USE->RELl IF.REL->USE4 A!H A@T A,` :STACK >STACK STACK> STACK@ STACK.PICK STACKP  0STACKP4 USTACK, >US< US>H US@T 0USP` DO_FLAGp LEAVE_FLAG ?DO_FLAG, BDOP C?DO ELEAVE LOOP-FORWARDD LOOP-BACKp DLOOP E+LOOP  UNLOOP GRECURSE, SPACE< SPACESL 0SP\, >NEWLINEhH CHECK.DEFER|p >IS (IS) BIS (WHAT'S) FWHAT'SABORT/STRING<PLACEX PARSE-WORD PARSE LWORD0EASCII@@CHARPTF[CHAR]``$TYPEpl'WORDtEVEN(C")(S")(.")",,"B.((B."dB.'BC" BS"8A"$@BP"0HB""<HSLITERALH$APPEND\ AUTO.INITl AUTO.TERM, TRACE-INCLUDE<INCLUDE.MARK.STARTpINCLUDE.MARK.END$INCLUDEINCLUDE-SAVE-NAMEINCLUDERI$INCLUDE?0 HEADERS-SIZED CODE-SIZE\ AUTO.INITpD SAVE-FORTHTURNKEYx::::loadp4th.fthx::::forget.fthRFENCE$FREEZE4 FORGET.NFAh VERIFY.FORGET(FORGET)( LAST-FORGET<$ IF.FORGOTTENP[FORGET]h(FORGET|ANEWMARKERx;;;;x::::numberio.fthTASK-NUMERIC_IO.FTHDIGIT>NUMBERCONVERT NUM_TYPE_BAD$NUM_TYPE_SINGLE<NUM_TYPE_DOUBLET ((NUMBER?))l (NUMBER?)HLDHOLD$<#4#>PSIGNl##S(UD.)UD.UD.R (D.)0D.,@D.R8`(U.)DpU.TU.R`(.)l.x.Rx;;;;x ::::misc1.fthTASK-MISC1.FTH>><<CELL*( (WARNING")LHWARNING" |(ABORT") FABORT"4?PAUSEDT#COLSTdCR?dCLSpPAGE|A$4 .HXp TAB-WIDTH TAB WORDS! CLOSEST-NFA$! CLOSEST-XT4!>NAME "@EXECUTE 8"TOLOWER x;;;;0x ::::case.fth@" TASK-CASEX" CASE-DEPTHl"OF-DEPTH"DCASE"C?OF#BOF4# (RANGEOF?)h#GRANGEOF|#EENDOF#GENDCASEx;;;; x::::strings.fth $TASK-STRINGS.FTH( $ -TRAILINGD `$$ARRAYX $$=h 8%TEXT=t %TEXT=? %$MATCH? %INDEX l& $APPEND.CHAR &($ROM) &$ROM &TEXTROM x;;;; x::::private.fth !'TASK-PRIVATE.FTH$!' PRIVATE-START@! ' PRIVATE-STOPX!0' FLAG_SMUDGEp!@'PRIVATE{!`'}PRIVATE!' PRIVATIZE!x;;;;!x::::ansilocs.fth!T(TASK-ANSILOCS.FTH!d(+LV_MAX_VARS"t(,LV_MAX_CHARS"((LV-NAMES4"*)LV-#NAMESH"*(LV.MATCH\"+0LV.COMPILE.FETCHp",0LV.COMPILE.STORE"T.0LV.COMPILE.LOCAL"|.*LV.CLEANUP".)LV.FINISH".(LV.SETUP".'LV.TERM#/(LOCAL)#0VALUE #`0BTO0#0B-><#1C+->H#1:T#1A;`#1DEXITl#1EDOES>|#x;;;;#x::::locals.fth#1TASK-LOCALS.FTH#1-LOC-TEMP-MODE#10LOC-COMMENT-MODE# 2(LOC-DONE$2A{$3TLV1 $3TLV20$x;;;;@$x ::::math.fthP$4 TASK-MATH.FTHh$ 4FM/MOD$`5SM/REM$$6/MOD$86MOD$D6*/MOD$X6*/$x;;;;$x ::::misc2.fth$d6TASK-MISC2.FTH%t6B'N%6?LITERAL$%6B'C8%6IF-DEBUGD%6 MSEC-DELAYX%6MSECl%,7SHIFT|%T7 RAND-SEED%d7RANDOM%7CHOOSE%7WCHOOSE%72SORT%7-2SORT%7BARRAY%8WARRAY&H8ARRAY&t8.BIN &8.DEC0&8.HEX@&8B->SP&9W->S`&L9WITHINp&9MOVE&9ERASE&:BLANK&<:QUERY&H:SPAN&X:EXPECT&h:TIB&t:UNUSED&:MAP&`=SEARCH'x;;;;'x ::::catch.fth('t>TASK-CATCH.FTH@'> CATCH-HANDLERX'>CATCHp'>THROW'P?(ABORT)'\? OLD.ABORT'h? RESTORE.ABORT'?BAD.WORD'? NAIVE.WORD'? CATCH.BAD'? CATCH.GOOD(x;;;;(x ::::quit.fth,(@ TASK-QUIT.FTHD( @ FIND&COMPILE\(A CHECK.STACKt(xA INTERPRET(BEVALUATE(xBHPOSTPONE(,COK(\C QUIT-QUIT(lCQUIT(x;;;;(x::::condcomp.fth)CTASK-CONDCOMP.FTH )DF[ELSE]<)DD[IF]L)EF[THEN]\)EGEXISTS?l)x;;;;|)x::::floats.fth)ETASK-FLOATS.FTH),EFALIGNED)dEFALIGN)|EFP-CREATE-SIZE)E CREATE_SIZE)E FALIGN.CREATE *EFCREATE$*E FVARIABLE4*E FCONSTANTH*FF0SP\*HFS>Fl*TFF>Sx*`F (F.EXACTLY)*lGF~*HFVAR-REP*H REPRESENT*I FP-PRECISION*IFP_PRECISION_MAX*I PRECISION+I SET-PRECISION+IFP_REPRESENT_SIZE,+IFP_OUTPUT_SIZEH+ JFP-REPRESENT-PAD`+8J FP-OUTPUT-PAD|+J FP-OUTPUT-PTR+JFP.HOLD+J FP.APPEND+4KFP.STRIP.TRAILING.ZEROS+KFP.APPEND.ZEROS+KFP.MOVE.DECIMAL,$L(EXP.) ,xL FP.REPRESENT0,|L(FS.)H,MFS.X,(M(FE.)d,NFE.t,N(FG.),DOFG.,TO(F.),PF.,PF.S,4Q FP-REQUIRE-E,DQ>FLOAT,SNUM_TYPE_FLOAT,S (FP.NUMBER?)-TFP.OLD.NUMBER?-(T FP-IF-INIT4-8TFP.TERMH-lTFP.INITX-x;;;;h-x::::member.fthx-TTASK-MEMBER.FTH-T FIND.BODY-(UOB-STATE-8UOB-CURRENT-CLASS-HU OB_DEF_CLASS-XU OB_DEF_STRUCT.hUOB_OFFSET_SIZE.xU OB.OFFSET@4.U OB.OFFSET,H.UOB.SIZE@\.UOB.SIZE,p.UOB.MAKE.MEMBER.(VUNION{.8V}UNION{.PV}UNION.V OB.MEMBER.V OB.FINDIT.WOB.STATS.,W OB.STATS?/8WHSIZEOF()/HWBYTES0/WBYTE@/WSHORTP/WLONG`/WUBYTEp/WUSHORT/WAPTR/WRPTR/WULONG/WSTRUCT/x;;;;/x::::c_struct.fth/X TASK-C_STRUCT/X <:STRUCT>0DX:STRUCT(0X;STRUCT80hYB..H0Y(S+C!)T0Y(S+W!)d0Y(S+!)t0Y(S+REL!)0YCOMPILE+!BYTES0,[!BYTES0\(S!)00\BS!0<\@BYTES0T](S+UC@)0`](S+UW@)0l](S+@) 1x](S+REL@)1](S+C@)01](S+W@)@1]COMPILE+@BYTESP1^(S@)h1_BS@x1(_FLPT1<_(S+F!)1H_(S+F@)1T_CFS!1_CFS@1x;;;;1x::::smart_if.fth1`TASK-SMART_IF.FTH1$`SMIF-XT24` SMIF-DEPTH$2D`SMIF{82`}SMIFH2aBIFX2 aBDOd2aC?DOp2$aEBEGIN|20aDTHEN2R7 p(TRACE.R>$70p(TRACE.R@87Dp+TRACE.RPICKL7`p)TRACE.0RP`7p+TRACE.RDROPt7p,TRACE.RCHECK7q0TRACE_STATE_SIZE7,q-TRACE-STATE-17`q-TRACE-STATE-27q/TRACE-STATE-PTR7q,TRACE.SAVE++8q0TRACE.SAVE.STATE8q1TRACE.SAVE.STATE188q1TRACE.SAVE.STATE2T8r/TRACE.RESTORE++p8,r3TRACE.RESTORE.STATE8Hr4TRACE.RESTORE.STATE18\r4TRACE.RESTORE.STATE28pr0TRACE-LOCALS-PTR8r3TRACE.(LOCAL.ENTRY)9 s2TRACE.(LOCAL.EXIT)9,s.TRACE.(LOCAL@)89Hs0TRACE.(1_LOCAL@)P9Xs0TRACE.(2_LOCAL@)l9hs0TRACE.(3_LOCAL@)9xs0TRACE.(4_LOCAL@)9s0TRACE.(5_LOCAL@)9s0TRACE.(6_LOCAL@)9s0TRACE.(7_LOCAL@)9s0TRACE.(8_LOCAL@):s.TRACE.(LOCAL!)0:s0TRACE.(1_LOCAL!)H:s0TRACE.(2_LOCAL!)d:t0TRACE.(3_LOCAL!):t0TRACE.(4_LOCAL!):$t0TRACE.(5_LOCAL!):4t0TRACE.(6_LOCAL!):Dt0TRACE.(7_LOCAL!):Tt0TRACE.(8_LOCAL!) ;dt/TRACE.(LOCAL+!)(;t+TRACE.(?DO)@;t,TRACE.(LOOP)T;lu-TRACE.(+LOOP)l;Pv.TRACE.CHECK.IP;v-TRACE.SHOW.IP;w0TRACE.SHOW.STACK;w/TRACE.SHOW.NEXT; z2TRACE.DO.PRIMITIVE;-TRACE.DO.NEXT<*TRACE.NEXT<4TRACE0<S@<SDL<TSMX< TRACE.USERd<GDx<PG<` TRACE.HELP<ĈVAR1<ԈFOO< ZOO<4ROO<`MOO<KOO<̉TR.DO<TR.?DO=TR.LOC1=<TR.LOC2 =x;;;;0=x;;;;@=h;;;;P4CDlZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ-=-S-AY@D5Pz+Y)3>35YYY}uYrY|Y|Y|333{$ $Y$YuYY 6YY YYYQY}{{ z$YY5Y}Y}YAQ+YA5YQ5Y}AAAA}}uYu}uu}AX@XY@@TQYYYYYYYQsu?QYXQ{uQQuXA$?u?4Y@4Y@$Y@$Y@ x\ x4XDw}YXQY @t)YX)YXYX)XY A**{5AA5&5&5& Y3D:t3YrY{Yz*** 55$ A X)YX5X5A}5A}A5A}A5A}uA5A}Y* jjt4j4jZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ4 4 4 4 ***4Y2@Q 4Y@QYXQ  YW@QYX   zd ( Q{u$ 5Qu L QuQYq@ D Y~@ D Dw@YtYsY q.Y3qA%(AYAu?}p 5H AXY @ p A5H AXY @ -P?{t{}u(+3hA{{u5'}uA{{u5'uXQ<Q3AX3@XQ5Y}5}}}hl<Y"Y)AY@Y"A(Y@Y'Y'AY@Y"<<<AY@ Y"<<<A$Y@XX<<<Y@{5}5}+Begin AUTO.INIT ------Z(End AUTO.TERM ------ZZZ(*::::ZZZ<P<<Yx;;;;ZZZYx,A(, Include ZZZ5(Q5HD83Could not find file ZZZ`(<5.T.uH,Warning: stack depth changed during include!ZZZ(1( B3p,AX include added ZQu0bytes,ZQu0left.ZZ(* trace.fthfthZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ5PM33 3**uuYAuY}AsQuY}As$SAVE-FORTH failed!Z(YQuY} TURNKEY failed!(*lQ4 5wv5p5wH #8, 5 is below fence!!ZZ(34Nh0FORGET - couldn't find (*TM(QH T 4 @LIF.FORGOTTEN - couldn't find ZZ5Y 4((xH 5'L5Q" 50@54 3[FORGET]ZZZM@0FORGET - couldn't find (AM{(3p)DuXY A}h*5Ya YauYA}55YA(YAuY9}(5Y93YY0u5 85%\ 3 3%<5A 3PA;3A;9dY3***5$3YY {Y-55$(P3TYY.  P*jA+<PA<{u&Y-A8Y { Y}Y0}lz$$4 {u h,$P4 {u YY`{u 5Y$P4 {u *rYr38AY(@((38AY|@|pV3(.Hit space to continue, any other key to abort:ZV5 TerminatedZ|*<ATYuY s(Y(Y2(qAY Not a single number!ZZZ|AX5Y Y7 Y0}*Ap Ap Au YD5'05 dv3( wordsZ(**Y!Y$!D5'w lw5!@5w$!A 5!5w$!vLP!A0@5Y[ 45Y@YAuYa}***4"A"Y"\Y3@Y"Y"4Y{@Y@"{t5t Y4#@"""A,, Missing ENDOF in CASE!Z(Y3@"AYxq"*5%<}{%)5XY$ 5A}Y}5Y258"Y|8"u 3YWqPY258"Y|8"u 3YWqP8%58%Y{Y2{S}{(3{S}W qP$${}+5+Y25}q)Y& &)Y& &**** D'Y ' 'A$Extra }PRIVATE:|D ''A$Missing PRIVATE{ZZZ| 'A$Missing }PRIVATEZZZ| 'A5'A"(50'z{+v3Y'Y '****$AARE_LEVELSZZZZZZZZZZZZZZZZZZZBBOP_LEVELZZZZZZZZZZZZZZZZZZZZOLDHEREPsilocs.fthZZZZZZZZZZZZINDX'SZZZZZZZZZZZZZZZZZZZZZZZZOLDINDXZZZZZZZZZZZZZZZZZZZZZZZFSIGNZZZZZZZZZZZZZZZZZZZZZZZZZFLAGZZZZZZZZZZZZZZZZZZZZZZZZZZNSHIFTZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ*Y*AY8S({$PSW qY{3Y_@lY{3Y`@<Y{3Ya@ Y{3Yb@Y{3Yc@Y{3Yd@|Y{3Ye@LY{3Yf@5XY^@3Y{3Yi@lY{3Yj@<Y{3Yk@ Y{3Yl@Y{3Ym@Y{3Yn@|Y{3Yo@LY{3Yp@5XYh@3*+ 3*AY]@|.*[Y*Locals turned offZZ(*[.5*Ad(Too many local variables!ZZ|*A(<*A(M\d(LOCAL) - Note: ZZZ*A(" redefined as a local variable in ZD(Y*0P*AXY\@YT.[)X\Y00 AYA@A*,xMY$&TO or -> before non-local or non-valueZ|AY@`0* XYg@tMY$!+-> before non-local or non-valueZZ|AY@..|.Y@.<**** 211{Y}{3 2PY|{31PY-{31PY){03{ ... ) imbalance!Z(L1AP$1AY@/3 2AYY/Y\_5_5_]Y\_`(_`}kab(]*Y\_`,mlanbcd:po`&ta&eoHe$fp$fpdeuo\a&Le$fp(deuofpef]Y\_`,mlanbcd:po`&4eoa%fp a&fpef]D`5$637`5D6\*M,AuXY@AX6**Y26AY2qq5&r*.jT7AYzY}Y5T7d7Y,7hu7} )Y8 })Y88 })Yd8 }A(AA5YYzY5YYzYY\`at(`_t_a  `_t_a z]u& 5%YLP5%LP3* H:3Qu Code SegmentZZZ( CODEBASE = ZZZ8( HERE = ZZZQ8( CODELIMIT = ZZZ8( Compiled Code Size = ZZZQu( CODE-SIZE = ZZZA( Code Room UNUSED = ZZZt:( Name SegmentZZZ( NAMEBASE = ZZZ8( HEADERS-PTR @ = ZZZA8( NAMELIMIT = ZZZ8( CONTEXT @ = ZZZA8( LATEST = ZZZD8 = D( Compiled Name size = ZZZAu( HEADERS-SIZE = ZZZA( Name Room Left = ZZZAu(Y\_m`n`b `buY2obYPaS}_SU}}!oW qe,_S}m`SunW q`cde]**>A>@>3Yl>A5$,THROW has noone to catch!ZZ(>3>-Y\? Y .h?Y>YwwYY#(?After bad word!(Y?>YwY>(*5M{03A@@Y{3@|Y{`364 is not recognized!!ZZ(3.&TQUIT: Stack underflow!Z(.YYq>A\ 5%\Y[A$5[A@3$ @3AdAYxA3MY{@3Postpone could not find ZZZ(TY{3@,{3T3 OK ZZA1(*\C\CA$`YxA>( Exception # ZZZ(A$,C*Y5[IF]ZZZ$Pd[ELSE]Z$$P5$[THEN]Z$$@P$,3$DM3*Y}Y/YA,E** AE},EEuE)EYEQYYF YsYqDlY\Yka}/lbYYqibYYqj_`_a`a$bY3q]L<`FZZZZ*ZZZZZZZZY\mHH(lHHYlH,_`Y0LYkHYHFTFkHY HF`auHFYHFYHF$`Ylq4`uYg_`9abc]**IAItI* *@*ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ*ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ*JA8JY@} (JAh+J3Y\`YsY _S}Jq]JA8J"JAY0JYsYY0JqY\ J_`tJ_`uKY.J J_}`_uYsJ]5Y$l&Y-Y+48JJ JIHHY-JYIKYeJ$LJ$PZZJ8JJA{u|L Y\8JJ JIHpY-Ji_DY 4YjIKYeJ`$LJ$PZZJ8JJA{u](M Y\8JJ JIHY-J5I{Y z8YIK4KYeJ$LJH5%IK$0.ZJK JIJ4K$PZZJ8JJA{u]N Y\8JJ JYHFTFIsIt5lHY-J5I8YIK4KYeJ$LJX5%bK80.ZJ5ItK JI}J$PZZJ8JJA{u]TO FP> ZZZ%DY2dSuPdqemptyZZ(*Y\`$YHF]oYp_Y-5n_Y+z(YYgYgYY_`milkc%T_Y.Hab_c5p5fupmilkc%_YE_YezYYgYg_Y+(YYgYg_cf}po4QAoe<abY HFfHFde]*5DQ3S-*(TA$YT Y (T8TY YT YSY (T,Floating point numeric conversion installed.ZZZ(?8T*Y M*****AXhU}AX58UAhA{Y$${Y${}UU8UAA(V8UA(V2}UNION - Two parts of UNION are not the same size!Z|)U\YV xU6TD( ???ZOB.FINDIT - Word not found!|5xUUVWVA6(UAXU*BYTES - Only valid in :STRUCT definitions.Z|VHWHWHWYHWYHWWYHWW8WHW*)AQ5YL(UA0:STRUCT - Previous :STRUCT or :CLASS unfinished!ZZZ(XU(U)Q8UYXYXYX X(UAXU ;STRUCT - Missing :STRUCT above!ZZZ|(UD8UA4!u8UA8UA5A,W3A(XY}@}}+}}} X{3YY@Y{3YY@Y{3YY@Y{3YY@{3YY@T{3YY@(s! - illegal size!Z|3{3Y{ 3 |Y{3PY{3+(s! - illegal size!Z|3AY},[,W\{3AY{3Y{3Y{3A x{39P{38(s@ - illegal size!Z|3}}}A}A }8}9X{3Yl]@Y{3Y`]@Y{3YT]@Y{3Yx]@{3Y]@T{3Y]@(s@ - illegal size!Z|3A]}<\,W^YHW}},WY!FS@ with non-float!|AXY<_@<_,WY!FS@ with non-float!|AXYH_@H_***(A$(t$`Y4`Y4`$`A`4`4`AYt81$`A@$`AY$`D`\D`, D`P D`x```p ` `*Y\YY2_S}`Yrzjq`]Y\YjYkYl_m_vi_%_|aY::::{t3`$H_YYuY}k`}jHY;;;;{,3Y`}jl3DkbkeyboardZZZ 'C' kernelZa]Y\A`_N]Y\Yki_N_ from:Z(j`a`wY Y (`v5j%$_`tcj  not found!(]*4!5P POSTPONE ZZ *A**00*00*004eAYsY, DeA( Z8)ZZXe YTeTeA%eTeAYeYTeeDeDeAADeAADeA}Pf8(feY\_Y{\34eA%EXIT ZZf ;ZZYDeYY{3tfY{3fhY{3f@Y{3gY{3gYq{834eeLOOP ZZ(feY~{834ee+LOOPZZ(feXY2{43eDOZY4eeY{<3e?DO ZZZ(fY4eeY{$3." f" ZY{$3C" f" ZPY{$3S" f" Ze_df3]Y\Y4e_DeeYDeAej5DeA44eeTHEN ZZe3eDe`gDeA$t($(SEE conditional analyser nesting failed!ZZZ|]5Y@8k<4!$ is primitive defined in 'C' kernel.ZZZ(*Y`=PD, v5',l5 dP, *Au Y@ *00*00*00** ::::trace.fthZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ*oA5ooA5AooAAoA}Amm}Y}oooAm#TRACE return stack OVERFLOW!ZZZ|oAmm}Y }"TRACE return stack UNDERFLOW!ZZ|*(*ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ*ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ*AqAqqqq,qqq`qqqqAAqrrr,qq,r`qq,r*Y\prAooAproA_uooAj_Y2`Ygq]prAo pprprAuAY,sY,sY,sY,sY,sY,sY,sY,sprAuYsYsYsYsYsYsYsYsprAuY\_` aAYg$`o_oYga]Y\ pj pk`aYg(ao`o_AYg_]Y\ pk pmc_}lcauabuYbauacuYzYg(boao`AYg`]Y\_Y@#_Q"z4TRACE - IP out of range = Z_8(]Y\_4!5w_u +Z]Y\A Z.Yti._u... ZZZ_Y$_Su|q]Y\, _Pv<< ZZZ_vY\mwYA\m ||mA _eYg5d YY{3_ApY{3_H @Y{3_PY{3_AY{3_AY{$3_"ZZxY{$3_"ZZ@Y{$3_"ZZ3Yd\m >> ZZZ]Y\`Y{(3m pi,Y*{ 3_}YY{(3_AYgY{(3_H YgY{03_YYg<Y{$3_AYgY{H3$ _AYgYgY{3oY{3 pXY{30p0Y{3pY {3ooY {3 p pY { 30pYDp|YS{3YDpLYU{3YDpYW{,3pp_AYgYq{3_tiY~{3_lui|Y2{3ooPY{3_ti Y{03__}iY{(3__}iY{,3__}i`Y\{3r8Y]{3 sY^{3,sY_{3HsY`{3XsYa{3hspYb{3xsHYc{3s Yd{3sYe{3sYf{3sYh{3sYi{3sXYj{3s0Yk{3tYl{3tYm{3$tYn{34tYo{3DthYp{3Tt@Yg{3dt`@3_]Y\_PvqQk\raY}_ejYg`pm_` zilmAmA 8_oYm`}i_` zipqHra_]Y\mA%_imA%_w Finished.ZZ(_]5pm<3#Sorry. You can't trace a primitive.(`YmmAm`pmmAwqmAmmAmmAmmAmmAmY(mAmq-$Y\QY #<Resetting TRACE.USER !!!ZZZ(Y$Y _&_Y @ GD level out of range (0-10), = ZZZ_(mA_}mmAjmA5PTRACE.USER returned ZZZ5so stopping execution.Z(8mAmmA``]Y7 TRACE ( i*x -- , setup trace for Forth word )( S ( -- , step over )(+ SM ( many -- , step over many times )( SD ( -- , step down )(# G ( -- , go to end of word )(6 GD ( n -- , go down N levels from current level,Z(- stop at end of this level )ZZ(*d5Y}YMĈA}YԈYcY}Y\Y}helloZZThis is a message.Z(another message(YԈDONEZZZYY2SqYSqY\_`}]YYY