vielen dank das hat mir sehr weiter geholfen
aber gibt es eine möglichkeit mit inkey() strings zu empfangen?
so in etwa in dieser Art:

Code:
$regfile = "m32def.dat"
' bei Mega 16 $regfile = "m16def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000                                         'Quarzfrequenz
$baud = 9600
Dim A As String

Do
A = Inkey()
If A > 0 Then
    Select Case A
      Case Mot001                                           'Das ist der ASCII Code für Taste "1"
         Sound Portd.7 , 400 , 450
         Print "motor 1"
      Case Mot002                                           'Das ist der ASCII Code für Taste "2"
         Sound Portd.7 , 400 , 250
         Print "motor 2"
         Goto 0
   End Select
End If
Loop
also so geht es irgendwie nicht gibt es eine andere möglichkeit als inkey()? input()??

vilen dank für eure antworten