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 ≤ 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≤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≤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≤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