Eigentlich dachte ich mehr an sowas:
Code:
Dim w As Byte

pulsein w , PIND , 1 , 0
print w
end