1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 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
