RmWin                                                           WinTTT



Purpose   To remove a window and restore the original screen contents.

Declaration    RmWin;

Uses Crt, FastTTT, DOS, WinTTT.

Remarks   The RmWin procedure removes the last displayed window.
          Successive RmWin statements will remove the earlier
          displayed windows. If RmWin is called when there are no
          windows, the procedure simplr returns i.e. no problem.

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



Example


               USES CRT, FASTTTT, DOS, WINTTT;
               VAR CH : CHAR;
               BEGIN
                 MKWIN(25,20,65,25,WHITE,RED,1);
                 WRITEBETWEEN(25,65,23,WHITE,RED,'DO YOU WANT TO EXIT
                 (Y/N)?');
                 CH := GETKEY;
                 IF UPCASE(CH) = 'Y' THEN
                 HALT
                 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 then the program terminates,
otherwise the window is removed and the program continues.