izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-10 02:28:06 +11:00
Code Issues Releases Wiki Activity
98191d0b0d
collapseos/forth/str.fs

6 lines
87 B
Forth
Raw Normal View History

forth: Implement "(parseh)"
2020-03-19 12:52:55 +11:00
: SLEN ( a -- n )
DUP ( astart aend )
Add word "C@+"
2020-04-17 08:58:11 +10:00
BEGIN C@+ NOT UNTIL
1- -^
forth: Implement "(parseh)"
2020-03-19 12:52:55 +11:00
;
Reference in New Issue Copy Permalink