fix selection erasing

This commit is contained in:
~d6 2023-11-11 14:41:02 -05:00
parent 2f706d73c8
commit c02eebd096
1 changed files with 3 additions and 2 deletions

View File

@ -282,10 +282,11 @@
( uses the existing .Screen/x and .Screen/y )
( returns them to their starting values when finished )
@erase-fg-cell ( -> )
#40 .Screen/sprite DEO ( ; s/s<-40 )
;cp437/nul .Screen/addr DEO2 ( ; use nul character to erase )
#43 .Screen/sprite DEO ( ; s/s<-40 )
.Screen/y DEI2k STH2k ( zp^ y* [y*] )
#0004 ADD2 ROT DEO2 ( [y*] ; s/y<-y+4 )
#40 .Screen/sprite DEO STH2r ( y* ; s/s<-40 )
#43 .Screen/sprite DEO STH2r ( y* ; s/s<-40 )
.Screen/y DEO2 JMP2r ( ; s/y<-y )
@draw-border ( -> )