home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TPPROC19.ZIP / WINDMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-02-05  |  758 b   |  32 lines
  1. program windemo;
  2. (* demonstrates window routines in window.inc*)
  3. (*$I window.inc*)
  4. var i:integer;
  5.  
  6. begin
  7.      initwin;
  8.      writeln('Now and every time the action stops,');
  9.      writeln('press ENTER to continu.');
  10.      readln;
  11.      clrscr;
  12.      for i:= 1 to 25 do writeln('       This is the original screen');
  13.  
  14. mkwin(3,3,50,18);
  15.    for i:= 1 to 15 do writeln('This is the second window');
  16.    readln;
  17. mkwin(10,5,70,20);
  18.    writeln('third window');
  19.    readln;
  20. mkwin(55,10,79,25);
  21.    writeln('fourth window');
  22.    readln;
  23.           rmwin;  (*remove 4*)
  24.           readln;
  25. rmwin;            (*remove 3*)
  26. writeln('back in the second');
  27. readln;
  28. rmwin;           (*remove 2*)
  29. writeln;
  30. writeln('this is the first again!');
  31. readln;
  32. end.