00010 REM "99 Bottles

00110 BEGIN

00120 PRINT 'CS',

00130 LET BOTS$="bottles", OF$=" of beer", WALL$=" on the wall", TAKE$="Take one

 down, pass it around, ", STORE$="Go to the store and buy some more, "

00500 FOR I=99 TO 1 STEP -1

00510 LET BOTTLE$=BOTS$; IF I=1 THEN LET BOTTLE$=BOTS$(1,STL(BOTS$)-1)

00520 LET BOT_QTY1$=STR(I); IF I=0 THEN LET BOT_QTY1$="No more"

00530 PRINT IOL=FIRST_LINE

00540 LET B