| ' | ( „<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 – i*x true ) |
| EVALUATE | ( i*x c-addr u — j*x ) |
| FIND | ( c-addr — c-addr 0 ) |
| oder ( c-addr — xt 1 ) | |
| oder ( c-addr — xt -1 ) | |
| HERE | ( — addr ) |
| QUIT | ( — ) und ( R: i*x — ) |
| SOURCE | ( — c-addr u ) |
| STATE | ( — a-addr ) |
| WORD | ( char “<chars>ccc<char>„ — c-addr ) |