FUNCTION SS_CLOSEH()

  Short:
  ------
  SS_CLOSEH() Restores screen in a horizontal close fashion.
  Alternative to restscreen()

  Returns:
  --------
  Nothing

  Syntax:
  -------
  SS_CLOSEH(nTop,nLeft,nBottom,nRight,cInScreen,[nDelay])

  Description:
  ------------
  Restores screen <cInScreen> in a close from top and
  bottom fashion.

  <cInscreen> is a screen saved with SAVESCREEN().
  <nTop>,<nLeft>,<nBottom>, <nRight> are the screen coordinates.

  [nDelay]  is a delay factor. Default is 100. (Smaller
  # is faster)

  Relative to the speed of the machine.

  Examples:
  ---------
   MainScreen := savescreen(0,0,24,79)
   DOSOMESCREENSTUFF()
   DOMORESCREENSTUFF()
   SS_CLOSEH(0,0,24,79,MainScreen)

  Source:
  -------
  S_SCREENS.PRG