Pattern: var byte ' hold the pattern for PortB
Gen0: var byte ' general purpose reg

ChasePattern: data 129, 66, 36, 24, 36, 66,129, -1

OutPattern:
Gen0 = ChasePattern ' Gen0 is a pointer to the pattern
while 1 ' forever
read Gen0, Pattern
if Pattern = -1 then ' this is the end marker,
goto OutPattern ' see it, start over
else
PortB = Pattern
endif
wend

Mind you, you need to configure PortB as outputs etc. which I havent done for you.
Sorry I cannot find how to format the code even though I have done it earlier.

Jerson