TI-89 HomeGames ArchiveTitanium GamesGames How ToProgramsFAQForumTI-89 WikiLinks

TI-84 Program code to TI-89 Program code

 
Post new topic   Reply to topic    Your TI-89 Resource Forum Index -> BASIC Programming
Author Message
TICalcFreak08



Joined: 04 Jun 2008
Posts: 1

PostPosted: June 4, 2008 3:45 PM    Post subject: TI-84 Program code to TI-89 Program code Reply with quote

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.
Back to top
View user's profile Send private message
Display posts from previous:    View previous topic : View next topic  
Post new topic   Reply to topic    Your TI-89 Resource Forum Index -> BASIC Programming All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Contact Us | Privacy Policy | Disclaimer | Trademarks

Copyright ©2006 All rights reserved.


Free Greeting Cards | Girly Myspace Layouts | Myspace Unblocker |