Pc to serial eprom

hi all,

i want to write to data in serial epprom from pc. because i makeing moving message display. i write array code.. this..code

adcon1=7
trisb=%00000000
'trisa=%00000101
' DEFINE OSC 20
x var byte
z var byte
j var byte
h var byte
l var byte
clock var portc.3
my_data var portc.5
reset var portc.4
sda var porta.0
scl var porta.1
j=47
l=0
begin:

h=j-47
high reset
high my_data
low clock
for x=j to h step -1
gosub cnvrt
portb = z
high clock
low my_data
low clock
pauseus 500
next
low reset
j=j+1
if j=218 then
j=47
endif
'pause 5
goto begin

cnvrt:
lookup x,[$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00, $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$7f,$01, $01,$01,$00,$3f,$48,$48,$48,$3f,$00,$7f,$49,$49,$4 9,$36,$00,$3f,$48,$48,$48,$3f,$00,$7f,$48,$4c,$4a, $31,$00,$7f,$10,$08,$04,$7f,$00,$3f,$48,$48,$48,$3 f,$00,$00,$00,$00,$00,$7f,$41,$41,$41,$3e,$00,$5f, $00,$02,$01,$01,$7e,$00,$5f,$00,$40,$40,$7f,$40,$4 0,$00,$3f,$48,$48,$48,$3f,$00,$7f,$01,$01,$01,$00, $00,$00,$00,$00,$7f,$41,$41,$41,$3e,$00,$5f,$00,$4 3,$45,$49,$51,$61,$00,$3f,$48,$48,$48,$3f,$00,$40, $20,$1f,$20,$40,$00,$00,$7f,$10,$08,$04,$7f,$00,$0 0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00, $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00, $00,$00,$00,$00,$00,$00,$00],z
return
end



pls help me....

pls ... help me