Trying to track down file write corruption

src/toolsrc/ed.pla

@@ -438,9 +438,8 @@ def readtxt(filename, startline)#0
     putln
 end
 def writetxt(filename)#0
-    word i, strptr
-    byte refnum, j, chr
-    byte txtbuf[MAXLNLEN+2]
+    word i
+    byte refnum, txtbuf[MAXLNLEN+2]
 
     fileio:destroy(filename)
     fileio:create(filename, $04, $00) // full access, TXT file