SUB PRINT. (C%,S$)
	CALL PRINL.(C%,S$,LEN(S$))
	SUBEND