hello this may help, I have eeprom values for displaying characters this should fit on pic's with larger eeprom storage such as a 16f877
the code snippet reads the eeprom characters into the leddata varible and should display them scrolling.....well hopefully i havnt tested myself!

Code:
	eeprom 0,[%00111110,%01010001,%01001001,%01000101,%00111110]	'0
	eeprom 5,[%00000000,%01000010,%01111111,%01000000,%00000000]	'1
	eeprom 10,[%01000010,%01100001,%01010001,%01001001,%01000110]	'2
	eeprom 15,[%00100001,%01000001,%01000101,%01001011,%00110001]	'3
	eeprom 20,[%00011000,%00010100,%00010010,%01111111,%00010000]	'4
	eeprom 25,[%00100111,%01000101,%01000101,%01000101,%00111001]	'5
	eeprom 30,[%00111100,%01001010,%01001001,%01001001,%00110000]	'6
	eeprom 35,[%00000001,%01110001,%00001001,%00000101,%00000011]	'7
	eeprom 40,[%00110110,%01001001,%01001001,%01001001,%00110110]	'8
	eeprom 45,[%00000110,%01001001,%01001001,%00101001,%00011110]	'9
	eeprom 50,[%00000100,%00000110,%01111111,%00000110,%00000100]	'Up Arrow
	eeprom 55,[%00010000,%00110000,%01111111,%00110000,%00010000]	'Dn Arrow
	eeprom 60,[%01111110,%00010001,%00010001,%00010001,%01111110]	'A
	eeprom 65,[%01111111,%01001001,%01001001,%01001001,%00110110]	'B
	eeprom 70,[%00111110,%01000001,%01000001,%01000001,%00100010]	'C
	eeprom 75,[%01111111,%01000001,%01000001,%00100010,%00011100]	'D
	eeprom 80,[%01111111,%01001001,%01001001,%01001001,%01000001]	'E
	eeprom 85,[%01111111,%00001001,%00001001,%00001001,%00000001]	'F
	eeprom 90,[%00111110,%01000001,%01001001,%01001001,%01111010]	'G
	eeprom 95,[%01111111,%00001000,%00001000,%00001000,%01111111]	'H
	eeprom 100,[%00000000,%01000001,%01111111,%01000001,%00000000]	'I
	eeprom 105,[%00100000,%01000000,%01000001,%00111111,%00000001]	'J
	eeprom 110,[%01111111,%00001000,%00010100,%00100010,%01000001]	'K
	eeprom 115,[%01111111,%01000000,%01000000,%01000000,%01000000]	'L
	eeprom 120,[%01111111,%00000010,%00000110,%00000010,%01111111]	'M
	eeprom 125,[%01111111,%00000100,%00001000,%00010000,%01111111]	'N
	eeprom 130,[%00111110,%01000001,%01000001,%01000001,%00111110]	'O
	eeprom 135,[%01111111,%00001001,%00001001,%00001001,%00000110]	'P
	eeprom 140,[%00111110,%01000001,%01010001,%00100001,%01011110]	'Q
	eeprom 145,[%01111111,%00001001,%00011001,%00101001,%01000110]	'R
	eeprom 150,[%01000110,%01001001,%01001001,%01001001,%00110001]	'S
	eeprom 155,[%00000001,%00000001,%01111111,%00000001,%00000001]	'T
	eeprom 160,[%00111111,%01000000,%01000000,%01000000,%00111111]	'U
	eeprom 165,[%00011111,%00100000,%01000000,%00100000,%00011111]	'V
	eeprom 170,[%00111111,%01000000,%00110000,%01000000,%00111111]	'W
	eeprom 175,[%01100011,%00010100,%00001000,%00010100,%01100011]	'X
	eeprom 180,[%00000111,%00001000,%01110000,%00001000,%00000111]	'Y
	eeprom 185,[%01100001,%01010001,%01001001,%01000101,%01000011]	'Z
	eeprom 190,[%00100000,%00010000,%00001000,%00000100,%00000010]	'/

	leddata	var	byte[80]

	
START:
	CLEAR
	FOR counter = 0 TO 4
		READ counter+65, leddata [counter+5]	'B
		READ counter+60, leddata [counter+11]	'A
		READ counter+65, leddata [counter+17]	'B
		READ counter+189, leddata [counter+23]	'Y

		READ counter+130, leddata [counter+32]	'O
		READ counter+125, leddata [counter+38]	'N

		READ counter+65, leddata [counter+47]	'B
		READ counter+130, leddata [counter+53]	'O 
		READ counter+60, leddata [counter+59]	'A
		READ counter+145, leddata [counter+65]	'R
		READ counter+75, leddata [counter+71]	'D 	
	NEXT

LOOP: 

	FOR scroll = 0 TO 77
		FOR scan = 0 TO 15
			PORTC = 1
			FOR counter = 0 TO 7
				PORTB = leddata [counter]
				PAUSEUS 1500 
				PORTB = 0		'This helps prevent ghosting
				PORTC = PORTC * 2
			NEXT
		NEXT 
		FOR counter = 0 TO 78
			leddata [counter] = leddata [counter+1]	' *** SHIFTS DATA IN leddata ARRAY DOWN.***
		NEXT 
	NEXT
	GOTO START
End
you will have to modify the loop section to suit your 4017 setup