diff --git a/term.tal b/term.tal index 14c9f94..8b589f0 100644 --- a/term.tal +++ b/term.tal @@ -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 ( -> )