collapseos/forth/str.fs

11 lines
144 B
Forth
Raw Normal View History

2020-03-18 21:52:55 -04:00
: SLEN ( a -- n )
DUP ( astart aend )
BEGIN
DUP C@ 0 = IF -^ EXIT THEN
1 +
AGAIN
;
: LF 10 EMIT ;
: SPC 32 EMIT ;