//'***********************************************************************
//'     DISPLAYED WITH PERMISSION OF ROY SCOTT ENTERPRISES
//'     AND THE AUTHOR AS AN ARCHIVING FUNCTION
//'                  http://www.scottserver.net/forum/index.php
//'     ALL RIGHTS RESERVED
//'************************************************************************
//'     MINOR EDITING PERFORMED BY UPLA STAFF
//'************************************************************************

//docman

// Define the window 
   ?WINDOW Win, 300, 250, 250, 100 
   {Win>$Caption$}="Menu Definition". 
   {Win>%Style%}='1'. 

// Define the menu 
   {Win>$Menu$}="#0Col1 Row0,0 #1Col1 Row2,0 #2 Row2 Sublevel1,0 #0Col2 Row0,0 #1Col2 Row2,4". 

// Show the window and enter our event loop 
   @ShowWindow {Win}. 
   Loop. 
    @WaitEvent. 
   EndLoop. 
   End.