/*Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved.*/
/* funcstop APL2 V1.0.0 ************************************************
* Called by funcexec, functrac, and functrgo to see if the current     *
* statement is identified in the stop/trace control vector.            *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
int funcstop(stop,stmtno)
Aplcb stop;	/* Stop control vector. */
int stmtno;		/* Current statment number. */
{
	int i,*ip;

	if (stop != NULL && 0 != (i = stop->aplcount)) {
		ip = stop->aplptr.aplint;
		while (i--)
			if (stmtno == *ip++)
				return(1); /* stop on this statement */
	}
	return(0); /* no stop this statement */
}