##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October 2016 # Modified: 2016-10-13/15:33-0400 ##+ # # select.icn, demonstrate select (input available) function # procedure main() res := select(&input, 1) write(image(*res), " ", image(res)) end