For next loop using: Led var Byte

[quester]

I am trying to get Chucks second project from his book to work, which is Scrolling led's.
They do flash but not correctly.
This is the programme pasted from his book.

LED var Byte 'LED variable setup as byte

PortB = %00000000 'Initiate all port B pins to low
Trisb = %00000000 'Setup port b as all outputs
main: 'Label for beginning of main loop

' *********** Light LEDs in right direction

for led = 0 to 7 'Loop through all LEDs
portB.0[LED] = 1 'Set each pin of portb high (5 volts) which turns the LED on
pause 1000 'Pause 1000 milliseconds (1 second) with LED on
portb.0[LED] = 0 'Set each pin of portb low (0 volts) which turns the LED off
next 'Continue until all 7 have been lit once

' *********** Light LEDs in left direction

for led = 7 to 0 step -1 'Loop through all LEDs backwards

portb.0[led] = 1 'Set pin 0 of portb high (5 volts) which turns the LED on
pause 1000 'Pause 1000 milliseconds (1 second) with LED on
portb.0[led] = 0 'Set pin 0 of portb low (0 volts) which turns the LED off
next 'Continue until all 7 have been lit once

goto main 'Jump to the main label and do it all again and again

END 'This line is not needed but its safe to put it here just in case
' the program gets lost.

Thanks to anyone who can help,
Quester.

[skimask]

They do flash but not correctly.

How do they flash?
'NOT CORRECTLY' leaves a lot up to the imagination...

[b1arrk5]

Try it without the for next loop, just to make sure that your wiring is fine,
portb.0 = 1
pause 1000
portb.0 = 0
pause 1000
portb.1 = 1
pause 1000
portb.1 = 0
pause 1000
portb.2 =1

etc. etc.

Jerry

[Bruce]

Insert PAUSE 1000 after each portb.0[led] = 0.