Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/CMPLTPAS.ZIP/CLREGION.PAS

Pascal/Delphi Source File | 1988-07-14 | 314 b | 13 lines

{<<<< ClearRegion >>>>}
{ From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann  }
{ Scott, Foresman & Co. 1988      ISBN 0-673-38355-5 }
{ Described in section 18.1   --   Last mod 7/14/88  }

PROCEDURE ClearRegion(X1,Y1,X2,Y2 : Integer);

BEGIN
  Window(X1,Y1,X2,Y2);
  ClrScr;
  Window(1,1,80,25)
END;