//โปรแกรมเมนู 3 ตัวเลือก คือเก็บค่าในแฟ้มตัวแปร นำมาใช้ และเก็บค่าใหม่
@ 5,10 prompt [1. เก็บค่าในแฟ้มตัวแปร]
@ 6,10 prompt [2. นำมาใช้]
@ 7,10 prompt [3. เก็บค่าใหม่]
menu to n
do case
   case n = 1
   nx = 0
   @ 5,10 get nx
   read
   save all to ny
   case n = 2
   restore from ny
   ? nx
   case n = 3
   nx = 0
   @ 7,10 get nx
   read
   save all to ny
endcase