10 REM Basic version of 99 bottles of beer
20 FOR X=100 TO 1 STEP -1
30 PRINT X;"Bottle(s) of beer on the wall,";X;"bottle(s) of beer"
40 PRINT "Take one down and pass it around,"
50 PRINT X-1;"bottle(s) of beer on the wall"
60 NEXT

That's BASIC's version of 99 bottles of beer on the wall. That's the first language I learned. Don't like it? Enjoy any of the 272 programming languages of said song. Some people had too much time on their hands. [link diveintomark]

5:29:46 PM