$regfile = "m8def.dat"
$crystal = 8000000
Dim A As Byte
Dim R As Byte , G As Byte , I As Byte
Config Portd.4 = Output , Portd.5 = Output


Config Spi = Soft , Din = Pind.0 , Dout = Portd.1 , Ss = Portd.2 , Clock = Portd.3
Spiinit
Portd.5 = 0
Waitms 200
Portd.5 = 1
Portd.4 = 1

Restore Init
Read A
For I = 1 To 4
Spiout A , 1
Next I

For I = 1 To 78
Read A
Waitus 700
Spiout A , 1
Next I
R = &HFF
'переход в режим передачи данных
Portd.4 = 0
'заполнение экрана пикселями после шума
For I = 1 To 176
For G = 1 To 132
 'задержка для более видимого заполнения экрана
Waitms 1
Spiout R , 1
Next G
Next I
End

Init:
Data &HFD , &HEF , &H00 , &HEE , &H04 , &H1B , &H04 , &HFE , &HFE , &HFE , &HFE
Data &HEF , &H90 , &H4A , &H04 , &H7F , &H3F , &HEE , &H04 , &H43 , &H06 , &HEF
Data &H90 , &H09 , &H83 , &H08 , &H00 , &H0B , &HAF , &H0A , &H00 , &H05 , &H00
Data &H06 , &H00 , &H07 , &H00 , &HEF , &H00 , &HEE , &H0C , &HEF , &H90 , &H00
Data &H80 , &HEF , &HB0 , &H49 , &H02 , &HEF , &H00 , &H7F , &H01 , &HE1 , &H81
Data &HE2 , &H02 , &HE2 , &H76 , &HE1 , &H83 , &H80 , &H01 , &HEF , &H90 , &H00
Data &H00 , &HE8 , &H00 , &H05 , &H04 , &H0A , &H00 , &H0B , &HAF , &H08 , &H00
Data &H09 , &H83

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 128
$swstack = 128
$framesize = 128
$baud = 19200

$lib "LCD-SIEMENS_S65_LS020_256_W1.LBX"

Config Graphlcd = Color , Controlport = Portd , Cs = 2 , Rs = 4 , Scl = 3 , Sda = 1 , Reset = 5




Const Blue = &B00000011
Const Yellow = &B11111100
Const Red = &B11100000
Const Green = &B00011100
Const Black = &B00000000
Const White = &B11111111
Const Brightgreen = &B00111110
Const Darkgreen = &B00010100
Const Darkred = &B10100000
Const Darkblue = &B00000010
Const Brightblue = &B00011111
Const Orange = &B11111000
Const Violett = 199
Const Brown = 192

Do

Box(0 , 0) -(131 , 176) , Blue
Wait 1
Box(0 , 0) -(131 , 176) , Yellow
Wait 1
Box(0 , 0) -(131 , 176) , Red
Wait 1
Box(0 , 0) -(131 , 176) , Green
Wait 1
Box(0 , 0) -(131 , 176) , Black
Wait 1
Box(0 , 0) -(131 , 176) , White
Wait 1
Box(0 , 0) -(131 , 176) , Brightgreen
Wait 1
Box(0 , 0) -(131 , 176) , Darkgreen
Wait 1
Box(0 , 0) -(131 , 176) , Darkred
Wait 1
Box(0 , 0) -(131 , 176) , Darkblue
Wait 1
Box(0 , 0) -(131 , 176) , Brightblue
Wait 1
Box(0 , 0) -(131 , 176) , Orange
Wait 1
Box(0 , 0) -(131 , 176) , Violett
Wait 1
Box(0 , 0) -(131 , 176) , Brown
Wait 1

Loop