$regfile = "M8def.dat"
$crystal = 10000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6
Config Lcdpin = Pin , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Cursor Off
Cls
Locate 1 , 2
Lcd "-<( QARIYA )>-"
Locate 2 , 2
Lcd "www.qariya.com"
Waitms 10
End

$regfile = "M8def.dat"
$crystal = 4000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6
Config Lcdpin = Pin , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Dim A As Byte
Cursor Off
Do
  Cls
  Locate 1 , 11
  Lcd "QARIYA"
  Waitus 1
  For A = 1 To 9
      Shiftlcd Right
      Waitms 25
  Next A
  For A = 1 To 9
      Shiftlcd Left
      Waitms 25
  Next A
  Loop
End