1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 12:18:05 +11:00
collapseos/blk/439
2020-04-25 21:54:07 -04:00

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 )
_|&
;