home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBO9.ZIP / DUMPHEX.INC < prev    next >
Encoding:
Text File  |  1984-07-10  |  254 b   |  19 lines
  1.  
  2. procedure dumphex(a:integer);
  3.  
  4. const
  5.   HEX = '0123456789ABCDEF';
  6. var
  7.   inter,i : byte;
  8.  
  9. begin
  10.    for i := 1 to 4 do
  11.    begin
  12.    inter := a shr 12;
  13.    a     := a shl 4;
  14.    write (copy(hex,inter+1,1));
  15.    end;
  16.    write ('  ');
  17.    end;
  18.  
  19.