//โปรแกรมอ่านข้อมูลจากแฟ้มลูกค้ามาพิมพ์ โดยแยกหน้าละ 10 เรคคอร์ด
use cust
n = 1
while !eof()
   n++
   ? cust,custname
   skip
   if n = 11
    inkey(0)
    cls
     n = 1
   endif
end