INTEGER NVAL(4,20),NWID(32:127)
	LOGICAL*1 MATRIX(20,32)
	OPEN(UNIT=1,NAME='XPSPRTBD.FTN',TYPE='NEW',CARRIAGECONTROL='LIST')
	OPEN(UNIT=3,NAME='CHARACTER.XET',READONLY,TYPE='OLD')
	DO 9 I=32,127
	READ(3,1,END=99)NWID(I)
1	FORMAT(I2)
	DO 2 J=1,32
2	READ(3,3,END=99)(MATRIX(K,J),K=1,NWID(I))
3	FORMAT(24A1)
	DO 5 L=1,NWID(I)
	DO 5 JJ=4,1,-1
	J=JJ*8-7
	NV=0
	DO 4 K=7,0,-1
	NV=NV*2
4	IF(MATRIX(L,J+K).NE.' ')NV=NV+1
5	NVAL(JJ,L)=NV
	WRITE(1,52)I+"1000
52	FORMAT('      DATA MX',O4,'/')
	WRITE(1,55)((NVAL(J,K),J=1,4),K=1,20)
55	FORMAT('     A ',16(I3,',')/'     B ',16(I3,',')/'     C ',
	1 16(I3,',')/'     D ',16(I3,',')/'     E ',15(I3,','),I3,'/')
9	CONTINUE
99	WRITE(1,95)(NWID(I),I=32,127)
95	FORMAT('      DATA WID/',19(I2,',')/'     A',22(I2,',')/'     B',
	122(I2,',')/'     C',22(I2,',')/'     D',10(I2,','),I2,'/')
	CLOSE(UNIT=1)
	CALL EXIT
	END