ok also nach etlichem hin- und her gehts auf einmal, allerdings etwas anders:

Code:
  
do
  Wait 3
 
  Call Transmit_102
  'commando senden, dann antwort abwarten
  'antwort ist 200 1 0 244 201  (start, id, error, checksum, end)

  Check = Waitkey()

   If Check = 200 Then

      For I = 1 To 4
         Check = Waitkey()
         Ar(i) = Check
      Next
   End If
      If Ar(1) = 1 Then  (das erste byte nach der 200 muss 1 sein)
        'dann kontroll led blinken lassen
      Porta.0 = 0
      Waitms 100
      Porta.0 = 1
      Waitms 100
      Porta.0 = 0
      Waitms 100
      Porta.0 = 1
      Waitms 100
      Ar(1) = 0
   End If
loop

ok also das läuft kontinuierlich durch.
als erstes brauch ich jetzt mal nen timeout, wenn innerhalb von 10ms nicht geantwortet wird soll das kommando erneut gesendet werden.

wenn ich das hab müsst ich eigentlich klar kommen.

vielen dank schonmal und wenn wer tipps zum timeout hat ... ich habe aber noch nie mit timern gearbeitet ....

werd mich mal umschauen, glaub ich hab im forum irgendwo mal was gelesen