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
Lesezeichen