Code:
'Roboter Projekt
'-------------------------------------------------------------- ---------------
$regfile = "m32def.dat"                                     'AT Mega 32
$crystal = 8000000                                          'Quarz: 8 MHz

'------------------ Pin setzten -----------------------------------------------
Ddra = &B11111000                                           'Pin PA 3-7 auf Output setzen
Porta = &B11111000                                          'Pin PA 3-7 auf High setzen

Ddrb = &B00000001                                           'Pin PB 0 auf Output setzen
Portb = &B00000001                                          'Pin PB 0 auf High setzen

'------------------------------------------------------------------------------
'------------------ MainLoop --------------------------------------------------
'------------------------------------------------------------------------------
Do

'------------------ Motore einschalten ----------------------------------------
   Porta.3 = 1                                              'Motor Rechts einschalten
   Porta.6 = 1                                              'Motor Links einschalten

'######################################################################################################################
  If Pina.0 = 0 Then                                        'Wenn bei PA0 Spannung anliegt
  'rückwärts fahren
   Porta.4 = 0                                              'vorwärts Rechts
   Portb.0 = 0                                              'vorwärts Links
   Porta.5 = 1                                              'rückwärts Rechts
   Porta.7 = 1                                              'rückwärts Links
'######################################################################################################################
  Else                                                      'Wenn keine Spannung bei PA0, PA1 und PA2 anliegt
  'vorwärts fahren
   Porta.4 = 1                                              'vorwärts Rechts
   Portb.0 = 1                                              'vorwärts Links
   Porta.5 = 0                                              'rückwärts Rechts
   Porta.7 = 0                                              'rückwärts Links
  End If
'######################################################################################################################


Loop
End
wie schon oben beschrieben , das selbe ergebnis das er nicht mehr vorwärts fahren will