para circulocolor
 circle 40 poccr 3 rellena
 espera 40
 circle 40 poccr 5 rellena
 espera 40
 circulocolor ;para que al acabarse vuelva a empezar indefinidamente
fin