0797B |
BEGIN
|
( → )
Pushes interpreter pointer into the return
stack.
|
07984 |
AGAIN
|
( → )
Sets the interpreter pointer to the topmost
value in the return stack, without popping
it.
|
079BE |
REPEAT
|
( → )
Sets the interpreter pointer to the topmost
value in the return stack, without popping
it.
|
079A1 |
UNTIL
|
( flag → )
If FALSE then <REF>AGAIN, otherwise
<REF>RDROP .
|
0FCBE |
NOT_UNTIL
|
( flag → )
NOT then <REF>UNTIL .
|
0F4B2 |
#0=UNTIL
|
( # → # )
Actually, should be called DUP#0=UNTIL.
|
079C7 |
WHILE
|
( flag → )
If TRUE does nothing, otherwise <REF>RDROP then
<REF>2SKIP .
|
0FCD7 |
NOT_WHILE
|
( flag → )
NOT then <REF>WHILE .
|
0FCF0 |
DUP#0<>WHILE
|
( # → )
Try to guess what it does.
|