	53502

TYPE	CHSTATE = (CHST00, CHST01, CHST02)
        TYPCOM = (TY00, TY01, TY02, TY03, TY04, TY05, TY06, TY07, TY10, TY11, TY12, TY13, TY14, TY15)
        RLDENT = (RLD0,RLDIR,RLDGR,RLDIDR,RLDGDR,RLDGAR,RLDGADR,RLDLCD,RLDLCM,RLDLIM,RLDPR,RLD13,RLDPDR,RLDPAR,RLDPADR,RLDCR)
        GSDENT = (GSDMN,GSDCSN,GSDISN,GSDTA,GSDGSN,GSDPSN,GSDPVI,GSDMAD)
	IDNCOD = (IDN0,GSD,ENDGSD,TXT,RLD,ISD,ENDMOD)
        BITS = (BIT0,BIT1,BIT2,BIT3,BIT4,BIT5,BIT6,BIT7)
	VSET = (VS0,VS1,VS2,VS3,VS4,VS5,VS6,VS7,VS10,VS11)

	RECA14=RECORD
                RA00: INTEGER;
                RA02: ARRAY [1..6] OF CHAR;
                RA10: INTEGER;	{INDEX IN VAR3712}
                RA12: INTEGER;
               END;

	RECB14=RECORD
                RB00: ARRAY [1..6] OF CHAR;
                RB06: INTEGER;
                RB10: INTEGER;
                RB12: INTEGER;
               END;

	RECC16=RECORD
	        RC00: ARRAY [1..6] OF CHAR;
                RC06: ARRAY [1..6] OF CHAR;
                RC14: INTEGER;
               END;

	RECD22=RECORD
	        RD00: INTEGER;
	        RD02: INTEGER;
	        RD04: INTEGER; {INDEX IN VAR3712}
	        RD06: INTEGER;
	        RD10: SET OF VSET;
	        RD20: INTEGER; {INDEX IN VAR4372}
	       END;

	RECE50=RECORD
	        RE00: IDNCOD; {IDENTIFICATION CODE}
	        RE02: ARRAY [1..6] OF CHAR;
                RE10: GSDENT;   {ENTRY TYPE GSD}
                RE12: SET OF BITS {FLAGS}
                RE22: INTEGER;  {VALUE OF GSD DATA BLOCK}
                RE24: INTEGER;
	        RE26: INTEGER;
	        RE30: INTEGER;
	        RE32: INTEGER;
	        RE34: INTEGER;
                RE36: RLDENT;   {ENTRY TYPE RLD}
                RE40: INTEGER;  {MODIFICATION BIT RLD}
                RE42: INTEGER;  {DISPLACEMENT RLD}
                RE44: INTEGER;
                RE46: INTEGER;
               END;

	RECF1012=RECORD
                  RF00: BOOLEAN; {ERROR}
                  RF02: INTEGER; {CODE OF ERROR}
                  RF04: INTEGER; {CHANNEL}
                  RF06: INTEGER; {BLOCK}
                  RF10: ARRAY [1..1000] OF CHAR; {BUFFER}
                  RF1010: INTEGER; {POINTER TO RF10}
                 END;

	RECG1012=RECORD
	          RG00: INTEGER; {SIZE OF DATA}
	          RG02: IDNCOD; {IDENTIFICATION CODE}
	          RG04: ARRAY [1..400] OF INTEGER;
                  RG1004: INTEGER; {CHECKSUM}
                  RG1006: INTEGER; {POINTER TO RG04}
                  RG1010: BOOLEAN; {END OF DATA}
                 END;

VAR00	ARRAY [0..17] OF CHSTATE	0..17
VAR20	ARRAY [1..24] OF RECA14(14)	20..377
VAR400	INTEGER
VAR402	RECG1012(1012)			402..1413
VAR1414	RECG1012(1012)			1414..2425
VAR2426	BOOLEAN

VAR2436	RECE50(50)			2436..2505
VAR2506	RECE50(50)			2506..2555
VAR2556	RECE50(50)			2556..2625
VAR2626	RECE50(50)			2626..2675
VAR2676	INTEGER
VAR2700 RECF1012(1012)			2700..3711
VAR3712	ARRAY [0..30] OF RECB14(14)	3712..4365
VAR4366	INTEGER
VAR4370	INTEGER
VAR4372	ARRAY [0..144] OF RECC16(16)	4372..7177
VAR7200	INTEGER
VAR7202	INTEGER
VAR7204	ARRAY [0..1750] OF RECD22(22)	7204..52345
VAR52346 INTEGER
VAR52350 INTEGER
VAR52352 INTEGER
VAR52354 INTEGER
VAR52356 SET OF VSET			52356..52365
VAR52366 RECF1012(1012)			52366..53377
VAR53400 BOOLEAN
VAR53402 ARRAY [1..6] OF CHAR		53402..53407
VAR53410 INTEGER
VAR53412 INTEGER
VAR53414 SET OF VSET			53414..53423
VAR53424 WORD
VAR53426 INTEGER
VAR53430 INTEGER
VAR53432 WORD
VAR53434 WORD
VAR53436 TYPCOM
VAR53440 ARRAY [1..6] OF CHAR		53440..53445
VAR53446 ARRAY [1..6] OF CHAR		53446..53453
VAR53454 INTEGER
VAR53456 INTEGER
VAR53460 INTEGER
VAR53462 SET OF BITS			53462..53471
VAR53472 SET OF BITS			53472..53501

SET RECD22.RD10 VAR52356 VAR53414	0 1 2 3 4 5 6 7 10 11
SET RE50.RE12 VAR53462 VAR53472		2 3 4 5 6 7

RECE50.RE00 RECG1012.RG02	4
RECE50.RE10	0 3 4 5 6
RECE50.RE36	1 2 3 4 5 6 7 10 11 14 15 16 17 2(SP)5740
VAR53436	0 1 2 4 5 6 7 10 12 13 14 15