How to use For Next Loop to run sequence light ?

[Bracer]

Thanks.

Ok Now all the LEDs light up.

BUT only PortB.0 and PortB.1 Blinks.

Again, this the code:

@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT, MCLR_OFF
CMCON = 7
TRISA = 0 ' Make them all outputs
TRISB = 0

Counter var Byte

SubRoutine:

For Counter = 0 to 2
high PortB.0[Counter]
high PortA.0[Counter]
Next Counter

Pause 600

For Counter = 0 to 2
Low PortB.0[Counter]
Low PortA.0[Counter]
Next Counter

pause 100
Goto SubRoutine