Hi,
Code:
Config Pind.2 = Input                                       'Einzelne Pins werden mit "config pin"
Config Pind.3 = Input                                       'und nicht mit "config port" konfiguriert
Config Portb = Output

Set Pind.2                                                  'Pullups einschalten
Set Pind.3

portd.2=1
portd.3=1

'Pins werden immer mit "PIN" und nicht mit "PORT" Gelesen.
'beim schreiben also immer "port", beim lesen "pin"

do

  If Pind.2 = 0 Then
   Portb.2 = 1                                              'Relais 1 aus
   Portb.3 = 0                                              'Relais 2 ein
  End If

  If Pind.3 = 0 Then
   Portb.2 = 0                                              'Relais 1 ein
   Portb.3 = 1                                              'Relais 2 aus
  End If
Loop

End
Noch was, der mittlere Pin des Schalters muß gegen Masse...


Gruß
Christopher