$   ver = 'F$VERIFY(0)
$   GOTO TEST
$!
$!
$!  ZMENU.TEST
$!
$!  Example command procedure demonstrating the ZMENU utility.
$!
$!  Alan L. Zirkle     K55     17 July 1991
$!
$!
$ TEST:
$   SET NOON	! Continue on any type of error
$!
$!  The following is a simple menu defined in SYS$INPUT
$!
$   SET COMMAND HERE:ZMENU	!*****     *****     *****     *****     *****
$!
$   ZMENU

                 T I T L E   O F   M E N U

    ^ Option 1       ^ Option 6       ^* Option 11
    ^ Option 2       ^ Option 7       ^* Option 12
    ^ Option 3       ^ Option 8       ^* Option 13
    ^ Option 4       ^ Option 9       ^* Option 14
    ^ Option 5       ^ Option 10      ^* Option 15

Enter H for help
$!
$   GOSUB SHOW_CHOICE
$   WAIT 0:0:2
$!
$!  The following use of ZMENU is a more-complex example.
$!
$   date = F$CVTIME(,"ABSOLUTE","DATE")	 ! Symbol DATE is called from ZMENU.MENU
$!
$   ZMENU HERE:ZMENU		! Obtains menu text from ZMENU.MENU
$!
$   GOSUB SHOW_CHOICE
$   GOTO EXIT
$!
$ SHOW_CHOICE:
$   WRITE SYS$OUTPUT "  --------------------------"
$   WRITE SYS$OUTPUT "   The selected option is ",choice
$   WRITE SYS$OUTPUT "  --------------------------"
$   WRITE SYS$OUTPUT ""
$   RETURN
$!
$ EXIT:
$   IF ver THEN  SET VERIFY