  ARETYP = RECORD
		ANUM	: INTEGER; 0
		LINS	: INTEGER; 2
		SLEN	: INTEGER; 4
		MODPAL	: INTEGER; 6
		AMMR	: INTEGER; 10
		NPAGE	: INTEGER; 12
	   END; 14

  WINTYP = RECORD
		CODE	: INTEGER; 0
		WNUM	: INTEGER; 2
		AREA	: INTEGER; 4
		ARY	: INTEGER; 6
		ARX	: INTEGER; 10
		SY1	: INTEGER; 12
		SY2	: INTEGER; 14
		SX1	: INTEGER; 16
		SX2	: INTEGER; 20
		DEN	: INTEGER; 22
	   END; 24

  BGLine : array [1..26] of integer; 2-65
  BGAR, TXAR, TX1AR, RNAR, SHAR, VEAR, GOAR, SAAR, CAAR, MYAR : AreTyp;
  66    102   116    132   146   162   176   212   226   242

  BGWN, TXWN, TX1WN, RNWN, SHWN, VEWN, GOWN, SAWN, CAWN, MYWN : WinTyp;
  256   302   326    352   376   422   446   472   516   542   

  VM1PL0, VM1PL1 : PalTyp;
  566     612

  TX1, TX2, TX3 : Str20;
  636  662  706

732 CLINE: ARRAY [1..20,0..21] OF INTEGER;

2032 PIC1AR
2046 PIC2AR
2062 PIC3AR
2076 PIC4AR
2112 PIC5AR

2126 PIC1WN
2152 PIC2WN
2176 PIC3WN
2222 PIC4WN
2246 PIC5WN
