//โปรแกรมรับค่า 2 ตัวแปรไปเปรียบเทียบกับ 2 field ในแฟ้มผู้ใช้ ถ้าตรงให้แสดง ok
ning1 = space(10)
ning2 = space(10)
@ 5,5 get ning1
@ 6,5 get ning2
read
use nuser
locate for n1 = ning1 .and. n2 = ning2
if found()
   ? "ok"
endif
inkey(0)