PALTYP = RECORD
		CODE	: INTEGER; 0
		MODPAL	: INTEGER; 2
		C	: ARRAY [0..15] OF CHAR; 4
	    END; 24

  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

  A2W : RECORD CASE INTEGER OF
	1: (W : INTEGER);	
	2: (A : ^INTEGER);
	3: (AC : ^CHAR);
	END;

  BGLine : array [1..26] of integer; 2..67
  BGAR, TXAR, RNAR, SHAR, VEAR, GOAR, SAAR, CAAR, MYAR : AreTyp;
  66    102   116   132   146   162   176   212   226
  BGWN, TXWN, RNWN, SHWN, VEWN, GOWN, SAWN, CAWN, MYWN : WinTyp;
  242   266   312   336   362   406   432   456   502
  TX1, TX2, TX3 : Str20;
  526  552  576