//   USER_MENU.VDM
//   "Points and shoots" a .MNU file from a given directory.
//   Please edit this directory as needed! 
//   Then loads it as the new user menu, similarly to VP.
//   Enhancement to VP 6.01.3: it displays the FILENAME of the new user menu.
//   PR January 19, 2002.
//
//   much modified by Christian Ziemski
//

:USER_MENU:

#103=Buf_Num                        // remember current buffer
#104=Reg_Free                       // temporary T-Reg

Get_Filename(#104,"|(HOME)\*.mnu")  // Get by point and shoot a .mnu file and put it ..
Reg_Load(124,@#104)                 // ...into the "{USER}" register.

Buf_Switch(Buf_Free())              // Switch to a temporary buffer
File_Open(@#104,OK)                 // and open the mnu file there
Reg_Set(#104,FILE_ONLY)             // to get the filename of the selected user menu file
Buf_Quit(OK)                        // close buffer again
Buf_Switch(#103)                    // switch back to original buffer

Reg_Set(#104,"&U-", INSERT)         // insert a leading underlined character
Config_String(USER_MENU,@#104)      // and use that as menu title
Reg_Empty(#104)                     // empty the used T-register

Return