sf_cua_calendar     Displays a popup calendar and select a date
------------------------------------------------------------------------------

    function date sf_cua_calendar prototype
      parameters value date begindate,;
                 value int lr,;
                 value int lc

    Displays a popup calendar thru which the user can select a date.

    Example:

    the_date = sf_cua_calendar( today(), 10, 10 )

    Valid movement keys are:  Up arrow   = prior week
                              Down arrow = next week
                              Page up    = prior month
                              Page down  = next month