home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / languages / pot / potsrc / lib / Core / mod / reals < prev   
Text File  |  1995-01-22  |  880b  |  40 lines
  1. MODULE Reals;   (*NW 9.2.89 / 6.12.91*)
  2.   
  3.     PROCEDURE Expo*(x: REAL): INTEGER;
  4.     END Expo;
  5.   
  6.     PROCEDURE ExpoL*(x: LONGREAL): INTEGER;
  7.     END ExpoL;
  8.   
  9.     PROCEDURE SetExpo*(e: INTEGER; VAR x: REAL);
  10.     END SetExpo;
  11.   
  12.     PROCEDURE SetExpoL*(e: INTEGER; VAR x: LONGREAL);
  13.     END SetExpoL;
  14.   
  15.     PROCEDURE Ten*(e: INTEGER): REAL;
  16.     END Ten;
  17.   
  18.     PROCEDURE TenL*(e: INTEGER): LONGREAL;
  19.     END TenL;
  20.   
  21.     PROCEDURE Convert*(x: REAL; n: INTEGER; VAR d: ARRAY OF CHAR);
  22.     END Convert;
  23.   
  24.     PROCEDURE ConvertL*(x: LONGREAL; n: INTEGER; VAR d: ARRAY OF CHAR);
  25.     END ConvertL;
  26.   
  27.     PROCEDURE ConvertH*(x: REAL; VAR d: ARRAY OF CHAR);
  28.     END ConvertH;
  29.   
  30.     PROCEDURE ConvertHL*(x: LONGREAL; VAR d: ARRAY OF CHAR);
  31.     END ConvertHL;
  32.   
  33.     PROCEDURE FSR*(): LONGINT;
  34.     END FSR;
  35.   
  36.     PROCEDURE SetFSR*(status: LONGINT);
  37.     END SetFSR;
  38.   
  39.   END Reals.
  40.