collapseos/forth/str.fs
2020-04-04 10:28:00 -04:00

8 lines
112 B
Forth

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