Texas Instruments Banking Program

I made this program last year, but have decided to post it now. It is for Texas Instruments Graphing Calculators.  It will keep track of all banking functions that you would do with cash  and will also keep track of all money spent and received and through out the game, which you can look at. Soon I will post the program for AAP40.  I still need to write the program for AAE40, but once I do that I will post it.  AAG40 will be much harder to write because off all the variable I need to keep with the same features I have set up now. Just copy it into the calculator as you see it here.  Every time I start a new line, begin a new line on the calculator. (Every time you see the word store it is means the store button which is the second button from the bottom on the left of the keypad.  It says STO with a little arrow pointing to the right) all zeros are indicated
Turn the calculator on then hit the PRGM button
Then arrow over to NEW
Hit Enter on Create NEW
then Name this what ever you want (AA50 is what I chose)
Once it is named The Calculator will display
PROGRAM:AA50
:
All the commands can be found by hitting the PRGM button They’re in their just look
Then type just a you see I used this : to begin every line here, but the calculator will do that for you

:Menu(“RESUME GAME?”, “YES”,A,“NO”,N)
:Lbl N
:0(ZERO) store G
:0(zero) store O
:0(zero) store P
:0(zero) store Q
:0(zero) store C
:0(zero) store S
:0(zero) store T
:0(zero) store D
:0(zero) store V
:0(zero) store W
:0(zero) store X
:0(zero) store Y
:0(zero) store Z
:0(zero) store I
:0(zero) store J
:0(zero) store R
:0(zero) store B
:0(zero) store U
:Lbl A
:ClrHome
:Menu(“COUNTRIES”,“GERMANY”,G,“ITALY”,I,“JAPAN”,J,“SOVIET UNION”,SU,"GREAT BRITIAN’,GK,“UNITED STATES”,US,“STATS”,S)
:Lbl G
:Menu(“GERMANY”,“SPEND IPCS”,G1,“RECIEVE IPCS”,G2,“CAPTURED”,G3,“RETURN”,A)
:Lbl G1
:Disp “IPCS”,G
:Input “SPENDT=?”,A
:G-A store G
:0+A store O
:Goto G
:Lbl G2
:Input “RECIEVE=?”,A
:G+A store G
:A+D store D
:Disp “IPCS”,G
:Pause
:Goto A
:Lbl G3
:Menu(“ARE YOU SURE?”,“NO”,G,“YES”,Z)
:Lbl Z
:Menu(“CAPTURED BY”,“RUSSIA”,GA,“GREAT BRITAIN”,GB,“UNITED STATES”,GC)
:Lbl GA
:G+R store R
:G+X store X
:0(zero) store G
:Goto A
:Lbl GB
:G+B store B
:G+Y store Y
:0(zero) store G
:Goto A
:Lbl GC
:G+U store U
:G+Z store Z
:0(zero) store G
:Goto A
:Lbl I
:Menu(“ITALY”,“SPEND IPCS”,I1,“RECIEVE IPCS”,I2,“CAPTURED”,I3,“RETURN”,A)
:Lbl I1
:Disp “IPCS”,I
:Input “SPEND=?”,A
:I-A store I
:A+P store P
:Goto I
:Lbl I2
:Input “RECIEVE=?”,A
:I+A store I
:A+V store V
: Disp “IPCS”,I
:Pause
:Goto A
:Lbl I3
:Menu(“ARE YOU SURE?”,“NO”,I,“YES”,I5)
:Lbl I5
:Menu(“CAPTURED BY”,“RUSSIA”,IR,“GREAT BRITAIN”,IB,“UNITED STATES”,IU)
:Lbl IR
:I+R store R
:I+X store X
:0(zero) store I
:Goto A
:Lbl IB
:I+B store B
:I+Y store Y
:0(zero) store I
:Goto A
:Lbl IU
:I+U store U
:I+Z store Z
:0(zero) store I
:Goto A
:Lbl J
:Menu(“JAPAN”,“SPEND IPCS”,J1,“RECEIVE IPCS”,J2,“CAPTURED”,J3,“RETURN”,A)
:Lbl J1
:Disp “IPCS”,J
:Input “SPEND=?”,A
:J-A store J
:A+Q store Q
:Goto J
:Lbl J2
:Input “RECEIVE=?”,A
:J+A store J
:A+W store W
:Disp “IPCS”,J
:Pause
:Goto A
:Lbl J3
:Menu(“ARE YOU SURE”,“NO”,J,“YES”,J4)
:Lbl J4
:Menu(“CAPTURED BY”,“RUSSIA”,JR,“GREAT BRITAIN”,JB,“UNITED STATES”,JU)
:Lbl JR
:J+R store R
;J+X store X
:0(zero) store J
:Goto A
:Lbl JB
:J+B store B
:J+Y store Y
:0(zero) store J
:Goto A
:Lbl JU
:J+U store U
:J+Z store Z
:0(zero) store J
:Goto A
:Lbl SU
:Menu(“SOVIET UNION”,“SPEND IPCS”,R1,“RECEIVE IPCS”,R2,“CAPTURED”,R3,“RETURN”,A)
:Lbl R1
:Disp “IPCS”,R
:Input “SPEND=?”,A
:R-A store R
:A+C store C
:Goto SU
:Lbl R2
:Input “RECEIVE=?”,A
:R+A store A
:A+X store X
:Disp “IPCS”,R
:Pause
:Goto A
:Lbl R3
:Menu(“ARE YOU SURE?”,“NO”,SU,“YES”,R4)
:Lbl R4
:Menu(“CAPTURED BY”,“GERMANY”,RG,“ITALY”,RI,“JAPAN”,RJ)
:Lbl RG
:R+G store G
:R+D store D
:0(zero) store R
:Goto A
:Lbl RI
:R+V store V
:R+I store I
:0(zero) store R
:Goto A
:Lbl RJ
:R+J store J
:R+W store W
:0(zero) store R
:Goto A
:Lbl GK
:Menu(“GREAT BRITAIN”,“SPEND IPCS”,B1,“RECEIVE IPCS”,B2,“CAPTURED”,B3,“RETURN”,A)
:Lbl B1
:Disp “IPCS”,B
:Input “SPEND=?”,A
:B-A store B
:A+S store S
:Goto GK
:Lbl B2
:Input “RECEIVE=?”,A
:A+B store B
:A+Y store Y
:Disp “IPCS”,B
:Pause
:Goto A
:Lbl B3
:Menu(“ARE YOU SURE?”,“NO”,GK,“YES”,B4)
:Lbl B4
:Menu(“CAPTURED BY”,“GERMANY”,BG,“ITALY”,BI,“JAPAN”,BJ)
:Lbl BG
:B+G store G
:B+D store D
:0(zero) store B
:Goto A
:Lbl BI
:B+I store I
:B+V store V
:0(zero) store B
:Goto A
:Lbl BJ
:B+J store J
:B+W store W
:0(zero) store B
:Goto A
:Lbl US
:Menu(“UNITED STATES”,“SPEND IPCS”,U1,“RECEIVE IPCS”,U2,“CAPTURED”,U3,“RETURN”,A)
:Lbl U1
:Disp “IPCS”,U
:Input “SPEND=?”,A
:U-A store U
:A+T store T
:Goto US
:Lbl U2
:Input “RECEIVE=?”,A
:A+U store U
:A+Z store Z
:Disp “IPCS”,U
:Pause
:Goto A
:Lbl U3
:Menu(“ARE YOU SURE?”,“NO”,US,“YES”,U4)
:Lbl U4
:Menu(“CAPTURED BY”,“GERMANY”,UG,“ITALY”,UI,“JAPAN”,UJ)
:Lbl UG
:U+G store G
:U+D store D
:0(zero) store U
:Goto A
:Lbl UI
:U+V store V
:U+I store I
:0(zero) store U
:Goto A
:Lbl UJ
:U+J store J
:U+W store W
:0(zero) store U
:Goto A
:Lbl Z1
:Stop
:Lbl S
:Menu(“STATS”,“GERMANY”,SG,“ITALY”,SI,“JAPAN”,SJ,“SOVIET UNION”,SR,“GREAT BRITAIN”,SB,“UNITED STATES”,SS,“END”,Z1)
:Lbl SG
:Disp “GERMANY”
:Disp “SPENT”,O
:Dips “RECEIVED”,D
:Pause
:Goto S
:Lbl SI
:Disp “ITALY”
:Disp “SPENT”,P
:Disp “RECEIVED”, V
:Pause
:Goto S
:Lbl SJ
:Disp “JAPAN”
:Disp “SPENT”,Q
:Disp “RECEIVED”,W
:Pause
:Goto S
:Lbl SR
:Disp “SOVIET UNION”
:Disp “SPENT”,C
:Disp “RECEIVED”,X
:Pause
:Goto S
:Lbl SB
:Disp “GREAT BRITAIN”
:Disp “SPENT”,S
:Disp “RECEIVED”,Y
:Pause
:Goto A
:Lbl SS
:Disp “UNITED STATES”
:Disp “SPENT”,T
:Disp “RECEIVED”,Z
:Pause
:Goto A

EDIT:Clarifications

@calvinhobbesliker:

You start by typing “Program: AA50” into the Calculator?

sorry I should have been more specific I edited it now

@docfav7:

:?

I’m an IT geek and this is beyond me.  I’ll keep my poker chips.  LOL

However, I would LOVE to see this in action.

The program makes it nice and convenient.  I always like to look back on what all the countries have received IPC wise.  It is surprising when you look back.  In most games all the countries seem earn the same number of IPCs (give or take 40 IPCs)