World of Shareware - Software Farm 2/wosw_2.zip/wosw_2/PASCAL/MADTRB21.ZIP/CLRAREA.SRC

Text File | 1985-06-09 | 120b | 8 lines

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

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