kayan yazı...

slm. etenin pbp notlarından 13. derste kayan yazıdayım.
OPTION_REG=1
ADCON1=7
PORTA=0:TRISA=0
PORTB=0:TRISB=%00000000
PORTC=0:TRISC=%00000000
PORTD=0:TRISD=%00000000
PORTE=0:TRISE=%00000000
'-----------------------------------------------------------------
@ DEVICE PIC16F876, WDT_ON 'Watch Dog timer
@ DEVICE PIC16F876, PWRT_ON 'Power on timer açık
@ DEVICE PIC16F876, PROTECT_OFF 'Kod Koruma kapalı
@ DEVICE PIC16F876, BOD_OFF
@ DEVICE PIC16F876, XT_OSC
'-----------------------------------------------------------------
DEFINE OSC4
SUTUN VAR BYTE [8]60
temp var byte
I VAR BYTE
X VAR BYTE
W VAR BYTE
M var byte
BASLA:
SUTUN[0]=%11111111 'Sütun tarama bilgi satırlardan geliyor.
SUTUN[1]=%10000000
SUTUN[2]=%11110111
SUTUN[3]=%11110111
SUTUN[4]=%11110111
SUTUN[5]=%11110111
SUTUN[6]=%10000000
SUTUN[7]=%11111111
M=0
BIR:
for w=0 to 10 'kaydırma hızı döngü sayısı artırılarak ayarlanıyor
X=128
FOR I=0 TO 7
PORTB=x
PORTC=SUTUN
X=X/2
PAUSE 3
NEXT
next
pause 1
gosub kaydIR
M=M+1
IF M<15 then BIR
SUTUN[0]=%01000010 'Satır tarama, bilgi sütunlardan geliyor
SUTUN[1]=%01000010
SUTUN[2]=%01000010
SUTUN[3]=%01111110
SUTUN[4]=%01000010
SUTUN[5]=%01000010
SUTUN[6]=%01000010
SUTUN[7]=%00000000
M=0
IKINCI:
FOR W=0 to 10
X=1
FOR I=0 TO 7
PORTC=255-x
PORTB=SUTUN
X=X*2
PAUSE 3
NEXT
NEXT
PAUSE 1
GOSUB KAYDIR
M=M+1
IF M<15 then IKINCI
GOTO BASLA
KAYDIR:
temp= sutun[0]
for w=0 to 6
sutun[w]=SUTUN[W+1]
next
sutun[7]=temp
RETURN
END

bir:de soldan sağa kayıyor.
iki:de aşağıdan yukarı kayıyor.
h harfini degiştirebiliyorum mantığını anladım. fakat h den sonra bir harf daha nasıl koyucağımı anlamadım:S
iki:yi siliyorum sadece h harfi kalıyor arkasında bir iki harf daha nasıl koyarım?
yardımcı olursanız sevinirim

ya guzel hosta program yazıozz ama gercek hayata bı turlu dokemedım yaaa;;; dot matrısde baglantılar nasıl olur bılgım pek fazla yok acıklarmısınız bıazz msn ....@hotmail.com