From 4160c8ebbf8653381ce9a8d3c7100d9c557cfb15 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 25 Apr 2020 08:15:17 -0400
Subject: [PATCH] recipes/rc2014: busting the 8K limit again!

---
 forth/parse.fs        | 2 +-
 recipes/rc2014/run.fs | 9 ++-------
 2 files changed, 3 insertions(+), 8 deletions(-)

diff --git a/forth/parse.fs b/forth/parse.fs
index 2ae2444..9e9d631 100644
--- a/forth/parse.fs
+++ b/forth/parse.fs
@@ -54,7 +54,7 @@
     DUP @ 25136 = NOT IF 0 EXIT THEN    ( a 0 )
     ( We have "0b" prefix )
     2+
-    0 ( a r )
+    0  ( a r )
     BEGIN
     SWAP C@+                               ( r a+1 c )
     DUP NOT IF 2DROP 1 EXIT THEN           ( r 1 )
diff --git a/recipes/rc2014/run.fs b/recipes/rc2014/run.fs
index 73ab6a9..66dfe6a 100644
--- a/recipes/rc2014/run.fs
+++ b/recipes/rc2014/run.fs
@@ -1,7 +1,2 @@
-: (c<) KEY DUP EMIT ;
-: _
-    ACIA$
-    ." Collapse OS" CRLF
-    ( 0c == CINPTR )
-    ['] (c<) 0x0c RAM+ !
-; _
+: x KEY DUP EMIT ;
+: _ ACIA$ (ok) ['] x 0x0c RAM+ ! ; _