@@ 102,7 102,7 @@ BRK
@menu-picking ( x* -- cat )
- #0006 #30 SFT2 DIV2 NIP
+ #0030 DIV2 NIP
JMP2r
@@ 120,7 120,7 @@ JMP2r
( clear )
;draw-menu/sel LDA
- ( unchanged ) DUP2 EQU ,menu-deselect JCN
+ ( unchanged ) EQUk ,menu-deselect JCN
( unselected ) DUP #ff EQU ,&no-clear JCN
DUP #00 ;draw-sub JSR2
&no-clear
@@ 260,7 260,7 @@ JMP2r
#00 ,&id STR
;manifest/menu
&cat
- #0701 [ LIT &sel $1 ] [ LIT &id $1 ] EQU JMP SWP POP ;draw-chr/color STA
+ #0701 [ LIT &sel $1 ] [ LIT &id $1 ] EQU [ JMP SWP POP ] ;draw-chr/color STA
INC2k ;draw-str JSR2 POP2 #00 .Screen/sprite DEO
;skip-sub JSR2
,&id LDR INC ,&id STR
@@ 282,7 282,7 @@ JMP2r
&subcat
STHk
#0d07
- STHr [ LIT &sel $1 ] EQU JMP SWP POP [ LIT &mask $1 ] AND ;draw-chr/color STA
+ 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