2020-04-26 14:37:54 -04: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-22 14:03:12 -04:00
|
|
|
NIP ( a )
|
2020-04-26 14:37:54 -04:00
|
|
|
ELSE ( o a )
|
2020-05-22 14:17:38 -04:00
|
|
|
TUCK @ ( a o n )
|
2020-04-26 14:37:54 -04:00
|
|
|
-^ ( a n-o )
|
|
|
|
|
OVER ! ( a )
|
|
|
|
|
THEN
|
|
|
|
|
ASKIP ;
|
