--	Callback test
--	-------------
--
--
--	This is a subsidiary package which is called back by a procedure
--	in package CBACK1.

package CBACK2 is

	procedure display_line(line: IN string(80)); -- Display one line

end CBACK2;