##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October 2016 # Modified: 2016-10-14/13:32-0400 ##+ # # trim.icn, demonstrate the trim function # procedure main() s := " this is a test " write(":", trim(s), ":") write(":", trim(s,,1), ":") # note, not \t, but "t", trim leading and trailing ts and spaces write(":", trim(s,' t',0), ":") end