INITFILE

PURPOSE:
To empty an entire disk DATA file. 
STATEMENT SYNTAX:
{stno} INITFILE str expr {,ERR=stno}
where:
str expr = a valid filename to be emptied. 
EXAMPLE:
2400 INITFILE "SCRATCH",ERR=2410
9000 INITFILE Y$
NOTES:
If the file is OPEN at the time of execution of the INITFILE then the file will not be emptied and an error 0 will be returned.