home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TPASBOOK.ZIP / CLRAREA.SRC < prev    next >
Encoding:
Text File  |  1985-06-09  |  120 b   |  8 lines
  1. PROCEDURE CLEAR_REGION(X1,Y1,X2,Y2 : INTEGER);
  2.  
  3. BEGIN
  4.   WINDOW(X1,Y1,X2,Y2);
  5.   CLRSCR;
  6.   WINDOW(1,1,80,25)
  7. END;
  8.