$regfile = "8H1K08.DAT"                   ' STC registers list
$crystal = 5529600                        ' CPU clock frequence '11059200/2= 5529600

Dim Temp As Byte
Dim I As Byte , A As Byte

P1ie = &B1111_1111                        ' 1: Enable digital pins
P1pu = &B0000_0000                        ' 1: pull-up resistor
P1m0 = &B1111_1111
P1m1 = &B0000_0000                        ' output mode

My_led Alias P1.1

Config Lcdbus = 4 : Config Lcd = 16 * 2   'configure lcd screen 4 bits

Rs_lcd Alias P1.2 : E_lcd Alias P1.3      ' Подключения LCD
D4_lcd Alias P1.4 : D5_lcd Alias P1.5 : D6_lcd Alias P1.6 : D7_lcd Alias P1.7

Config Lcdpin = Pin , _
 Db4 = D4_lcd , Db5 = D5_lcd , Db6 = D6_lcd , Db7 = D7_lcd , Rs = Rs_lcd , E = E_lcd

Gosub Lcd_init                            ' Инициализация LCD
'-----------------------------------------------------------------------------------

Cls                                       'clear the LCD display
Lcd "STC8H1K08 Super#"                    'display this at the top line
Lowerline                                 'select the lower line
Lcd "BASCOM-51 COOL:)"                    'display this at the lower line

Wait 1
For A = 1 To 16
   Shiftlcd Right                         'shift the text to the right
   Waitms 200                             'wait a moment
   My_led = Not My_led
Next

Wait 1

For A = 1 To 16
   Shiftlcd Left                          'shift the text to the left
   Waitms 200                             'wait a moment
   My_led = Not My_led
Next


Do
 My_led = Not My_led
 Waitms 65
Loop


'------------------------------------------------------------------------------
Lcd_init:                                 ' Инициализация LCD
  Rs_lcd = 0 : E_lcd = 0
  D7_lcd = 0 : D6_lcd = 0 : D5_lcd = 0 : D4_lcd = 0

  Waitms 100                              ' Обязательно!

  For A = 0 To 2
   Temp = &B0011_0000
   Gosub Lcd_wr_e
   Waitms 5
  Next

  Temp = &B0010_0000
  Gosub Lcd_wr_e

  Temp = &H28 : Gosub Lcd_send
  Temp = &H8E : Gosub Lcd_send
  Temp = &H06 : Gosub Lcd_send
  Temp = &H0C : Gosub Lcd_send
  Temp = &H01 : Gosub Lcd_send
  Temp = &H80 : Gosub Lcd_send
Return

'------------------------------------------------------------
Lcd_send:
 Waitms 5
 Gosub Lcd_wr_e

 Shift Temp , Left , 4
 Gosub Lcd_wr_e
Return


Lcd_wr_e:                                 '------------------
 D7_lcd = 0 : D6_lcd = 0 : D5_lcd = 0 : D4_lcd = 0
 If Temp.7 = 1 Then D7_lcd = 1            ' Else D7_lcd = 0
 If Temp.6 = 1 Then D6_lcd = 1            ' Else D6_lcd = 0
 If Temp.5 = 1 Then D5_lcd = 1            ' Else D5_lcd = 0
 If Temp.4 = 1 Then D4_lcd = 1            ' Else D4_lcd = 0
 E_lcd = 1 : Delay : E_lcd = 0
 Delay
Return