Huhu Willa,
hab das Programm mal angetestet, bin wie folgt vorgegeangen.

Code:
$regfile = "m8def.dat"
$crystal = 1000000


Dim A As Byte

Do
A = Inkey()
If A > 0 Then
    Select Case A
      Case 49                                               'Das ist der ASCII Code für Taste "1"
         Sound Portd.7 , 400 , 450
         Print "Taste 1 wurde gedrückt!"
      Case 50                                               'Das ist der ASCII Code für Taste "2"
         Sound Portd.7 , 400 , 550
         Print "Taste 2 wurde gedrückt!"
      Case 51                                               'Das ist der ASCII Code für Taste "3"
         Sound Portd.7 , 400 , 650
         Print "Taste 3 wurde gedrückt!"
      Case 114                                              'Das ist der ASCII Code für Taste "r"
         Print "Reset..."
         Goto 0
   End Select
End If
Loop
mit Bascom in den MC geschrieben und Bacom geschlossen.
Portd.7 mit einem summer verbunden.
Dein Beispielprogramm gestartet und "com4" gewählt und "port öffnen" Taste gedrückt.

Wenn ich jetzt die 4 "Bedientaster" betätige passiert garnix. Bild  
Es scheint aber ein Signal Auf der MySmartUsb-Platine anzukommen. (Kurzes aufleuchten der roten Led bei Tasterdruck)

gruß Cali Bild