1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 06:08:06 +11:00
collapseos/blk/125

17 lines
409 B
Plaintext
Raw Normal View History

2020-04-27 04:37:54 +10:00
: RLATOM ( a o ol -- a+n )
ROT ( o ol a )
DUP @ ( o ol a n )
DUP 0x24 = IF
DROP 2+ ( o ol a+2 )
ROT ROT 2DROP ( a ) EXIT
THEN
ROT ( o a n ol )
< IF ( under limit, do nothing )
2020-05-23 04:03:12 +10:00
NIP ( a )
2020-04-27 04:37:54 +10:00
ELSE ( o a )
2020-05-23 04:17:38 +10:00
TUCK @ ( a o n )
2020-04-27 04:37:54 +10:00
-^ ( a n-o )
OVER ! ( a )
THEN
ASKIP ;