Code:
$regfile = "m16def.dat"
$crystal = 1000000
Config Porta = Output
Config Portb = Output
Config Portc = Output
Config Portd = Output
Dim Scan As Byte
Dim I As Word
Dim Refresh As Byte
Dim T As Byte
Dim B As Byte
Dim D As Word
Dim U As Word
Dim S As Word
Dim M As Word
Dim E As Word
Dim A As Word
Do
' +---------------------------+
' | Scrolling Text00 to Left |
' +---------------------------+
For S = 0 To 216
E = S + 7
For Refresh = 1 To 10
Scan = &H01
For I = S To E
D = I * 2
U = D + 1
For B = 0 To 6
Portc = Lookup(u , Text00)
Portd = Lookup(d , Text00)
Portb = 2 ^ B
Portb = 0
U = U + 16
D = D + 16
Next B
Porta = Scan
Rotate Scan , Left , 1
Waitms 1
Porta = 0
Next I
Next Refresh
Next S
Loop
End 'end program
Text00:
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H0F , &HFC , &H0F , &HFC , &H00 , &H38 , &H00 , &H70 , &H00 , &HE0 , &H0F , &HFC , &H0F , &HFC , &H00 , &H00
Data &H07 , &H00 , &H0F , &HA0 , &H08 , &HA0 , &H08 , &HA0 , &H07 , &HE0 , &H0F , &HC0 , &H08 , &H00 , &H00 , &H00
Data &H0F , &HE0 , &H0F , &HE0 , &H00 , &H60 , &H07 , &HC0 , &H00 , &H60 , &H0F , &HE0 , &H0F , &HC0 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H0F , &HFC , &H0F , &HFC , &H00 , &H38 , &H00 , &H70 , &H00 , &H38 , &H0F , &HFC , &H0F , &HFC , &H00 , &H00
Data &H07 , &HC0 , &H0F , &HE8 , &H08 , &H24 , &H08 , &H24 , &H08 , &H24 , &H0F , &HE8 , &H07 , &HC0 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H0F , &HE0 , &H0F , &HF0 , &H00 , &H98 , &H00 , &H8C , &H00 , &H98 , &H0F , &HF0 , &H0F , &HE0 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H08 , &H04 , &H0F , &HFC , &H0F , &HFC , &H08 , &H04 , &H0C , &H0C , &H07 , &HF8 , &H03 , &HF0 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H08 , &H20 , &H0F , &HEC , &H0F , &HEC , &H08 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H08 , &HC4 , &H0F , &HFC , &H0F , &HFC , &H08 , &HC4 , &H0C , &H0C , &H07 , &HF8 , &H03 , &HF0 , &H00 , &H00
Data &H07 , &H00 , &H0F , &HA0 , &H08 , &HA4 , &H08 , &HA8 , &H07 , &HE0 , &H0F , &HC0 , &H08 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H08 , &H04 , &H0F , &HFC , &H0F , &HFC , &H08 , &H44 , &H00 , &H44 , &H00 , &H7C , &H00 , &H38 , &H00 , &H00
Data &H08 , &H04 , &H0F , &HFC , &H0F , &HFC , &H00 , &H40 , &H00 , &H20 , &H0F , &HE0 , &H0F , &HC0 , &H00 , &H00
Data &H07 , &H00 , &H0F , &HA8 , &H68 , &HA4 , &H68 , &HA4 , &H07 , &HE8 , &H0F , &HC0 , &H08 , &H00 , &H00 , &H00
Data &H00 , &H20 , &H00 , &H20 , &H07 , &HF8 , &H0F , &HFC , &H08 , &H20 , &H0C , &H20 , &H04 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00