PROCEDURE CharToBytes* (r: CHAR): POINTER TO ARRAY OF BYTE;
…
PROCEDURE SIntToBytes* (r: SHORTINT): POINTER TO ARRAY OF BYTE;
…

 MODULE C2cpStrings;
…
   TYPE DynString* = POINTER TO ARRAY OF CHAR;

   PROCEDURE MakeDynString* (s: ARRAY OF CHAR): DynString;
      …
   END MakeDynString;

   PROCEDURE MakeDynChar* (zeichen: CHAR; len: INTEGER): DynString;
      …
   END MakeDynChar;

MODULE TcpBytes;

    IMPORT
        SYSTEM, Kernel;

    TYPE
        B8 = ARRAY 8 OF BYTE;

    PROCEDURE WriteReal* (r: REAL; VAR b: ARRAY OF BYTE; VAR pos: INTEGER);
        VAR i: INTEGER; le: B8;
    BEGIN
        IF Kernel.littleEndian THEN
            le := SYSTEM.VAL(B8, r);
            FOR i := 0 TO 7 DO b[pos + i] := le[i] END
        ELSE
            le := SYSTEM.VAL(B8, r);
            FOR i := 0 TO 7 DO b[pos + i] := le[7 - i] END
        END; INC(pos, 8)
    END WriteReal;

    PROCEDURE WriteRealS* (r: REAL; VAR b: ARRAY OF BYTE; pos: INTEGER);
        VAR s: INTEGER;
    BEGIN
        s := pos; WriteReal(r, b, s)
    END WriteRealS;

    PROCEDURE RealToBytes* (r: REAL): POINTER TO ARRAY OF BYTE;
        VAR res: POINTER TO ARRAY OF BYTE; s: INTEGER;
    BEGIN
        NEW(res, 8); s := 0;
        WriteReal(r, res, s);
        RETURN res
    END RealToBytes;

    PROCEDURE ReadReal* (IN b: ARRAY OF BYTE; VAR pos: INTEGER): REAL;
        VAR i: INTEGER; le: B8;
    BEGIN
        IF Kernel.littleEndian THEN
            FOR i := 0 TO 7 DO le[i] := b[pos + i] END
        ELSE
            FOR i := 0 TO 7 DO le[7 - i] := b[pos + i] END
        END; INC(pos, 8);
        RETURN SYSTEM.VAL(REAL, le)
    END ReadReal;

    PROCEDURE ReadRealS* (IN b: ARRAY OF BYTE; pos: INTEGER): REAL;
        VAR s: INTEGER;
    BEGIN
        s := pos;
        RETURN ReadReal(b, s)
    END ReadRealS;
   
    PROCEDURE BytesToReal* (b: ARRAY 8 OF BYTE): REAL;
        VAR s: INTEGER;
    BEGIN
        s := 0;
        RETURN ReadReal(b, s);
    END BytesToReal;

END TcpBytes.