home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol133 / flpttype.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  478 b   |  23 lines
  1. type
  2.     carrytyp    = 0..1;
  3.     signtype    = (plus, minus);
  4.     digits        = 0..9;
  5.     byte        = 0..255;
  6.     fraction    = array[0..n] of byte;
  7.     double_fraction = array[0..twicen] of byte;
  8.     long_fraction    = array[0..twicenn] of digits;
  9.     newinteger    = record
  10.               s  :  signtype;
  11.               f  :  fraction
  12.               end;
  13.     newreal        = record
  14.               s  :  signtype;
  15.               f  :  fraction;
  16.               e  :  byte
  17.                   end;
  18.     extdatum    = record
  19.               s  :  signtype;
  20.               f  :  array[0..nn] of digits;
  21.               e  :  integer
  22.               end;
  23.