@ -208,6 +208,7 @@ JMP2r
INC GTHk ,&subcat JCN
POP2
LDAk ,&cat JCN
&skip
#0000
@ -217,8 +217,12 @@ BRK
@on-button ( -> )
.Controller/button DEI2 ;find-modkey JSR2
DUP2 #0000 EQU2 ,&skip JCN DUP2 JSR2 &skip POP2
.Controller/button DEI2
DUP2 #0000 EQU2 ,&skip JCN
;find-modkey JSR2 DUP2 #0000 EQU2 ,&skip JCN
DUP2 JSR2
BRK