Com Problem

[Goldenflash]

Hm irgendwie will die ganze Sach noch nicht so ganz
Im Wiki hab ich folgenden Code gefunden:

Dim Outpt(24) As Byte At Anywhere Overlay
Dim Outpnt As Byte

Dim Stuff As Byte    ' das Zeichen, daß ein stuffing Byte da war
Dim Messg As Byte    ' das Zeichen, daß eine Message gestartet wurde

receive_one_char:
  if ischarwaiting() = 1 then 
         Temp = Inkey()
         If Stuff = 0 And Temp = "A" Then
               Stuff = 1
         Else
               If Stuff = 1 And Temp <> "A" Then
                  Stuff = 0               ' Message starten 
                  Messg = 1
                  Outpnt = 1

                  Outpt(outpnt) = Temp    ' Erstes Zeichen speichern
                  Incr Outpnt

               Else
                  If Messg = 1 Then

                     Outpt(outpnt) = Temp   ' weiter Zeichen 
                     Incr Outpnt            ' speichern 

                  End If
               End If
               Stuff = 0
         End If
  End if

Leider versteh ich ihn nicht so ganz, naja eigentlich versteh ich NULL .



Gibt es auch eine Möglichkeit einen kompletten String auszulesen?

danke schonmal