sf_cua_button_press   Emulate a button being pressed
------------------------------------------------------------------------------

    procedure sf_cua_button_press prototype
      parameters value int the_row,;
                 value int the_collumn,;
                 value int the_length,;
                 const logical highlight,;
                 value byte window_color,;
                 value ulong time_loop

    The button_press function uses the same parameters as SF_CUA_SHADE_GET()
    do emulate a button being pressed. The time_loop parameter determines
    how long the button will stay down.  Try 15000...