| ' | ( „<spaces>name“ — xt ) |
|---|---|
| ( | ( „xxx<paren> — ) |
| >BODY | ( xt — a-addr ) |
| >IN | ( — a-addr ) |
| CHAR | ( “<spaces>name„ — char ) |
| ENVIRONMENT? | ( c-addr u — false ) oder ( c-addr u – ix true )| ^ EVALUATE |( ix c-addr u — jx )| ^ FIND |( c-addr — c-addr 0 )| | |oder ( c-addr — xt 1 )| | |oder ( c-addr — xt -1 )| ^ HERE |( — addr )| ^ QUIT |( — ) und ( R: ix — ) |
| SOURCE | ( — c-addr u ) |
| STATE | ( — a-addr ) |
| WORD | ( char “<chars>ccc<char>„ — c-addr ) |