diff --git a/src/sudoku.s b/src/sudoku.s
index 4fa981c..f9069a3 100644
--- a/src/sudoku.s
+++ b/src/sudoku.s
@@ -100,7 +100,6 @@ TOSEN:  POP   P,D                     ;Restore the D register.
 ;Clobbers A.
 OUTSTR: PUSH  P,B                      ;Save register B.
         PUSH  P,D                      ;Save register D.
-        HRLI  A,BPTR                   ;Ensure, A is a byte pointer.
 OUT:    ILDB  B,A                      ;Load the next byte from A.
         JUMPE B,OUTEX                  ;Exit the routine, if all bytes are done.
         MOVE  D,PFLAGS                 ;Load the print flags.
@@ -128,7 +127,7 @@ PFIELD: PUSH  P,A                      ;Save the A register.
         MOVE  X,[440400,,FIELD]        ;Store a bytepointer in X.
 PFIELN: .IOT  CHTTYO,[^M]              ;Print a carriage return.
         .IOT  CHTTYO,[^J]              ;Print a new line.
-        MOVE  A,[BPTR,,HLINE]          ;Print a horizontal line.
+        MOVE  A,[440700,,HLINE]          ;Print a horizontal line.
         POPJ  P,PUTLN
         MOVEI Y,011                    ;Load the index register with 9.
         MOVEI B,174                    ;Print a '|' symbol.