'*****  auszug beispielcode für bascom seriell-empfang  *********************


' **************************   serial port  **********************
Config Serialin = Buffered , Size = 15 , Bytematch = 13  'int aufrufen wenn CR empfangen

Dim Serinpstr As String * 20 
Dim Cr_received As Bit 


Enable Interrupts

' hauptschleife
do
if Cr_received = 1 then gosub parser


loop

end.



' unterprogramm zur auswertung
parser:
dim i as byte
Dim Ts As String * 20
Dim Ts2 As String * 1

Ts = ""
Ts2 = ""


Input Serinpstr Noecho  ' zeichenfolge holen


' *****  evt. vohandene CR und LF am anfang und ende abtrennen
For I = 1 To Len(serinpstr)
Ts2 = Mid(serinpstr , I , 1)
If Asc(ts2) <> 10 And Asc(ts2) <> 13 Then Ts = Ts + Ts2
Next I


Serinpstr = Ts  ' enthält die bereinigte eingangszeichenfolge



'  auswerten was die zeichenfolge war
If Serinpstr = "div0" Then
   print "hallo div 0"
   
   End If
If Serinpstr = "div1" Then
  print "hallo div1"
   End If

' ganz wichtig ...   den Cr_received zurücksetzen
Cr_received = 0


return







' unterprogramm für charmatch
Serial0charmatch:
Cr_received = 1

Return