Procedure CBCTAS( B: packed array [LOBC..NBCD:integer] of BCD_Digit;
  		 Var asc: Packed array [lo..hi:integer] of char;
  		  pos: Integer
  	);
   EXTERNAL;
{*USER*
 Convert bcd array to ascii string. Pos > 0 => pos = start position.
Pos < 0 => Pos = end position (right justify). Pos = 0 => right
justify in entire Str.
 Illegal BCD digits are detected by this routine, resulting in
asterisk ("*") fill of entire field. Also, over- or under-flow
of field will result in asterisk fill of legal portion.
}