8 lines
190 B
Text
8 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
|