home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol134 / globals.rn$ < prev    next >
Encoding:
Text File  |  1984-04-29  |  1004 b   |  25 lines
  1. CONST
  2.     rnleft   = 9;                 {digits to left of decimal point    }
  3.     rnright  = 2;                 {digits to right of decimal point   }
  4.     rnmax    = rnleft + rnright;
  5.     rnlen    = rnmax + ((rnleft-1) div 3) + 2;
  6.  
  7. TYPE
  8.     rndex    = 1..rnmax;          {No. display digits to be handled   }
  9.     rnlendx  = 0..rnlen;          {Index to real-number string        }
  10.     rnpair   = ARRAY [1..2] OF REAL;
  11.     rnlist   = ARRAY [rndex] OF rnpair;
  12.     rnstr    = string rnlen;
  13.     rn$ind   = (full,compact);
  14.     longstr  = string longlength;
  15.     string0    = string 0;          {types for length and setleng     }
  16.  
  17. VAR
  18.     rnset     : rnlist;
  19.     rnlimit   : REAL;              {can't convert numbers this big    }
  20.     rnmin     : REAL;              {value for half-adjusting          }
  21.     rntoobig  : BOOLEAN;           {indicator: real number too big    }
  22.     grerror   : BOOLEAN;           {indicator: invalid character given}
  23.  
  24. PROCEDURE setlength (var y: string0;  x: INTEGER);   EXTERNAL;
  25.