Level : Float : +- = `CS_LEVEL; N = 0 ..

Call NearestIn Array do (Value)
 Return Abs( Value - Level )
And do (Index)
 N = Index
;  