collapseos/forth/str.fs
Virgil Dupras f0cbda1f2e tests: add Forth tests
Modest first step
2020-03-19 15:43:48 -04:00

11 lines
144 B
Forth

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