SCREEN 12
FOR x=0 TO 640 STEP 5
CLS
CIRCLE (x,240), 25
CIRCLE (x+100,240), 25
LINE (x+30,240)-(x+70,240)
LINE (x-50,240)-(x-30,240)
LINE (x+150,240)-(x+130,240)
LINE (x+150,240)-(x+150,190)
LINE (x-50,240)-(x-50,190)
LINE (x-50,190)-(x-10,190)
LINE (x+110,190)-(x+150,190)
CIRCLE (x+50,190),60 ,, 0 , 3.14
CIRCLE (x,240),30 ,, 0 , 3.14
CIRCLE (x+100,240),30 ,, 0 , 3.14
 
NEXT x