home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 2 / sauce-n-code-02.adf / AMOS_Source / VU_Bars.amos / VU_Bars.amosSourceCode < prev   
AMOS Source Code  |  1995-07-02  |  669b  |  32 lines
  1. ' Interrupt VU's 
  2. ' cODED bY ï¿½udda/NFA 
  3. ' StARtEd :  2/7/1995
  4. ' FiNiSHed:  2/7/1995
  5.  
  6. Screen Open 0,320,256,4,Lowres
  7. Curs Off 
  8. Hide On 
  9. Track Play 3
  10.  
  11. _AMAL_VU
  12.  
  13. While Mouse Key=0 : Wend 
  14.  
  15. Procedure _AMAL_VU
  16.    A$=A$+"  AUtotest(L R1=Vu(R0); If R1=0 X Direct A)"
  17.    A$=A$+"A:Let R2=R1;Let X=R0*48+200; Let Y=RA-R1; "
  18.    A$=A$+"  Move 0,R2,RB; W;"
  19.    'Amreg(0)=ypos of equalizer, Amreg(1)=speed
  20.    Amreg(0)=300 : Amreg(1)=18
  21.    
  22.    'Change sprite colours to blue 
  23.    Colour 18,$F : Colour 22,$F
  24.    
  25.    'Put Sprite Bars Onto Screen 
  26.    For N=0 To 3
  27.       Sprite N,N*48,Amreg(0),3
  28.       Channel N To Sprite N
  29.       Amal N,"Let R0="+Str$(N)+A$
  30.    Next N
  31.    Amal On 
  32. End Proc