El resultado es el siguiente:

para iniciar
bp
pongrosor [1 1]
poncolorlapiz [0 0 0]
poncolorrelleno [255 255 255]
bl
tallo
espera 20
florroja
espera 20
txt
fin
para arco
repite 18 [av 5 gd 5]
fin
para florroja
petalorojo
gd 15
petalorojo
fin
para hoja
arco
gd 90
arco
poncolorrelleno [0 128 0]
gd 120
sl
av 15
rellena
re 15
bl
gi 120
gi 270
fin
para petalorojo
pongrosor [1 1]
poncolorlapiz [0 0 0]
repite 4 [arco gd 90 arco
gd 130
sl
av 5
poncolorrelleno [255 0 0]
rellena
retrocede 5
bl
gi 130
]
fin
para tallo
poncolorlapiz [0 128 0]
pongrosor [5 5]
repite 12 [ av 5 gi 1]
hoja
repite 18 [ av 5 gi 1]
pongrosor [1 1]
poncolorlapiz [0 0 0]
fin
para txt
sl
ponpos [-150 -50]
gd 90
rotula [¡¡Felicitaciones para los egresados 2009!!]
ponpos [-50 -60]
rotula [del profe de Tecnología]
ponpos [-130 0]
fin