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