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.