/*
 * values.h
 */

/*
     INTEGER FILKEY(500)
      INTEGER OBJVAL(150),OBJBIT(150),OBJLOC(150),OBJVA0,OBJBI0,OBJLO0
      INTEGER PLACEB(300),PLACE0
     LOGICAL TRUTH,PASSON,NEGATE,ENABLE,FULL,CACHOK(8),CACHO0
      DIMENSION LOGCLS(3)
      INTEGER ARGWRD(2)
     INTEGER VARVAL(50),VARBIT(50),VARVA0,VARBI0
      INTEGER BUFFER(500)
      INTEGER LINEWD(2)
        INTEGER DOMODE(2)
      INTEGER SYMCNT,DBT,DBI,REC1,REC2,BP,HERE,THERE,STATUS,ARG1,ARG2
      INTEGER PARSTT,DUAL,BADWRD,SYNTAX,XVERB,XOBJCT,XPLACE,XVOBJ
      INTEGER BRIEF,FAST,BEEN,WORD1,WORD2,OPCODE,SKPFLG,CHCKSM,REC0(2)
      INTEGER FREEZE,EXPLOR,SAYXX,LOGICM,WORD3,OUTUNI
     EQUIVALENCE (ARGWRD(1), ARG1)
      EQUIVALENCE (REC, REC0(1), REC1), (REC0(2), REC2)
 
     COMMON /VALUES/ FILKEY,OBJVA0,OBJVAL,OBJBI0,OBJBIT,PLACE0,PLACEB,
     1 LINEX,LINEND,SYMCNT,DBT,BUFFER,LINEWD,LINELN,DBI,
     2 INUNIT,OUTUNI,REC,BP,HERE,THERE,STATUS,
     3 ARG1,ARG2,NOBJ,NPLACE,NREP,OBJLO0,OBJLOC,NINIT,
     4 PARSTT,DUAL,BADWRD,SYNTAX,XVERB,XOBJCT,
     5 XPLACE,XVOBJ,INHAND,BRIEF,FAST,VARVA0,VARVAL,VARBI0,VARBIT,
     6 LOOKNG,BEEN,MOVED,WORD1,WORD2,OPCODE,SKPFLG,TRUTH,
     7 NEGATE,PASSON,NVARS,ENABLE,FULL,CACHO0,CACHOK,CHCKSM,
     8 FREEZE,EXPLOR,SAYXX,LOGICM,LOGCLS,DOMODE,WORD3
 
*/

#ifndef FILE
#include <stdio.h>
#endif

#ifdef values_def
#define values_init = {5,5,-1,{0,TRUE,TRUE,TRUE,0,TRUE,TRUE,0,0},{31,51,52}}
#else
#define values_init
#endif



struct
	{
	int x_filkey [500];	/* base changed to zero, \0 terminated */
	int x_objval [151];	/* base remains 0 */
	int x_objbit [151];	/* base changed to zero, \0 terminated */
	int x_placeb [301];	/* base remains 0 */
	int x_linex;
	int x_linend;
	int x_symcnt;
	int x_buffer [500];	/* base changed to zero, \0 terminated */
	int x_linewd [2];		/* base changed to zero, \0 terminated */
	int x_lineln;
	struct
	 {
	 int x_rec1;
	 int x_rec2;
	 } x_rec;
#define rec1 rec.x_rec1
#define rec2 rec.x_rec2
#define rec values.x_rec
	int x_bp;
	int x_here;
	int x_there;
	int x_status;
	int x_argwrd [2];			/* base changed to zero, \0 terminated */
#define arg1 argwrd [0]
#define arg2 argwrd [1]
#define argwrd values.x_argwrd
	int x_nobj;
	int x_nplace;
	int x_nrep;
	int x_objloc[151];  		/* base remains 0 */
	int x_ninit;
	int x_parstt;
	int x_dual;
	int x_badwrd;
	int x_syntax;
	int x_xverb;
	int x_xobjct;
	int x_xplace;
	int x_xvobj;
	int x_brief;
	int x_fast;
	int x_varval [51];		/* base remains 0 */
	int x_varbit [51];		/* base remains 0 */
	int x_lookng;
	int x_been;
	int x_moved;
	int x_word1;
	int x_word2;
	int x_opcode;
	int x_skpflg;
	char x_truth;
	char x_negate;
	char x_passon;
	int x_nvars;
	char x_enable;
	char x_full;
	int x_chcksm;
	int x_explor;
	int x_sayxx;
	int x_logicm;
	int x_domode [2];			/* base changed to zero, \0 terminated */
	int x_word3;
	FILE *x_dbt;
 	FILE *x_dbi;
	} values;

struct {
  	int x_inunit;
	int x_outuni;
	int x_inhand;
	char x_cachok [9];		/* base remains 0 */
	int x_logcls [3];			/* base changed to zero, \0 terminated */
	} values_2 values_init;

#define filkey values.x_filkey
#define objval values.x_objval
#define objbit values.x_objbit
#define placeb values.x_placeb
#define linex values.x_linex
#define linend values.x_linend
#define symcnt values.x_symcnt
#define dbt values.x_dbt
#define buffer values.x_buffer
#define linewd values.x_linewd
#define lineln values.x_lineln
#define dbi values.x_dbi
#define inunit values_2.x_inunit
#define outuni values_2.x_outuni
#define bp values.x_bp
#define here values.x_here
#define there values.x_there
#define status values.x_status
#define argwrd values.x_argwrd
#define nobj values.x_nobj
#define nplace values.x_nplace
#define nrep values.x_nrep
#define objloc values.x_objloc
#define ninit values.x_ninit
#define parstt values.x_parstt
#define dual values.x_dual
#define badwrd values.x_badwrd
#define syntax values.x_syntax
#define xverb values.x_xverb
#define xobjct values.x_xobjct
#define xplace values.x_xplace
#define xvobj values.x_xvobj
#define inhand values_2.x_inhand
#define brief values.x_brief
#define fast values.x_fast
#define varval values.x_varval
#define varbit values.x_varbit
#define lookng values.x_lookng
#define been values.x_been
#define moved values.x_moved
#define word1 values.x_word1
#define word2 values.x_word2
#define opcode values.x_opcode
#define skpflg values.x_skpflg
#define truth values.x_truth
#define negate values.x_negate
#define passon values.x_passon
#define nvars values.x_nvars
#define enable values.x_enable
#define full values.x_full
#define cachok values_2.x_cachok
#define chcksm values.x_chcksm
#define explor values.x_explor
#define sayxx values.x_sayxx
#define logicm values.x_logicm
#define logcls values_2.x_logcls
#define domode values.x_domode
#define word3 values.x_word3