7 lines
190 B
Text
7 lines
190 B
Text
DEF PROCtruncate(file$, size%)
|
|
LOCAL file%
|
|
file% = OPENUP(file$)
|
|
IF file%=0 ERROR 100, "Could not open file"
|
|
EXT#file% = size%
|
|
CLOSE #file%
|
|
ENDPROC
|