Pin mit Variable vergleichen

Hallo

Hab da n Problem.

Ich will in Bascom den Zustand eines Pins mit einer Variable vergleichen.
funzt aber nicht so ganz. Hab leider keinen Schimmer warum.

Dachte mir, vielleicht kann mir hier einer weiterhelfen.

Quelltext:

$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600

Dim Links As Byte
Dim Rechts As Byte
Dim Enter As Byte
Dim Status As Byte

Abfrage:

If Pina.1 = 1 Then Status = 1 Else Status = 0
End If

Do

If Pina.1 = Status Then
Else Goto Linksdreh
End If

If Pina.2 = Status Then
Else Goto Rechtsdreh
End If

Loop

Linksdreh:

Set Pind.1
Wait 1
Reset Pind.1
Waitms 500
Goto Abfrage

Rechtsdreh:

Set Pind.3
Wait 1
Reset Pind.3
Waitms 500
Goto Abfrage

Greeez