1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 05:48:06 +11:00
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- -^
;