How to drive 7 segment using multiple ports?

[mister_e]

look at this
http://melabs.com/resources/articles/ledart.htm

and this
http://www.picbasic.co.uk/forum/showthread.php?t=1044

EDIT: Seems bruce hit the button at the same time

[SOMRU]

EEPROM 0,[129,243,73,97,51,37,5,241,1,49] 'STORE CONSTANTS



LOOP1: 'DISPLAY T & A
FOR C = 0 TO 3
READ T DIG C, PORTB 'GRAB NUMBER AND SET SEGMENTS
LOOKUP C,[$7F,$BF,$DF,$EF],PORTC 'SET DIGIT
PAUSE f 'PAUSE ON
PORTC = $FF 'CLEAR PORT
NEXT C 'NEXT NUMBER OF 4
FOR B = 0 TO 3 'LOOP AGAIN FOR SECOND ROW
READ AS DIG B, PORTB
LOOKUP B,[$FE,$FD,$FB,$F7],PORTC
PAUSE f
PORTC = $FF
NEXT B
GOTO LOOP