home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / TP-UTIL.ARK / WRITEHEX.SRC < prev    next >
Text File  |  1986-01-06  |  256b  |  12 lines
  1. PROCEDURE WRITE_HEX(VAR DEVICE : TEXT; BT : BYTE);
  2.  
  3. CONST HEXDIGITS : ARRAY[0..15] OF CHAR = '0123456789ABCDEF';
  4.  
  5. VAR BZ : BYTE;
  6.  
  7. BEGIN
  8.   BZ := BT AND $0F;
  9.   BT := BT SHR 4;
  10.   WRITE(DEVICE,HEXDIGITS[BT],HEXDIGITS[BZ])
  11. END;
  12. σσσσσσσσσσσσσσσσσσσσσ