  <tr><td>OffSetRect(VAR r : Rect; left, top : INTEGER)</td><td>Change rectangle to coords (left,top).</td></tr>
  <tr><td>InSetRect(VAR r : Rect; right, bottom : INTEGER)</td><td>Change rectangle to coords (left,top).</td></tr>
  <tr><td>Pt2Rect( pt1, pt2 : Point; dstRect : Rect);</td><td>Make rectangle with  pt1 and  pt2 as corners</td></tr>
  <tr><td>PtInRect(pt:Point; r : Rect) : BOOLEAN;</td><td>Determine if pt is in the rectangle r.</td></tr>
</table>

<h3>String Procedures</h3>

<table border='1'>
  