1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-06 01:50:57 +11:00
collapseos/forth/str.fs

6 lines
87 B
Forth
Raw Normal View History

2020-03-19 12:52:55 +11:00
: SLEN ( a -- n )
DUP ( astart aend )
2020-04-17 08:58:11 +10:00
BEGIN C@+ NOT UNTIL
1- -^
2020-03-19 12:52:55 +11:00
;