SBITS - store a bit string in a word.

Usage:

call sbits(lbit, word, value, rbit)

Where:

lbit: is the leftmost bit in "word" to change.
word: is an single word integer or real variable that is to be stored into.
value: is an integer variable with the bit string to copy from.
rbit: is the rightmost bit bit in "word" to change.

Description:

SBITS copies the rightmost "rbit-lbit+1" bits from "value" to bits "lbit" to "rbit" in "word". The other bits in "word" are unaffected. The most significant (left most) bit is numbered 0, the least significant 35.

This routine is obsolete, use the intrinsic pseudo-function FLD instead.