Example Initialization Program
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Command
Reset P3.7
Reset P3.4
For Writecount = 1 To 8
Rotate A , Left , 1
Reset P3.1
P1 = A
Set P3.1
Next Writecount
Set P3.7
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Write
Reset P3.7
Set P3.4
For Writecount = 1 To 8
Rotate A , Left , 1
Reset P3.1
P1 = A
Set P3.1
Next Writecount
Set P3.7
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Init
Waitms 100
A = &HA0
Call Command
A = &HAE
Call Command
A = &HC0
Call Command
A = &HA2
Call Command
A = &H2F
Call Command
A = &H26
Call Command
A = &H81
Call Command
A = &H11
Call Command
A = &HAF
Call Command
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
[8]