Rem to use this equalizer you will need
Rem a bank of 14 sprites 
Rem sprite 1 must be the equalizer bar with no sound (flat)  
Rem and sprite 14 must be the equalizer bar with full sound (fully extended) 
Rem i have already created one set for you called 'equalizer.abk'  
Rem which is loaded in a bit later 
Rem set up our amal program using the Autotest facility
OOPS$=" ; AU(Let R1=Vu(R0) ; If R1=0 eXit else Direct Start)"
OOPS$=OOPS$+"Start: A 1,(14,1)(13,1)(12,1)(11,1)(10,1)(9,1)(8,1)(7,1)(6,1)(5,1)(4,1)(3,1)(2,1)(1,1) ; Wait"
Rem here are some i've already done for you
Rem open the screen first
Screen Open 0,320,256,2,Lowres
Rem then load the data 
Load "df0:sad.abk" : Rem the music
Load "df0:equalizer.abk" : Rem the equalizer sprites
Rem channel the bob to amal channel 0,1,2 and 3  
Channel 0 To Bob 1
Bob 1,75,200,1
Channel 1 To Bob 2
Bob 2,125,200,1
Channel 2 To Bob 3
Bob 3,175,200,1
Channel 3 To Bob 4
Bob 4,225,200,1
Rem set the colour of the equalizer  
Rem try putting a rainbow behind it for a nice effect
Colour 1,$F00
Rem turn off the led for a clearer sound 
Led Off 
Rem start the music
Music 1
Hide : Curs Off 
TMP$="L R0=0" : Rem volume of channel 0
TMP$=TMP$+OOPS$ : Rem reset of equalizer routine 
TMP2$="L R0=1" : Rem volume of channel 1
TMP2$=TMP2$+OOPS$ : Rem rest of equalizer routine
TMP3$="L R0=2" : Rem volume of channel 2
TMP3$=TMP3$+OOPS$ : Rem rest of equalizer routine
TMP4$="L R0=3" : Rem volume of channel 3
TMP4$=TMP4$+OOPS$ : Rem rest of equalizer routine
Amal 0,TMP$
Amal 1,TMP2$ : Rem assign all amal channels 
Amal 2,TMP3$
Amal 3,TMP4$
Amal On : Rem turn on our equalizer
Direct : Rem go to direct mode