Hi i need help to set up an array of 26 bits and cycle through them like:

arrayadat = %1010101011111111000000001 - this obviosley causes a overflow error, The Max Possible seems to be 16bits (Word ???)
I've tried breaking it down into 3 seperate Bytes and 2 bits but then i fail on the bad token thing below.

I have tried Defineing it as : arraydat VAR Bit(26), and as a Word,

For C = 0 to 25
IF arraydat.(C) = 1 then <-----This gives a bad token,
Gosub ONE
Else
Gosub Zero
EndIf
Next C
Any help would be appriciated, Its been a while since i've used pbp so i'm a little dusty. I seem to remember getting somthing similar to this working some time ago. I'm using PBP 2.60 with a PIC 16F877A @20Mhz

Many thanks Chris