Name: Anonymous 2011-02-02 9:40
LO AND BEHOLD FOR I PRESENT YOU THE POWER OF QBASIC
'# Uncomment the next two lines before compiling with freebasic
'# the function 'PLAY' is a propietary QBASIC extension
'SUB PLAY(midistr AS STRING)
'END SUB
SUB MAIN()
DIM count AS INTEGER
'COLOR 15,1
PLAY "<"
FOR count = 99 TO 0 STEP -1
IF (count-1) <> -1 THEN
PRINT " ";count; " bottles of beer on the wall"
PRINT " ";count; " bottles of beer"
PRINT " Take one down, pass it around"
PRINT " ";count-1; " bottles of beer on the wall"
PRINT
'# X bottles of beer on the wall
PLAY "e-8e-8e-8<b-8b-8b-8>e-8e-8e-8e-4"
'# X bottles of beer
PLAY "f8f8f8c8c8c8f4"
'# take one down, pass it around
PLAY "d4d8d8 N0 d8d8d8d4"
'# X-1 bottles of beer on the wall
PLAY "<a+8a+8a+8>c8c8d8d+8d+8d+8d+4"
END IF
NEXT count
END SUB
MAIN