{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.

    The procedure RECTANGLE has six parameters:
        X1,Y1,X2, and Y2 : the coordinates of the corners
        Color            : the color, 0, 1, 2, or 3
        FillIt           : rectangle will be open if this is 0, filled
                           otherwise

}

{$I rectangl.lib}

var
  N : byte;
begin
  HiRes;
  rectangle(10,10,20,20,1,0);
  rectangle(200,10,250,100,1,1);
  rectangle(5,5,150,150,1,0);
  delay(3000);
  GraphMode;
  rectangle(10,10,20,20,1,0);
  rectangle(200,10,250,100,2,1);
  rectangle(5,5,150,150,3,0);
  HiRes;
  for N := 1 to 19 do
    rectangle(N,N,20*N,10*N,1,0);
  delay(2000);
  TextMode(BW80);
end.