1	!
	! CALL_DYNAMIC.BAS
	!
	FUNCTION LONG CALL_DYNAMIC(	STRING	ROUTINE_NAME,		&
						SHR_IMAGE,		&
					LONG	ARGLIST)
	OPTION TYPE = INTEGER
	EXTERNAL LONG FUNCTION		LIB$CALLG,			&
					LIB$FIND_IMAGE_SYMBOL
	!
	! Find the routine.
	!
	STAT = LIB$FIND_IMAGE_SYMBOL( SHR_IMAGE, ROUTINE_NAME, ROUTINE)
	!
	! Call it with the supplied argument list.
	!
	STAT = LIB$CALLG( ARGLIST BY REF, ROUTINE BY VALUE) IF STAT AND 1% = 1%
	CALL_DYNAMIC = STAT
	END FUNCTION