Source position: graphh.inc line 790
procedure Rectangle(
x1: SmallInt;
y1: SmallInt;
x2: SmallInt;
y2: SmallInt
);