code:

---

function FadeToBlack($c, $)

	Dim $B, $G, $R
	$B=$c/65536
	$G=($c & &FF00) / 256
	$R=$c & &FF

	if $B>$	$B=$ endif
	if $G>$	$G=$ endif
	if $R>$	$R=$ endif
	$FadeToBlack = $B*65536+$G*256+$R

endfunction  

---