New At PIC's, need some help with code

[SOHCKing03]

Okay I updated it again...

'---------- FRONT TWO PICS' CODE
X VAR BYTE
ADCON1 = 7  'sets all as digital
PORTB = 0  'clears port pins
TRISB = 0  'sets as outputs

Turn_On:                        'turns each LED on
     FOR X = 0 TO 7
          HIGH X
          PAUSE 200
     NEXT X

PAUSE 7000                     'waits for sequence to finish


Turn_Off:                       'turns each LED off
     FOR X = 0 TO 7
          LOW X
          PAUSE 200
     NEXT X

PAUSE 6000

GOTO Turn_On

'---------- SIDE TWO PICS' CODE
X VAR BYTE
ADCON1 = 7  'sets all as digital
PORTB = 0  'clears all port pins
PORTC = 0
TRISB = 0  'sets all as outputs
TRISC = 0
TRISA.0 = 1  'set as input

Waiting:                              'wait for high signal

     IF PORTA.0 = 1 THEN GOTO Turn_On

GOTO Waiting

Turn_On:                               'turns each LED on
     FOR X = 0 TO 15
          HIGH X
          PAUSE 200
     NEXT X


Wait_Again:                       'waits for low signal

     IF PORTA.0 = 0 THEN GOTO Turn_Off

GOTO Wait_Again

Turn_Off:                              'turns each LED off
     FOR X = 0 to 15
          LOW X
          PAUSE 200
     NEXT X

GOTO Waiting                     'restarts

'---------- BACK TWO PICS' CODE
X VAR BYTE
ADCON1 = 7  'sets all as digital
PORTB = 0  'clears all port pins
TRISB = 0  'sets all as outputs
TRISA.0 = 1  'set as input

Waiting:                             'wait for high signal

     IF PORTA.0 = 1 THEN GOTO Turn_On

GOTO Waiting

Turn_On:                             'turns each LED on
     FOR X = 0 TO 7
          HIGH X
          PAUSE 200
     NEXT X


Wait_Again:                   'waits for low signal

     IF PORTA.0 = 0 THEN GOTO Turn_Off

GOTO Wait_Again

TURN_Off:                              'turns each LED off
     FOR X = 0 to 7
          LOW X
          PAUSE 200
     NEXT X

GOTO Waiting                    'restarts

I changed the names to unreserved names and I took out my INPUT statements.