XPpopScr()
 Pop the Screen contents back on Screen
------------------------------------------------------------------------------

   Function:   XPpopScr()

               Simple function to Pop the screen contents back on
               Screen. The Screen Popped is the screen previously
               pushed using XPpushScr().

   Syntax:     XPpopScr() --> NIL

   Arguments:  None.

   Returns:    NIL

   Usage:      Source:
               Function XPpopScr()
               /***
               * Restores Screen (from aScr)
               */
               Local s := aTail(aScr)
               aScr := aSize(aScr,Len(aScr)-1)
               Restscreen(s[1],s[2],s[3],s[4],XPunpackScr(s[5]))
               devPos(s[6],s[7])
               setColor(s[8])
               setCursor(s[9])
               aColor := s[10]
               Return (NIL)