TICalcFreak08
Joined: 04 Jun 2008 Posts: 1
|
Posted: June 4, 2008 3:45 PM Post subject: TI-84 Program code to TI-89 Program code |
|
|
Hello. This is my first time on here, so... bear with me. However, I'd like to learn how to convert the following TI-83/TI-84+/SE program code (but it has to have an internal clock in order for it to work!), so... here is the (assume) TI-84+SE program code:
:"Life Odometer"
ClrHome
Normal
For(X,ú8,ú3)
Output(úX,2,"Alex Litzau's
If Xøú8:Output(úX+1,2,")
For(A,1,ý^(2))
End
End
Output(5,2,"Life Odometer")
For(A,1,ý^(3))
End
getKey
Output(8,2,"Press any key")
Repeat getKey
End
Lbl 5
ClrHome
Output(1,2,"Your Birthday")
Disp "
Disp "
Input "Month? ",A
Input "Day? ",B
Input "Year? 19",C
Input "Hour? (0-23) ",D
Input "Minute? ",E
int(abs(AüA
int(abs(BüB
int(abs(CüC
int(abs(DüD
int(abs(EüE
If A<1 or A>12 or B<1 or B>31 or C<50 or C>99 or D>23 or E>59:Goto 5
A+B/100+C/ý^(4)üA
(60D+E)/1440üB
Lbl 1
ClrHome
Output(1,5,"Seconds
Output(4,7,"Days
Output(7,6,"Years
While 1
getKeyüZ
If Z=22:Goto 0
If Z:Goto 2
getTimeüáY
getDateüáX
(60áY(1)+áY(2)+áY(3)/60)/1440-BüX
áX(2)+áX(3)/100+(áX(1)-2û3)/ý^(4üC
X+dbd(A,CüX
86400XüC
X/365.25üD
Output(2,4-(Cùý^(9)),C
Output(5,3,"
Output(5,3,X
Output(8,3,"
Output(8,3,D
End
Lbl 2
ClrHome
Output(1,7,"Days
Output(3,6,"Hours
Output(5,5,"Minutes
Output(7,5,"Seconds
While 1
getKeyüZ
If Z=22:Goto 0
If Z:Goto 1
getTimeüáY
getDateüáX
(60áY(1)+áY(2)+áY(3)/60)/1440-BüX
áX(2)+áX(3)/100+(áX(1)-2û3)/ý^(4üC
X+dbd(A,CüC
24fPart(CüD
int(CüC
60fPart(DüE
int(DüD
60fPart(EüX
int(EüE
round(X,0üX
If X=60:Then
E+1üE
DelVar X
End
If E=60:Then
D+1üD
DelVar E
End
If D=24:Then
C+1üC
DelVar D
End
Output(2,7-(Cùý^(4)),C
Output(4,8,"
Output(4,8+(D÷9),D
Output(6,8,"
Output(6,8+(E÷9),E
Output(8,8,"
Output(8,8+(X÷9),X
End
Lbl 0
ClrHome
DelVar áXDelVar áYDelVar ADelVar BDelVar CDelVar DDelVar EDelVar XDelVar Z
(Warning: Use the appropriate TI calculator font on your computer in order to view it; such an example would be TI83pc.ttf (or whatever that is). Is there a way I can convert this program (made by someone else, NOT me) and change everything to the appropriate TI-89 (BASIC only!) code? Thank you very much! I will give this program credit to the original person who made this program. |
|