    SYSTEM MODULE RTS;

    TYPE

      NativeString* = POINTER TO RECORD
                      END;

      CharOpen* = POINTER TO ARRAY OF CHAR;

      NativeException* = POINTER TO EXTENSIBLE RECORD
                         END;

      NativeObject* = POINTER TO ABSTRACT RECORD
                      END;

    VAR
      defaultTarget- : ARRAY 4 OF CHAR;

    PROCEDURE StrToReal*(IN  p0 : ARRAY OF CHAR;
                         OUT p1 : REAL;
                         OUT p2 : BOOLEAN);

    PROCEDURE StrToLong*(IN  p0 : ARRAY OF CHAR;
                         OUT p1 : LONGINT;
                         OUT p2 : BOOLEAN);

    PROCEDURE longBitsToReal*(p0 : LONGINT) : REAL;

    PROCEDURE ClassMarker*(p0 : ANYPTR);

    PROCEDURE intBitsToShortReal*(p0 : INTEGER) : SHORTREAL;

    PROCEDURE realToLongBits*(p0 : REAL) : LONGINT;

    PROCEDURE RealToStr*(    p0 : REAL;
                         OUT p1 : ARRAY OF CHAR);

    PROCEDURE LongToStr*(    p0 : LONGINT;
                         OUT p1 : ARRAY OF CHAR);

    PROCEDURE shortRealToIntBits*(p0 : SHORTREAL) : INTEGER;

    PROCEDURE getStr*(p0 : NativeException) : CharOpen;

    PROCEDURE IntToStr*(    p0 : INTEGER;
                        OUT p1 : ARRAY OF CHAR);

    PROCEDURE hiInt*(p0 : LONGINT) : INTEGER;

    PROCEDURE Throw*(IN  p0 : ARRAY OF CHAR);

    PROCEDURE GetDateString*(OUT p0 : ARRAY OF CHAR);

    PROCEDURE loInt*(p0 : LONGINT) : INTEGER;

    PROCEDURE GetMillis*() : LONGINT;

    PROCEDURE StrToInt*(IN  p0 : ARRAY OF CHAR;
                        OUT p1 : INTEGER;
                        OUT p2 : BOOLEAN);

    END RTS.