Return to copy3.icn CVS log

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

Annotation of 43BSD/contrib/icon/book/09/copy3.icn, revision 1.1

1.1     ! root        1: procedure main()
        !             2:    writes("specify input file: ")
        !             3:    repeat {
        !             4:       if intext := open(read()) then break
        !             5:       writes("cannot open input file, respecify: ")
        !             6:       }
        !             7:    writes("specify output file: ")
        !             8:    repeat {
        !             9:       if outtext := open(read(),"w") then break
        !            10:       writes("cannot open output file, respecify: ")
        !            11:       }
        !            12:    while write(outtext,read(intext))
        !            13: end

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