PROCEDURE CLEAR_REGION(X1,Y1,X2,Y2 : INTEGER);

BEGIN
  WINDOW(X1,Y1,X2,Y2);
  CLRSCR;
  WINDOW(1,1,80,25)
END;