//โปรแกรมลบข้อมูล 10 ระเบียน
n = 1
while n <= 10
   _empl = 0
   @ 5,5 get _empl
   read
   use empl
   locate for empl = _empl
   if found()
    delete
  
   pack
    n++
   endif
end