From cb51cf13682476f5afe91c638bef7e50c232d117 Mon Sep 17 00:00:00 2001
From: Naren Ratan <narenratan@gmail.com>
Date: Tue, 19 Nov 2019 00:19:36 +0000
Subject: Add H" for storing a string Here

---
 jonesforth.f | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/jonesforth.f b/jonesforth.f
index 0d45f84..51d63e7 100644
--- a/jonesforth.f
+++ b/jonesforth.f
@@ -59,6 +59,7 @@
 ∇ CLEAR D0 D! ∇                         / Clear stack /
 
 / Strings /
+∇ H" H ( KEY ↑ '"' ≠ ∥ ⊤ C! 1+ ) ↓ 0 ⊤ ! H - H ↕ ∇                       / Store a string Here /
 ∇ S" I ' LITS , H 0 , ( KEY ↑ '"' ≠ ∥ C, ) ↓ ↑ H ↕ - 8- ↕ ! 0 C, ALIGN ∇ / Compile a string in a word /
 ∇ ." I S { [COMP] S" ' TELL , | ( KEY ↑ '"' ≠ ∥ EMIT ) ↓ } ∇             / Print a string /
 
@@ -182,7 +183,7 @@ SS0 SS !                                                        / Initialize SS
 
 ∇ ⍇ 3F 3 SYS ∇          / read  /
 ∇ ⍈ 40 3 SYS ∇          / write /
-∇ ⍐ 64 ¯ 38 4 SYS ∇     / open  /
+∇ ⍐ 64 ¯ 38 3 SYS ∇     / open  /
 ∇ ⍗ 39 1 SYS ∇          / close /
 
 ∇ UNAME A0 1 SYS ∇
-- 
cgit 1.4.1-2-gfad0