Arya's Blog

Program menu pada foxpro

SET TALK OFF
CLEAR
DIMENSION choices(3)
STORE 'Chicken' TO choices(1)
STORE 'Beef' TO choices(2)
STORE 'Fish' TO choices(3)
STORE 0 TO mchoice
@ 5,0 MENU choices,3 TITLE 'Dinner Choices'
READ MENU TO mchoice
DO CASE
CASE mchoice = 1
@ 10,0 SAY 'You will be having chicken for dinner.'
CASE mchoice = 2
@ 10,0 SAY 'You will be having beef for dinner.'
CASE mchoice = 3
@ 10,0 SAY 'You will be having fish for dinner.'
ENDCASE