home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / WINDOW.ZIP / WINDOW.DOC next >
Encoding:
Text File  |  1985-12-28  |  1.0 KB  |  49 lines
  1. { Demonstration program for removable window package, WINDO.PAS }
  2.  
  3. { For further documentation see PC Tech Journal, February 1985. }
  4.  
  5. {$I windo.pas}
  6. var i: integer;
  7.  
  8. begin
  9.   initwin;
  10.  
  11.   writeln('Now and every time the action stops,');
  12.   writeln('press ENTER to continue.');
  13.   readln;
  14.   clrscr;
  15.   for i:=1 to 25 do writeln('    This is the original screen.');
  16.  
  17.   mkwin(3,3,50,18);
  18.   for i:=1 to 15 do writeln('This is the first window...');
  19.   readln;
  20.  
  21.   mkwin(10,5,70,20);
  22.   for i:=1 to 15 do writeln('Second window...');
  23.   readln;
  24.  
  25.   mkwin(15,15,45,23);
  26.   writeln('Third window...');
  27.   readln;
  28.  
  29.   mkwin(55,10,79,25);
  30.   writeln('Fourth window...');
  31.   readln;
  32.  
  33.   rmwin;   { Remove fourth window }
  34.   readln;
  35.  
  36.   rmwin;   { Remove third window }
  37.   writeln;
  38.   writeln('We are back in the second window...');
  39.   readln;
  40.  
  41.   rmwin;   { Remove second window }
  42.   writeln;
  43.   writeln('This is the first window again!');
  44.   readln;
  45.  
  46.   rmwin;   { Remove first window }
  47.   readln
  48. end.
  49.