Return to lam.out CVS log

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

Annotation of 43BSD/contrib/icon/libtest/distr/lam.out, revision 1.1.1.1

1.1       root        1: ../ibin/lam t-lam -":::::" t-lam.dat:::::link "../ilib/collate"
                      2: :::::
                      3: :::::procedure main()
                      4: :::::   while line := read() do {
                      5: :::::     line2 := read() | stop("data error")
                      6: :::::     x := collate(line,line2)
                      7: :::::     write(x)
                      8: :::::     write(decollate(x,1))
                      9: :::::     write(decollate(x,2))
                     10: :::::     }
                     11: :::::end

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