/*
 * string.h
 *
 */

/* 
      BYTE ZLINE(140),ZLEX(140),ZTEXT(140),ZSEP,BLANKS(140)
      BYTE ZDIGIT(10),ZUC(26),ZLC(26),ZARG(15,2),ZBADVR(6)
       BYTE ZWORD(6,500)
     COMMON /STRING/ ZLINE,ZLEX,ZWORD,ZSEP,BLANKS,ZDIGIT,
     1    ZTEXT,ZARG,ZUC,ZLC,ZBADVR
*/

#ifdef string_def
#define string_init = {"","","",' ', " \
                                   \
                                   \
                                   \
                                   ", }
#else
#define string_init
#endif

struct
	{ 
	char x_zline [141];		/* base changed to zero, \0 terminated */
	char x_zlex [141];		/* base changed to zero, \0 terminated */
	char x_ztext[141];		/* base changed to zero, \0 terminated */
	char x_zsep;
	char x_blanks [141];		/* base changed to zero, \0 terminated */
	char x_zarg [2] [16];	/* both bases changed to 0; each string null terminated */
	char x_zbadvr [7];		/* base changed to zero, \0 terminated */
	char x_zword [500] [7];	/* both bases chaned to 0; strings are \0 termiated */
	} string;

#define zline string.x_zline
#define zlex string.x_zlex
#define ztext string.x_ztext
#define zsep string.x_zsep
#define blanks string.x_blanks
#define zarg string.x_zarg
#define zbadvr string.x_zbadvr
#define zword string.x_zword