porta$=0$ : portb$=0$ : portc$=0$ : portd$=0$

trisa$=0$ : trisb$=0$ : trisc$=0$ : trisd$=0$

porte$=0$ : trise$=0$

harf$\_$reg var byte

adres$\_$sec var byte

yinele var byte

sutun$\_$reg var byte$[300]$

veri var byte

yazi$\_$reg var byte

i VAR BYTE

x var byte

z var byte

y var byte

t var byte

q var byte

sure var byte

yedek var byte

CLEAR : portd$=255$:sure$=200$ :GOTO oku:

oku:

call yazi : yazi$\_$reg$=$yazi$\_$reg$+1$ : z$=$harf$\_$reg

for i$=1$ to z

call yazi : yazi$\_$reg$=$yazi$\_$reg$+1$ : call data$\_$sec

for y$=0$ to yinele

call datalar

sutun$\_$reg$[$t$]=$veri : t$=$t$+1$

adres$\_$sec$=$adres$\_$sec$+1$

next y

next i

t$=0$

goto gonder

gonder:

FOR Q$=0$ TO $5$

for i$=0$ to $15$

portb$=$sutun$\_$reg$[$t$]$ : t$=$t$+1$

porta$=$i

portc$=\%11111110$:pauseus sure:portc$=\%11111111$

next i

for i$=0$ to $15$

portb$=$sutun$\_$reg$[$t$]$ : t$=$t$+1$

porta$=$i

portc$=\%11111101$:pauseus sure:portc$=\%11111111$

next i

for i$=0$ to $15$

portb$=$sutun$\_$reg$[$t$]$ : t$=$t$+1$

porta$=$i

portc$=\%11111011$:pauseus sure:portc$=\%11111111$

next i

for i$=0$ to $11$

portb$=$sutun$\_$reg$[$t$]$ : t$=$t$+1$

porta$=$i

portc$=\%11110111$:pauseus sure:portc$=\%11111111$

next i

t$=0$

NEXT Q

goto kaydir

kaydir:

yedek$=$sutun$\_$reg$[0]$

for i$=0$ to $239$

sutun$\_$reg$[$i$]=$sutun$\_$reg$[$i$+1]$

next i

sutun$\_$reg$[240]=$yedek

goto gonder

yazi:

lookup yazi$\_$reg,$[40,$"HUSEYiN..ABDULLAH..OMER.."$],$harf$\_$reg

return

data$\_$sec:

select case harf$\_$reg

case $"$A$"$

adres$\_$sec$=0$ : yinele$=5$ : return

case $"$B$"$

adres$\_$sec$=6$ : yinele$=5$ : return

case $"$C$"$

adres$\_$sec$=12$ : yinele$=5$ : return

case $"$D$"$

adres$\_$sec$=18$ : yinele$=5$ : return

case $"$E$"$

adres$\_$sec$=24$ : yinele$=5$ : return

case $"$F$"$

adres$\_$sec$=30$ : yinele$=5$ : return

case $"$G$"$

adres$\_$sec$=36$ : yinele$=5$ : return

case $"$H$"$

adres$\_$sec$=42$ : yinele$=5$ : return

case "I"

adres$\_$sec$=48$ : yinele$=3$ : return

case $"$i$"$

adres$\_$sec$=52$ : yinele$=3$ : return

case $"$J$"$

adres$\_$sec$=56$ : yinele$=5$ : return

case $"$K$"$

adres$\_$sec$=62$ : yinele$=5$ : return

case $"$L$"$

adres$\_$sec$=68$ : yinele$=5$ : return

case $"$M$"$

adres$\_$sec$=74$ : yinele$=5$ : return

case $"$N$"$

adres$\_$sec$=80$ : yinele$=5$ : return

case $"$O$"$

adres$\_$sec$=86$ : yinele$=5$ : return

case $"$P$"$

adres$\_$sec$=92$ : yinele$=5$ : return

case $"$Q$"$

adres$\_$sec$=98$ : yinele$=5$ : return

case $"$R$"$

adres$\_$sec$=104$ : yinele$=5$ : return

case $"$S$"$

adres$\_$sec$=110$ : yinele$=5$ : return

case $"$T$"$

adres$\_$sec$=116$ : yinele$=5$ : return

case $"$U$"$

adres$\_$sec$=122$ : yinele$=5$ : return

case $""$

adres$\_$sec$=128$ : yinele$=5$ : return

case $"$V$"$

adres$\_$sec$=134$ : yinele$=5$ : return

case $"$W$"$

adres$\_$sec$=140$ : yinele$=5$ : return

case $"$X$"$

adres$\_$sec$=146$ : yinele$=5$ : return

case $"$Y$"$

adres$\_$sec$=152$ : yinele$=5$ : return

case $"$Z$"$

adres$\_$sec$=158$ : yinele$=5$ : return

case $""$

adres$\_$sec$=164$ : yinele$=5$ : return

case $"0"$

adres$\_$sec$=170$ : yinele$=5$ : return

case $"1"$

adres$\_$sec$=176$ : yinele$=3$ : return

case $"2"$

adres$\_$sec$=180$ : yinele$=5$ : return

case $"3"$

adres$\_$sec$=186$ : yinele$=5$ : return

case $"4"$

adres$\_$sec$=192$ : yinele$=5$ : return

case $"5"$

adres$\_$sec$=198$ : yinele$=5$ : return

case $"6"$

adres$\_$sec$=204$ : yinele$=5$ : return

case $"7"$

adres$\_$sec$=210$ : yinele$=5$ : return

case $"8"$

adres$\_$sec$=216$ : yinele$=5$ : return

case $"9"$

adres$\_$sec$=222$ : yinele$=5$ : return

end select

datalar:

lookup adres$\_$sec$,[$$$7$C$,$$$0$A$,$$$09,$$$0$A$,$$$7$C$,0\_$ ;A

$,$$$7$F$,$$$49,$$$49,$$$49,$$$36,0\_$ ;B

$,$$$3$E$,$$$41,$$$41,$$$41,$$$22,0\_$ ;C

$,$$$7$F$,$$$41,$$$41,$$$41,$$$3$E$,0\_$ ;D

$,$$$7$F$,$$$49,$$$49,$$$49,$$$41,0\_$ ;E

$,$$$7$F$,$$$09,$$$09,$$$09,$$$01,0\_$ ;F

$,$$$3$E$,$$$41,$$$49,$$$49,$$$3$A$,0\_$ ;G

$,$$$7$F$,$$$08,$$$08,$$$08,$$$7$F$,0\_$ ;H

$,$$$41,$$$7$F$,$$$41,0\_$ ;I

$,$$$44,$$$7$D$,$$$44,0\_$ ;

$,$$$20,$$$40,$$$41,$$$3$F$,$$$01,0\_$ ;J

$,$$$7$F$,$$$08,$$$14,$$$22,$$$41,0\_$ ;K

$,$$$7$F$,$$$40,$$$40,$$$40,$$$40,0\_$ ;L$,$

$$26,$$$49,$$$49,$$$49,$$$3$E$,0],$veri ;$9$

return

I want to make $8$x$8$ matrix led scrolling text in pic basic pro language with $16$f$877,$ but ERROR: Unable to fit variable column$\_$reg

I get the error message. How can I fix it$?$ Can you make the corrections in the code?

Please only experst answer.