PROCEDURE CWOTAS(Bin:Word;
		Var asc:Packed array [lo..Hi:Integer] of char;
  	    	Pos:integer;
		radix:integer
	);
   EXTERNAL;
{
  Convert unsigned 16-bit value to ASCII string, using specified
radix. Pos > 0: left-justify output starting at pos. Pos = 0: right
justify, using entire string. Pos < 0: right-justify ending at pos.
Legal radix is 2 to 16.
}