X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=sys.f;h=0815e0fe0ca89d729a068e5072a4e8b721635460;hb=52eb012228a8c813a3c0aabbfa309e42844e80ce;hp=92efcb4667734414aecfc2bfb2a43a83627301cb;hpb=a6faff31f03d96b6a62188f330848004119d5165;p=rrq%2Fjonasforth.git

diff --git a/sys.f b/sys.f
index 92efcb4..0815e0f 100644
--- a/sys.f
+++ b/sys.f
@@ -76,3 +76,14 @@ 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 ;
+
+S" Ready." TELL NEWLINE
+
+( vim: syntax=forth
+)