RosettaCodeData/Task/Truncate-a-file/Icon/truncate-a-file.icon

2 lines
63 B
Plaintext

truncate(f := open(filename, "bu"), newsizeinbytes) & close(f)