!********************************************************************
!*                                                                  *
!*  Program:  SAMPLE-NON-FMS                                        *
!*                                                                  *
!*  Purpose:  Example program.  Demonstrates the proper use of the  *
!*            menu1 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                                  

	ir = 1		! force complete repaint of screen

	call menu1 ( string, number_choices, menu_choice, ir )

	call lib$erase_page (1,1)

	type *,' menu choice = ',menu_choice

	call sys$exit (%val (1))

	end