RosettaCodeData/Task/Truncate-a-file/Forth/truncate-a-file.fth

: truncate-file ( fname fnamelen fsize -- )
  0 2swap r/w open-file throw
  dup >r resize-file throw
  r> close-file throw ;