XPboxMenu()
 Invoke a simple Box menu
------------------------------------------------------------------------------

   Function:   XPboxMenu()

               Simple function to display a "Boxed" Menu on the Screen.
               In contrast to XPalert(), the choices are placed vertically,
               bu no extra text can be put on the screen, except the choices.

   Syntax:     XPboxMenu(cTitle,aChoice[,nDefault])

   Arguments:  cTitle is the Title. aChoice is an Array of characters
               containing the choices. nDefault is the default to stand on.

   Returns:    The Menu choice or 0.

   Usage:      The Source Code:
               Function XPboxMenu(nRow,nCol,cTitle,aChoice,nDefault)
               /***
               * Do a BOX menu titled cTitle, choices aChoice.
               */
               Local a := Array(Len(aChoice))
               Local i
               Local l := XPaStrLen(aChoice)
               For i := 1 to Len(a)
                   a[i] := { nRow + i, nCol + 1, ' ' + ;
                           aChoice[i] + Space(1+l-XPstrLen(aChoice[i])) }
               next
               XPbox(nRow,nCol,nRow+Len(aChoice)+1,nCol+3+l,cTitle)
               Return (XPmenu(a,nDefault))