home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol064 / erase.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-02-10  |  640 b   |  23 lines
  1. PROGRAM ERASEZ;{$I+,V-,M-,F-}
  2. TYPE
  3. BYTE = 0..255;
  4.  
  5. {procedure to erase lines on the terminal screen starting at 
  6. a given line and for a given number of lines}
  7.  
  8.  
  9. PROCEDURE ERASE_LINES(STARTING_LINE,NUMBER_OF_LINES:BYTE);
  10.  
  11. VAR
  12. I:INTEGER;
  13. BLANKS:STRING 80;è
  14. BEGIN
  15.  
  16. BLANKS:='                                                ';{40SPACES}
  17. FOR  I:= 1 TO NUMBER_OF_LINES DO
  18.     BEGIN
  19.     WRITE(CHR(27),'=',CHR(STARTING_LINE+31),CHR(32),BLANKS,BLANKS);
  20.     STARTING_LINE:=STARTING_LINE + 1;
  21.     END
  22. END;
  23. BEGIN END.