to hoa cscircle2 152.5rt 90pu fd 22.5 lt 90 pdcircle2 130 wait 20pu setxy 10 0setfc 0 fill wait 30 homepd bk 20 repeat 24arc 180 20 pu fd 40 rt 36024 pdrepeat 24 lt 90 wait 20 pu fd 10 wait 20 setfc 5 fill bk 10 wait 20 rt 90 wait 20 fd 40 rt 36024 pdpu setxy 50 0 setfc 6 fillend