sorry toggeln geht:

Code:
Dim Var As Byte

Config Pind.2 = Output                                      ' portB.0 is an output now




Do

  Toggle Portd.2                                            'toggle state

  Waitms 2000                                               'wait for 1 sec

Loop