home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sauce 'n' Code 3
/
sauce-n-code-03.adf
/
Source_Code
/
Mouse_Meters.asc
< prev
next >
Wrap
Text File
|
1996-01-21
|
941b
|
60 lines
Load "Mouse_Meters.abk"
Unpack 6 To 0
Hide
Double Buffer
Paper 0 : Pen 1 : Centre "MOUSE VU METERS BY JOHN HARDIE"
Colour 14,$F0 : Colour 15,$F00
Limit Mouse
'
Screen Open 1,320,32,16,0
Flash Off : Curs Off : Cls 0
Get Palette 0
Screen Hide 1
A=14 : SIZE=16
Wait Vbl
Track Play 5 : Led Off
Do
Screen 1
'
If Vumeter(0)
Y=-2
Cls A,0,SIZE/4 To 2,SIZE : Cls 15,0,0 To 2,SIZE/4
Else Inc Y
Cls 0,0,Y To 2,Y+1
End If
'
If Vumeter(1)
YY=-2
Cls A,4,SIZE/4 To 6,SIZE : Cls 15,4,0 To 6,SIZE/4
Else Inc YY
Cls 0,4,YY To 6,YY+1
End If
'
If Vumeter(2)
YYY=-2
Cls A,8,SIZE/4 To 10,SIZE : Cls 15,8,0 To 10,SIZE/4
Else Inc YYY
Cls 0,8,YYY To 10,YYY+1
End If
'
If Vumeter(3)
YYYY=-2
Cls A,12,SIZE/4 To 14,SIZE : Cls 15,12,0 To 14,SIZE/4
Else Inc YYYY
Cls 0,12,YYYY To 14,YYYY+1
End If
Get Bob 1,0,0 To 16,SIZE
Screen 0
Bob 1,X Mouse,Y Mouse,1
If Mouse Key=1 and SIZE>=5 Then Dec SIZE
If Mouse Key=2 and SIZE<=30 Then Inc SIZE
Wait Vbl
Loop