Achso!
Als ich den Titel gelesen hab, hab ich mir schon gedacht "Na viel Spaß beim Algo coden" *g*

Dann nim Bascom, wenn du damit nicht viel Arbeit haben willst! Da gibts für alles fertig Routinen usw.
Ich hab mir mal was gecodet, dass er alle Daten vom Puffer des seriellen Ports holen soll und in ne Variable zusammensetzen soll. Das ganze wird dann anschließend wieder an den PC geschickt:

Code:
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 56700

Dim A As String * 120
Dim I As Word
Declare Sub Do_rx

Do
   If Ucsra.rxc = 1 Then           'Wenn diese Variable 1 ist, liegen Daten im Puufer
      Do_rx                              'Subfunktion aufrufen
      Print A                             'Dan ganzen Kram ausgeben, den die Subfunktion Do_rx zurückgab
      A = ""                                'Variableninhalt löschen
   End If
Loop




Sub Do_rx
   For I = 1 To 40000                                         'Schleife basteln, dass auch garantier jedes Zeichen vom Buffer gelesen werden (40000 Zeichen werden wohl nie da anliegen +g* Und wenn doch, ist der RAM voll ;) )
      If Ucsra.rxc = 1 Then A = A + Chr(udr)       'Hier wird die Variable zusammengebastelt. Udr ist jeweils immer ein Zeichen, dass im Puffer liegt. Da die Zeichen im Hexadezimalen Zahlensystem im Puffer liegen, müssen die Zahlen mit dem Befehl Chr() in ASCII Zeichen umgewandelt werden
   Next
End Sub
Wenn du fragn hast, poste es hier rein