ti84: fix glitches

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! ;

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 ;

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!