Load "PD4Musak.abk" : SET_UP2 : Music 1 : Tempo $11 : Mvolume 63
Screen To Front 1
Repeat
COUNT#=COUNT#+0.015555
X#=Sin(COUNT#)
Screen Offset 0,X#*160+160,0
A=Vumeter(0) : If A>=A1 Then Colour 4,A/4 : A1=A-1
If A<A1 Then Colour 4,A1/4 : Dec A1
B=Vumeter(1) : If B>=B1 Then Colour 5,B/4 : B1=B-1
If B<B1 Then Colour 5,B1/4 : Dec B1
C=Vumeter(2) : If C>=C1 Then Colour 6,C/4 : C1=C-1
If C<C1 Then Colour 6,C1/4 : Dec C1
D=Vumeter(3) : If D>=D1 Then Colour 7,D/4 : D1=D-1
If D<D1 Then Colour 7,D1/4 : Dec D1
Until Mouse Key=1
For Z=1 To 0 Step -1 : Screen Close Z : Next Z : For Z=63 To 0 Step -1 : Wait Vbl : Mvolume Z : Next Z : Music Off : Sprite Off : Mvolume 63 : Run "mcpd2.amos"
Procedure SET_UP2
B$="S: M 0,-20,2 ; M 0,-16,2 ; M 0,-11,2 ; M 0,-7,2 ; M 0,-4,2 ; M 0,-2,2 ; M 0,-1,1 ; P ;"
B$=B$+" M 0,1,1 ; M 0,2,2 ; M 0,4,2 ; M 0,7,2 ; M 0,11,2 ; M 0,16,2 ; M 0,20,2 ; P ; J S"