$regfile = "m16def.dat"
 $crystal = 4000000

 Config Portb = Output
 Config Portc = Output
 Config Portd = Output
 Dim Index As Byte
 Dim A As Byte , I As Byte

 Do

 If Index > 15 Then
 Index = 0 : End If

 Portb = &H00
 Portd = &H01
 For I = 0 To 7
 A = Lookup(index , Dat)
 A = Not A
 Portc = A
 Waitms 1
 Portc = &HFF

 Rotate Portd , Left
 Incr Index
 next

 Portd = &H00
 Portb = &H01
 For I = 0 To 7
 A = Lookup(index , Dat)
 A = Not A
 Portc = A
 Waitms 1
 Portc = &HFF
 Rotate Portb , Left
 Incr Index
 next

 Loop

 End


 Dat:
 Data &H00 , &H60 , &HF4 , &H92 , &H92 , &HFE , &HFC , &H00
Data &H00 , &HFF , &HFF , &H84 , &H84 , &HFC , &H78 , &H00