poncl 0
bl
sl gd 90 av 170 bl gi 90 av 200
sl gi 90 av 340 bl gi 90 av 200 sl
fin
para pelota
pared
HAZ "x 0
HAZ "d 1
HAZ "y 0
repite 60 [HAZ "x :x +( 10 * :d)
ponpos (lista :x :y)
bl
poncl 0 circulo 40 espera 5 poncl 7 circulo 40 sl
SI :x > 120 [HAZ "d -1]
SI :x < -120 [HAZ "d 1]]
fin



