Slot Machine Game for TI-84 Graphing Calculator

Slot Machine Program/Game for TI-84 Graphing Calculator created by Agentleader1

For download:
https://drive.google.com/file/d/0B6snKcuexXqaeVdJd2M2VlRaQmc/edit?usp=sharing
then open it with TI-Connect and import it onto your TI-84 calculator.

For editing:
Go to http://bit.ly/ZdY0se

Source Code:
**Just remember, I created the whole thing from scratch. I take full credit**

Update 1.0:

100->M
Lbl A
ClrHome
Output(1,1,"================")
Output(4,3,"PRESS  ENTER")
Output(5,5,"TO   PLAY")
Output(8,1,"================")
Pause
ClrHome
Output(1,2,"UP- HIGHER BET")
Output(8,1,"DOWN - LOWER BET")
Output(3,3,"ENTER- DONE")
Output(6,3,"MODE-  EXIT")
Output(5,3,"MONEY:")
Output(5,11,M)
0->B
0->K
While K!=105
getKey->K
If K=34
Then
If B!=0
B-1->B
End
If K=25
Then
If B!=M
B+1->B
End
If K=22
Then
ClrHome
Stop
End
Output(4,5,"BET:")
Output(4,11,B)
End
ClrHome
randInt(1,5)->D
randInt(1,5)->E
randInt(1,5)->F
0->X
While X!=10
Output(4,6,randInt(1,5))
Output(4,9,randInt(1,5))
Output(4,12,randInt(1,5))
X+1->X
End
Output(4,6,D)
0->X
While X!=10
Output(4,9,randInt(1,5))
Output(4,12,randInt(1,5))
X+1->X
End
Output(4,9,E)
0->X
While X!=10
Output(4,12,randInt(1,5))
X+1->X
End
Output(4,12,F)
If D=E and E=F
Then
Output(5,5,"CONGRATS")
Pause
M+(B*2)->M
Goto A
Else
Output(5,7,"LOSER")
Pause
M-B->M
Goto A