//โปรแกรมเมนู 3 ตัวเลือกด้วยคำสั่ง prompt
cls
while .t.
   @ 5,5 prompt [1. 1+1]
   @ 6,5 prompt [2. 2*2]
   @ 7,5 prompt [3. เลิกการทำงาน]
   menu to n
   do case
    case n = 1; ? 2
    case n = 2; ? 4
    case n = 3; quit
   endcase
   inkey(0)
end