! 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