home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol064 / clear.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  255 b   |  8 lines
  1. {procedure to clear the screen of a soroc or televideo... essentially
  2. sends an ESC 27...the chr(0) are nulls to slow it down and give the 
  3. terminal time to respond}
  4.  
  5. PROCEDURE CLEAR_SCREEN;
  6. BEGIN
  7. WRITE(CHR(27),'*',CHR(0),CHR(0),CHR(0),CHR(0));
  8. END;