\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=M1
\FILE=M1.85P
:ClLCD
:Input "Terms of polynomial: ",T
:T\->\dimL C
:T\->\dimL E
:T\->\dimL Z
:For(P,1,T,1)
:Disp P
:Input "COEF: ",CI
:CI\->\C(P)
:Input "EXP: ",EI
:EI\->\E(P)
:End
:Input "To what power? ",D
:ClLCD
:Disp "This expansion has"
:Outpt(2,1,((D+(T-1)) nCr D))
:Outpt(2,16,"terms.")
:Pause 
:0\->\A
:M2
\STOP85\