$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

 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


 If Index > 31 Then
 Index = 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


 ***********************************************'
 Dat:
 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