minimal
Minimal Forth Workbench provides an educational subset of Standard Forth, feel free to experiment.
- raw README.md
- raw arithmetic.fs
- raw compiling-words.fs
- raw control-structures.fs
- raw defining-words.fs
- raw double.fs
- raw error-handling.fs
- raw file-access.fs
- raw memory.fs
- raw minimal.fs
- raw mit-license
- raw numeric-output.fs
- raw package.4th
- raw prelude.fs
- raw primitives.fs
- raw secondaries.fs
- raw stack.fs
- raw strings.fs
- raw testbench.fs
\ Minimal Forth Workbench: string words uh 2015-10-15 32 CONSTANT BL : SPACE ( -- ) BL EMIT ; : SPACES ( u -- ) DUP 0 > IF 0 DO SPACE LOOP ELSE DROP THEN ; : COUNT ( addr1 -- addr2 len ) DUP CHAR+ SWAP C@ ; : TYPE ( addr len -- ) DUP IF OVER + SWAP DO I C@ EMIT LOOP THEN ;