Data commit

Task/Truncate-a-file/BASIC/truncate-a-file.basic

@@ -0,0 +1,20 @@
+SUB truncateFile (file AS STRING, length AS LONG)
+    IF LEN(DIR$(file)) THEN
+        DIM f AS LONG, c AS STRING
+        f = FREEFILE
+        OPEN file FOR BINARY AS f
+        IF length > LOF(f) THEN
+            CLOSE f
+            ERROR 62 'Input past end of file
+        ELSE
+            c = SPACE$(length)
+            GET #f, 1, c
+            CLOSE f
+            OPEN file FOR OUTPUT AS f
+            PRINT #f, c;
+            CLOSE f
+        END IF
+    ELSE
+        ERROR 53
+    END IF
+END SUB