mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 16:58:06 +11:00
16 lines
231 B
Plaintext
16 lines
231 B
Plaintext
|
|
||
|
: _|&
|
||
|
( n1 n2 cell )
|
||
|
>R >R DUP R> R> ( n1 n1 n2 cell )
|
||
|
@ EXECUTE ( n1 f )
|
||
|
;
|
||
|
|
||
|
( n1 f n2 -- n1 f )
|
||
|
: _|
|
||
|
CREATE , DOES>
|
||
|
( n1 f n2 cell )
|
||
|
ROT IF 2DROP 1 EXIT THEN ( n1 true )
|
||
|
_|&
|
||
|
;
|
||
|
|