licmenu.def

Programs in the irregular grid design package described in this manual are used to carry out five ma

*
* character     MenuOpt (MenuMin:MenuMax, ItemMin:ITEMMAX)
*                    Contains text strings.  Each element is a menu
*                    item name.
* integer       MenuTag (MenuMin:MenuMax, ItemMin:ITEMMAX)
*                    Each element contains an unique integer value.
*
	  integer       MenuMax, ItemMax
	  parameter     (MenuMax = 1, ItemMax = 4)
			    
	  character*20  MenuOpt(MenuMin:MenuMax, ItemMin:ITEMMAX)
	  integer       MenuTag(MenuMin:MenuMax, ItemMin:ITEMMAX)

      INTEGER         EXIT
      integer           SHOW_ABOUT
      PARAMETER       (EXIT=14,
     +                  SHOW_ABOUT=24)
      parameter (EXIT_NOSAVE = EXIT)

* PRINT holds active list tag number choices
	INTEGER REGISTER_USER
	PARAMETER (REGISTER_USER = 39)
	INTEGER UNREGISTER_USER
	PARAMETER (UNREGISTER_USER = 38)

	integer it_no

* TOP menu
	DATA  (MenuOpt(1,it_no),MenuTag(1,it_no),it_no=ITEMMIN,4)
     +        /
     +  'Top',          MENU_TITLE,
     +  'About',	SHOW_ABOUT,
     +  'Register',	REGISTER_USER,
     +  'UnRegister',	UNREGISTER_USER,
     +  'Exit',		EXIT
     +  /