mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-16 16:08:46 +10:00
6 lines
87 B
Forth
6 lines
87 B
Forth
: SLEN ( a -- n )
|
|
DUP ( astart aend )
|
|
BEGIN C@+ NOT UNTIL
|
|
1- -^
|
|
;
|