##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October 2016 # Modified: 2017-01-05/08:22-0500 ##+ # # ready.icn, read a given number of bytes, untranslated. # link ximage procedure main() f := open(&file, "r") | stop("cannot open ", &file, " for read") s := ready(f, 0) write(&file, " ", ximage(s)) /s := "none\n" p := find("procedure main", s) /p := 1 writes(s[p:0]) close(f) end