Probier 'mal, die Zeile ...:
Config Porta = Output
... zu ersetzen durch ...:
Config Pina.0 = Output

Gruß Dirk