$def Pinlcddat = Portb.0
$def Pinlcdclk = Portb.1
$def Pinled = Portb.2

Declare Sub Sendlcd(lcddatax As Byte)
Declare Sub Scrolllcd(lcddvigatsinvolov As Byte)

Dim Keypressed As Byte , Tempa As Byte


' ---------  Скроллинг экрана на X символов  --------
Sub Scrolllcd(lcddvigatsinvolov As Byte)
Local Temp2 As Byte , Temp As Byte
Pinlcddat = 0                                     ' Data
For Temp = 1 To Lcddvigatsinvolov
        For Temp2 = 0 To 3
                Pinlcdclk = 0 : Waitus 1          ' CLK
                Pinlcdclk = 1 : Waitus 1          ' CLK
        Next Temp2
Next Temp
End Sub


'----------   Один символ на экран  ---------
Sub Sendlcd(lcddatax As Byte)
Local Tiki As Byte , Temp2 As Byte , Temp As Byte
'If LCDdataX =0 Then LCDdataX =10

Pinlcdclk = 1                                     ' CLK
Tiki = 128

Shift(left , 4 , Lcddatax)

For Temp2 = 0 To 3
        Temp = Lcddatax & Tiki

        If Temp = 0 Then
           Pinlcddat = 0                          ' Data
         Else
           Pinlcddat = 1                          ' Data
        End If

        Pinlcdclk = 0 : Waitus 1
        Pinlcdclk = 1 : Waitus 1

        Shift(right , 1 , Tiki) : If Tiki = 0 Then Tiki = 128
Next Temp2
End Sub