FUNCTION SS_FOLD()

  Short:
  ------
  SS_FOLD() Restores screen in a fold to middle fashion.
  Alternative to restscreen()

  Returns:
  --------
  Nothing

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

  Description:
  ------------
  Restores screen <cInScreen> in a fold to middle
  fashion. <cInscreen>

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

  [nDelay]  delay factor. Default is 3. (Larger # is
  faster)

  Relative to the speed of the machine.

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

   DOSOMESCREENSTUFF()

   DOMORESCREENSTUFF()

   SS_FOLD(0,0,24,79,MainScreen)

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