From abafd6d67b2cb88bcb3099bf98267f0192985ca8 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 9 May 2020 15:31:41 -0400
Subject: [PATCH] ti84: fix glitches

---
 blk/558               | 2 +-
 blk/569               | 6 +++---
 recipes/ti84/xcomp.fs | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/blk/558 b/blk/558
index 902998a..32a9f08 100644
--- a/blk/558
+++ b/blk/558
@@ -10,5 +10,5 @@
 ( Changes the current line and go back to leftmost column )
 : _lf
     LCD_CURY C@ FNTH 1+ + DUP 63 > IF DROP 0 THEN
-    DUP _clrln DUP FNTH 1+ _zoff!
+    DUP _clrln DUP FNTH 1+ + _zoff!
     LCD_CURY C! 0 LCD_CURX C! ;
diff --git a/blk/569 b/blk/569
index 06fb8b0..a572a9e 100644
--- a/blk/569
+++ b/blk/569
@@ -1,4 +1,4 @@
-: (key)
+: _
     0 ( gid ) 0 ( dummy )
     BEGIN ( loop until a digit is pressed )
         DROP
@@ -9,5 +9,5 @@
     0xff XOR ( dpos ) 0 ( dindex )
     BEGIN 1+ 2DUP RSHIFT NOT UNTIL 1-
     ( gid dpos dindex ) SWAP DROP
-    ( gid dindex ) SWAP 8 * + _dtbl + C@ _wait
-;
+    ( gid dindex ) SWAP 8 * + _dtbl + C@ _wait ;
+: (key) 0 ( dummy ) BEGIN DROP _ DUP UNTIL ;
diff --git a/recipes/ti84/xcomp.fs b/recipes/ti84/xcomp.fs
index 441c824..aeb5a70 100644
--- a/recipes/ti84/xcomp.fs
+++ b/recipes/ti84/xcomp.fs
@@ -24,7 +24,7 @@ CURRENT @ XCURRENT !
 PC ORG @ 8 + !
 422 437 XPACKR ( core )
 558 560 XPACKR ( LCD high )
-438 459 XPACKR ( print fmt readln )
+438 451 XPACKR ( print fmt readln )
 ," : _ LCD$ (ok) RDLN$ ; _ "
 ORG @ 256 /MOD 2 PC! 2 PC!
 H@ 256 /MOD 2 PC! 2 PC!