##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October 2016 # Modified: 2016-10-14/13:40-0400 ##+ # # truncate.icn, truncate a file to a given length # procedure main() if truncate("tt.tt", 256) then writes("did") else writes("didn't") write(" truncate") end