They are in no particular order. Poke around as you are inclined.
<< 10 1 FOR k IF k 1 == THEN "1 bottle of beer on the wall." "1 bottle of beer." ELSE " bottles of beer on the wall." 1 k ->STR REPL " bottles of beer." 1 k ->STR REPL END "Take one down and pass it around." IF k 1 == THEN "No more bottles of beer on the wall." ELSE IF k 2 == THEN "1 bottle of beer on the wall." ELSE " bottles of beer on the wall." 1 k 1 - ->STR REPL END END -1 STEP >>
0: for I=100 to 1 by -1 1: dim A$[5];str(I)->A$ 2: prt A$&" bottles of beer on the wall" 3: prt A$&" bottles of beer" 4: prt "Take one down!" 5: prt "Pass it around!" 6: I-1->J 7: if J=0;prt "No more bottles of beer on the wall!";end 8: prt str(J)&" bottles of beer on the wall!" 9: next I
TI-81 Logic By Jon Neal 1997 :99>X :0>Y :LBL 1 :IF X=1 :GOTO 2 :DISP X :DISP "BOTTLES OF BEER ON THE WALL" :DISP X :DISP "BOTTLES OF BEER" :DISP "TAKE ONE DOWN" :DISP "PASS IT AROUND" :X-1>X :LBL 4 :Y+1>Y :IF Y=500 :GOTO 3 :GOTO 4 :LBL 3 :GOTO 1 :LBL 2 :DISP X :DISP "BOTTLE OF BEER ON THE WALL" :DISP X :DISP "BOTTLES OF BEER" :DISP "NO BOTTLES OF BEER ON THE WALL" :DISP "NO BOTTLES OF BEER" :DISP "GO TO THE STORE" :DISP "AND BUY SOME MORE" :END
: TI-85 Printing calculator version of 99 Bottles of Beer PROGRAM:BEER :100-->A :2-->B :"Bottles of Beer"-->BOTTLES :"One Bottle of Beer"-->ONE :"On the Wall"-->ON :"Take one down"-->TAKE :"And pass it around."-->PASS :"Zero Bottles of Beer"-->ZERO :"Go to the store and "-->STORE :"Buy some more."-->BUY :Lbl LOOP :ClLCD :Outpt(1,1,A) :Outpt(1,5,BOTTLES) :Outpt(2,1,ON) :Outpt(3,1,A) :Outpt(3,5,BOTTLES) :Outpt(4,1,TAKE) :Outpt(5,1,PASS) :Outpt(6,1,A-1) :Outpt(6,5,BOTTLES) :DS<(A,F) :Pause :Goto LOOP :ClLCD :Outpt(1,1,ONE) :Outpt(2,1,ON) :Outpt(3,5,ONE) :Outpt(4,1,TAKE) :Outpt(5,1,PASS) :Outpt(6,1,ZERO) :Pause :ClLCD :Outpt(1,1,STORE) :Outpt(2,1,BUY) :Disp "" :Disp "Hit ENTER to buy more."
Syntactic conventions:
ASCII Sharp
----- -----
\> begin-loop
<\ end-loop
_n subroutine n
\\ end-of-program
*Y->[] conditionals
*N->[]
__ space character
------- cut ----------
Title: 99 bottles of beer, by S Keppel-Jones
M:beer=99\>beer>1*Y->[_1]beer>1*N->[_4]_2beer>1*Y->
[_1]beer>1*N->[_4]_3beer=beer-1__beer>0*N->[_5_2\\]
beer>1*Y->[_1]beer>1*N->[_4]_2<\
_1:beer=beer,bottles=0,of=0,beer=beer,
_2:on=0,the=0,wall=0,
_3:take=0,one=0,down=0,pass=0,it=0,around=0,
_4:one=0,bottle=0,of=0,beer=beer,
_5:no=0,more=0,bottles=0,of=0,beer=0,
-------- cut ---------