Although slightly contrived and uses more RAM - this does it.

Code:
Relay var Byte[4]
x var byte
i var byte

Relay[1] = 14  'RB6
Relay[2] = 20  'RC4
Relay[3] = 26  'RD2
main:
' cycle through relays
for i = 1 to 3
     x = relay[i]
     porta.0[x]=1
     PAUSE 1000
     porta.0[x]=0
     PAUSE 300
next i
Paul Borgmeier
Salt Lake City, Utah
USA