From c02eebd096243f2d92af3746061233549447a360 Mon Sep 17 00:00:00 2001
From: d_m <d_m@plastic-idolatry.com>
Date: Sat, 11 Nov 2023 14:41:02 -0500
Subject: [PATCH] fix selection erasing

---
 term.tal | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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 ( -> )