es geht

hier das Programm
'Roboter Projekt
'-------------------------------------------------------------- ---------------
$regfile = "m32def.dat" 'AT Mega 32
$crystal = 8000000 'Quarz: 8 MHz
'------------------ Pin setzten -----------------------------------------------
Ddra = &B11111111 'Pin PA 3-7 auf Output setzen

Do

If Pina.0 = 1 Then Reset Porta.4 Else Set Porta.4

Loop
End

aber nur weil jetzte A0 auch Output ist ...
Ddra = &B11111111