##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October 2016 # Modified: 2016-10-30/02:25-0400 ##+ # # hello-graphics.icn, graphical hello demonstration # procedure main() if find("graphics", !&features) then stop("no graphics, sorry") w := open("hello-graphics", "x") writes(w, "Hello, graphic world") Event(w) close(w) end