Return to copy2.icn CVS log

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

Initial revision

procedure main()
   if not (intext := open("shaw.txt"))
   then stop("cannot open input file")
   if not (outtext := open("shaw.cpy","w"))
   then stop("cannot open output file")
   while line := read(intext) do {
      write(line)
      write(outtext,line)
      }
end

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