collapseos/forth/str.fs
2020-04-16 18:58:11 -04:00

6 lines
87 B
Forth

: SLEN ( a -- n )
DUP ( astart aend )
BEGIN C@+ NOT UNTIL
1- -^
;