Ti-83+ Basic
Title: Change
Category:Misc./fun

Key:
•-> is store button above the ON button
•@ is the funny looking O type of character that comes after Z
•== means not equal to
•>= means greater than or equal to
•<= means less than or equal to

Simple Version

:Lbl 0
:ClrHome
:Asm(prgmSHUTDOWN)
:Output(2,1,"Your batteries")
:Output(3,1,"are low.")
:Output(5,1,"Recommend")
:Output(6,1,"change of")
:Output(7,1,"batteries.")
:0->A
:Repeat A=150
:1+A->A
:End
:Goto 0

*Programs needed: SHUTDOWN, you can find this at http://www.ticalc.org or e-mail me for it

Better Version

:Lbl 0
:ClrHome
:Asm(prgmSHUTDOWN)
:randInt(1,5)->@
:If @<4
:Then
:Goto A
:End
:If @=5
:Then
:Goto B
:End
:Lbl A
:Output(2,1,"Your batteries")
:Output(3,1,"are low.")
:Output(5,1,"Recommend")
:Output(6,1,"change of")
:Output(7,1,"batteries.")
:0->A
:Repeat A=150
:1+A->A
:End
:Lbl AA
:ClrHome
:Output(1,1,"Garbage")
:Output(2,1,"Collecting...")
:Goto AA
:Lbl B
:Output(2,1,"Batteries are")
:Ouptut(3,1,"low.")
:Output(5,1,"Change is")
:Output(6,1,"required.")
:0->A
:Repeat A=150
:1+A->A
:End
:Asm(prgmSHUTDOWN)
:Goto B

*Programs needed: SHUTDOWN, you can find this at http://www.ticalc.org or e-mail me for it
•My e-mail is joshemberton@hotmail.com
•My website is http://www.ticalc.homestead.com/home.html
	-my website is not finished right now, It will be done by June hopefully or close to it
•Please e-mail me with any comments or suggestions to shorten the program or whatever