Scrolling thermo

[fratello]

I found a way...but I think it's not the BETTER way .

    '
    '    Display RTC & temp.
    '    -----------
LOOPing:
FOR scroll = 0 TO 70
    FOR scan = 0 TO 7
        PORTB=%11111111
        PAUSE 1
        PORTc = 1 
        PORTd = 1
        FOR counter = 0 TO 15
              PORTB = leddata [counter]
              pause 1
                if counter > 7 then      
                    PORTD = PORTD * 2
                else
                    portc = portc * 2
                endif 
        NEXT
    NEXT        
    FOR counter = 0 TO 70
        leddata [counter] = leddata [counter+1]
    NEXT
NEXT

LED's on column 7 (PortD 0) are, sometimes, on ... What @##%$@ is this ?