home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Mouse_Meters.asc < prev    next >
Encoding:
Text File  |  1996-01-22  |  941 b   |  60 lines
  1. Load "Mouse_Meters.abk"
  2.  
  3. Unpack 6 To 0
  4. Hide 
  5. Double Buffer 
  6. Paper 0 : Pen 1 : Centre "MOUSE VU METERS BY JOHN HARDIE"
  7. Colour 14,$F0 : Colour 15,$F00
  8. Limit Mouse 
  9. '
  10. Screen Open 1,320,32,16,0
  11. Flash Off : Curs Off : Cls 0
  12. Get Palette 0
  13. Screen Hide 1
  14. A=14 : SIZE=16
  15. Wait Vbl 
  16. Track Play 5 : Led Off 
  17. Do 
  18. Screen 1
  19. '
  20. If Vumeter(0)
  21. Y=-2
  22. Cls A,0,SIZE/4 To 2,SIZE : Cls 15,0,0 To 2,SIZE/4
  23. Else Inc Y
  24. Cls 0,0,Y To 2,Y+1
  25. End If 
  26. '
  27. If Vumeter(1)
  28. YY=-2
  29. Cls A,4,SIZE/4 To 6,SIZE : Cls 15,4,0 To 6,SIZE/4
  30. Else Inc YY
  31. Cls 0,4,YY To 6,YY+1
  32. End If 
  33. '
  34. If Vumeter(2)
  35. YYY=-2
  36. Cls A,8,SIZE/4 To 10,SIZE : Cls 15,8,0 To 10,SIZE/4
  37. Else Inc YYY
  38. Cls 0,8,YYY To 10,YYY+1
  39. End If 
  40. '
  41. If Vumeter(3)
  42. YYYY=-2
  43. Cls A,12,SIZE/4 To 14,SIZE : Cls 15,12,0 To 14,SIZE/4
  44. Else Inc YYYY
  45. Cls 0,12,YYYY To 14,YYYY+1
  46. End If 
  47. Get Bob 1,0,0 To 16,SIZE
  48. Screen 0
  49. Bob 1,X Mouse,Y Mouse,1
  50. If Mouse Key=1 and SIZE>=5 Then Dec SIZE
  51. If Mouse Key=2 and SIZE<=30 Then Inc SIZE
  52. Wait Vbl 
  53. Loop 
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.