d c/elt APLTOK.I
È c.
,c. tokens of line, and functions
c.
ô	parameter N$TOK = 100
Xc.
¼	common/apltok/	inx_tok
 	1		, max_tok
R	1		, pos_tok
„	integer		pos_tok(N$TOK)	!**! position of token
Lc.
°	equivalence	(int_tok,int_mem)
	equivalence	(int_tok,rel_tok)
x	integer		int_tok(N$TOK)	!**! integer token value
Ü	real		rel_tok(N$TOK)	!**! real token value
@c........