  <tr>
    <td>Text</td>
    <td>WriteDraw(p1)</td>
    <td>The WriteLn equivalent procedure for the drawing window</td>
  </tr>
  <tr>
    <td>Drawing Window</td>
    <td>Procedure ShowDrawing</td>
    <td>Opens the Drawing Window</td>
  </tr>
</table>

<h3>Graphic Primitives Example</h3>

<pre>
program Primitives;

  {Program to demonstrate Pascal point & line primitives.}

begin

  ShowDrawing; {Opens Drawing Window}

  {First draw three points by three different functions}

  PenSize(1, 1); {Sets pen si