//โปรแกรมพิมพ์รายชื่อพนักงานแบบสุ่มมา 5 คน ที่ไม่ซ้ำ
use empl
arnum = array(5)
i = 0
do while i < 5
   rnd = mod(second() * 100,reccount()) + 1
   if ascan(arnum,rnd) = 0
   i++
   arnum[i] = rnd
   endif
enddo
i = 0
do while i < 5
   i ++
   go arnum[i]
   ? empl,emplname
enddo