##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: November 2016 # Modified: 2016-11-10/22:34-0500 ##+ # # GotoRC.icn, set graphic text cursor to row and column # procedure main() w := open("GotoRC", "g", "size=130,60", "canvas=hidden") text := "Initial message" write(w, text) text := "Placed message" GotoRC(w, 3,5) Fg(w, "purple") write(w, text) WSync(w) WriteImage(w, "../images/GotoRC.png") close(w) end