LP Calculator Source for TI-83+ and TI-83 - Huy Nguyen
*Note UPDATED SO THERES NO MORE ERRORS!!!!!!!!!
Well this LP program is just an improvement to Dave's LP Calculator This one has easy to use features like Lp decrease
and increase all the same things as his program except this one also has a dice roll program for cards like Skull Dice and
Graceful Dice. Also any and all text that is in CAPS are text and those that are in lower case are PRGM commands like Disp
I must make a note here the following coding works with TI-83+. But for TI-83 old ones just need to
Must sections like Coin Flip and Dice Roll into a separate program and just have them get called from this one example.
ex.
:Lbl CT
:prhmCOINFLIP
:Goto: J
All the comparison operators (>,<,=,etc) are found in [2nd] [MATH]. For the rest they should be located in [PRGM]. the ->
is STO and the ≤ Less then equal to sybmol
:0->A
:0->B
:0->G
:
:Lbl BG
:8000->X
:8000->Y
:G+1->G
:
:Lbl S
:Disp "----------------"
:Disp "YU-GI-OH LIFE"
:Disp "POINT PROGRAM"
:Disp " VER 1.1"
:Disp "----------------"
:Disp "IMPROVED BY:"
:Disp " HUY NGUYEN"
:Pause
:
Lbl JA
:Disp "----------------"
:Disp "CHOOSE"
:Disp "0,1,2,3,4,5,6"
:Prompt C
:If C=0:Goto CT
:If C=1:Goto EA
:If C=2:Goto LA
:If C=3:Goto GS
:If C=4:Goto FS
:If C=5:Goto S
:If C=6:Goto WA
:
:Disp "----------------"
:Disp "INVAID CHOICE"
:Goto JA
:
:Lbl CT
:Disp "----------------"
:Disp "TOSS HOW MANY?"
:Prompt D
:If D<=0:Goto JA
:0->H
:0->T
:
:Lbl HT
:randInt(1,2)->K
:If K=1:H+1->H
:If L=2:T+1->T
:D-1->D
:If D>0:Goto HT
:Disp "----------------"
:Disp "COIN TOSS","RESULTS:"
:Disp "HEADS",H
:Disp "TAILS",T
:Pause
:Goto JA
:
:Lbl GS
:Disp "----------------"
:Disp "CURRENT GAME",G
:Disp "P1 WINS",A
:Disp "P2 WINS",B
:Pause
:Goto JA
:
:Lbl EA
:Disp "----------------"
:Disp "WHICH PLAYER?"
:Disp "1-P1 2-P2"
:Prompt I
:Disp "HOW MUCH?"
:Prompt O
:If I=1:X-O->X
:If I=2:Y-O->Y
:Disp "----------------","P1 LP",X
:Disp "P2 LP",Y
:Pause
:If X>0 and Y>0:Goto JA
:If X<=0:B+1->B
:If X<=0:Disp "P1 LOSES"
:If Y<=0:A+1->A
:If Y<=0:Disp "P2 LOSES"
:Pause
:Goto PA
:
:Lbl LA
:Disp "----------------"
:Disp "INCREASE WHO?"
:Prompt Q
:Disp "HOW MUCH?"
:Prompt R
:If Q=1:X+R->X
:If Q=2:Y+R->Y
:Disp "----------------","P1 LP",X
:Disp "P2 LP",Y
:Pause
:Goto JA
:
:Lbl WA
:Disp "----------------"
:Disp "ROLL THE DICE?"
:Prompt C
:If C=1:Goto BA
:If C=2:Goto JA
:
:Disp "----------------"
:Disp "INVAID ENTRY"
:Disp "PLEASE CHOOSE 1 OR 2"
:Goto W
:
:Lbl BA
:0->W
:0->L
:0->E
:0->Z
:randInt(1,2)->W
:randInt(3,4)->L
:randInt(W,L)->E
:randInt(5,6)->Z
:randInt(L,Z)->D
:Disp "YOU ROLLED A",D
:
:Lbl R
:Disp "ROLL AGAIN?"
:Disp "1-YES 2-NO"
:Prompt F
:If F=1:Goto WA
:If F=2:Goto JA
:
:Lbl PA
:Disp "----------------"
:Disp 1-YES 2-NO"
:Prompt P
:If P=1:Goto BG
:If P=2:Goto FS
:
: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
Any Questions Regarding this Program email me at bebihuy@hotmail.com