home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / AWK210.ZIP / EURASIA.AWK < prev    next >
Encoding:
Text File  |  1988-02-25  |  245 b   |  8 lines
  1. /Asia/   { pop["Asia"] += $3 }
  2. /Europe/ { pop["Europe"] += $3 }
  3. END      { print "Asian population is",
  4.                pop["Asia"], "million."
  5.            print "European population is",
  6.                pop["Europe"], "million."
  7.          }
  8.