{<<<< ClearRegion >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 17.2 -- Last mod 2/1/86   }

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

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