Return to copy2.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / book / 09

researchv10 Dan Cross

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.