hmm das programm läuft jetzt mit der do rautine aber die relais schalten immer noch nicht und ich habe keine ahnung wieso!!!
ich verzweifel hier langsam das ist die routiene mit der ich es jetzt versucht habe und es klapt auch nicht!!!:

DO: T$= INKEY$:Loop until t$<>""
Select Case RIGHT$(T$, 1)
CASE "H": Gosub Relais1 'Hoch
CASE "K": Gosub Relais2 'Links
CASE "M": Gousb Relais3 'Rechts
CASE "P": Gosub Relais4 'Runter
'Die Nummern 1-4 musst du so ändern, wie du sie haben willst.