:Disp "cranwell@yahoo.com"
:Lbl A:Input "Axò=",A:Input "Bx=",B:Input "C=",C
:ClLCD:2AüF:5üK:(Bò-4*A*C)üD:DüE
:(úB+ðD)/FüN:(úB-ðD)/FüP:"+- ð"üW:1üR
:Repeat 10^R>abs B:R+1üR:End:Outpt(4,8-R,úB)
:For(Q,9-R,14):Outpt(5,Q,"-"):End:Outpt(4,9,W)
:If D<0:Then:abs DüD:Outpt(4,11,"i"):End
:Outpt(4,13,D):Outpt(6,10,F)
:Outpt(8,4,"(    +  )(    +  )")
:If E<0:Stop
:Lbl NOP:NüX:PüN:XüZ:Disp XåFrac:abs XüX
:2üR:0üM:1üD:12üL:{1,L}üdim T:Fill(0,T)
:Repeat M==L:M+1üM:iPart ZüT(1,M)
:If (fPart Z)==0:Goto NAP:(fPart Z)ñüZ:round(Z,R)üX
:If fPart X==0:Goto D:End
:Lbl D:round(X,0)üX
:Repeat M==0:X*T(1,M)+DüV:XüD:VüX:M-1üM:End
:Lbl NAP:abs C/XüC:Outpt(8,K,abs D):Outpt(8,K+2,"x")
:If Z>0:Outpt(8,K+4,"-"):Outpt(8,K+5,abs X):Outpt(8,1,"   ")
:If abs C>1:Outpt(8,1,abs C):K+9üK
:If K>14:Stop:Goto NOP:Goto A
:

    Source: geocities.com/paris/arc/1927/ti85

               ( geocities.com/paris/arc/1927)                   ( geocities.com/paris/arc)                   ( geocities.com/paris)