LP Calculator Source for TI-83 - Dave
I wanted to get a nice LifePoint Calculator, but I do not have the proper 
cable for me to download programs onto my TI-83, so I looked for source 
codes that I could copy onto it manually.  After 15 minutes of searching 
and finding very few, I decided to write one of my own.
The reason I created one of my own was because the ones that I found were 
not as complex as I wanted them.  So, I have created a calculator that 
keeps basic stats as to how many games have been played, the wins of each 
player, and can generate a coin toss (with your choice of how many 
coins).  I realize that these already exist, but I couldn't find the source 
for them, so I had no way of getting the program onto my calc.
This is my very first TI-83 program, so it may appear messy to a few 
people.  Personally, I don't think it's half bad, but I couldn't find much 
to compare it to.  If you think you can improve this calc, feel free to do 
so.  The original code came from Jay's calculator. 
I think the only unique part of it left in my code is the "Goto J" aspect.  :)
One last note, all the comparison operators (>,<,=,etc) are found under 
[2nd] [MATH].  The "randInt" can be found under [MATH] and then the PRB 
section.  Everything else should be under [PRGM], but if it's not, check 
the Catalog by [2nd] [0].  The -> symbol is the [STO] button.  And the 
&#8804; symbol is the Less Than/Equal to sign.
Again, modify this however you want.  If you want it to say "DEVELOPED BY: 
YOUR NAME" go for it!  Happy repetetive motion injury causing key punching!
:0->A
:0->B
:0->G
:
:Lbl BG
:8000->X
:8000->Y
:G+1->G
:
:Lbl RM
:Disp "----------------"
:Disp "YU-GI-OH LIFE"
:Disp "POINT CALCULATOR"
:Disp "         VER 1.0"
:Disp "----------------"
:Disp "DEVELOPED BY:"
:Disp " DAVID LENDERMON"
:Pause
:
:Lbl J
:Disp "----------------"
:Disp "WHO TAKES"
:Disp "DAMAGE?"
:Prompt C
:If C=0:Goto CT
:If C=1:Goto M
:If C=2:Goto N
:If C=3:Goto GS
:If C=4:Goto RM
:
:Disp "----------------"
:Disp "INVALID PLAYER"
:Disp "ENTRY, CHOOSE"
:Disp "1 OR 2."
:Goto J
:
:Lbl CT
:Disp "----------------"
:Disp "COIN TOSS","----------------"
:Disp "TOSS HOW MANY?"
:Prompt F
:If F&#8804;0:Goto J
:0->H
:0->T
:
:Lbl HT
:randInt(1,2)->K
:If K=1:H+1->H
If K=2:T+1->T
:F-1->F
:If F>0:Goto HT
:Disp "----------------"
:Disp "COIN TOSS","RESULTS:"
:Disp "HEADS",H
:Disp "TAILS",T
:Pause
:Goto J
:
:Lbl GS
:Disp "----------------"
:Disp "CURRENT GAME",G
:Disp "P1 WINS",A
:Disp "P2 WINS",B
:Pause
:Goto J
:
:Lbl M
:Disp "----------------","HOW MUCH?"
:Prompt D
:Disp "----------------","P1 LP",X-D
:x-D->X
:Disp "P2 LP",Y
:Pause
:If X>0:Goto J
:If X&#8804;0:Disp "P1 LOSES"
:B+1->B
:Pause
:Goto PA
:
:Lbl N
:Disp "----------------","HOW MUCH?"
:Prompt D
:Disp "----------------","P1 LP",X
:Disp "P2 LP",Y-D
:Y-D->Y
:Pause
:If Y>0:Goto J
:If Y&#8804;0:Disp "P2 LOSES"
:A+1->A
:Pause
:Goto PA
:
:Lbl PA
:Disp "----------------"
:Disp "1-Yes       2=NO"
:Disp "PLAY AGAIN?"
:Prompt P
:If P=1:Goto BG
:If P=2:Goto FS
:Disp "----------------"
:Disp "INVALID ENTRY."
:Goto PA
:
:Lbl FS
:Disp "----------------"
:Disp "FINAL RESULTS:"
:Disp "GAMES PLAYED",G
:Disp "P1 WINS",A
:Disp "P2 WINS",B
:Pause
:If A>B:Disp "P1 IS SUPERIOR"
:If A<B:Disp "P2 IS SUPERIOR"
:If A=B:Disp "YOU ARE EQUALS"
:Pause
:Stop
email chubb@nothotmail.org