10 REM 99 BOTTLES OF BEER
20 REM KINDLYRAT  13 MAY 2003
30 REM
100 FOR B = 99 TO 1 STEP -1
110 PRINT B; " BOTTLES OF BEER ON THE WALL"
120 PRINT B; " BOTTLES OF BEER"
130 PRINT " TAKE ONE DOWN"
140 PRINT " PASS IT AROUND"
150 PRINT B-1; " BOTTLES OF BEER ON THE WALL"
160 PRINT
170 PRINT
180 NEXT B