From d19298c246ea568bcd40a7d72d2dfc0383a00756 Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sun, 17 Apr 2016 23:38:18 +1200
Subject: [PATCH] Added NUMBER

---
 src/forth.jl | 26 +++++++++++++++++++-------
 1 file changed, 19 insertions(+), 7 deletions(-)

diff --git a/src/forth.jl b/src/forth.jl
index a115e48..2790f84 100644
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -414,7 +414,7 @@ WORD = defPrim("WORD", () -> begin
         callPrim(KEY)
         c = Char(popPS())
 
-        if c == ' ' || c == '\t'
+        if c == ' ' || c == '\t' || c == '\n'
             break
         end
     end
@@ -426,12 +426,24 @@ WORD = defPrim("WORD", () -> begin
 
     return NEXT
 end)
-#
-#NUMBER = defPrim("NUMBER", (reg) -> begin
-#
-#    return NEXT
-#end)
-#
+
+NUMBER = defPrim("NUMBER", () -> begin
+
+    wordLen = popPS()
+    wordAddr = popPS()
+
+    s = ASCIIString([Char(c) for c in mem[wordAddr:(wordAddr+wordLen-1)]])
+
+    try
+        pushPS(parse(Int64, s, mem[BASE]))
+        pushPS(0)
+    catch
+        pushPS(1) # Error indication
+    end
+
+    return NEXT
+end)
+
 #### VM loop ####
 #function runVM(reg::Reg)
 #    jmp = NEXT
-- 
2.20.1