Topspeed_JPI/TS/REP16/NUMTYPES.MOD

IMPLEMENTATION 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/numtmod.jpv   1.1   03 Dec 1990 22:49:30   coleb  $
 *
 *)

VAR
  Initialized : BOOLEAN;

  PROCEDURE Init();
    BEGIN
      IF Initialized THEN
        RETURN;
      ELSE
        Initialized := TRUE;
      END;
      L0 := VAL( LONGINT, 0 );
      L1 := VAL( LONGINT, 1 );
      L2 := VAL( LONGINT, 2 );
      L65535 := VAL( LONGINT, 65535 );
      R8TenPowers[0] := 10.0;
      R8TenPowers[1] := 100.0;
      R8TenPowers[2] := 10000.0;
      R8TenPowers[3] := 1.0E8;
      R8TenPowers[4] := 1.0E16;
      R8TenPowers[5] := 1.0E32;
      R8TenPowers[6] := 1.0E64;
      R8TenPowers[7] := 1.0E128;
      R8TenPowers[8] := 1.0E256;
    END Init;

(* JPI version *)

  PROCEDURE REALToReal8( TheReal: REAL ): Real8;
    BEGIN
      RETURN VAL( Real8, TheReal );
    END REALToReal8;

  PROCEDURE Real8ToREAL( TheReal8: Real8 ): REAL;
    BEGIN
      RETURN VAL( REAL, TheReal8 );
    END Real8ToREAL;

BEGIN
  Initialized := FALSE;
END NumTypes.