'===============================================================================
'=                                                                             =
'=             Designed By M.Masoumi                                           =
'=             moeinmasoumi@yahoo.com                                          =
'=             0917 895 8271                                                   =
'=  KETAB AMOOZESH TABLO CHARKHAN & RAVAN (1 & 3 & 7 COLOR) MOJOOD MIBASHAD.   =
'=                  ..براي سفارش خريد با ايميل در تماس باشيد                   =
'=                                                                             =
'=                                                                             =
'===============================================================================
$regfile = "m8def.dat"
$crystal = 1000000
Dim I As Byte
Dim N As Byte
Dim S As Byte
Dim G As Byte
Config Portd = Output
Portd = 0
' jahate namayesh behtar tasvir mibayast meghdar halghe I va meghdar zaman takhir ra taghir dahid

Do
For G = 0 To 19                                             'tedad Satr Hai jadval
For I = 0 To 21                                             'tedad tekrar. jahate namayesh behtar tasvir
Portd = Lookup(g , Jadval)
Waitus 50
Portd = 255
Next
Next
Loop
End

Jadval:
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11000111
Data &B10111011
Data &B01101110
Data &B01011010
Data &B01011110
Data &B01011010
Data &B01101101
Data &B10111011
Data &B11000111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111