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 GOSUB 55020 '
W
W▐ Вызов подпрограммы HARDCOPY.BAS
360 A=USR(0)'Вызов подпрограммы вывода на принтер,загруженной ранее в оперативную память подпрограммой HARDCOPY.BAS
370 END  '"What you see is what you get!"
55010 'Подпрограмма HARDCOPY.BAS
55020 DT=&HEF00:DEFUSR=DT:RESTORE 55060
55030 FOR I=0 TO &HAB
55040 READ DT$:POKE DT+I,VAL("&H"+DT$)
55050 NEXT:RETURN '
W
W▐
55060 DATA 21,00,20,22,AC,EF,21,91,EF,CD,87
55070 DATA EF,21,9B,EF,CD,87,EF,0E,08,2A,AC
55080 DATA EF,CD,4A,00,57,E6,0F,5F,CB,3A,CB,3A
55090 DATA CB,3A,CB,3A,00,3E,0F,BA,20,0D,BB
55100 DATA 20,03,AF,18,11,CD,7F,EF,EE,FF,18
55110 DATA 0A,BB,28,04,3E,FF,18,03,CD,7F,EF,23
55120 DATA 22,AC,EF,06,08,21,AE,EF,CB,27,CB
55130 DATA 1E,23,10,F9,0D,20,BE,06,08,21,AE
55140 DATA EF,7E,CD,A5,00,23,10,F9,2A,AC,EF,AF
55150 DATA BD,20,A9,3E,0D,CD,A5,00,3E,0A,CD
55160 DATA A5,00,3E,38,BC,20,94,21,A2,EF,CD
55170 DATA 87,EF,C9,CB,AC,CD,4A,00,CB,EC,C9,7E
55180 DATA FE,FF,C8,CD,A5,00,23,18,F6,1B,54,31
55190 DATA 36,1B,45,1B,3E,0E,FF,1B,53,30,32,35
55200 DATA 36,FF,1B,4E,0F,1B,41,1B,3C,0D,0A,FF