"LET BOTTLES = BOTTLES - 1IF BOTTLES > 0 THEN LET BOTTLES$ = LTRIM$(STR$(BOTTLES)): LET PRONOUN$ = "one"IF BOTTLES = 0 THEN LET BOTTLES$ = "no more": LET PRONOUN$ = "it"IF BOTTLES 1 THEN LET BOTTLE$ = " bottles"IF BOTTLES = 1 THEN LET BOTTLE$ = " bottle"PRINT "Take "; PRONOUN$; " down and pass it around, "; BOTTLES$; BOTTLE$; " on the wall.
"LET BOTTLES = BOTTLES - 1IF BOTTLES > 0 THEN LET BOTTLES$ = LTRIM$(STR$(BOTTLES)): LET PRONOUN$ = "one"IF BOTTLES = 0 THEN LET BOTTLES$ = "no more": LET PRONOUN$ = "it"IF BOTTLES 1 THEN LET BOTTLE$ = " bottles"IF BOTTLES = 1 THEN LET BOTTLE$ = " bottle"PRINT "Take "; PRONOUN$; " down and pass it around, "; BOTTLES$; BOTTLE$; " of beer on the wall.