You could try using array as follows:

LED var byte

(so on...)

for LED = 0 to 7

portb.0[LED] = 1
pause 500
portb.0[LED]=0

next

will scroll a string of leds. You can also assign a value on the every bit of port b using this method.