Hier ist ein kleines Programm welches 1 Zeichen empfängt und in einem String speichert. Im Hauptprogramm wird dieses Zeichen dann ausgewertet:

Code:
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 19200

Dim Eingabe As String * 1

On URXC OnRxD
Enable URXC
Enable Interrupts

Do

If Eingabe = "1" Then
   Print "Zahl 1"
   Eingabe = ""
End If

Loop
End

Onrxd:

  Eingabe = Chr(udr)

Return