Probiers mal hiermit.


Code:
$regfile = "m8535.dat"
$crystal = 10000000
$baud = 9600

Dim Rx_count As Byte                                        'ischarwaiting variabel
Dim Rx_data As Byte                                         'Empfangenen Daten

Config Serialin = Buffered , Size = 10

Do
   Rx_count = Ischarwaiting()
   If Rx_count > 0 Then
      Rx_data = Inkey()
      Select Case Rx_data
         Case 70
            Print "Habe 70 erhalten."
         Case 80
            Print "Habe 80 erhalten."
      End Select
   End If
Loop

End
getaco