Hallo nochmal,

danke für die schnellen Antworten.

Also das mit dem INPUT Befehl habe ich mir auch so gedacht. Nur leider funktioniert das nicht so wie ich will. Hab hiermal den Quellcode. Evtl. sieht ja jemand ein Fehler oder weiß was da noch fehlt.

$regfile = "m8def.dat"
$crystal = 3686400
$baud = 9600


Dim Text As String * 20
Config Portb = Output

Do
Input "Was" , Text
If Text = "LEDan" Then
Portb.0 = 1
Sound Portb.1 , 300 , 200
End If
If Text = "u" Then
Portb.0 = 0
Sound Portb.1 , 300 , 350
End If
Wait 1
Loop
End