//โปรแกรมอ่านข้อมูลพิมพ์แบบสรุปว่าแต่ละปี มีพนักงานรับเงินเดือนรวมเท่าใด
for n = 2000 to year(date())
   use empl
   tsalary = 0
   while !eof()
   tsalary = tsalary + (emplsal * 12)
   skip
   end
   ? n,tsalary
next