プロシージャの呼び出し

Sub DrawSqure()
  Dim n, length
  InitializeTurtleGraphics　' Turtleグラフィックスの初期設定

  n = 4  ' 四角形を描きます
  length = 200 

  Polygon n, length 　' 多角形を描く副プログラムを呼び出します
End Sub

Sub DrawHexagon()
  Dim n, length
  InitializeTurtleGraphics　' Turtleグラフィックスの初期設定

  n = 6  ' 六角形を描きます
  length = 150 

  Polygon n, length 　' 多角形を描く副プログラムを呼び出します
End Sub