The bit_ function returns the value .TRUE. if bit X1 of X2 equals 1. Otherwise, bit_ returns the value .FALSE.. For greater portability, it is recommended that you use the BTEST standard intrinsic procedure instead of this procedure.
Function
The range of X1 must be within 0 to 31, inclusive.
LOGICAL(4)
This function returns .TRUE. if bit X1 of X2 equals 1. Otherwise this function returns .FALSE.