So, I found a program for a TI84 Plus and used this website to convert it from .8xp to raw TIBASIC format, and the code works perfectly in this website's emulator, but I get an overflow error when I try using it on my physical calculator. Here is the code:
Code:
Keep in mind that this program is NOT mine, I was just converting it into TIBASIC because I don't have a data cable that can plug into my TI-84 and transfer programs.
Code:
ClrHome
PlotsOff
FnOff
ClrDraw
AxesOff
ZStandard
For(L,0,18)
Text(~1,10,L," Equation")
End
For(M,54,30,~1)
Text(~1,18,M,"Solver")
End
"By: Nigel Hou "->Str1
Text(~1,40,10,Str1)
Text(50,24,"PRESS ANY KEY")
0->K
While K=0
getKey->K
End
ClrDraw
Line(~7,1,7,1)
Line(~7,~2,7,~2)
Line(~7,1,~7,~2)
Line(7,1,7,~2)
Text(20,35,"Loading..\.")
For(P,16,78)
Pxl-On(30,P)
Pxl-On(31,P)
Pxl-On(32,P)
Pxl-On(33,P)
Pxl-On(34,P)
Pxl-On(35,P)
End
Lbl theta
Float
Menu("Pick type","Binomial",Z1,"Trinomial",Z2)
Lbl Z1
If L!=19 or P!=79
Goto Z4
Disp "ax+b=c"
Disp ""
Input "a=",A
Input "b=",B
Input "c=",C
Output(7,1,"x=")
Output(7,3,(C-B)/A)
Pause
ClrHome
Goto Z3
Lbl Z2
If L!=19 or P!=79 or inString(Str1,"l")!=9
Goto Z4
Menu("Pick ans. type","Rea\l",RA,"Complex",IA)
Lbl RA
Disp "ax^^2+bx+c=0
Disp ""
Input "a=",A
Input "b=",B
Input "c=",C
If B^^2-4AC<0
Then
Disp "Error: nonreal"
Disp "ans."
Pause
ClrHome
Goto Z3
End
(~B+sqrt(B^^2-4AC))/(2A)->X
Output(7,1,"x=")
Output(7,3,X)
(~B-sqrt(B^^2-4AC))/(2A)->Y
If Y!=X
Then
Output(8,1,"x=")
Output(8,3,Y)
End
Pause
ClrHome
Goto Z3
Lbl IA
a+bi
Fix 4
Disp "ax^^2+bx+c=0
Disp ""
Input "a=",A
Input "b=",B
Input "c=",C
(~B+sqrt(B^^2-4AC))/(2A)->X
Output(7,1,"x=")
Output(7,3,X)
(~B-sqrt(B^^2-4AC))/(2A)->Y
If Y!=X
Then
Output(8,1,"x=")
Output(8,3,Y)
End
Pause
ClrHome
Lbl Z3
Menu("Use again?","Yes",theta,"No",Z4)
Lbl Z4
Float
Real
AxesOnKeep in mind that this program is NOT mine, I was just converting it into TIBASIC because I don't have a data cable that can plug into my TI-84 and transfer programs.
