/* STRING common .h file */
/* (c) copyright 1987 M. Goetz */

#ifdef string_def
#define string_init(a) = a
#else
#define string_init(a)
#endif


char 
	zlex [141],		/* base changed to 0, one space added for null */
	zsep,

#ifdef string_def
	zcomm [20][9] = {	/* bases changed to 0, second null terminated */
			"TEXT","OBJECT","PLACE","VERB",
         "INITIAL","LABEL","REPEAT","AT",
         "ACTION","SYNONYM","VARIABLE","NULLWORD","LIST",
         "NOLIST","DEFINE","INCLUDE","XREF","EJECT",
         "CIF","CENDIF"
			},
	zoptn [56][9] = {	/* bases changed to 0, second null terminated */
			"KEYWORD","HAVE","NEAR","AT","ANYOF",
         "IFEQ","IFLT","IFGT","IFAT","CHANCE",
         "ELSE","FIN","EOF","GET","DROP",
         "APPORT","SET","ADD","SUB","GOTO",
         "MOVE","CALL","SAY","NAME","VALUE",
         "PROCEED","QUIT","STOP","IFHAVE","IFNEAR",
         "OR","RANDOM","BIT","BIS","BIC",
         "ITOBJECT","ITPLACE","EOI","IFLOC","INPUT",
         "LOCATE","NOT","IFKEY","LDA","EVAL",
         "MULTIPLY","DIVIDE","SVARIABL","EXECUTIV","QUERY",
         "AND","EOR","DEPOSIT","ITLIST","SMOVE",
         "DEFAULT"
			},
#else
	zcomm [20][9],	/* bases changed to 0, second null terminated */
	zoptn [56][9],	/* bases changed to 0, second null terminated */
#endif

	zline [141],	/* base change to 0, null terminated */
	zblank [21] string_init("                    "),	/* base changed to 0, null terminated */
	zclasx [13],	/* base changed to 0, null terminated */
	zopt [56][5],	/* bases changed to 0, null added, previously treated as 4 byte REAL */
	zunref [2001],	/* base changed to 0 */
	zname [2001][13],	/* both bases changed to 0, null terminated */
	zfid [30],		/* base changed to zero, size extended */
	ztab string_init(0x09);