Code:
'--- [ Dim. Variables ] --------------------------------------------------------
Dim Address As Byte                                         'Aktuelle Moduladresse
Dim New_address As Byte                                     'Nach Start eingestellte Moduladresse ! nicht aktuell

Dim Channel As Byte                                         'Aktueller Kanal
Dim New_channel As Byte                                     'Nach Start eingestellter Kanal ! nicht aktuell

Dim Baud_com1 As Integer                                    'Baudrate fuer Com1
Dim Baud_com2 As Integer                                    'Baudrate fuer Com2
Dim Databits_com1 As Byte                                   'DataBits fuer Com1
Dim Databits_com2 As Byte                                   'DataBits fuer Com2
Dim Parity_com1 As Byte                                     'Parity fuer Com1
Dim Parity_com2 As Byte                                     'Parity fuer Com2
Dim Stopbits_com1 As Byte                                   'StopBits fuer Com1
Dim Stopbits_com2 As Byte                                   'StopBits fuer Com2

Dim Buffer_ps2 As String * 20                               'Buffer fuer PS2
Dim Buffer_com1 As String * 20                              'Buffer fuer Com1
Dim Buffer_com2 As String * 20                              'Buffer fuer Com2
Dim Buffer_radio As String * 20                             'Buffer fuer Funkuebertragung

Dim Datatosendbuffer(10) As String * 20                     'Buffer fuer Daten welche gesendet werden sollen

'Helping Variables

Dim I1 As Integer
Dim I2 As Integer
Dim B1 As Byte
Dim B2 As Byte
Dim W1 As Byte
Dim W2 As Byte
Dim S1 As String * 20

'--- [ Constants ] -------------------------------------------------------------
Const Radio_begin = "<"
Const Radio_end = ">"

'--- [ Read eeram ] ------------------------------------------------------------
'0: Baud_COM1          Word  0
'1: Baud_COM1          Word  1
'2: Baud_COM2          Word  0
'3: Baud_COM2          Word  1
'4: DataBits_COM1      Byte  0
'5: DataBits_COM2      Byte  0
'6: Parity_COM1        Char/Byte 0
'7: Parity_COM2        Char/Byte 0
'8: StopBits_COM1      Byte  0
'9: StopBits_COM2      Byte  0

W1 = 0
Readeeprom Baud_com1 , W1
Incr W1
Incr W1
Readeeprom Baud_com2 , W1
Incr W1
Incr W1
Readeeprom Databits_com1 , W1
Incr W1
Readeeprom Databits_com2 , W1
Incr W1
Readeeprom Parity_com1 , W1
Incr W1
Readeeprom Parity_com2 , W1
Incr W1
Readeeprom Stopbits_com1 , W1
Incr W1
Readeeprom Stopbits_com2 , W1
Incr W1

'--- [ Open Communication ports ] ----------------------------------------------
'S1 = "COMD.7:" ; Str(baud_com1) ; "," ; Str(databits_com1) ; "," ; Chr(parity_com1) ; "," ; Str(stopbits_com1)
Open "COMD.7:9600,8,n,1" For Output As #1                   'SUART2.TXD
Open "COMD.6:9600,8,n,1" For Input As #2                    'SUART2.RXD
Open "COMD.5:9600,8,n,1" For Output As #3                   'SUART1.TXD
Open "COMD.4:9600,8,n,1" For Input As #4                    'SUART1.RXD
Das mit dem Eprom is notwendig