CODE TWO

to ms make "d -200 repeat 40[ cs pu setxy :d 0 pd star 20 wait 5 cs pu setxy :d+3 3 seth 25 pd star 20 wait 5 cs pu setxy :d+6 6 seth 50 pd star 20 wait 5 make "d :d+10 ] end

NOTE: You need a working function called star which takes a number as input for this function to work.