home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gawk-2.15.6-base.tgz / gawk-2.15.6-base.tar / fsf / gawk / test / up_down.awk < prev    next >
Text File  |  1993-10-19  |  223b  |  16 lines
  1. {
  2.     lim = split ($0, line)
  3.     out = ""
  4.     if (lim > 0) {
  5.         i = 0
  6.         while (i < lim) {
  7.             i++
  8.             if (i % 2)
  9.                 out = out sprintf("%s ", toupper(line[i]))
  10.             else
  11.                 out = out sprintf("%s ", tolower(line[i]))
  12.         }
  13.     }
  14.     print out
  15. }
  16.