FUNCTION SS_IMPLODE()

  Short:
  ------
  SS_IMPLODE() Restores screen in an imploding fashion.
  Alternative to restscreen()

  Returns:
  --------
  Nothing

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

  Description:
  ------------
  Restores screen <cInScreen> in an imploding fashion.

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

  [nDelay]  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_IMPLODE(0,0,24,79,MainScreen)

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