collapseos/apps/forth/str.fs
2020-03-18 21:52:55 -04:00

8 lines
112 B
Forth

: SLEN ( a -- n )
DUP ( astart aend )
BEGIN
DUP C@ 0 = IF -^ EXIT THEN
1 +
AGAIN
;