From d5b66595076901acc115156b95ce145e55fe262f Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 21 Mar 2020 21:22:07 -0400
Subject: [PATCH] forth: forgot to commit high.fs...

---
 forth/high.fs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 forth/high.fs

diff --git a/forth/high.fs b/forth/high.fs
new file mode 100644
index 0000000..765ddc9
--- /dev/null
+++ b/forth/high.fs
@@ -0,0 +1,14 @@
+( Higher level stuff that generally requires all core units )
+
+: ."
+    LIT
+    BEGIN
+        C< DUP          ( c c )
+        ( 34 is ASCII for " )
+        DUP 34 = IF DROP DROP 0 0 THEN
+        C,
+    0 = UNTIL
+    COMPILE (print)
+; IMMEDIATE
+
+: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE