В Паскаль ABC сделать графический рисунок (можно с анимацией)

clsx=100;y=99;LINE (100,600)-(700,600),8;LINE(700,600)-(750,550),8;LINE (750, 550)-(700, 500),8;LINE (700, 500)-(400,600),8; LINE (400,600)-(250,300),8;  LINE (250, 300)-(100,600),8;LINE (100, 300)-(400, 100),8,B;For i=1 to 100 Preset(x,y+i) next i;x=401;y=100;For i=1 to 100 Preset(x-i,y) next i;LINE (100, 100)-(150,50),8;LINE (150,50)-(200,100),8;LINE (300,100)-(350, 50),8;LINE (350,50)-(400, 100),8;