|
|
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.