leider funktioniert es nicht...

so sieht mein Programm aus:
Code:
' ---------------RN-Mega128Funk übliche ----ANFANG--------------

$regfile = "m128def.dat" ' Bei Mega 128 "
$framesize = 40
$swstack = 40
$hwstack = 40

$crystal = 16000000                                         'Quarzfrequenz
$baud = 19200                                               'Baudrate für Funkmodul
$baud1 = 9600                                               'Baudrate für MAX

Config Ping.0 = Output                                      'Spannung an LCD aktivieren
Lcdpower Alias Portg.0

Config Pine.2 = Output
Rdy_hostempfangsbereit Alias Porte.2                        'Auf Low setzen wenn Empfangsbereit für Daten vom Funkmodul

Config Pine.5 = Input
Bsy_funkmodulsendebereit Alias Porte.5                      'Ist Low wenn Funkmodul frei zum senden


Open "com2:" For Binary As #2                               'Ausgabe über zweite serielle Schnittstelle (MAX)

Sound Portg.2 , 400 , 450                                   'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 250                                   'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 450                                   'BEEP bei RN-Mega128Funk

Config Serialin = Buffered , Size = 100                     'Empfangsbuffer für Funkmodul anlegen
Config Serialout1 = Buffered , Size = 100                   'Ausgabebuffer für normalse RS232
Enable Interrupts
' ---------------RN-Mega128Funk übliche ----ENDE--------------


Dim Receive As Word                                         ' Empfangen Daten
Dim Send As Word                                            ' Daten zum Senden

Rdy_hostempfangsbereit = 0

Do

Input "Eingabe:" , Send                                     'zu sendenden Text Eingeben
Print Send                                                  'und senden
Print #2 "Bestätigt:" , Send

Wait 2

Receive = Inkey()                                           'empfangenen Text zuweisen
If Receive <> 0 Then Print #2 "Empfangen:" , Receive        'und ans RS232 ausgeben
    Loop



End
hat jemand einen Vorschlag?