' 99 Bottles of beer
' By, Richard Copeland - 1996

CLS
beer$ = "Bottles of beer on the wall"
PRINT "The Beer Song"
PRINT STRING$(13, "-")
IF INKEY$ = CHR$(27) GOTO Done
FOR t = 1 TO 2000: NEXT t
CLS
FOR n = 99 TO 1 STEP -1
IF INKEY$ = CHR$(27) GOTO Done
PRINT n; beer$
PLAY "l8gggdddgggl2g"
IF INKEY$ = CHR$(27) GOTO Done
PRINT n; "bottles of beer"
PLAY "l8aaaeeel2a"
IF INKEY$ = CHR$(27) GOTO Done
PRINT "take one down, pass it around..."
PLAY "l8f#f#f#gf#f#f#l3F#"
IF INKEY$ = CHR$(27) GOTO Done
PRINT n - 1; beer$
PLAY "l8ddddef#gggl2g"
IF INKEY$ = CHR$(27) GOTO Done
CLS
NEXT n
CLS
PRINT "A L L  G O N E ! ! !"
PRINT STRING$(19, "=")
PLAY "l2dl1g"
DO: LOOP UNTIL INKEY$ <> ""
GOTO Done

Done:
CLS : PRINT "*** Please Wait... ***"
PRINT "Loading Program Manager"
CHAIN "MoneyCga"