' ********************************************
' *          ((IN THE NAME OF GOD))          *
' ********************************************
' * Title         : LCD AVR                  *
' * Last Updated  : 1385/6/12                *
' * Target        : Atmega8L                 *
' * Program code  : BASCOM AVR               *
' * Author        : Foad Alikhani            *
' * WebSite       : Www.Mechatronics.Co.Sr   *
' * E-mail        : foad_8x@yahoo.com        *
' ********************************************
$regfile = "m8def.dat"
$crystal = 4000000
Config Lcdpin = Pin , Db4 = Pinb.4 , Db5 = Pinb.5 , Db6 = Pinb.6 , Db7 = Pinb.7 , Rs = Pinb.2 , E = Pinb.3
Config Lcd = 16 * 2

Cursor Off
Deflcdchar 0 , 21 , 14 , 4 , 4 , 4 , 27 , 32 , 32
Deflcdchar 1 , 4 , 14 , 21 , 4 , 4 , 10 , 10 , 10
Cls
Locate 1 , 3
Lcd "MECHATRONICS"
Do
Locate 1 , 1
Lcd Chr(0)
Locate 1 , 16
Lcd Chr(1)
Locate 2 , 2
Lcd Chr(1)
Locate 2 , 15
Lcd Chr(0)
Locate 2 , 8
Lcd Chr(0)
Locate 2 , 9
Lcd Chr(1)

Waitms 300

Locate 1 , 1
Lcd Chr(1)
Locate 1 , 16
Lcd Chr(0)
Locate 2 , 2
Lcd Chr(0)
Locate 2 , 15
Lcd Chr(1)
Locate 2 , 8
Lcd Chr(1)
Locate 2 , 9
Lcd Chr(0)
waitms 300
Loop
End