Nochmal die Codes, hab ein paar kleinere Sachen geändert.
Code:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 19200

Dim Text As Word

Do
Input Text
Print Text
Loop

End
Code:
$regfile = "m32def.dat"
$crystal = 4000000
$baud = 19200
$include "declares.bas"

Print "funktioniert rs232"
Wait 1

Config Portc.0 = Output
Portc.0 = 0

Open "Comd.6:2400,8,n,1" For Output As #1
Open "Comd.3:2400,8,n,1" For Input As #2
Dim Text As Word
Dim Textneu As Word

Print "2"
Print #1 , "2"
Input #2 , Textneu
Print Textneu

End

$include "functions.bas"
Das wäre das minimale Programm.

Was meinst du mit dem Satz:
Ich nehme an, dass ich einfach schlecht gebastelt habe und sich die Kabel kreuzen.
??????

jon