\START82\
\COMMENT=Program file dated 04/10/96, 18:39
\NAME=FOIL
:Lbl 4
:ClrHome
:Input "NUM POLYNOMIALS?",E
:If (E<2)+(int E\<>\E)>0
:Goto 4
:ClrHome
:1\->\F
:Lbl 3
:If F=1
:1\->\G
:If F=2
:3\->\G
:If F=3
:5\->\G
:If F\>=\4
:7\->\G
:Disp "ENTER POL"
:Output(G,11,F)
:Output(G,13,"{\L1\}")
:Input \L1\
:If F=1
:Then
:\L1\\->\\L2\
:F+1\->\F
:Goto 3
:End
:1-Var Stats \L1\
:n\->\A
:1-Var Stats \L2\
:n\->\B
:0\->\C
:0\->\D
:A+B-1\->\dim \L3\
:Fill(0,\L3\)
:Lbl 1
:D+1\->\D
:0\->\C
:Lbl 2
:C+1\->\C
:\L1\(C)*\L2\(D)+\L3\(C+D-1)\->\\L3\(C+D-1)
:If C<A
:Goto 2
:If D<B
:Goto 1
:If E>F
:Then
:\L3\\->\\L2\
:F+1\->\F
:Goto 3
:End
:dim \L3\-1\->\H
:Disp H
:Goto A
:COPYRIGHT STEPHEN OSTERMILLER 1996
:Lbl A
:\L3\
\STOP82\