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