lcd 2satırda sağa ve sola kayan yazılar

[izzethoca]

bu devre lc ekranda yazılar her iki satırda sağa ve sola kayıyor tam ortada yazılar 1sn bekliyor
umarım faydalı olur

program kodları

'****************************************************************
'*  Name    : lcduyg1.BAS                                       *
'*  Author  : [İZZET AKDAĞ]                                     *
'*  Notice  :  LCD EKRANA KAYAN YAZI UYGULAMASI                 *
'*                                                              *
'*  Date    : 31.03.2010                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
 include "lcdyaz.pbp"
i var byte                 
  basla:  
  lcdout $FE,$0E  'ÇİZGİLİ KURSÖR AÇIK
  for i=11 to 0 step -1
  if i=0 then
  for i=0 to 10
   if i=6 then pause 500
   lcdout $fe,1
  lcdout $fe,$80+i,"melis   " 'BİRİNCİ SATIRIN SOLA KAYMASINI SAĞLAR
  lcdout $fe,$ca-i,"irmak   "  'İKİNCİ SATIRIN SAĞA KAYMASINI SAĞLAR
  pause 100
  next
  endif
  if i=4 then pause 500
  lcdout $fe,1
  lcdout $fe,$80+i,"melis    "
   lcdout $fe,$ca-i,"irmak   "
  pause 100  
  next  
  goto basla
  end

[izzethoca]

devre şeması