From 73fd7264a539c0749aaeab78fa1b26b001a557c3 Mon Sep 17 00:00:00 2001
From: SteveMcNeill <smcneill@swva.net>
Date: Sun, 3 Sep 2023 13:31:53 -0400
Subject: [PATCH] Patch to CopyFile

Fix to blank file before writing so larger files don't corrupt data when overwritten by smaller ones.
---
 source/utilities/file.bas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/source/utilities/file.bas b/source/utilities/file.bas
index cb5df849a..a0dea54b7 100644
--- a/source/utilities/file.bas
+++ b/source/utilities/file.bas
@@ -15,6 +15,7 @@ FUNCTION CopyFile& (sourceFile$, destFile$)
     fileLength = LOF(sourceFileNo)
 
     destFileNo = FREEFILE
+    OPEN destFile$ FOR OUTPUT AS #destFileNo: CLOSE #destFileNo 'create and blank any existing file with the dest name.
     OPEN destFile$ FOR BINARY AS #destFileNo
     IF E = 1 THEN GOTO errorCleanup