home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / screen.swg / 0037_Very FAST Clear Screen.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-02  |  322 b   |  18 lines
  1. {
  2. BRIAN PAPE
  3.  
  4. >Mike, thought i would share a different way to clear the screen
  5. >it clears the screen directly and tends to be faster
  6. }
  7.  
  8. Procedure ClrScr(attr : Byte; ch : Char); Assembler;
  9. Asm
  10.   mov  ax, $b800
  11.   mov  es, ax
  12.   xor  di, di
  13.   mov  cx, 80*25
  14.   mov  ah, attr
  15.   mov  al, &ch
  16.   rep  stosw
  17. end;
  18.