procedure Wall.initialize (left, top, right, bottom : integer; cf : real); begin (* initialize conversion factor *) convertFactor := cf; link := nil; (* set up region for wall *) SetRect (region, left, top, right, bottom); end;