TI-83+ program


Recommended Posts

well here it is

i need to know how to make this in the calculator any help would be nice

*-> is the [sto>] key *

*<= is "less than or equal to" aka the < with the line under it*

ClrHome

Disp "Welcome to","Yugioh","Life Point","Calculator"," ","v. 1.5"

Pause

Lbl A

Menu("Please choose:","Full Game",FG,"Quit",Q

Lbl FG

ClrHome

8000->A

8000->B

Lbl P1

ClrHome

Menu("-1-Player One-1-","Attack ATK mon",A1,"Attack DEF mon",D1,"Pay/lose LP",M1,"P2

lose/gain",2G,"Gain LP",G1,"End turn",P2

Lbl A1

Input "Your ATK: ",P

Input "Opponent's ATK: ",R

ClrHome

abs(P-R)->D

If P>R:Goto W1

If P<R:Goto L1

If P=R:Goto T1

Lbl W1

B-D->B

Disp "Player 2 loses:",D,"Player two's","monster is","destroyed"

Pause

Goto R1

Lbl L1

A-D->A

Disp "Player 1 loses:",D,"Player one's","monster is","destroyed"

Pause

Goto R1

Lbl T1

Disp "Draw"

Pause

Lbl R1

If A<=0:Goto ED

If B<=0:Goto ED

Disp "Player one:",A,"Player two:",B

Pause

Goto P1

Lbl D1

Input "Your ATK: ",P

Input "Opponent's DEF: ",R

abs(P-R)->D

If P<R:Goto L3

If P=R:Goto T1

Disp "Player 2 monster","is destroyed"

Pause

Goto R1

Lbl L3

A-D->A

Disp "Player 1 loses:",D,"No monster","is destroyed"

Pause

Goto R1

Lbl M1

Input "Pay how much: ",C

A-C->A

Goto R1

Lbl G1

Input "Gain how much: ",G

A+G->A

Goto R1

Lbl 2G

Input "Player 2 (+/-): ",W

B+W->B

Goto R1

Lbl P2

ClrHome

Menu("-2-Player Two-2-","Attack ATK mon",A2,"Attack DEF mon",D2,"Pay/lose LP",M2,"P1

lose/gain",1G,"Gain LP",G2,"End turn",P1

Lbl A2

Input "Your ATK: ",P

Input "Opponent's: ",R

ClrHome

abs(P-R)->D

If P>R:Goto W2

If P<R:Goto L2

If P=R:Goto T2

Lbl W2

A-D->A

Disp "Player one loses: ",D,"Player one's","monster is","destroyed"

Pause

Goto R2

Lbl L2

B-D->B

Disp "Player two loses: ",D,"Player two's","monster is","destroyed"

Pause

Goto R2

Lbl T2

Disp "Draw"

Pause

Lbl R2

If A<=0:Goto ED

If B<=0:Goto ED

Disp "Player one: ",A,"Player two: ",B

Pause

Goto P2

Lbl D2

Input "Your ATK: ",P

Input "Opponent's DEF: ",R

abs(P-R)->D

If P<R:Goto L4

If P=R:Goto T2

Disp "Player 1 monster","is destroyed"

Pause

Goto R2

Lbl L4

B-D->B

Disp "Player 2 loses:",D,"No monster","is destroyed"

Pause

Goto R2

Lbl M2

Input "Pay how much: ",C

B-C->B

Goto R2

Lbl G2

Input "Gain how much: ",G

B+G->B

Goto R2

Lbl 1G

Input "Player 1 (+/-): ",W

A+W->A

Goto R2

Lbl ED

If A<0:0->A

If B<0:0->B

Disp "Player 1:",A,

If A>B:Disp "Player one wins!"

If A<B:Disp "Player two wins!"

Pause

Goto A

Lbl Q

ClrHome

Stop

Link to comment
Share on other sites

dunno when next assembly is :huh: and ide also need to print it out :unsure: ..its an 83plus..just letting you know ;) ...and yea i want the 89 to.. but need this one for high school :(

Link to comment
Share on other sites

TI-83 = TI-83+ = TI-83+ Silver Edition, etc, etc... :p It's still a Ti-83 :yes:

Assembly is basically raw CPU code instructions. Hard to think about when you're just starting programming :/ Anyway, what problems are you having with the code? I could look through it and see if I find anything wrong, but no guarantees...

Link to comment
Share on other sites

yes but 83plus just has sme upgrades ram and speed it think...

yes i am just startin programming..well kinda.. well i just want to know like how to type this in and that.... i know that i have to go to PRGM and new.. i just want to know how to type it in..like what it would look like.

this program aint mine but my freind found it somewere and wants me to program it into my calc. so i can send it to his so he doesnt have to..

Link to comment
Share on other sites

this program aint mine but my freind found it somewere and wants me to program it into my calc. so i can send it to his so he doesnt have to..

LOL! Sell it to him after you type it all in ;) (Y)

Link to comment
Share on other sites

If you have the cable to connect your calc to your computer, or can get your hands on one, you can send it all over without having to type it all in.

Link to comment
Share on other sites

No you do not need the spaces between the lines, but if you want them there to help with organization, Enter is the way to get them there.

Also, the only time you actually type in the words letter for letter is when they're in quotations. If you can't find a certain command word under PRGM, MATH, etc. just look it up in CATALOG.

Link to comment
Share on other sites

Why wouldn't they work? Mine work :huh:

:) :D :( :/ :ermm: :huh: :cool: :devil: :ninja: :shifty: :whistle: :blink:

Make sure you're typing them correctly, or are you clicking them to insert one?

Link to comment
Share on other sites

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.