beer()
Prgm
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@ 99 Bottles of Beer for Ti89
@ Using TI-basic for TI89
@ Written by Janitha Karunaratne (j@janitha.com)
@ 4/2005
@ Replace the --> with the STORE arrow key in your 89
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
99-->b
While b>0
Disp b
Disp "bottle(s) of beer on the wall,"
Disp b
Disp "bottle(s) of beer."
Disp "Take one down, pass it around,"
b-1-->b
Disp b
Disp "bottle(s) of beer on the wall."
EndWhile
EndPrgm