moving message display

hi all,

what s the problem...

help me pls.......

--------------------------------------------------------

Include "modedefs.bas" ' Include shift modes
chr var byte
sira var bit [8]
I VAR byte
Z VAR BYTE [6]
W VAR BYTE
Q VAR BYTE
S VAR BYTE
SCK var PORTC.3
SDI var PORTC.5
TRISB = 0
TRISC = 0

MAIN :
FOR I=0 TO 7
for q =1 to 48
gosub sec

z.0(q)=sira[i]

next q

portc.4=0
portc.4=1
PORTB=0
Shiftout SDI, SCK, MSBFIRST, [z(5),z(4),z(3),z(2),z(1),z(0)]
portb= I
pause 1
NEXT I

GOTO MAIN
sec:

lookup q,[$00,$7f,$01,$01,$01,$00,$3f,$48,$48,$48,$3f,$00,$7 f,$49,$49,$49,$36,$00,$3f,$48,$48,$48,$3f,$00,$7f, $48,$4c,$4a,$31,$00,$7f,$20,$1c,$02,$7f,$00,$3f,$4 8,$48,$48,$3f,$00,$00,$00,$00,$00,$00,$00,$00],sira

return