1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-17 09:38:05 +11:00
collapseos/blk/439

16 lines
231 B
Plaintext
Raw Normal View History

2020-04-26 11:54:07 +10:00
: _|&
( 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 )
_|&
;