You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
- : 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 )
- SWAP DROP ( a )
- ELSE ( o a )
- SWAP OVER @ ( a o n )
- -^ ( a n-o )
- OVER ! ( a )
- THEN
- ASKIP ;
|