*=============================================================================  
*          Sample uniVerse Program to add a menu to CoSTAR's menu bar.
*
*         Shows use of the ADDMENU macro, the !M command, the DELMENU macro,
*         the function key !F command, and IMAGE HOTSPOT.
*
*=============================================================================  

EQU MAGIC TO CHAR(127)
EQU QU TO CHAR(34)
MENU = "&My Menu"

PRINT @(-1)


* Add the menu to CoSTAR's menu bar

PRINT MAGIC:"UWSCRIPTsdk\addmenu.scr,":MENU:MAGIC:

*=============================================================================  
*           These statements will create the pulldown menu items
*
*
*     The print statements have been aligned for easier reading.
*
*     ID      Menu Text            Command String                               
*=============================================================================  
PRINT "1," : "&Return Menu ID"    :",,":

PRINT "2," : "&Function Key 10,"  :"![F10],":

PRINT "3," : "&Show Image,"       :QU:"!MUWsdk\10.bmp, 3,20,24,60,96,":QU:QU:
PRINT                              QU:"!MUW0":QU:QU:",":

PRINT "4," : "&Edit WIN.INI,"     :"!F":QU:QU:"win.ini":QU:QU:",":              

PRINT "5," : "Remove &Menu,"      :QU:"!Ssdk\delmenu.scr,":MENU:QU:             

PRINT MAGIC:


*=============================================================================
*  Menu option 1 will return the ID back to the host.
*
*  Menu option 2 will send the function key 10 back to the host.
*
*  Menu option 3 will show an image -- the hotspot command for the image
*                     clears the image when clicked.
*
*  Menu option 4 will run NOTEPAD with the WIN.INI file
*
*  Menu option 5 will remove the menu.
*=============================================================================


PRINT "Enter a selection from My Menu ":
INPUT STRING

END
