home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / gawk-2.15.5-src.lha / GNU / src / amiga / gawk-2.15.5 / test / up_down.awk < prev    next >
Encoding:
Text File  |  1993-10-20  |  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.