I can easily give you the source code for this, but there is a small problem. It looks like the program uses picture files, which can cause problems if you try to use the program without it. I'll post it tomorrow when I'm on my Pi, but it's better if you download this if you can. :)
EDIT: Here is the source code, but the programs has 3 image files that you need for the graphics.
0->Xmin
94->Xmax
~62->Ymin
0->Ymax
AxesOff
FnOff
ClrDraw
RecallPic 1
Text(51,1,"|v2.4.3")
Text(57,1,"[|b]y k[|d][n]ooij - 2014")
For(X,0,1000)
Ans->A
End
ClrDraw
Lbl M
Menu("","N[|e]|w G[|a]m[|e]",A,"Lo[|a][|d] G[|a]m[|e]",B,"H[|e]l[p]",Z,"A[|b]o|u[t]",Y,"Q|ui[t]",R)
Lbl Z
ClrDraw
Text(3,40,"HELP")
Text(13,3,"G[|e][t] [|a][s] m[|a][n]y [|c]ooki[|e][s] [|a][s]")
Text(19,3,"[p]o[s][s]i[|b]l[|e]! Cli[|c]k |wi[t]h ENTER")
Text(25,3,"[|a][n][|d] [|b]|uy |wi[t]h [t]h[|e] F1-F5")
Text(31,3,"k[|e]y[s].To [s][|e][|e] mo[r][|e] [|b]|uil[|d]i[n]g[s]")
Text(37,3,"[p][r][|e][s][s] [t]h[|e] [|a][r][r]o|w k[|e]y[s].")
Pause
Goto M
Lbl Y
ClrDraw
Text(3,3,"Cooki[|e] [|c]li[|c]k[|e][r] fo[r] TI-84+")
Text(9,3,"m[|a][|d][|e] [|b]y k[|d][n]ooij.")
Text(15,3,"V[|e][r][s]io[n] 2.4.3")
Pause
Goto M
Lbl A
0->A
0->B
0->C
15->D
100->E
500->F
3000->G
10000->H
40000->I
200000->J
1666666->K
123456789->L
3999999999->M
1->S
0.15->Z
Goto C
Lbl B
Menu("","G[|a]m[|e] A",D,"G[|a]m[|e] B",E,"G[|a]m[|e] C",F)
Lbl D
26->dim(|LCSA)
If |LCSA(1)!=0:Then
|LCSA(1)->B
|LCSA(2)->C
|LCSA(3)->D
|LCSA(4)->E
|LCSA(5)->F
|LCSA(6)->G
|LCSA(7)->H
|LCSA(8)->I
|LCSA(9)->J
|LCSA(10)->K
|LCSA(11)->L
|LCSA(12)->M
Else
Goto A
End
Goto C
Lbl E
26->dim(|LCSB)
If |LCSB(1)!=0:Then
|LCSB(1)->B
|LCSB(2)->C
|LCSB(3)->D
|LCSB(4)->E
|LCSB(5)->F
|LCSB(6)->G
|LCSB(7)->H
|LCSB(8)->I
|LCSB(9)->J
|LCSB(10)->K
|LCSB(11)->L
|LCSB(12)->M
Else
Goto A
End
Goto C
Lbl F
26->dim(|LCSC)
If |LCSC(1)!=0:Then
|LCSC(1)->B
|LCSC(2)->C
|LCSC(3)->D
|LCSC(4)->E
|LCSC(5)->F
|LCSC(6)->G
|LCSC(7)->H
|LCSC(8)->I
|LCSC(9)->J
|LCSC(10)->K
|LCSC(11)->L
|LCSC(12)->M
Else
Goto A
End
Goto C
Lbl C
ClrDraw
RecallPic 2
Text(52,3,round(D,0))
Text(52,22,round(E,0))
Text(52,40,round(F,0))
Text(52,58,round(G,0))
Text(52,76,round(H,0))
While 1
getKey
Ans->A
If A=105:Then
B+1+((C/Z)*0.1)->B
Text(7,47,int(B))
End
If A=11:Then
If S=1:Then
If B>=D:Then
B-D->B
15*1.15^(log(D/15)/log(1.15)+1)->D
Text(52,3,round(D,0))
Text(7,47," ")
C+.1Z->C
Text(25,47," ")
End
Else
If B>=I:Then
B-I->B
40000*1.15^(log(I/40000)/log(1.15)+1)->I
Text(52,3,round(I,0))
Text(7,47," ")
C+100Z->C
Text(25,47," ")
End
End
End
If A=12:Then
If S=1:Then
If B>=E:Then
B-E->B
100*1.15^(log(E/100)/log(1.15)+1)->E
Text(52,22,round(E,0))
Text(7,47," ")
C+.5Z->C
Text(25,47," ")
End
Else
If B>=J:Then
B-J->B
200000*1.15^(log(J/200000)/log(1.15)+1)->J
Text(52,22,round(J,0))
Text(7,47," ")
C+400Z->C
Text(25,47," ")
End
End
End
If A=13:Then
If S=1:Then
If B>=F:Then
B-F->B
500*1.15^(log(F/500)/log(1.15)+1)->F
Text(52,40,round(F,0))
Text(7,47," ")
C+4Z->C
Text(25,47," ")
End
Else
If B>=K:Then
B-K->B
1666666*1.15^(log(K/1666666)/log(1.15)+1)->K
Text(52,40,round(K,0))
Text(7,47," ")
C+6666Z->C
Text(25,47," ")
End
End
End
If A=14:Then
If S=1:Then
If B>=G:Then
B-G->B
3000*1.15^(log(G/3000)/log(1.15)+1)->G
Text(52,58,round(G,0))
Text(7,47," ")
C+10Z->C
Text(25,47," ")
End
Else
If B>=L:Then
B-L->B
123456789*1.15^(log(L/123456789)/log(1.15)+1)->L
Text(52,58,round(L,0))
Text(7,47," ")
C+98765Z->C
Text(25,47," ")
End
End
End
If A=15:Then
If S=1:Then
If B>=H:Then
B-H->B
10000*1.15^(log(H/10000)/log(1.15)+1)->H
Text(52,76,round(H,0))
Text(7,47," ")
C+40Z->C
Text(25,47," ")
End
Else
If B>=M:Then
B-M->B
3999999999*1.15^(log(M/3999999999)/log(1.15)+1)->M
Text(52,76,round(M,0))
Text(7,47," ")
C+999999Z->C
Text(25,47," ")
End
End
End
If A=24:Then
If S=1:Then
2->S
ClrDraw
RecallPic 3
Text(52,3,round(I,0))
Text(52,22,round(J,0))
Text(52,40,round(K,0))
Text(52,58,round(L,0))
Text(52,76,round(M,0))
Else
1->S
ClrDraw
RecallPic 2
Text(52,3,round(D,0))
Text(52,22,round(E,0))
Text(52,40,round(F,0))
Text(52,58,round(G,0))
Text(52,76,round(H,0))
End
End
If A=26:Then
If S=1:Then
2->S
ClrDraw
RecallPic 3
Text(52,3,round(I,0))
Text(52,22,round(J,0))
Text(52,40,round(K,0))
Text(52,58,round(L,0))
Text(52,76,round(M,0))
Else
1->S
ClrDraw
RecallPic 2
Text(52,3,round(D,0))
Text(52,22,round(E,0))
Text(52,40,round(F,0))
Text(52,58,round(G,0))
Text(52,76,round(H,0))
End
End
If A=22:Then
Menu("Q|ui[t]?","No!",C,"Y[|e][s]...",Q)
End
B+C->B
Text(25,47,C/Z)
Text(7,47,int(B))
0->A
End
Lbl Q
Menu("S[|a]|v[|e]?","Y[|e][s]",S,"No",R)
Lbl S
Menu("","G[|a]m[|e] A",G,"G[|a]m[|e] B",H,"G[|a]m[|e] C",I)
Lbl G
26->dim(|LCSA)
B->|LCSA(1)
C->|LCSA(2)
D->|LCSA(3)
E->|LCSA(4)
F->|LCSA(5)
G->|LCSA(6)
H->|LCSA(7)
I->|LCSA(8)
J->|LCSA(9)
K->|LCSA(10)
L->|LCSA(11)
M->|LCSA(12)
Goto R
Lbl H
26->dim(|LCSB)
B->|LCSB(1)
C->|LCSB(2)
D->|LCSB(3)
E->|LCSB(4)
F->|LCSB(5)
G->|LCSB(6)
H->|LCSB(7)
I->|LCSB(8)
J->|LCSB(9)
K->|LCSB(10)
L->|LCSB(11)
M->|LCSB(12)
Goto R
Lbl I
26->dim(|LCSC)
B->|LCSC(1)
C->|LCSC(2)
D->|LCSC(3)
E->|LCSC(4)
F->|LCSC(5)
G->|LCSC(6)
H->|LCSC(7)
I->|LCSC(8)
J->|LCSC(9)
K->|LCSC(10)
L->|LCSC(11)
M->|LCSC(12)
Goto R
Lbl R
ClrDraw
ClrHome
Stop
(account deleted)
