divert(-1)
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
define(`STACK_NUMBER',zstkno)
define(`MSTACK_TOP',`zstktp($1)')define(`MSTACK_OUT',`zstkot($1)')
define(`N_STACK',10)
define(`SET_STACK',`if($1>0 && $1<=N_STACK){
	MSTACK_TOP(STACK_NUMBER)=STACK_TOP; MSTACK_OUT(STACK_NUMBER)=STACK_OUT
	STACK_NUMBER=$1
	STACK_TOP=MSTACK_TOP(STACK_NUMBER);STACK_OUT=MSTACK_OUT(STACK_NUMBER)
	}
else TERMINATE(Bad stack number)')
divert(0)
common/zstksz/STACK_NUMBER,MSTACK_TOP(N_STACK),MSTACK_OUT(N_STACK)
integer STACK_NUMBER
SCCS_ID(97997,`@(#)'mstack.m 3.9 last edit 2/20/93 StatSci. From BASEFILE)
