@@ 439,7 439,7 @@ BRK
.Mouse/y DEI2 .tileview/y1 LDZ2 --
8// SWP2 8// SWP2
GET-POSITION ADD-POSITIONS
- #00 .Mouse/state DEI #10 = ,&do-erase-zoom JCN
+ #00 .Mouse/state DEI #01 > ,&do-erase-zoom JCN
POP .settings/color LDZ
&do-erase-zoom
;put-pixel JSR2
@@ 544,13 544,13 @@ BRK
DUP #00 = .Mouse/state DEI #01 = #0101 !! ,&no-shiftup JCN
;op-shift-tile-up ;run-selection JSR2
SET-STATE &no-shiftup
- DUP #00 = .Mouse/state DEI #10 = #0101 !! ,&no-shiftdown JCN
+ DUP #00 = .Mouse/state DEI #01 > #0101 !! ,&no-shiftdown JCN
;op-shift-tile-down ;run-selection JSR2
SET-STATE &no-shiftdown
DUP #01 = .Mouse/state DEI #01 = #0101 !! ,&no-shiftright JCN
;op-shift-tile-right ;run-selection JSR2
SET-STATE &no-shiftright
- DUP #01 = .Mouse/state DEI #10 = #0101 !! ,&no-shiftleft JCN
+ DUP #01 = .Mouse/state DEI #01 > #0101 !! ,&no-shiftleft JCN
;op-shift-tile-left ;run-selection JSR2
SET-STATE &no-shiftleft
POP
@@ 563,7 563,7 @@ BRK
.Mouse/y DEI2 .zoomview/y1 LDZ2 -- 4//
.settings/focus LDZ2 ++
( detect erase )
- #00 .Mouse/state DEI #10 = ,&do-erase JCN
+ #00 .Mouse/state DEI #01 > ,&do-erase JCN
POP .settings/color LDZ &do-erase
STH
OVR2 OVR2
@@ 630,7 630,7 @@ BRK
#0f SWP [ 40* SFT ] AND
STHr #00 =
.Mouse/x DEI2 .colorview/x1 LDZ2 -- 2// NIP
- ( clamp to #0f ) DUP #10 = -
+ ( clamp to #0f ) DUP #01 > -
SWP [ 40* SFT ] +
RTN