10 CLS:COLOR 1,15,8:SCREEN2:R=5/6
30 READ N:IF N=0 THEN 350
50 READ X1,Y1:X1=X1/2:Y1=Y1/.9:Y1=Y1*R
70 FOR P=2 TO N:READ X2,Y2:X2=X2/2:Y2=Y2/.9:Y2=Y2*R
90 LINE(X1,Y1)-(X2,Y2),1:X1=X2:Y1=Y2:NEXT P
130 GOTO 30
135 'Основная часть туловища тираннозавра
140 DATA 38,223,60,180,71,173,65,174,63,179,64,180,62,185,62,187,60,192,60,194,57,200,57,202,55,183,55,182,59,172,58,171,62,165,57,170,50,220,31,233,31,245,40,260,60,290,67,315,72
170 DATA 345,80,360,87,380,105,400,127,425,145,452,155,502,164,450,164,434,162,415,158,395,153,362,138,323,132,283,125
190 'Большая задняя лапа.
200 DATA 16,289,92,250,120,250,135,260,157,233,163,247,163,240,165,257,164,256,166,272,159,270,153,278,140,280,120,285,120,310,120,330,112
230 'Маленькая задняя лапа.
240 DATA 11,295,127,303,158,278,162,288,162,282,163
250 DATA 291,164,283,165,315,162,315,157,325,137,323,132
260 'Передняя лапа.
270 DATA 11,238,77,220,87,192,99,192,102,195,100
280 DATA 198,102,200,100,203,102,205,98,218,96,255,83
290 'Остальная часть тираннозавра.
300 DATA 3,258,114,245,105,228,93,3,222,86,215,77,210,65
320 'Глаз.
330 DATA 4,220,42,210,45,215,40,220,42,0
350 GOTO 350