\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=PolyMult
\FILE=POLYMULT.85P
:ClLCD
:Input "DEGREE A(X): ",A
:A+1\->\B
:A+1\->\BB
:If A<0
:Goto G
:B\->\dimL EE
:Lbl A
:Input E
:E\->\EE(B)
:B-1\->\B
:If B\>=\1
:Goto A
:Input "DEGREE D(X): ",D
:D+1\->\C
:D+1\->\CC
:If D<0
:Goto G
:C\->\dimL NN
:Lbl B
:Input N
:N\->\NN(C)
:C-1\->\C
:If C\>=\1
:Goto B
:A+CC\->\dimL MM
:Fill(0,MM)
:For(R,1,BB)
:For(S,1,CC)
:EE(R)*NN(S)+MM(R+S-1)\->\MM(R+S-1)
:End
:End
:A+CC\->\T
:Lbl SHOW
:ClLCD
:Outpt(1,1,MM(T))
:Outpt(1,15,"x^")
:Outpt(1,17,T-1)
:Pause 
:If T==1
:Goto G
:T-1\->\T
:Goto SHOW
:Lbl G
:Stop
\STOP85\