mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-30 23:28:06 +11:00
10 lines
145 B
Plaintext
10 lines
145 B
Plaintext
|
: INTERPRET
|
||
|
|
BEGIN
|
||
|
|
WORD
|
||
|
|
(find)
|
||
|
|
NOT IF (parse) ELSE EXECUTE THEN
|
||
|
|
C<? NOT IF LIT< (ok) (find) IF EXECUTE THEN THEN
|
||
|
|
AGAIN
|
||
|
|
;
|
||
|
|
|