Hi,

wie Dirk schon sagt, arbeite mit Zwischenvariablen für die Abfragen, außerdem schreib das "Then" in die gleiche Zeile wie das "IF".

Und dann hast Du bei "Tastenabfrage" noch ein paar Schreibfehler im Programm, z. B. hier:

Code:
Do                                                             'CD schiesst 
      Waitms 100 
      Tast = Tasetnabfrage() 

      If I = Gelbt * 10
Es gibt werder "Tast" noch "Tasetnabfrage" in Deinem Code...

Grüße

Torsten