I use SHL this take up to LWORD 64 bits then i create i datatype tex uShiftregister as UNION add i member tex text as LWORD, add member tex bit as ARRAY[0..63] OF BOOL then create a global variable text as uShiftregister, in program SHL take in parameter text.text and num parameter ULINT#1 fore shift 1 bit and lock at bit text.bit[0] up to text.bit[63] you can se the result sorry fore the bad English Roger