Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/CMPLTPAS.ZIP/WRITEHEX.PAS

Pascal/Delphi Source File | 1988-07-14 | 436 b | 21 lines

{<<<< Writehex >>>>}
{ From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann  }
{ Scott, Foresman & Co. 1988      ISBN 0-673-38355-5 }
{ Described in section 23.5   --   Last mod 12/5/87  }



PROCEDURE WriteHex(VAR Device : Text; BT : Byte);

CONST
  HexDigits : ARRAY[0..15] OF Char = '0123456789ABCDEF';

VAR
  BZ : Byte;

BEGIN
  BZ := BT AND $0F;
  BT := BT SHR 4;
  Write(Device,HexDigits[BT],HexDigits[BZ])
END;