home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / WINDMNG2.ZIP / WINDMNGR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1980-01-01  |  481 b   |  21 lines
  1. {$I COLOR.INC}
  2. {$I WINDMNGR.INC}
  3. var ch:char;
  4.     j:integer;
  5. begin
  6. initialize;
  7. SetWindow(1,5,5,75,20,10,31,2,0,'TEST WINDOW',12,10,2);
  8. SetWindow(2,15,10,60,24,31,78,2,1,'TEST WINDOW 2',143,31,2);
  9. SetWindow(3,1,1,40,15,1,64,6,0,'TEST WINDOW 3',12,47,6);
  10. open(1);
  11. for j:=1 to 100 do write('Window Manager II ');
  12. repeat until keypressed;
  13. read(kbd,ch);
  14. open(2);
  15. repeat until keypressed;
  16. read(kbd,ch);
  17. open(3);
  18. repeat until keypressed;
  19. read(kbd,ch);
  20. remove(3);
  21. end.