c common for jc tic routines
	parameter (ll=160)		!length of line(*)
	character line*(ll)		!Allow 8 level indirection
	character ofile*32
	character cfeed*32
	logical ltext		!only text terminator is CR
	logical lcrok		!CR same as comma
	logical lechi		!echo input
	integer lmacro			!level macro called from
	logical lhelp			!help enabled
	logical lmenu			!menu enabled
cdec$	psect  /atcom/ noshr
	common /atcom/ line(8),level,ip(8),iun(8),ofile,cfeed,
     >	  ltext,lcrok,lechi,lmacro,lhelp,lmenu
