Dim UKSP_Puffer_Bytes(100) As Byte
Dim UKSP_Puffer(100) As Int
Dim Bytes_wandeln As RandomAccessFile
Bytes_wandeln.Initialize3(UKSP_Puffer_Bytes,False)
For i=0 To UKSP_Puffer.Length
'Umwandlung der vorzeichenbehafteten Bytes (-127 bis 128) in vorzeichenlose Bytes (0 bis 255)
UKSP_Puffer(i)=Bytes_wandeln.ReadUnsignedByte(i)
If UKSP_Puffer(i)=13 Then
.....