From 0d614832b380ee29232dfb466275ce53127ef171 Mon Sep 17 00:00:00 2001
From: Leeland Heins <softwarejanitor@yahoo.com>
Date: Fri, 8 Mar 2019 14:45:28 -0600
Subject: [PATCH] Fixed bug in write file

---
 ProDOS.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ProDOS.pm b/ProDOS.pm
index e5d1468..d755829 100644
--- a/ProDOS.pm
+++ b/ProDOS.pm
@@ -2005,7 +2005,11 @@ sub write_file {
   my $free_count = scalar @free_blocks;
 
   # Need to make sure the file doesn't already exist.
-##FIXME
+  my ($storage_type, $file_type, $key_pointer, $blocks_used, $eof, $header_pointer, $i) = find_file($pofile, $filename, $debug);
+  if ($storage_type != 0) {
+    print "File exists\n";
+    return 0;
+  }
 
   if ($free_count < $numblocks) {
     print "Not enough space on volume, $free_count free blocks, need $numblocks\n";