' Note that subroutines are listed from simplest to most complex
' This is necessary if you do not want to add DECLARE statements


' Draw 12-sided circle from top point
'
SUB Circ (sz)
  Grow sz
  Turn 7, 24
  FOR i = 1 TO 12
    Trail 1
    Turn 1, 12
  NEXT
  Shrink
END SUB


' Draw a "check mark"
'
SUB Nose
  Turn 5, 12
  Trail 6
  Turn 4, 12
  Trail 4 
END SUB


' Draw an arc
'
SUB Smile
  Turn -3, 8
  Trail 5
  Turn 1, 8
  Trail 7
  Turn 1, 8
  Trail 5
END SUB


' Draw centered circle
'
SUB CCirc (sz)
  Measure
  CALL Circ(sz)
  Center
  CALL Circ(sz)
END SUB


' Draw a centered nose
'
SUB CNose
  Measure
  CALL Nose
  Center
  CALL Nose
END SUB


' Draw a centered arc
'
SUB CSmile
  Measure
  CALL Smile
  Center
  CALL Smile
END SUB


' Draw outline, then eyes, nose, and mouth
'
SUB Face (col$)
  Remember

  Hue "y"
  CALL CCirc(8)

  Hue col$
  Home
  Shortcut -6, 4
  Nest 4

  Home
  Shortcut 6, 4
  Nest 4

  Hue "y"
  Home
  Shortcut -1, -1
  Aim "n"
  CALL CNose

  Hue "r"
  Home
  Move -8
  CALL CSmile
END SUB


' Main program
' Draws a face with variable eye color
'
Size 10
Aim "nw"
Move 10
Twist
CALL Face("b")
SLEEP
END