Return to charimage.icn CVS log

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

Initial revision

procedure main()
   local chars, charlist, i, pair
   chars := table(0)
   while chars[reads()] +:= 1
   charlist := sort(chars)
   i := 0
   while pair := charlist[i +:= 1] do
      write(left(image(pair[1]),6),right(pair[2],6))
end

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