PinX.Y = input
PortX.Y =1

PortY.X = output

Do

If Pin X.Y = 0 then
waitms 100
toggle PortY.X
end if

Loop

So einfach kann das sein....

VG
Neutro