7 segment display

[lerameur]

Thank you for the help,
the pause after the I2Cread was screwing me up badly.
I get clear segments now.
I now have a different issue !!
Some of the segments not being used oare still being lit lighty !! I found that the dimm display on one display module was a pale mirror image of the display module next to it. I posted a picture to help understand what i'm talking about.
Basically i have a 1 and 6 I can see (barely) on the 1 module all the segments of the 6 in the 1 module. I guess thats what is called ghosting..

UPDATE: solved the problem by adding : PORTB = $00
Lookup n, [$3F, $06, $5B, $4F, $66, $6D, $7D, $07, $7F, $67], Segments
PORTB = $00
PORTB = Segments
pause 1
PORTB = $00

thanks for the really, very much appreciated