home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TP002.ZIP / DEFDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1980-01-01  |  711 b   |  30 lines
  1. {$I WINDMNGR.INC}
  2. {$I DEFS.PAS}
  3.  
  4. var ch:char;
  5.     j:integer;
  6.  
  7. begin
  8.       Initialize;
  9.       Setdefs;
  10.       ClrScr;
  11.       Open(1);
  12.       j:=1;
  13.       repeat
  14.             GotoXY(1,1);
  15.             Write('Press 1 to open windows, 2 to close windows.');
  16.             Repeat until keypressed;
  17.             read(kbd,ch);
  18.             if ((ch='1') and (j<8)) then
  19.                        begin
  20.                             j:=succ(j);
  21.                             open(j);
  22.                        end;
  23.             if ((ch='2') and (j>0)) then
  24.                        begin
  25.                            j:=pred(j);
  26.                            remove(1);
  27.                        end
  28.       until j=0;
  29. end.
  30.