!
	! CALL_DYNAMIC.BAS
	!
	FUNCTION LONG CALL_DYNAMIC(	STRING	ROUTINE_NAME,		&
						SHR_IMAGE,		&
					LONG	ARGLIST)

	OPTION				TYPE = INTEGER,			&
                                        CONSTANT 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
	END FUNCTION STAT