Is this even MeLabs PicBasic?
If it is, you really need to hit the books a bit and read on how the whole Basic thing works. I see a number of problems in your program....

symbol PortA = 5
symbol PortC = 6
symbol TrisA = $85
symbol TrisB = $86
symbol TrisC = $87
poke trisc,225
poke Trisa,225
symbol cmcon=$1f
poke cmcon,7
symbol adcon0=$9f
poke adcon0,7
symbol adcon1=$9f
poke adcon1,7

Why all the symbol references? PicBasic/MPASM already know the addresses and locations of the various registers. You can access them directly without using peeks and pokes.

start:
peek 5,B0
if bit0=0 then A
A:gosub C
peek 6,B1
if bit8=0 then B
B: gosub D
goto start

In the above chunk, why would the 'if bit0=0 then A' SKIP over the next line? It shouldn't and it won't. If it is 0, it'll go to A, if it isn't 0, it go directly to the next line. And in each of the 'if' statements, bit0 refers to what? The compiler (or me) can't tell. In the 2nd 'if' statement....bit8? Are you referring to a byte or a word. 'cause a byte may have 8 bits, but it doesn't have bit #8.

C: low 6: high 7: pause 500: low 7: pause 500:
return

D: low 4: high 5: pause 500: low 5: pause 500
return

These 2 lines also aren't written the best, but that's a personal preference.
What exactly are you trying to do? We'll get you there....but we're not going to write the code for you.