@@ 171,7 171,9 @@ JMP2r
LDAk STH INC2 ;skip-str JSR2
STHr #00
&subcat
- DUP [ LIT &sel $1 ] EQU INC [ LIT &mask $1 ] AND ;draw-chr/color STA
+ STHk
+ #0d07
+ STHr [ LIT &sel $1 ] EQU JMP SWP POP [ LIT &mask $1 ] AND ;draw-chr/color STA
[ LIT2 &anchor $2 ] .Screen/x DEO2
#00 OVR INC #30 SFT2 .Screen/y DEO2
SWP2 ;draw-label JSR2 SWP2
@@ 187,7 189,7 @@ JMP2r
LDA2k SWP2
#0004 ADD2 ;draw-str JSR2
- #08 ;draw-sub/mask LDA AND ;draw-chr/color STA
+ #06 ;draw-sub/mask LDA AND ;draw-chr/color STA
SWP2 ;draw-modkey JSR2
JMP2r