DEFINITION MODULE SUPCONV; FROM SUPINT IMPORT SuperInteger; PROCEDURE IntToSup ( I : LONGINT; A : SuperInteger ); PROCEDURE SupToInt ( A : SuperInteger; VAR I : LONGINT ); PROCEDURE CardToSup ( C : LONGCARD; A : SuperInteger ); PROCEDURE SupToCard ( A : SuperInteger; VAR C : LONGCARD ); PROCEDURE SupToReal ( A : SuperInteger; VAR R : REAL ); PROCEDURE RoundLongRealToSup ( R : LONGREAL; A : SuperInteger ); PROCEDURE LongRealToSup ( R : LONGREAL; A : SuperInteger ); PROCEDURE SupToLongReal ( A : SuperInteger; VAR R : LONGREAL ); END SUPCONV.