FORTH Anfaenger auf der Suche

~/repos/git2/ueforth/out/posix$ ./ueforth 
uEforth v7.0.7.16 - rev 8160a3cb1d0846cf1769
Forth dictionary: 10207448 free + 81468 used = 10288916 total (99% free)
3 x Forth stacks: 65536 bytes each
 ok
--> : FOO 10 FOR R@ . NEXT ; FOO
: FOO 10 FOR R@ . NEXT ; FOO
10 9 8 7 6 5 4 3 2 1 0  ok
--> : FOO 10 FOR ( 1st time only ) AFT R@ . THEN NEXT ; FOO
: FOO 10 FOR ( 1st time only ) AFT R@ . THEN NEXT ; FOO
9 8 7 6 5 4 3 2 1 0  ok

--> WORDS
WORDS
FOO FOO FORTH  web-interface httpd telnetd sockets x11 graphics argv argc 
visual set-title page at-xy normal bg fg ansi editor list copy thru load 
flush update empty-buffers buffer block save-buffers default-use use open-blocks 
block-id scr block-fid file-exists? needs required included? include included 
reset revive startup: remember restore save ls cat touch rm mv cp dump-file 
streams ms start-task task pause tasks ENDOF OF ENDCASE CASE +to to exit 
; { (local) asm words vlist order see .s startswith? str= :noname forget 
dump spaces assert form termios resize free allocate ok pwd rmdir mkdir 
cd ms-ticks ms READ-DIR CLOSE-DIR OPEN-DIR NON-BLOCK FILE-SIZE RESIZE-FILE 
REPOSITION-FILE FILE-POSITION READ-FILE WRITE-FILE RENAME-FILE DELETE-FILE 
CREATE-FILE OPEN-FILE FLUSH-FILE CLOSE-FILE BIN R/W W/O R/O default-key 
default-type posix structures f.s f. #fs set-precision precision fvariable 
fconstant fliteral afliteral sf, internals sealed previous also only transfer{ 
}transfer transfer definitions vocabulary [IF] [ELSE] [THEN] DEFINED? quit 
evaluate prompt refill tib accept echo abort" abort z>s s>z r~ r| r" z" 
." s" n. ? . u. binary decimal octal hex str #> sign #s # hold <# extract 
pad hld cr space emit bye terminate key? key type is defer +to to value 
throw catch handler K J I loop +loop leave UNLOOP ?do do next for nest-depth 
postpone recurse aft repeat while else if then ahead until again begin 
[char] char ['] ' used remaining fdepth depth fp0 rp0 sp0 #! \ ( DLSYM 
FP@ FP! SF@ SF! FDUP FNIP FDROP FOVER FSWAP FROT FNEGATE F0< F0= F= F< 
F> F<> F<= F>= F+ F- F* F/ 1/F S>F F>S SFLOAT SFLOATS SFLOAT+ PI FSIN FCOS 
FSINCOS FATAN2 F** FLOOR FEXP FLN FABS FMIN FMAX FSQRT >flags >flags& >params 
>size >link& >link >name aligned align nip rdrop */ * /mod / mod invert 
negate - rot -rot ?dup < > <= >= = <> 0<> bl nl 1+ 1- 2* 2/ 4* 4/ +! cell+ 
cells cell/ 2drop 2dup 2@ 2! cmove cmove> fill erase blank min max abs 
here allot , c, current #tib >in state base context latestxt [ ] literal 
0= 0< U< + U/MOD */MOD LSHIFT RSHIFT ARSHIFT AND OR XOR DUP SWAP OVER DROP 
@ SL@ UL@ SW@ UW@ C@ ! L! W! C! SP@ SP! RP@ RP! >R R> R@ EXECUTE CELL FIND 
PARSE CREATE VARIABLE CONSTANT DOES> IMMEDIATE >BODY : EXIT ; forth-builtins 
 ok