# TITLE:  Polynomial Multiplication [Expanding 2 Brackets]
# AUTHOR: BazzaB
# EMAIL:  barries_ecdl@hotmail.com
# DATE:   1st December 2003 [Updated]
# MAKE:   Casio
# MODEL:  CFX-9850G or similar

# NOTES:  In Label A, change the value of 15 to be the
# highest degree of any bracket set.
# Ensure you write down the intermediate results as they appear.

# KEYS:
#  ->     assignment           above [ AC/ON ]
#  =>     if-then              shift vars f3 f3
#  [      left bracket         shift [ + ]
#  ]      right bracket        shift [ - ]
#  _      display triangle     shift vars f5
#__________________________________________________

# Needs Subroutine "S-NOTZRO" shown at the end of the main listing.

@@ Program "POLYMULT"

Lbl A:Norm:0->A~E:15->C:Goto F
Lbl B:B->A:1->D:Goto F
Lbl C:ClrList:Seq(0,X,1,2(A+B)+3,1->List 1
Lbl D:For 1->C To A:ClrText
Locate 8,3,"FIRST SET":Locate 8,4,"COEFFICIENT"
Locate 2,4,"X^":Locate 4,4,A-C+1:?->List 1[C
If Not List 1[1:Then Prog "S-NOTZRO":Goto D:IfEnd
Next:ClrText
Locate 8,3,"FIRST SET":Locate 8,4,"CONSTANT":?->List 1[A+1
Lbl E:B+1->D
For A+2->C To A+B+1:Dsz D:ClrText
Locate 8,3,"SECOND SET":Locate 8,4,"COEFFICIENT"
Locate 2,4,"X^":Locate 4,4,D:?->List 1[C
If Not List 1[A+2:Then Prog "S-NOTZRO":Goto E:IfEnd
Next:ClrText:Locate 8,3,"SECOND SET":Locate 8,4,"CONSTANT":?->List 1[C+1
ClrText:Locate 8,4,"WORKING"
For A+1->C To 1 Step -1:For B+2->D To 2 Step -1
A+B+C+D->E:List 1[C]List 1[A+D]+List 1[E->List 1[E
Next:Next:A+B+1->D
For A+B+3->C To 2(A+B+1:Dsz D:ClrText
Locate 1,4,"PRODUCT COEFF OF X^":Locate 20,4,D:List 1[C->E:E=>E_
Next
ClrText:Locate 1,4,"PRODUCT CONSTANT":List 1[C+1->E:E=>E_
ClrText:"END"_
Goto A
Lbl F:Do:ClrText:Locate 3,4,"FROM":Locate 8,4,C:Locate 5,5,"TO 1"
Not D=>"DEGREE OF FIRST SET"?->B:D=>"DEGREE OF SECOND SET"?->B
LpWhile Frac B+(B<1)+(B>C:D=>Goto C:Goto B
#__________________________________________________

@@ Program "S-NOTZRO"

Clrtext:Locate 7,4,"THAT VALUE":Locate 7,5,"CAN NOT BE":Locate 10,6,"ZERO"
For 1->J To 3:For 1->K To 200:Next:Locate 11,5,"..."
For 1->K To 99:Next:Locate 11,5,"NOT"
Next:For 1->K To 400:Next
#__________________________________________________