$save nolist

convert$decimal:  PROCEDURE(destination$p,destination$max,dec$number,
							number$of$digits,excep$p)	EXTERNAL;
	DECLARE
		destination$p		POINTER,
		destination$max		WORD,
		dec$number			WORD,
		number$of$digits	BYTE,
		excep$p				POINTER;
END convert$decimal;

$restore