i wrote this instead the code above but i have problem with portb.5 and .6 not working ???
DEFINE OSC 4
TRISB = 0
PORTB = 0
TXT VAR BYTE
SR VAR WORD
J VAR PORTB

Main:
LOOKUP SR,[1,%00100001,%0,%00111111,%0,%00110101,%0,%00101010 ,%0,%00100000,%0,%00111111,%0,%00110101_
,%0,%00101010,%0,%00100000,%0],TXT
FOR TXT = 0 TO 18

J = TXT
PAUSE 100

NEXT TXT
GOTO Main

END