;drawLogo

    ;the following commands (drawG, drawL, and drawO) draw a
    ;letter (the last char of their names).  The letters are
    ;centered in a box that is 100 turtle steps tall and
    ;50 turtle steps wide.  The lower-left corner of the box
    ;is where the turtle is.  The turtle is returned to this
    ;location after the letter is drawn.

   to drawG
     pendown  setheading 0
     forward 100  right 90  fd 50
     back 50  left 90  back 100
     right 90
     forward 50  left 90  forward 50  left 90  forward 20
     back 20  right 90  back 50  right 90  back 50
     end

   to drawL
     pendown  setheading 0
     forward 100  back 100
     right 90
     forward 50  back 50
     end

   to drawO
     pendown setheading 90
     forward 50  left 90
     forward 100 left 90
     forward 50  left 90
     forward 100
     end


    ;move the turtle right the width of a letter (50 turtle steps)
    ;and then 15 more for separation spacing
    to moveRightLetter
      penup setheading 90
      forward 65
      end


    drawL
    moveRightLetter
    drawO
    moveRightLetter
    drawG
    moveRightLetter
    drawO