graphsize 800,100 color green cls rect 0,0,graphwidth,graphheight color yellow x=1 y=50 a=70 for i=1 to 10 gosub transf next i for i=1 to 10 gosub transf2 next i end transf: cls color green circle (x,y,15) x=x+a color yellow circle (x,y,15) say "pingpong" cls return transf2: cls color green circle (x,y,15) x=x-a color yellow circle (x,y,15) say "pingpong" cls return