Dim A1 As Byte , C(2) As Byte
Dim B2 As Word , B3 As Word , B4 As Word , B44 As Word
Dim Cs As Bit

Config Lcdpin = Pin , Db4 = P1.0 , Db5 = P1.1 , Db6 = P1.2 , Db7 = P1.3 , E = P1.4 , Rs = P1.5
Config Spi = Soft , Din = P3.2 , Dout = P3.3 , Cs = P3.4 , Clk = P3.5 , Data Order = Msb , Nocs =

Spiinit

Config Lcd = 20 * 4
Cursor Off Noblink
Cls

A1 = &B00011000
Set Cs

Do

Reset Cs

Spiout A1 , 1
Spiin C(1) , 2
Set Cs
Waitms 50
B2 = C(1)
Shift B2 , Left , 2
Shift C(2) , Right , 6
B3 = C(2)
B4 = B2 + B3

If B4 <> B44 Then
  Cls
  Locate 1 , 1 : Lcd ; "B4  " ; B4

   B4 = B44

   End If

Loop

Return