home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PWINDO.ZIP / PWINDOW.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-05-04  |  634 b   |  34 lines
  1. Program Pwindow;
  2.  
  3. Uses
  4.   Crt;
  5.  
  6. {$L Pwindow}
  7. type
  8.   buffertype = ARRAY[1..4000] OF BYTE;
  9.  
  10. VAR
  11.   x,y,w,h: byte;
  12.   i : Integer;
  13.   buffer: buffertype;
  14.  
  15. {$F+}
  16. procedure wget(x,y,w,h: byte; VAR buffer: buffertype); external;
  17. procedure wput(x,y,w,h: byte; VAR buffer: buffertype); external;
  18. {$F-}
  19.  
  20. begin
  21.   for i := 1 to 2000 do
  22.      write('░');
  23.  
  24.   Write('Going to save a small portion of this screen.    Press <Enter>');
  25.   ReadLn;
  26.   wget(5,5,10,5,buffer);
  27.   gotoxy(1,24);
  28.   clrscr;
  29.   Write('Going to restore the small portion of previous screen.    Press <Enter>');
  30.   ReadLn;
  31.  
  32.   wput(5,5,10,5,buffer);
  33.  
  34. end.