# by C&F

fastgraphics

x=0

speed=1

loop:

x=x+speed

speed=speed+.03

if x>1 then speed=2

clg

pause .01

color black

if x > 400 then x=-100

rect 10+x,160,30,60

color orange

rect 10+x,195,120,50

color grey

circle 70+x,250,15

circle 110+x,250,15

circle 35+x,250,15

color black

circle 70+x,250,5

circle 110+x,250,5

circle 35+x,250,5

colour black

rect -30+x,220,40,10

color red

rect -100+x,195,75,50

color grey

circle -80+x,250,15

circle -40+x,250,15

color black

circle -80+x,250,5

circle -40+x,250,5

refresh

goto loop

fastgraphics

x=0

speed=1

loop:

x=x+speed

speed=speed+.03

if x>1 then speed=2

clg

pause .01

color black

if x > 400 then x=-100

rect 10+x,160,30,60

color orange

rect 10+x,195,120,50

color grey

circle 70+x,250,15

circle 110+x,250,15

circle 35+x,250,15

color black

circle 70+x,250,5

circle 110+x,250,5

circle 35+x,250,5

colour black

rect -30+x,220,40,10

color red

rect -100+x,195,75,50

color grey

circle -80+x,250,15

circle -40+x,250,15

color black

circle -80+x,250,5

circle -40+x,250,5

refresh

goto loop