//โปรแกรมแสดงข้อสอบ ให้เลือกตอบแล้วบอกว่าถูกหรือผิด
use test
while !eof()
   _ans = space(1)
   ? "คำถาม ",question
   ? "1. ",c1
   ? "2. ",c2
   ? "3. ",c3
   ? "4. ",c4
   accept to _ans
   if ans = _ans
     ? "ท่านตอบถูก"
   else
     ? "ท่านตอบผิด"
   endif
   skip
end