PROCEDURE cpktas(Var Pk: packed array [plow..phigh: integer] of Packed_decimal;
                  Var Asc: packed array [lo..hi: integer] of char;
                  Pos: integer
                 );
   EXTERNAL;
{*USER*
 
The CPKTAS procedure converts an array of Packed decimal to an ascii
string.  Pos controls position, fill, and justification of output string.
 
.lit
 
Pos > 0  --  left-justify, starting at pos within string
Pos = 0  --  right-justify, concatenating at end of string
Pos < 0  --  right-justify, ending at pos within string
 
.eli
 
The ascii string supplied must be a valid type0 or type1 string.  Normally,
you will be adding the number to a string and will use POS=0.  If you wish
to place the number within an existing string, you can use POS to control
the position within the string, and the right of left justification.
 
A Packed decimal array must have an even number of elements, since the
digits are packed 2 per byte.  An array that has an odd number of bytes
will be ignored, and an error reported.
 
Since the length of the Packed decimal array determines the number of
converted characters, there is no need for padding.  If you wish to place
a variable length Packed decimal array in a fixed field with zero or blank
padding, you should first fill that fixed field with the desired padding
characters, and then all this routine specifying the right or left
justification.
 
If you supply a value for POS that is out of the range of the string,
an error message will be printed.  If you supply a non type0 or type1
string, an error message will be printed.  If you supply a string that
is not sufficient to hold the converted characters, the conversion will
be truncated to the string length, and no error reported.
 
}