Natührlich! Wie konnte ich das Übersehen!
Aber... das Unterprog "micro" funktioniert doch eigentlich...Man sollte es natührlich berichtigen.Also:
Code:
#micro
for GP=1 to 100
SAMPLE=MIC
if SAMPLE > HSAMPLE then HSAMPLE=SAMPLE
next
if HSAMPLE < 10 then gosub LED1ON else gosub LED1OFF
if HSAMPLE >= 10 then return
HSAMPLE=0
goto micro
mein Problem war ja eigentlich das Unterprog "fahren".
aber trotzdem vielen dank.

Gruß dj