C..  XMAIL.FTN   BOHDEN K. CMAYLO   OCT 81
C..
C.. ROUTINE TO CHECK XEROX INBOX
C..
	SUBROUTINE XMAIL
	COMMON /INPUTX/ INPUT(512)
	DOUBLE PRECISION XEROX,FTEMP1(2),FTEMP2(3),FTEMP3(2)
	BYTE IZERO,ASTER,IBLANK,INPUT
	DATA XEROX/'100,376'/
	DATA FTEMP1,FTEMP2,FTEMP3/'MAIL.DOC',' ',
     1 'SX:','[50,51]','XEROX.PR','SY:[5,5]','XEROX.XX'/
	DATA IZERO,ASTER,IBLANK/'0','*',' '/
	DATA RTNAME /6RMCR.../
C..
C..  INITIALIZE
C..
	CALL ERRSET(29,.TRUE.,.FALSE.,.TRUE.,.FALSE.,100)
	IN=1
	IN2=2
	NUMPIP=0
	TYPE 1
1	FORMAT('0*** XEROX TRANSFER PROGRAM ***'/)
C..
C..	BITMAP READS FOR GETTING NUMBER OF DOCS
C..
	TYPE 105,XEROX
105	FORMAT('0 * CHECKING XEROX INBOX [',A7,'] FOR PRINT FILES')
	CALL BITRED(IN,XEROX,NUMDOC,INDOC1)
C.. LESS THAN ONE DOCUMENT, GO TO END OF RUN
	IF(NUMDOC.LE.2) GO TO 20
	IENC=23
	ENCODE(IENC,62,INPUT)XEROX
62	FORMAT('WP:[',A7,']DOC001.W11 ')
	CALL RIDBLK(INPUT,IENC)
C..COPY DOC001 TO TEMP FILE FTEMP1 AND READ FROM IT
	CALL INDOC(IN2,INPUT,FTEMP1)
	TYPE 103,XEROX
103	FORMAT('0* TRANSFER FROM XEROX ',A7,' STARTED *'/)
C..
C..	READ IN DOC001 DATA AND COLLECT PRINT FILES
C..
26	READ(IN2,22,END=27)IQ,(INPUT(I),I=1,IQ)
22	FORMAT(Q,132A1)
	TYPE 107,(INPUT(I),I=1,IQ),IBLANK,ASTER
107	FORMAT('0*',80A1)
C..
C..	GET DOCUMENT NUMBER OF FILE TO TRANSFER
C..
	CALL DOCNAM(XEROX,INPUT,IQ,NUMDOC,NUMNAM,NAMES)
	IF(NUMDOC.LE.1.OR.NUMNAM.LE.0) GO TO 26
C..
C..	DELETE OLD TRANSFER FILE, IF ANY
C..
	IENC=30
	ENCODE(IENC,49,INPUT)FTEMP3
49	FORMAT('PIP ',2A8,';*/DE/NM !')
	CALL XSPAWN(INPUT)
C..
C..	DXFLX WITHOUT PRINT
C..
	IENC=60
	ENCODE(IENC,46,INPUT)FTEMP3,XEROX,NUMDOC
46	FORMAT('DXF ',2A8,'/TYPE:TE:SPACES=WP:[',A7,']DOC',I3,'.W11 !')
C.. ENTER ZEROS FOR DOC NAMES
	IF(INPUT(IENC-7).EQ.IBLANK) INPUT(IENC-7)=IZERO
	IF(INPUT(IENC-8).EQ.IBLANK) INPUT(IENC-8)=IZERO
	CALL XSPAWN(INPUT)
	NUMPIP=NUMPIP+1
C..
C..	PIP OVER TO NEW VERSION OF XEROX FILE
C..
	IENC=69
	ENCODE(IENC,55,INPUT)FTEMP2,FTEMP3
55	FORMAT('PIP ',3A8,'/NV=SX:[5,10]XEROX.IBM,',2A8,' !')
	CALL XSPAWN(INPUT)
	GO TO 26
C.. END OF AN XEROX TRANSFER, DELETE ALL W11 DOCS IN XEROX
27	CALL CLOSE(IN2)
	IENC=28
	ENCODE(IENC,47,INPUT)XEROX
47	FORMAT('PIP WP:[',A7,']*.W11;*/DE !')
	CALL XSPAWN(INPUT)
20	CONTINUE
C..
C..	FINISHED, TYPE MESSAGES AND QUIT
C..
	TYPE 70,NUMPIP
70	FORMAT('0*** NUMBER XEROX PRINT FILES COLLECTED=',I6,' ***'////)
	RETURN
	END