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!