izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
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
;