DEFINITION MODULE NumTypes;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1990 PMI
 *  Portland, Oregon
 *  All rights reserved
 *  (503) 236-1788
 *
 *  $Header:   D:/logfiles/masters/numtdef.jpv   1.1   03 Dec 1990 22:49:28   coleb  $
 *
 *)

(* JPI Version *)

TYPE
  Real8 = LONGREAL;

VAR
  L0, L1, L2, L65535: LONGINT;
  R8TenPowers : ARRAY [0..9] OF Real8;

  PROCEDURE REALToReal8( TheReal: REAL ): Real8;

  PROCEDURE Real8ToREAL( TheReal8: Real8 ): REAL;

  PROCEDURE Init();

END NumTypes.