GraphABC - Turbo Pascal

uses graphabc;
begin
 setbrushcolor(clyellow);
 setpencolor(clyellow);
 pie(0,0,80,270,360);
 line(10,80,12,170);
 line(20,76,28,130);
 line(30,74,50,170);
 line(40,70,65,125);
 line(50,65,100,150);
 line(60,60,130,110);
 line(70,45,190,130);
 line(75,38,180,90);
 floodfill(50,50,clyellow);
 
 setpencolor(clmaroon);
 line(640,240,540,180);
 line(540,180,440,240);
 line(640,239,440,239);
 line(488,212,520,200);
 line(520,200,532,216);
 line(532,216,540,200);
 line(540,200,552,212);
 line(552,212,560,200);
 line(560,200,600,216);
 floodfill(560,220,clmaroon);
 
 setpencolor(clbrown);
 line(320,240,420,160);
 line(420,160,488,212);
 line(320,239,440,239);
 line(380,192,388,200);
 line(388,200,420,186);
 line(420,186,424,200);
 line(424,200,440,188);
 line(440,188,468,197);
 floodfill(360,220,clbrown);
 setpencolor(clsilver);
 line(200,280,460,280);
 line(200,280,220,340);
 line(220,340,440,340);
 line(440,340,460,280);
 setpencolor(clwhite);
 line(440,340,480,360);
 floodfill(320,320,clsilver);
 setpencolor(clOlive);
 line(214,320,447,320);
 floodfill(220,322,clOlive);
 setpencolor(clred);
 line(260,280,260,120);
 line(260,120,320,200);
 line(320,200,260,280);
 floodfill(280,180,clsilver);
 line(207,300,453,300);
 line(320,200,260,248);
 line(320,200,260,224);
 line(320,200,260,200);
 line(320,200,260,176);
 line(320,200,260,152);
 
 setpencolor(clblack);
 line(0,240,260,240);
 line(292,240,320,240);
 setpencolor(clred);
 line(320,240,640,240);
 floodfill(320,360,clNavy);
 setpencolor(clwhite);
 line(420,340,480,342);
 line(220,340,200,338);
 
 setpencolor(clOlive);
 line(0,427,200,427);
 arc(200,480,52,0,90);
 floodfill(10,478,clOlive); 
 
 setbrushcolor(clblue);
 setpencolor(clblue);
 ellipse(260,0,380,60);
 floodfill(320,20,clblue);
 ellipse(300,40,500,100);
 floodfill(320,80,clblue);
 ellipse(320,0,600,80);
 floodfill(440,50,clblue);
 ellipse(15,0,200,20);
 floodfill(110,5,clblue);
 
 setbrushcolor(clblack);
 setpencolor(clblack);
 circle(460,120,2);
 arc(470,132,15,45,135);
 arc(450,132,15,45,135);
 floodfill(460,120,clblack);
 circle(520,100,2);
 arc(530,112,15,45,135);
 arc(510,112,15,45,135);
 floodfill(520,100,clblack);
 circle(580,80,2);
 arc(590,92,15,45,135);
 arc(570,92,15,45,135);
 floodfill(580,80,clblack);
 
 setpencolor(clpurple);
 rectangle(0,480,20,420);
 floodfill(2,478,clpurple);
 rectangle(20,460,40,468);
 floodfill(21,462,clpurple);
 rectangle(20,432,40,440);
 floodfill(21,434,clpurple);
 rectangle(40,480,60,420);
 floodfill(41,434,clpurple);
 rectangle(60,460,80,468);
 floodfill(61,461,clpurple);
 rectangle(60,432,80,440);
 floodfill(61,433,clpurple);
 rectangle(80,480,100,420);
 floodfill(81,434,clpurple);
 rectangle(100,460,120,468);
 floodfill(101,461,clpurple);
 rectangle(100,432,120,440);
 floodfill(101,433,clpurple);
 rectangle(120,480,140,420);
 floodfill(121,434,clpurple);
 rectangle(140,460,160,468);
 floodfill(141,461,clpurple);
 rectangle(140,432,160,440);
 floodfill(141,433,clpurple);
 rectangle(160,480,180,420);
 floodfill(161,434,clpurple);
 
 setpencolor(clwhite);
 arc(150,320,30,45,135);
 arc(40,350,30,45,135);
 arc(95,400,30,45,135);
 arc(250,380,30,45,135);
 arc(600,450,30,45,135);
 arc(450,460,30,45,135);
 arc(350,420,30,45,135);
 arc(590,300,30,45,135);
 arc(490,320,30,45,135);
 arc(530,400,30,45,135);
end.