!********************************************************************
!*                                                                  *
!*  Program:  SAMPLE-FMS                                            *
!*                                                                  *
!*  Purpose:  Example program.  Demonstrates the proper use of the  *
!*            menu subroutine.                                      *
!*                                                                  *
!*  Programmer:  Richard Snyder                                     *
!*               The KeTech Corporation                             *
!*                                                                  *
!********************************************************************
	character*60	string(16)
	integer*4	number_choices
	integer*4	menu_choice
!
!
!
	string (1) = 'This is the menu title'
	string (2) = 'Choice #1 ... add record'
	string (3) = 'Choice #2 ... update record'
	string (4) = 'Choice #3 ... delete record'

	number_choices = 3

	call menu ( string, number_choices, menu_choice )

	call lib$erase_page (1,1)

	type *,' menu choice = ',menu_choice

	call sys$exit (%val (1))

	end