@@ 970,11 970,11 @@ JMP2r
#0017 .Screen/y DEO2
#01 .Screen/auto DEO
;dashed-icn .Screen/addr DEO2
- .Screen/width DEI2 #03 SFT2 NIP #00
+ #00 .Screen/width DEI2 #03 SFT2 NIP SUB
&l
#05 .Screen/sprite DEO
- INC GTHk ?&l
- POP2
+ INC DUP ?&l
+ POP
JMP2r
@@ 984,8 984,8 @@ JMP2r
#0008 .Screen/x DEO2
#0020 .Screen/y DEO2
#f2 .Screen/auto DEO
- .textarea/lines LDZ2 NIP DUP ADD #00
- &lc #00 .Screen/sprite DEO INC GTHk ?&lc POP2
+ #00 .textarea/lines LDZ2 NIP DUP ADD SUB
+ &lc #00 .Screen/sprite DEO INC DUP ?&lc POP
( draw )
#15 .Screen/auto DEO
.selection/from LDZ2 get-current-marker ,&sel STR