X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=sys.f;h=0815e0fe0ca89d729a068e5072a4e8b721635460;hb=95f71309628ccb9339cf43fb2326ab506bd5ae04;hp=6b13ff9775b5b0ad93c26ada9e83e00c504b8feb;hpb=a856c7d5b35de1b48bdd948186ec4a03f7c3685c;p=rrq%2Fjonasforth.git diff --git a/sys.f b/sys.f index 6b13ff9..0815e0f 100644 --- a/sys.f +++ b/sys.f @@ -83,5 +83,7 @@ EXIT [ ( Read a number from standard input. ) : READ-NUMBER READ-WORD PARSE-NUMBER ; +S" Ready." TELL NEWLINE + ( vim: syntax=forth )