// โปรแกรมลบข้อมูลจนกว่าค่ารับเข้าเป็น 0
n = 1
while n<>0
   @ 5,5 get n
   read
   use empl
   locate for empl = n
   if found()
    delete
    pack
   endif
end