'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
$regfile = "2313def.dat"
$crystal = 7372800
$baud = 19200
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 =
Portb.5 , E = Portb.1 , Rs = Portb.0
'**********************************************
Do
If Pind.4 = 1 Then
Print "locate 1,1"
Print "lcd in the name of GOD"
Waitms 1000
Print "cls"
Waitms 50
Print "locate 2,7 MRK"
Waitms 1000
Print "display on 100,3"
Waitms 1000
Print "Display off"
Waitms 1000
Print "display on 100,1"
Print "locate 1,1"
Waitms 1000
Print "shiftcursor right 100,15"
Print "shiftcursor left 100,15"
Waitms 500
End If
Loop
End