diff --git a/source/progaid/hires.asm b/source/progaid/hires.asm
index 45fffa3..0bae6f0 100644
--- a/source/progaid/hires.asm
+++ b/source/progaid/hires.asm
@@ -111,7 +111,7 @@ HPOSN  STA   Y0 ENTER WITH Y IN A-REG,
        ORA   HPAG
        STA   HBASH
        TXA   DIVIDE X0 BY 7 FOR
-       CPY   $#0 INDEX FROM BASE ADR
+       CPY   #$0 INDEX FROM BASE ADR
        BEQ   HPOSN2 (QUOTIENT) AND BIT
        LDY   #$23 WITHIN SCREEN MEM BYTE
        ADC   #$4 (MASK SPEC'D BY REMAINDER)
@@ -501,7 +501,7 @@ BPOSN  JSR   PCOLR POSN CALL, COLR FROM BASIC
        RTS
 BPLOT  JSR   BPOSN PLOT CALL (BASIC).
        JMP   HPLOT1
-BXDRW1 LDA   HNDX
+BLIN1  LDA   HNDX
        LSR   ; SET HCOLOR1 FROM
        JSR   PCOLR BASIC VAR COLR.
        JSR   HPOSN3
@@ -552,7 +552,7 @@ BDRWX1 ASL
        BCC   BDRWX2
        INC   SHAPEH
        CLC
-       TAY   SHAPE NO. * 2.
+BDRWX2 TAY   SHAPE NO. * 2.
        LDA   (SHAPEL),Y
        ADC   SHAPEL
        TAX   ADD 2-BYTE INDEX