\START85\
\COMMENT=Program file dated 12/22/98, 16:35
\NAME=POLYM
\FILE=C:\TI85LINK\PROGRAMS\POLYM.85P
:ClLCD
:{1,5}\->\dim MAT3
:Fill(0,MAT3)
:{1,1}\->\dim MAT1
:{1,1}\->\dim MAT2
:Disp "# terms in poly #1="
:Input x
:{1,x}\->\dim MAT1
:For(G,1,x)
:Outpt(2,1,"term  ="
:Outpt(2,6,G)
:Input M
:M\->\MAT1(1,G)
:End
:ClLCD
:Disp "# terms in poly #2="
:Input K
:{1,K}\->\dim MAT2
:For(G,1,K)
:Outpt(2,1,"term  ="
:Outpt(2,6,G)
:Input M
:M\->\MAT2(1,K+1-G)
:End
:ClLCD
:K+x-1\->\y
:{1,y}\->\dim MAT3
:For(G,1,K)
:For(A,1,x)
:MAT2(1,G)*MAT1(1,A)+MAT3(1,G+x-A)\->\MAT3(1,G+x-A)
:End
:End
:dim MAT3\->\dim MAT4
:For(G,1,y)
:MAT3(1,y+1-G)\->\MAT4(1,G)
:End
:Disp "Order:",y-1
:Disp "The answer is:"
:Pause MAT4
\STOP85\