[Back to SCREEN SWAG index] [Back to Main SWAG index] [Original]

    {
    BRIAN PAPE

    >Mike, thought i would share a different way to clear the screen
    >it clears the screen directly and tends to be faster
    }

    Procedure ClrScr(attr : Byte; ch : Char); Assembler;
    Asm
      mov  ax, $b800
      mov  es, ax
      xor  di, di
      mov  cx, 80*25
      mov  ah, attr
      mov  al, &ch
      rep  stosw
    end;

[Back to SCREEN SWAG index] [Back to Main SWAG index] [Original]