//โปรแกรมเมนู 3 ตัวเลือกคำสั่ง alert
cls
while .t.
n = alert("menu choice",{"1. 2+3","2. 2*7","3. เลิกการทำงาน"})
do case
   case n = 1; ? 5
   case n = 2; ? 14
   case n = 3; quit
   endcase
   inkey(0)
end