ELF#4(55L$ȉ5Ë5í5Ë\$5 YT$|$ 5ЃKF 5\$5Y55Ë\$5MY55Ë5L$щ5Ë|$1Ҁ?tBGÉ%tPЋ% g8)TRnd~==i­=t=u؋t@Q= 9 OWG GV=^YSVƊ0ʋt/{f;WuVQY^uCC^[^ȃ[RW1509v'O u)_Z511Ҋ-uCI#wCIC/ru؃À=t9v _Ar0:rQ=t8:u=u B+_4Ã$$ʉupt t uË  tY=? u ? uG=)v uHx uHí555r&= )AOA>H+=F1      inline : dup [ $fc4689 3, $fc768d 3, ] ; : 1+ [ $40 1, ] ; : 1- [ $48 1, ] ; : swap [ $0687 2, ] ; : drop [ $ad 1, ] ; : nip [ $04c683 3, ] ; : 2drop [ $adad 2, ] ; : and [ $0623 2, ] nip ; : or [ $060b 2, ] nip ; : xor [ $0633 2, ] nip ; forth : @ [ $008b 2, ] ; : ! [ $adc289 3, $ad0289 3, ] ; : w@ @ $ffff and ; : w! [ $adc289 3, $ad028966 , ] ; : c@ @ $ff and ; : c! [ $adc289 3, $ad0288 3, ] ; : + [ $0603 2, ] nip ; : * [ $26f7 2, ] nip ; : - [ $ad0629 3, ] ; : /mod [ $c389 2, $99ad 2, $fbf7 2, ] dup [ $d089 2, ] swap ; : >> [ $c189 2, $d3ad 2, $e8 1, ] ; : << [ $c189 2, $d3ad 2, $e0 1, ] ; : not -1 xor ; : negate -1 * ; : / /mod nip ; : mod /mod drop ; : wsparse 32 parse ; : lnparse 10 parse ; : x' wsparse lookup ; : ' x' drop ; : here h0 @ ; : :link ; : :xt 4 + ; : :class 8 + ; : :doc 12 + ; : :name 16 + ; : reclass last @ :class ! ; : reclass: ' drop which @ :class ! ; macro : x: ' compile ; : ['] ' x: literal ; : c: x: ['] ['] compile compile ; : as ' x: literal c: reclass ; : >r $ad50 2, ; : r> c: dup $58 1, ; : r x: r> $50 1, ; : rdrop $5b 1, ; : repeat here ; : again compile x: ;; ; : next x: r> $48 1, $8f0f 2, here - 4 - , $ad 1, ; : for here x: >r ; : (if) $063b 2, $adad 2, 2, here 0 , ; : <>if $840f x: (if) ; : =if $850f x: (if) ; : if $8d0f x: (if) ; : if 0 x: literal x: <>if ; : then dup here swap - 4 - swap ! $90 1, ; : ;then x: ;; x: then ; : if; x: if x: ;then ; : vector $e9 1, 0 , ; forth : literal, x: literal ; : literal? state @ if literal, ;then ; : execute >r ; : cells 4 * ; : cell+ 4 + ; : cell- 4 - ; : word+ 2 + ; : word- 2 - ; : rot >r swap r> swap ; : -rot swap >r swap r> ; : over >r dup r> swap ; : tuck dup -rot ; : 2dup over over ; : later r> r> swap >r >r ; : 0; dup 0 =if rdrop drop then ; : t/f >r >r if r> rdrop execute ;then rdrop r> execute ; : t swap if execute ;then drop ; : f swap not if execute ;then drop ; : create: wsparse entry ; : create create: as .data ; : macro: create: as .macro ] ; : forth: create: as .forth ] ; : self: create: as .self ] ; : class: create: as .class ] ; : vector: create: ] x: vector ; : variable 0 : variable: create , ; : constant create last @ cell+ ! ; : +! dup @ rot + swap ! ; : -! dup @ rot - swap ! ; : allot h0 +! ; : alias create: last @ cell+ ! ; create list 5 cells allot : loc: 1 list +! list @ cells list + last @ swap ! ; : ;loc list @ cells list + @ last ! 1 list -! ; : fill swap for swap 2dup c! 1+ swap next 2drop ; : move for swap 2dup c@ swap c! 1+ swap 1+ next 2drop ; : copy 2dup >r >r move r> r> ; : pad here 1024 + ; : " '" parse pad swap copy ; : z" " over + 0 swap c! ; : devector 0 ' 1+ ! ; loc: : change dup >r - 5 - r> 1+ ! ; : make entry x: vector compile x: ;; ; here ] x' if change ;then make ; ;loc alias is : default: vector x' if dup >r - 10 - r> 6 + ! ;then word? ; macro: d: x' if 5 + literal, c: execute ;then word? ; loc: : .string dup r> + dup >r over - swap ; here ] dup literal, dup >r here 5 + swap move c: .string r> allot ; ;loc is $, macro: s" " $, ; macro: { '} parse $, c: eval ; self: [[ vector ; self: ]] vector ; loc: create list 5 cells allot : push 1 list +! list @ cells list + state @ swap ! ; : pop list @ cells list + @ state ! 1 list -! ; here ] push state @ if $e9 1, here 0 , ] ;then here ] ; ; is [[ here ] pop state @ if dup $c3 1, x: then 4 + literal, ;then $c3 1, ; is ]] ;loc : hex 16 base ! ; : decimal 10 base ! ; : binary 2 base ! ; : octal 8 base ! ; : >entry last repeat @ 0; 2dup cell+ @ =if nip ;then again ; : unpack 1+ dup 1- c@ ; 0 constant false -1 constant true loc: variable size : make dup -rot here dup >r swap move dup allot 0 1, 1+ size +! r> ; : free size @ negate allot 0 size ! ; here ] make later free ; ;loc is zt : on -1 swap ! ; : off 0 swap ! ; : toggle dup @ not swap ! ; : = =if true ;then false ; : <> <>if true ;then false ; : > >if true ;then false ; : < stringR>number\R] Rcompile2#R,JIR1,\UR2,oaR3,RevalIRparsevRresetRlastRtibRword?88.class?8.data,R8.forthBd8.selfYn8.macroo~8.inline?h0?base?>in?class?state?which? whitespaceln;7vn[In;;[nliteralnd(-d: $5:AFOTag}%38BTY`eqv#/3FYu$,\d%4:@Nc}/:@s %+28PVqos  $(26:JNR\`dosw,04BFJY]aosw  $7;?IMQ[_cnrv )5=?D[NX^cmz?[^.symtab.strtab.rel.flat.bssrx_setuprx_evaluaterx_pushrx_poprx_definerx_get_xtrx_call_xt_rx_setup_rx_evaluate_rx_push_rx_pop_rx_define_rx_get_xt_rx_call_xt4 @(" 8#