d c/elt APLFUN.I
È c.
,c. function call "stack"
c.
ô	parameter N$FUN = 100		!**! depth of function call
Xc.
¼	common /aplfun/	inx_fun		!**! index of cur fun
 	1	, max_fun		!**! max inx of fun
„	1	, ptr_fun(N$FUN)	!**! pointer to function
è	1	, lin_fun(N$FUN)	!**! line of function
	1	, sta_fun(N$FUN)	!**! state of function
Lc.
°c.........