New At PIC's, need some help with code

[mister_e]

IF PORTA.0 = GOTO Main

there's a missing value in that one, 0 or 1

Also, as you're using PORTB and PORTC, there's no special need to use the array method. Just use
HIGH x (from 0 to 15)=> refer to section 4.11 of your PBP manual

something like

X VAR BYTE ' For loop & bit index pointer
ADCON1 = 7 ' All digital
    '   
    ' Clear portB&C pins
PORTB = 0 
PORTC = 0 
    '
    ' Make them all outputs
TRISB = 0 
TRISC = 0
    '
    ' Set PORTA.1 as input
TRISA.1=1
    
Main:
     FOR X = 0 TO 7
         HIGH X ' Set all pins high
         PAUSE 200
         NEXT X
Off:
    FOR X = 0 TO 7
        LOW X ' Set all pins low
        PAUSE 200
        NEXT X

    GOTO Main