Procedure Drag

    This allows the user to drag the window around the screen.

    Information in the window  is  lost  if  the  window is a destructive
    window.