'===========================================================================
' Subject: TEN LITTLE GIGABYTES SONG         Date: 12-05-99 (09:35)       
' Author:  Sam Thursfield                    Code: QB, QBasic, PDS        
' Origin:  sam.thursfield@btinernet.com    Packet: SOUND.ABC
'===========================================================================
'-=-=-=-=-=--=-=-=-=-=-==-=-=--=-=-=-=--==-=-=-=-=-=--=-=-=-=-=--=-=-=-
'                                                                     
'-                     - Ten Little Gigabytes -                      -
'=                                                                    =
'-=-=--=-==-=-=-=-=-=-==-=-=-=-==-=-=-=-=-=-=--=-==-=-==-=-=-=--=-==-
'
'Perhaps this is what computers sing when they're bored. I found the words to
'the song in some computer humour file very many years ago, and made up the
'tune to sound vaguely like the original.
'
'             -- Sam Thursfield, Sunday 28 November 1999.
'

PLAY "O2"                       'Set it to a pretty low octave to start with

DIM SHARED Song$(4)             'This holds each phrase of the tune
DIM SHARED Word$(10, 4)         'This holds the words of the song

FOR I = 1 TO 4                  'There are only 4 phrases of music
    READ Song$(I)               'Read in the song data
NEXT I

FOR I = 10 TO 1 STEP -1         'Read in the 10 verses in reverse order
    FOR J = 1 TO 4              '4 section thingies
        READ Word$(I, J)        'Read in the words
    NEXT
NEXT

CLS                             'Hmm...what does this do?

FOR I = 10 TO 1 STEP -1         'Recite each verse in reverse order
    FOR J = 1 TO 4              '4 section thingies per verse.
        IF J MOD 2 <> 0 THEN    'Is J even?
            PRINT Word$(I, J);  'If not, don't switch to a new line
        ELSE
            PRINT Word$(I, J)   'Otherwise do
        END IF
        PLAY Song$(J)           'Play the phrase of music
    NEXT

    PRINT                       'New line at the end of each verse
   
    Start! = TIMER              'Wait for a second.
    DO
    LOOP UNTIL TIMER > Start! + 1
NEXT                            'Next verse

END                             'cul8r

DATA "L4EL8FGFEL4D","L8EFGAL4B","L4EL8FGFEL4D","L8EFEDL3C"
DATA "Ten little gigabytes, ", "waiting on line,"
DATA "one caught a virus, ", "then there were nine."
DATA "Nine little gigabytes, ", "holding just the date,"
DATA "someone jammed a write protect, ", "then there were eight."
DATA "Eight little gigabytes, ", "should have been eleven,"
DATA "then they cut the budget, ", "now there are seven."
DATA "Seven little gigabytes, ", "involved in mathematics,"
DATA "stored an even larger prime, ", "now there are six."
DATA "Six little gigabytes, ", "working like a hive,"
DATA "one died of overwork, ", "now there are five."
DATA "Five little gigabytes, ", "trying to add more,"
DATA "plugged in the wrong lead, ", "now there are four."
DATA "Four little gigabytes, ", "failing frequently,"
DATA "one used for spare parts, ", "now there are three."
DATA "Three little gigabytes, ", "have too much to do,"
DATA "service man on holiday, ", "now there are two."
DATA "Two little gigabytes, ", "badly overrun,"
DATA "took the work elsewhere, ", "now just need one."
DATA "One little gigabyte, ", "systems far too small,"
DATA "shut the whole thing down, ", "now there's none at all."