' SONG2.BAS
' This program displays the lyrics of the folk song "Clementine."

DECLARE SUB Chorus ()   ' declare Chorus subprogram before use

CLS
PRINT "------------------------- Clementine -------------------------"
PRINT

PRINT "In a cavern, in a canyon,"          ' first verse
PRINT "Excavating for a mine,"
PRINT "Lived a miner, forty-niner,"
PRINT "And his daughter, Clementine."

Chorus                                     ' call Chorus subprogram

PRINT "Light she was and like a fairy,"    ' second verse
PRINT "And her shoes were number nine;"
PRINT "Herring boxes without topses,"
PRINT "Sandals were for Clementine."

Chorus                                     ' call Chorus subprogram

INPUT "Press Enter for more...", dummy$    ' pause screen
PRINT

PRINT "Drove she ducklings to the water,"  ' third verse
PRINT "Ev'ry morning just at nine;"
PRINT "Hit her foot against a splinter,"
PRINT "Fell into the foaming brine."

Chorus                                     ' call Chorus subprogram

PRINT "Ruby lips above the water,"         ' forth verse
PRINT "Blowing bubbles soft and fine;"
PRINT "But alas, he was no swimmer,"
PRINT "So he lost his Clementine."

Chorus                                     ' call Chorus subprogram

INPUT "Press Enter for more...", dummy$    ' pause screen
PRINT

PRINT "Then the miner, forty-niner,"       ' fifth verse
PRINT "Soon began to peak and pine;"
PRINT "Thought he oughter join his daughter,"
PRINT "Now he's with his Clementine."

Chorus                                     ' call Chorus subprogram

END

SUB Chorus

' The Chorus subprogram prints the chorus of the song "Clementine."

PRINT
PRINT "Oh my darling, oh my darling,"      ' chorus
PRINT "Oh my darling, Clementine,"
PRINT "You are lost and gone forever,"
PRINT "Dreadful sorry, Clementine."
PRINT

END SUB

