mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 03:40:54 +11:00
6 lines
87 B
Forth
6 lines
87 B
Forth
: SLEN ( a -- n )
|
|
DUP ( astart aend )
|
|
BEGIN C@+ NOT UNTIL
|
|
1- -^
|
|
;
|