home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / AIE9009.ZIP / DATAREP.ZIP / RESET.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-22  |  279 b   |  16 lines
  1. PROGRAM Reset (Input, Output);  {Resets terminal.}
  2. PROCEDURE Restore_scrolling;
  3.     BEGIN
  4.     WRITE (CHR(27), '[1;24r');
  5.     END;
  6.  
  7. PROCEDURE Clear_screen;
  8.     BEGIN
  9.     WRITE (CHR(27), '[f', CHR (27), '[2J');
  10.     END;
  11.  
  12. BEGIN
  13. Restore_scrolling;
  14. Clear_screen;
  15. END.
  16.