Digital IC Tester

I try to write code for digital ic tester. problem is how i define pin as toggle.
eg. i want one place porta.0 as input pin and other place i want same pin as output. is it possible ?

this is my example that is working for 7414 AND 7404

' ---- CHIP PIC16F877A -----

INCLUDE "MYLCD.BAS"
CMCON = 7
ADCON1 = 7

INPUT PORTB.7
INPUT PORTB.6

PAUSE 100

MAIN: PAUSE 500
LCDOUT $FE, 1
LCDOUT "IC TESTER"
IF PORTB.7 = 1 THEN GOTO TEST
GOTO MAIN

TEST:
PAUSE 50
LCDOUT $FE,1
LCDOUT "SEARCHING......"
PAUSE 500
OUTPUT PORTA.2 ' ---- +5v for pin no. 1 of unknown digital ic (for 14 pin ic )
OUTPUT PORTC.7 ' ---- GND for pin no. 7 of unknown digital ic (for 14 pin ic )
INPUT PORTC.6 ' ---- input from 2 no. pin of unknown digital ic (for 14 pin ic )
HIGH PORTA.2 ' high pim 1 of unknown digital ic
LOW PORTC.7 ' Low GND pin
IF PORTC.6 = 1 THEN GOTO LS14
pause 50

WRO:
PAUSE 50
LCDOUT $FE,1
LCDOUT "BAD CHIP......"
PAUSE 1000
GOTO MAIN

LS14:
PAUSE 50
LCDOUT $FE,1
LCDOUT "7404, 7414 FOUND."
IF PORTB.6 = 1 THEN GOTO MAIN
GOTO LS14