' draw a single multi-colored star

Turn 1, 20
FOR i = 1 TO 5
  Hue STR$(i MOD 8)
  Trail 6
  Turn 4, 10
NEXT
SLEEP