home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / gnu / gawk213b / up_down.awk < prev    next >
Encoding:
Text File  |  1993-07-29  |  223 b   |  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.