procedure cinthx(bin:integer;
		 var asc:packed array [lo..hi:integer] of char;
                 pos:integer); external;
{
 Convert unsigned 16 bin value into 4 hex digits. 
 pos >  0: left justify output starting at pos.
 pos <= 0: right justify ending pos.
}