SaveScreen


Purpose   Saves the current display image.

Decln.    SaveScreen(Page:byte);

Remarks   Page is the number that the saved screen will be referenced by.
          The number must be in the range 1..Max_Screens. If a screen is
          already saved to that page, it will be overwritten. Up to
          Max_Screens screens can be saved for subsequent restoration.

          The Toolkit accommodates text screens of 25, 43 and 50 lines,
          i.e. the screen can be saved even if the display is in condensed
          mode.

          The cursor size and location is also saved with the saved image.
          The screen image can be restored with the RestoreScreen
          procedure.

Example

BEGIN
    SAVESCREEN(6);
    ....
    {SOME STATEMENTS THAT MODIFY THE CODE}
    ....
    RESTORESCREEN(6);
    DISPOSESCREEN(6);
END;