Symbol F$PACK

			5752	* PACK(CHAR)
			5753	*
			5754	* PACK ADDS ANOTHER CHARACTER TO THE CHARACTER BUFFER BOFFO
			5755	*
			5756	*
	12032	0771 00 0 00022	5757	PACK	ARS	18 GET CHARACTER CODE FROM