*-*-*-*-*-*---*-*-*-*-*-Original-*--*-*-*-*-*-*-*

:0→dim(L1
:"X²+15X+7→Str1
:1
:While Ans
:inString(Str1,"+",Ans+1
:If Ans
:Ans→L1(1+dim(L1
:End
*-*-*-*-*-*-*-*-*-*-**-Redone-*-*-*-*-*-*-*-*-

:0→dim(L1
:"X²+15X+7→Str1
:1
:While Ans
:inString(Str1,"+",Ans+1
:If Ans
:Ans→L1(1+dim(L1
Sub(Str1,L1(Ans),L1(Ans)-L1(Ans-1)->Str2
:End
************************************
-*-*-*-*-*-*-*Working Ahead-*-*-*-*-*-*-*-*-*

Sub(Str2,