FUNCTION PBMAIN () AS LONG
  ' Create and show a Graphic window on screen
  LOCAL hWin AS DWORD

  GRAPHIC WINDOW "Box", 300, 300, 130, 130 TO hWin
  GRAPHIC ATTACH hWin, 0
  GRAPHIC BOX (10, 10) - (120, 120), 0, %BLUE
  ' Draw a triangle. Note that, since LINE draws up to,
  ' but not including the second point, one extra point
  ' must be added when STEP is used.
  GRAPHIC LINE (20, 20) - (20, 110), %RED  ' left side
  GRAPHIC LINE STEP - (111, 110), %RED     ' base line
  GRAPHIC LINE STEP - (20, 20), %RED       ' back to top
  ' GRAPHIC POLYGON as points 3, (280,20),(280,110),(20,110)
  SLEEP 5000  ' show it for 5 seconds, then end
END FUNCTION