ROUTINE main () { $halfHeight = $CanvasHeight / 2 SetPosition(0, $halfHeight) SetHeading(90) Forward($CanvasWidth) }