; Spiral drawing program in FMSLogo
TO SPIRAL :size :angle :increment
  IF :size > 200 [STOP]
  FORWARD :size
  RIGHT :angle
  SPIRAL :size + :increment :angle :increment
END

; Clear screen and setup
CLEARSCREEN
PENDOWN
SETPENCOLOR [255 0 0]

; Draw a colorful spiral
SPIRAL 1 91 2