From 18f339995e0f478cfdada5c6d52be1b7796b40d2 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Thu, 30 May 2024 09:12:05 -0700
Subject: [PATCH] Fixed overflow issue with delete

---
 gui/notepad/src/notepad.tal | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal
index c4e3223..00de7d2 100644
--- a/gui/notepad/src/notepad.tal
+++ b/gui/notepad/src/notepad.tal
@@ -38,7 +38,7 @@
 	( name ) "Note 20 "Pad 0a
 	( details ) "Original 20 "by 20 "Donn 20 "Denman 0a
 	( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
-	( date ) "May 20 "29, 20 "2024 00 01
+	( date ) "May 20 "30, 20 "2024 00 01
 	( icon ) 83 =appicon
 
 (
@@ -182,7 +182,8 @@
 
 @delete ( -- )
 	#00 ;on-frame/f STA
-	get-eof get-from SUB2 ORA #01 [ JCN JMP2r ] .selection/length LDZ2 #0000 EQU2 ?{ erase-selection !<select-reset> }
+	get-eof get-from INC2 NEQ2 ?{ JMP2r }
+	.selection/length LDZ2 #0000 EQU2 ?{ erase-selection !<select-reset> }
 	get-from cut-char <redraw>
 	!file-save
 
@@ -605,7 +606,6 @@
 		.Screen/y DEI2k #0008 ADD2 ROT DEO2
 		INC GTHk ?&>h
 	POP2 JMP2r
-	&patt [ aa55 aa55 aa55 aa55 ]
 
 @<draw-footer> ( -- )
 	[ LIT2 00 -collapsed ] LDZ EQU ?{ JMP2r }