$regfile = "m32def.dat"
$crystal = 16000000

'Podłšczenie pinów LCD do mikroprocesora

' BL = PortC.1
' Rs = PortC.2
' E = PortC.3
'Db4 = PortC.4
'Db5 = PortC.5
'Db6 = PortC.6
'Db7 = PortC.7

Config Lcdpin = Pin , Rs = Portc.2 , E = Portc.3 , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7
Config Lcd = 16 * 2

Deflcdchar 1 , 32 , 32 , 10 , 32 , 32 , 17 , 14 , 32        ' replace [x] with number (0-7)


Dim A As Byte
Dim B As Integer
Dim C As Integer
Dim D As Integer

B = 1
C = 1
D = 15




Deflcdchar 1 , 32 , 4 , 14 , 4 , 4 , 4 , 31 , 14            ' replace [x] with number (0-7)

Deflcdchar 2 , 32 , 17 , 4 , 14 , 31 , 14 , 4 , 17          ' replace [x] with number (0-7)

  Do
 Cls
 Cursor Off Noblink

If C = 7 Then
Locate 1 , 8
Lcd Chr(2)
Waitms 1000
End If


Locate B , C
Lcd Chr(1)
Locate B , D
Lcd Chr(1)
Waitms 1000
Cls
C = C + 1
D = D - 1



Loop