X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=sys.f;h=6b13ff9775b5b0ad93c26ada9e83e00c504b8feb;hb=a856c7d5b35de1b48bdd948186ec4a03f7c3685c;hp=92efcb4667734414aecfc2bfb2a43a83627301cb;hpb=055f2efc3011a2102125cd0001adcff1cc6feab9;p=rrq%2Fjonasforth.git

diff --git a/sys.f b/sys.f
index 92efcb4..6b13ff9 100644
--- 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
+)