Return to copy3.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / book / 09

Initial revision

procedure main()
   writes("specify input file: ")
   repeat {
      if intext := open(read()) then break
      writes("cannot open input file, respecify: ")
      }
   writes("specify output file: ")
   repeat {
      if outtext := open(read(),"w") then break
      writes("cannot open output file, respecify: ")
      }
   while write(outtext,read(intext))
end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.