projects
/
rrq
/
jonasforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Add notes about loading files from disk
[rrq/jonasforth.git]
/
sys.f
diff --git
a/sys.f
b/sys.f
index 92efcb4667734414aecfc2bfb2a43a83627301cb..6b13ff9775b5b0ad93c26ada9e83e00c504b8feb 100644
(file)
--- a/
sys.f
+++ b/
sys.f
@@
-76,3
+76,12
@@
EXIT [
SWAP 1 + SWAP
1 - DUP 0 = UNTIL
DROP DROP ;
+
+: NEWLINE 10 EMIT ;
+: SPACE 32 EMIT ;
+
+( Read a number from standard input. )
+: READ-NUMBER READ-WORD PARSE-NUMBER ;
+
+( vim: syntax=forth
+)