81748 |
BEGIN
|
( → )
Pushes interpreter pointer into the return
stack.
|
81743 |
AGAIN
|
( → )
Sets the interpreter pointer to the topmost
value in the return stack, without popping
it.
|
8179D |
REPEAT
|
( → )
Sets the interpreter pointer to the topmost
value in the return stack, without popping
it.
|
817B1 |
UNTIL
|
( flag → )
If FALSE then <REF>AGAIN, otherwise
<REF>RDROP .
|
83E35 |
NOT_UNTIL
|
( flag → )
NOT then <REF>UNTIL .
|
83647 |
#0=UNTIL
|
( # → # )
Actually, should be called DUP#0=UNTIL.
|
817B6 |
WHILE
|
( flag → )
If TRUE does nothing, otherwise <REF>RDROP then
<REF>2SKIP .
|
83E4E |
NOT_WHILE
|
( flag → )
NOT then <REF>WHILE .
|
83E67 |
DUP#0<>WHILE
|
( # → )
Try to guess what it does.
|