Screen Open 0,330,260,32,Lowres : Hide : Limit Mouse 0,0 To 330,300 : Unpack 2 To 0 : Double Buffer : Screen Hide 0 : Screen Open 1,330,125,32,Lowres : Get Sprite Palette : Cls 0 : Flash Off : Curs Off : Colour 1,$0 : Unpack 3 To 1 : Double Buffer
Screen Show 0 : Channel 1 To Screen Display 1 : Amal 1,"M 0,110,1" : Channel 2 To Screen Display 0 : B$="A: M 0,1,2;M 0,2,2;M 0,4,3;M 0,8,4;M 0,16,5;M 0,32,6;J B" : B$=B$+"B: M 0,-32,6;J C" : B$=B$+"C: M0,-16,5;M 0,-8,4;M 0,-4,3;M 0,-2,2;M 0,-1,2;J A"
A$="B: M 0,-2,2;M 0,-4,2;M 0,-8,3;M 0,-16,4;M 0,-35,5;M 0,-35,5;M 0,-16,4;M 0,-8,3;M 0,-4,2;M 0,-2,2;J A" : A$=A$+"A:M 0,2,2;M 0,4,2;M 0,8,3;M 0,16,4;M 0,35,5;M 0,35,5;M 0,16,4;M 0,8,3;M 0,4,2;M 0,2,2;J B" : Amal 2,A$ : Bob 1,50,5,1 : Bob 2,75,5,2 :
Bob 3,98,5,3 : Bob 4,121,5,4 : Bob 5,144,5,5 : Bob 6,167,5,6 : Bob 7,200,5,7 : Bob 8,213,5,8 : Bob 9,236,5,9 : Amal On : Channel 3 To Bob 1 : Channel 4 To Bob 2 : Channel 5 To Bob 3 : Channel 6 To Bob 4 : Channel 7 To Bob 5 : Channel 8 To Bob 6 :
Channel 9 To Bob 7 : Channel 10 To Bob 8 : Channel 11 To Bob 9 : Amal 4,B$ : Amal 3,B$ : Amal 5,B$ : Amal 6,B$ : Amal 7,B$ : Amal 8,B$ : Amal 9,B$ : Amal 10,B$ : Amal 11,B$ : Draw 0,0 To 320,0 : Wait Vbl : Track Play 4 : Amal On 3 : Wait 1 : Wait Vbl
Amal On 4 : Wait 1 : Wait Vbl : Amal On 5 : Wait 1 : Wait Vbl : Amal On 6 : Wait 1 : Wait Vbl : Amal On 7 : Wait 1 : Wait Vbl : Amal On 8 : Wait 1 : Wait Vbl : Amal On 9 : Wait 1 : Wait Vbl : Amal On 10 : Wait 1 : Wait Vbl : Amal On 11 : Screen 0 :
Track Loop On : Repeat : Wait Vbl : Until Mouse Key<>0 : Track Stop : Amal Off
' Heres a little demo.... sorry about the music.... I cant write music for shit.
