FUNCTION SS_CLOSEV()

  Short:
  ------
  SS_CLOSEV() Restores screen in a vertical close fashion.
  Alternative to restscreen()

  Returns:
  --------
  Nothing

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

  Description:
  ------------
  Restores screen <cInScreen> in a close from left and
  right fashion.

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

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

  Relative to the speed of the machine.

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

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