; DrawLOGO - Draw the word "LOGO" on the graphics canvas
   ; --------

   ; the following procedures (drawG, drawL, and drawO) draw a
   ; letter (the last character 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 the turtle current position. The turtle is returned
   ; to this position after the letter is drawn.

   to drawG
     setheading 0  pendown
     forward 100  right 90  forward 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
     setheading 0  pendown
     forward 100  back 100
     right 90
     forward 50  back 50
     end

   to drawO
     setheading 90  pendown
     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 50 forward 15
      end

    ; draw the word: LOGO
    to drawLOGO
      drawL
      moveRightLetter
      drawO
      moveRightLetter
      drawG
      moveRightLetter
      drawO
      end

    ; MAIN - Program Starts Here
    ; ----
    to main
      home clean showturtle
      setheading 0 setpensize 1
      drawLogo
      hideturtle
      end

    main