//โปรแกรมอ่านข้อมูลพิมพ์ค่านายหน้าของแต่ละคน ขายมากได้ % มาก ขายน้อยได้ % น้อย
use sale
ni = array(reccount())
nn = array(reccount())
ning = 1
for i = 1 to reccount()
if ascan(ni,empl) = 0
   ni[ning] = empl
   nn[ning] = 1
   ning++
else
for g = 1 to ning - 1
if (ei[g] = empl)
   nn[g]++
endif
next
endif
skip
next
use empl
for i = 1 to ning - 1
   @ i,5 say str(ei[i])
   locate for empl = ni[i]
   if nn[i] > 20
   com = "5%"
   elseif nn[i] > 40
   com = "10%"
   elseif nn[i] > 200
   com = "40%"
   else
   com = "2%"
   endif
   @ i,20 say emplname+str(nn[i])+x
next