!   EuroKom Menu System.

!   Define the menus.

Define Menu MAIN /bold /border /position=(4,29) /display=(banner,hints)
	Option "Mail/Conferencing"	/exit=MAIL
	Option "Eurocontact"		/menu=EUROCONTACT
	Option "File Transfer"		/menu=FTP
	Option "Telefax"		/image=EK_FAX /routine=FAX_MAIN
	Option "X500 Directory"		/exit=PARADISE
	Option "Internet News"		/exit=NEWS
	Option "Database Services"	/menu=DATABASE
	Option "Utilities"		/menu=UTILITIES
	Option "Help"			/menu=HELP
	Option "Setup"			/menu=SETUP
	Option "Test"			/image=MY_IMAGE /routine=SHARE_ROUTINE
	Option "Quit"			/exit
End Define

Define Menu EUROCONTACT /bold/border/position=(5,30) /title="Eurocontact"
	Option	"Esprit"		/menu=ESPRIT_CONTACT
	Option	"Delta"			/exit="EC DELTA"
	Option	"Brite/Euram"		/exit="EC BRITE"
	Option	"Craft"			/exit="EC CRAFT"
	Option  "Quit"			/return
End Define

Define Menu ESPRIT_CONTACT/bold/border/position=(6,31)/title="Esprit Eurocontact"
	Option	"Search Partner Database"	/exit="EC ESPRIT SEARCH"
	Option	"Display Workprogramme"		/exit="EC ESPRIT DISPLAY"
	Option	"Browse Workprogramme"		/exit="EC ESPRIT BROWSE"
	Option	"File Transfer Workprogramme"	/exit="EC ESPRIT FTP"
	Option	"Help"				/exit="EC ESPRIT HELP"
	Option	"Quit"				/return
End Define

Define Menu FTP /bold/border/position=(5,30) /title="File Transfer"
	Option "Kermit"			/exit="FTP KERMIT"
	Option "BLAST"			/exit="FTP BLAST"
	Option "Copy Files"		/menu=COPY_FILES
	Option "UUCP"			/exit="FTP UUCP"
	Option "Quit"			/return
End Define

Define Menu COPY_FILES /bold/border/position=(6,31) /title="Copy Files"
	Option "To"			/exit="FTP COPY TO"
	Option "From"			/exit="FTP COPY From"
	Option "Quit"			/return
End Define

Define Menu DATABASE /bold/border/position=(5,30)/title="Database Services"
	Option "Project Synopses"	/exit="DB SYNOPSES"
	Option "ECHO"			/exit="DB ECHO"
	Option "CORDIS"			/exit="DB CORDIS"
	Option "Software Catalog"	/exit="DB CATALOG"
	Option "Quit"			/return
End Define

Define Menu UTILITIES /bold/border/position=(5,30) /title="Utilities"
	Option "Set Password"		/exit="UTIL PASSWORD"
	Option "Display Disk Usage"	/exit="UTIL DISK"
	Option "File Manager"		/exit="UTIL FLM"
	Option "Call Monitor ($ prompt)" /spawn
	Option "Quit"			/return
End Define

Define Menu HELP /bold/border/position=(5,30) /title="Help"
	Option "General Help"		/help="EUROKOM"
	Option "Help Database"		/exit="HELP DB"
	Option "Quit"			/return
End Define

Define Menu SETUP /bold/border/position=(5,30) /title="Setup"
	Option	"Terminal Type"		/menu=TERMINAL
	Option	"Length of page"	/display=PAGE_LENGTH
	Option	"Echo Mode"		/menu=ECHO
	Option	"Screen Style"		/menu=STYLE
	Option	"Quit"			/return
End Define

Define Menu TERMINAL /bold/border/position=(6,31) /title="Terminal Setup" /init
	Option "Standard VT100"		/logical=MENU_TTY /value=VT100
	Option "IBM PC (VT100)"		/logical=MENU_TTY /value=IBMPC
	Option "VT200"			/logical=MENU_TTY /value=VT200
	Option "PCU"			/logical=MENU_TTY /value=PCU
End Define

Define Menu ECHO /bold/border/position=(6,31)/title="Echo Mode" /init
	Option	"Local Echo"		/logical=MENU_ECHO /value=LOCAL
	Option	"Host Echo"		/logical=MENU_ECHO /value=HOST
End Define

Define Menu STYLE /bold/border/position=(6,31)/title="Display Style"
	Option	"Full Screen"		/style=SMG
	Option	"Line Mode Menus"	/style=TEXT
	Option	"Brief Mode"		/style=BRIEF
	Option	"Quit"			/return
End Define

Define Display BANNER /position=(1, 26) /inverse
	Text = "Welcome to EuroKom Services"
End Define

Define Display HINTS /border /position=(18,12) /graphic
	Text = "To use any service, position cursor and press ."
	Text = "       or type the first character of service required."
	Text = "To obtain help on a service position cursor and type ?."
	Text = " "
	Text = "To Return from any sub-menu enter Q"
End Define

Define Display PAGE_LENGTH /border /position=(6,31) /temporary
	Text = "Enter Page Length"
	Text = "[24]> "
	Input = MENU_TTY_LENGTH /position=(2,8)
End Define

Define Display QUERY /border /position=(6, 31)/width=30/length=10/temporary
End Define