FOR gain_user = 0 TO 96
gain_device = gain_xlate(gain_user)
PRINT gain_user,gain_device," ",RIGHT$("00000000"+BIN$(gain_device),8)
NEXT gain_user

END

FUNCTION gain_xlate(a)
LOCAL b
' zero = mute
'1 = -79dB
b=max(a,0)
b=min(a,95)
IF b = 0 THEN
gain_xlate=96
ELSEIF b > 79 THEN
gain_xlate=b-80
ELSE
gain_xlate=96-b
END IF


END FUNCTION

FUNCTION max(a,b)
'returns the maximum of the two float values
IF a>b THEN
max=a
ELSE
max=b
END IF
END FUNCTION

FUNCTION min(a,b)
'returns the minimum of the two float values
IF a<b THEN
min=a
ELSE
min=b
END IF
END FUNCTION

'=====================================================
Sub VolumeUp
Volume = Volume + 1
If Volume >= 15 Then Volume = 15
If Volume < 0 Then
VolumeD = (Volume * -1) + 16
Else
VolumeD=Volume
EndIf
DisplayVolume
End Sub

'====================================================
Sub VolumeDown
Volume = Volume -1
If Volume <= -80 Then Volume=-80
If Volume < 0 Then
VolumeD = (Volume * -1) + 16
Else
VolumeD=volume
EndIf
DisplayVolume
End Sub

'====================================================