; FASTRECT.ACT

; Fast rectangle drawing routine

; Version 0.0  October 23, 1995
; By Bill Kendrick, (c) NBS 1995

MODULE

Card SCMem=88

Proc FastRect(Card X1,Y1,X2,Y2)
  Card Y,LEFT,WIDTH,RIGHT

  Color=0

  LEFT = X1 RSH 3
  WIDTH = (X2-X1) RSH 3
  RIGHT = X2 RSH 3

  For Y=Y1 To Y2 Do
    Zero(SCMem+Y*40+LEFT,WIDTH)
  Od
Return

MODULE