this works passing a bit pattern to individual bits as long as you know the bit offset from a register

in my case using register LCDDATA

' lcd setup
lcdcon = %11111111 'control register
lcdse0 = %11111111
lcdse1 = %11111111
lcdse2 = %11111111 'choose all pins for lcd use
lcdps = %00000000 'clock control, 0 is static


i var byte
x var byte
set var byte


main:
'display charactor '0' on 1st segment
for i= 0 to 6
lookup i, [22,23,71,94,70,46,47], x '1st 7-segments offsets
lookup i, [1,1,1,1,1,1,1,0],set 'set character '0'
LCDDATA0.0[x] = set 'display it
next i
pause 500 'some time to see it

'display charactor '4' on 1st segment
for i= 0 to 6
lookup i, [22,23,71,94,70,46,47],x '1st 7-segment
lookup i, [0,1,1,0,0,1,1],set 'set character '4'
LCDDATA0.0[x] = set 'display it
next i
pause 500 'some time to see it

goto main

-------------------------------------------------
With this my origional question answered, thanks to all

alastair