SYM TEST=2
SYM TEST2=HELLO
HEADING=THIS IS A SAMPLE MENU THE VALUE OF X IS -{X}-
WIDTH=70
DEPTH=15
ROW=5
COL=2
MULTIPLE=1
REDRAW=0

IFTHEN {X}=1
OR {TEST}=1
AND {TEST2}=HELLO

XPOS=20
YPOS=1
STRING=X IS EQUAL TO 1
ENDIF

IFTHEN {X}^1
XPOS=1
YPOS=1
STRING=X IS NOT EQUAL TO 1
ENDIF



.   FORCE MENU TO BE RE-PARSED SO THAT VALUE OF X IN HEADING IS UPDATED

RESCAN=1


OPTION CHANGE X TO 1
!SYM X=1
!$WRITE SYS$OUTPUT "X IS BEING CHANGED TO 1"
RUNVMF=SAMPLE.VMF

OPTION CHANGE X TO 2
!SYM X=2
!$WRITE SYS$OUTPUT "X IS BEING CHANGED TO 2"
RUNVMF=SAMPLE.VMF

OPTION=RUN SAMPLE2 MENU
!SYM CALLMENU=SAMPLE.VMF
!SYM NEXTMENU=SAMPLE3.VMF
RUNVMF=SAMPLE2.VMF

OPTION=EXIT MENU
!$WRITE SYS$OUTPUT "EXITING MENU"
#