From 96956208327248bd83f6a68c941b7cc71934928c Mon Sep 17 00:00:00 2001
From: AIR <airr@outlook.com>
Date: Sat, 14 Jan 2023 03:06:14 -0500
Subject: [PATCH] Updated save file function

---
 Aide.bas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Aide.bas b/Aide.bas
index 7fa9717..b413a07 100644
--- a/Aide.bas
+++ b/Aide.bas
@@ -144,7 +144,12 @@ SUB RaSaveFile(hEDT as HWND)
 
     tabName$ = GetTabLabelText(TabCtrl_GetCurSel(ghMainTab))
 
-    fNAME$ = GETFILENAME$("Save","BCX Files|*.BAS;*.INC;*.bi;*.bci",1,ghMainFrm,0,0,tabName$,0)
+    IF tabName$ = "New.bas" THEN
+        fNAME$ = GETFILENAME$("Save","BCX Files|*.BAS;*.INC;*.bi;*.bci",1,ghMainFrm,0,0,tabName$,0)
+    ELSE
+        fNAME$ = tabName$
+    END IF
+    
     IF *fNAME$ THEN
         eTEXT$ = BCX_GET_TEXT$(hEDT)
         OPEN fNAME$ FOR OUTPUT AS FP1