Hi Ryan7777;

Have you allready tried my sugestion?

I've tried and it worked, so you must add those to lines that i mention.
Also remember that you are working with binary numbers, so this;

Code:
    DataOut=DataOut+1        
    if dataout >=8 then
will not light up all the leds.