\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=M2
\FILE=M2.85P
:A+1\->\A
:0\->\Z(A)
:If A\<>\T
:Then
:Lbl OH
:M2
:If Z(A)==D
:Then
:A-1\->\A
:Return
:End
:Z(A)+1\->\Z(A)
:Goto OH
:End
:Lbl BY
:If Z(A)==(D+1)
:Then
:A-1\->\A
:Goto BAK
:End
:0\->\S
:For(P,1,T,1)
:S+Z(P)\->\S
:End
:If S\<>\D
:Goto DIE
:For(P,1,T,1)
:If int Z(P)\<>\Z(P) or Z(P)<0
:Goto DIE
:End
:D!\->\F
:For(P,1,T,1)
:F/(Z(P)!)\->\F
:End
:For(P,1,T,1)
:F*(C(P)^Z(P))\->\F
:End
:ClLCD
:Disp F\>Frac\
:Pause 
:Disp "Variable exp: "
:For(P,1,T)
:Disp Z(P)*E(P)
:Pause 
:End
:Lbl DIE
:Z(A)+1\->\Z(A)
:Goto BY
:Lbl BAK
\STOP85\