Multiplex two 7 segment display

Hello

I need a code example in pbp pro to multiplex two 7 segment
display, the code that I have work not very good, have anyone a
idea how to do that?

For X = 0 to 1 'number of digits 'two in this case

'******** code to do something
'must not pause for anything or the display will look jerky

If PushButton=0 and DoOnce=0 then
DoOnce=1
Counter=Counter+1
Endif

If PushButton=1 and DoOnce=1 then DoOnce=0

Display:
Lookup (Counter dig (X)),[Zero,um,dois,Tres,quatro,cinco,seis,sete,oito,nove],Portd
Lookup X,[4,2],PORTE
Next X

It's very compact but it work to slow and sometimes does not
work

Thanks in advance

Fernando