\start83P\
\comment=Program file dated 04/10/96, 18:39
\protected=FALSE
\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,"{L\1\}")
Input L\1\
If F=1
Then
L\1\\->\L\2\
F+1\->\F
Goto 3
End
1-Var Stats L\1\
n\->\A
1-Var Stats L\2\
n\->\B
0\->\C
0\->\D
A+B-1\->\dim(L\3\
Fill(0,L\3\)
Lbl 1
D+1\->\D
0\->\C
Lbl 2
C+1\->\C
L\1\(C)*L\2\(D)+L\3\(C+D-1)\->\L\3\(C+D-1)
If C<A
Goto 2
If D<B
Goto 1
If E>F
Then
L\3\\->\L\2\
F+1\->\F
Goto 3
End
dim(L\3\-1\->\H
Disp H
Goto A
COPYRIGHT STEPHEN OSTERMILLER 1996
Lbl A
L\3\

\stop83P\