Return to t-lam.dat CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / libtest

BSD 4.3

link "../ilib/collate"

procedure main()
   while line := read() do {
     line2 := read() | stop("data error")
     x := collate(line,line2)
     write(x)
     write(decollate(x,1))
     write(decollate(x,2))
     }
end

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