$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0

Config Lcd = 16 * 2


Cursor Off

Declare Sub C1()
Declare Sub C2()

Dim A As Integer
A = 2

Deflcdchar 1 , 4 , 14 , 27 , 14 , 32 , 32 , 32 , 32         ' replace [x] with number (0-7)
Deflcdchar 2 , 32 , 32 , 32 , 32 , 32 , 4 , 14 , 31         ' replace [x] with number (0-7)
Do
If A = 1 Then
C1
Elseif A = 2 Then
C2
endif
Cls                                                         'clear the LCD display
Locate 1 , 1
Lcd Chr(1)
Locate 2 , 1
Lcd Chr(2)
Cls
Locate 2 , 3

Lcd Chr(0)

Waitms 300
Loop
End


Sub C1()
Deflcdchar 0 , 32 , 4 , 32 , 32 , 32 , 32 , 32 , 32
End Sub

Sub C2()
Deflcdchar 0 , 32 , 32 , 32 , 32 , 32 , 4 , 32 , 32
End Sub