Purple:
cs setpencolour 10 repeat 365 [fd 100 bk 100 rt 7 fd 25 bk 25 rt 7 fd 10 bk 10 rt 7] ht

Abbreviations:
cs = clear screen
fd = forward
bk = back
rt = right
ht = hide turtle