SUB face(diameter, sizeEyes, numEyes)
! face is always drawn with lower left corner at the ORIGIN
    BOX CIRCLE 0,diameter,0,diameter
    LET eyeSpacing = (diameter - numEyes*sizeEyes)/(numEyes + 1)
    FOR i = 1 to numEyes
	let xEye = eyeSpacing *i + sizeEyes*(i-1)
        BOX CIRCLE xEye,xEye+sizeEyes, diameter/2,diameter/2 + sizeEyes
    NEXT i
    PLOT diameter*.25,diameter *.4; diameter/2,diameter*.2; diameter*.75,diameter *.4
END SUB