@@ 44,6 44,7 @@
;on-mouse-menu .Mouse/vector DEO2
;on-control-menu .Controller/vector DEO2
+ #ff ;draw-cat/sel STA
;draw-cat JSR2
BRK
@@ 62,9 63,18 @@ BRK
;hand-icn .Screen/addr DEO2
#4f .Mouse/state DEI #00 NEQ ADD .Screen/sprite DEO
+ ;draw-cat/sel LDA #ff EQU ,&no-sub JCN
+ .Mouse/y DEI2 #03 SFT2 NIP #01 SUB ;draw-sub/sel STA
+ ;draw-cat/sel LDA #ff ;draw-sub JSR2
+ BRK
+ &no-sub
+
.Mouse/state DEI ;on-menu-touch JCN2
- .Mouse/y DEI2 #0007 GTH2 ;on-menu-leave JCN2
+ ( don't leave if menu is active )
+ ;draw-cat/sel LDA #ff EQU
+ .Mouse/y DEI2 #0007 GTH2
+ #0101 EQU2 ;on-menu-leave JCN2
BRK
@@ 161,7 171,7 @@ JMP2r
LDAk STH INC2 ;skip-str JSR2
STHr #00
&subcat
- #01 [ LIT &mask $1 ] AND ;draw-chr/color STA
+ DUP [ LIT &sel $1 ] EQU INC [ LIT &mask $1 ] AND ;draw-chr/color STA
[ LIT2 &anchor $2 ] .Screen/x DEO2
#00 OVR INC #30 SFT2 .Screen/y DEO2
SWP2 #0004 ADD2 ;draw-str JSR2 SWP2