bascom pin ablesen

hab ma ne frage zu meinem kleinen programm
benutze einen at90s2313 und möchte gern ablesen ob am PD0 eine 1 oder
ne 0 anliegt.

bekomme aber die fehlermeldung beim compilieren

"invalid datatype" in der zeile      if portd.0 = 1

hier der code:

Dim A As Byte
$crystal = 4000000


Config Portb = Output
Config Portd = Input


Schleife:

If Portd.0 = 1

Cls
Lcd "1111111"

Else

Waitms 2000

Cls
Lcd "0000000"

Waitms 2000

Goto Schleife