If "8 lines" is about the loop part, then here is my code.


Think like a politician. Is is not less then 8?



Code:
<font color="#000080"><b>EEPROM </b></font><font color="#FF0000">0</font>,[<font color="#FF0000">50</font>,<font color="#FF0000">22</font>,<font color="#FF0000">38</font>,<font color="#FF0000">75</font>,<font color="#FF0000">17</font>,<font color="#FF0000">40</font>,<font color="#FF0000">62</font>,<font color="#FF0000">13</font>]
          <font color="#000080"><i>'RB0 - RB7 time intervals
    
</i></font>Time    <font color="#000080"><b>VAR BYTE</b></font>[<font color="#FF0000">8</font>]
Timer   <font color="#000080"><b>VAR BYTE</b></font>[<font color="#FF0000">8</font>]
Temp    <font color="#000080"><b>VAR BYTE
</b></font>Preload <font color="#000080"><b>VAR WORD
</b></font>T1CON = <font color="#FF0000">%00000000   </font><font color="#000080"><i>' 1:1 @4Mhz
</i></font>TMR1IF <font color="#000080"><b>VAR </b></font>PIR1.<font color="#FF0000">0   </font><font color="#000080"><i>' An alias for overflow bit.
</i></font>TMR1ON <font color="#000080"><b>VAR </b></font>T1CON.<font color="#FF0000">0


</font>Begin:
    Preload = <font color="#FF0000">55543 </font><font color="#000080"><i>'Timer1 preload value for excat 10ms. interval.
    </i><b>FOR </b></font>Temp = <font color="#FF0000">0 </font><font color="#000080"><b>TO </b></font><font color="#FF0000">7
        </font><font color="#000080"><b>READ </b></font>Temp ,Time[Temp]  <font color="#000080"><i>'Fill time-intervals.
        </i></font>Timer[Temp] = <font color="#FF0000">0        </font><font color="#000080"><i>'Clear timer array.
    </i><b>NEXT </b></font>Temp

T:
    TMR1IF = <font color="#FF0000">0
    </font>TMR1L = Preload.LowByte
    TMR1H = Preload.HighByte
    TMR1ON = <font color="#FF0000">1
    
</font>Start:

    <font color="#000080"><b>IF </b></font>TMR1IF <font color="#000080"><b>THEN </b></font>INT_TMR       ' 1 line. 

    <font color="#000080"><b>GOTO </b></font>Start
    

INT_TMR:
    TMR1ON = <font color="#FF0000">0
    </font><font color="#000080"><b>FOR </b></font>Temp = <font color="#FF0000">0 </font><font color="#000080"><b>TO </b></font><font color="#FF0000">7
        </font><font color="#000080"><b>IF </b></font>Timer[Temp] = Time[Temp] <font color="#000080"><b>THEN 
            </b></font>PORTB.<font color="#FF0000">0</font>[Temp] = PORTB.<font color="#FF0000">0</font>[Temp] ^<font color="#FF0000">1
            </font>Timer[Temp] = <font color="#FF0000">0
        </font><font color="#000080"><b>ENDIF
        </b></font>Timer[Temp] = Timer[Temp] + <font color="#FF0000">1
    </font><font color="#000080"><b>NEXT </b></font>Temp   
    
    <font color="#000080"><b>GOTO </b></font>T    

<font color="#000080"><b>END



</b></font>