//draw a star
TO star :x :y :long :col
  REPEAT 9
  [
    SETPOS [20+:x 20+:y]
    SETPC :col
    FD :long
    RT 40
  ]
END

//draw nb stars
TO stars :nb
  REPEAT :nb
  [
    GIVE "x HAZARD 350
    GIVE "y HAZARD 350
    GIVE "long HAZARD 25
    GIVE "col HAZARD 15
    star :x :y :long :col
  ]
END

CS
stars 40
SETPOS [150 50]
WRITE "Etoiles