mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 03:18:10 +11:00
15 lines
159 B
Plaintext
15 lines
159 B
Plaintext
|
: INTERPRET
|
||
|
|
BEGIN
|
||
|
|
WORD
|
||
|
|
(find)
|
||
|
|
IF
|
||
|
|
1 FLAGS !
|
||
|
|
EXECUTE
|
||
|
|
0 FLAGS !
|
||
|
|
ELSE
|
||
|
|
(parse*) @ EXECUTE
|
||
|
|
THEN
|
||
|
|
AGAIN
|
||
|
|
;
|
||
|
|
|