$regfile = "m16def.dat
 $crystal = 4000000

 Config Portb = Output
 Config Portc = Output
 Config Portd = Output

 Config Timer1 = Timer , Prescale = 64
 Start Timer1
 Enable Interrupts
 Enable Ovf1
 On Ovf1 Shift_l
 Timer1 = 55535


 Dim Index As Word
 Dim A As Byte , B As Word , I As Byte

 Declare Sub Show

 S1 Alias Portb.0
 S2 Alias Portb.1
 S3 Alias Portb.2
 S4 Alias Portb.3

 Portd = &H01


 Do

 Reset S1 : Set S2 : Set S3 : Set S4
 Call Show
 Set S1 : Reset S2 : Set S3 : Set S4
 Call Show
 Set S1 : Set S2 : Reset S3 : Set S4
 Call Show
 Set S1 : Set S2 : Set S3 : Reset S4
 Call Show

 Index = B
 If B > 63 Then
 B = 0 : End If

 Loop


 End

 Show:
 For I = 0 To 7

 A = Lookup(index , Dat)
 A = Not A
 Portc = A
 Waitms 1
 Portc = &HFF
 Rotate Portd , Left
 Incr Index

 Next
 Return

 Shift_l:
 Incr B
 Timer1 = 55535
 Return


 ***********************************************'
 Dat:
 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
 Data &H00 , &H60 , &HF4 , &H92 , &H92 , &HFE , &HFC , &H00
 Data &H00 , &HFF , &HFF , &H84 , &H84 , &HFC , &H78 , &H00
 Data &H00 , &H7C , &HFE , &H82 , &H82 , &H82 , &H44 , &H00
 Data &H00 , &H78 , &HFC , &H84 , &H84 , &HFF , &HFF , &H00
 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00