To rose
PD SetPenWidth 1
PETAL 1 1
Repeat 5 [SETZOOM ZOOM + 0.5]
Wait 2
Repeat 5 [SETZOOM ZOOM - 0.5]
SetBg 1
Repeat 255 [SETBG BACKGROUND + 1]
End

