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