TI-89 USERS HELP PLEASE

[MeBeatYou]

I am looking for a program which factors trinomials. This is what I have come up with for TI-83 plus\TI-84 Plus and it works great. Can anyone remake this in TI-89 Titanium coding please? A friend asked me to give him the program and I don't know how to make this TI-89 Compatible.

ClrHome
Disp "ax²+bxy+cy²","
Input "a=",A
Input "b=",B
Input "b=",C
abs(A
For(D,Ans,‾Ans,‾1
D-not(D→D
If not(fPart(A/Ans
Then
int(√(abs(C
For(E,‾Ans,Ans
E+not(E→E
If B=AnsD+AC/(AnsD) and not(fPart(C/Ans
Goto 0
End
End
End
Output(7,4,"NO FACTORS
Stop
Lbl 0
gcd(abs(D),abs(C/Ans
{Ans,D/Ans,C/E/Ans,A/D,E
ClrHome
Disp "a(bx+cy)(dx+ey)","
For(A,1,5
Disp sub("abcde",A,1)+"=
Output(A+2,3,Ans(A
End

[Dwedit]

How about factor( on the TI89?

[Shadow Phoenix]

lol