{{ This program writes to and then reads to a file {{ Juliet 2004.0 $libfio $lib rout main def h:int <- fopeno ("testfile.txt") fwrite h, "Hello, file input/output!!" fclose h def h2:int <- fopeni ("testfile.txt") def inputs:str <- fread (h2) fclose h2 printn inputs