//โปรแกรมอ่านข้อมูลพิมพ์ เฉพาะพนักงานที่อยู่แผนกขายมา 50 คนแรกที่ยอดขายสูงสุด
use empl
sort on empldept,emplsale to ning
use ning
ni = array(50)
nn = array(50)
j = 1
for i = 1 to 50
   if ascan(ni,"ขาย") = 0
   ni[j] = "ขาย"
   nn[j] = 1
   j++
   else
   for k = 1 to j - 1
   if (ei[k] = "ขาย")
   en[k]++
   endif
   next
   endif
   skip
next
use ning
for i = 1 to j - 1
   @ i,5 say ni[i]
   locate for emplsex = ni[i]
   @ i,20 say emplname+str(nn[i])
next