Rmwin


Purpose   Removes a window and restores the original screen contents.

Decln.    Rmwin;

Remarks   The RmWin procedure removes the last displayed window. Successive
          RmWin statements will remove the windows displayed earlier. If
          RmWin is called when there are no windows, no action is taken.

          The windows are always removed in reverse order, e.g. you cannot
          create three windows in succession and then try to remove the
          second window without first removing the third one.

Example

VAR
  CH : CHAR;
BEGIN
    MKWIN(25,20,65,25,WHITE,RED,1);
    WRITEBETWEEN(25,65,23,WHITE,RED,'END THE PROGRAM?');
    CH := GETKEY;
    IF UPCASE(CH) = 'Y' THEN
       HALT(0)
    ELSE
       RMWIN;
END;

The above program paints a red window with a white single line border on
the last five lines of the screen and displays a message in the center of
the box. If the user responds Y, the program terminates, otherwise the
window is removed and the program continues.