C
C	subroutine PTXQMG.PGM
C
	BYTE BUFFER(80),PRINT(20),DELETE(6),COPIES(6)
	DATA LPRINT,PRINT  /6,'P','R','I','N','T',' ',14*0/
	DATA LDELET,DELETE /4,'/','D','E','L',2*0/
	DATA LCOPIE,COPIES /4,'/','C','O',':',2*0/
C
C	build a MCR command line
C
C	first, 'PRINT '
C
	DO 10 I=1,LPRINT
	 BUFFER(I) = PRINT(I)
10	CONTINUE
	NEXT = LPRINT + 1
C
C	now the file name
C
	DO 20 I=1,32
	 IF (RASFIL(I) .EQ. 0) GOTO 30		! end of the filename
	 BUFFER(NEXT) = RASFIL(I)
	 NEXT = NEXT + 1
20	CONTINUE
C
C	now the number of copies
C
 30	DO 40 I=1,LCOPIE
	 BUFFER(NEXT) = COPIES(I)
	 NEXT = NEXT + 1
 40	CONTINUE
	ENCODE(6,50,BUFFER(NEXT)) NCOPY
 50	FORMAT(I6)
C
C	now delete, if requested
C
	IF ((IOPTNS .AND. "4) .EQ. 0) GOTO 100
	DO 70 I=1,LDELET
	 BUFFER(NEXT) = DELETE(I)
	 NEXT = NEXT + 1
70	CONTINUE
C
C	we've got extra spaces, kill them
C
	J = LPRINT+1
	DO 75 I=LPRINT+1,NEXT-1
	 IF (BUFFER(I) .EQ. "40) GOTO 75
	 BUFFER(J) = BUFFER(I)
	 J = J + 1
75	CONTINUE
C
C	all set - the line is built.  Now ship it to MCR
C
100	CALL FORMCR(BUFFER,IERR,1,J-1)
	IF (IERR .LT. 0) WRITE (LOONTI,110) IERR,BUFFER
110	FORMAT('0RASTER error SPAWNing MCR.  IDSW=',I5,' command string:'
	1	/X,80A1)
	RETURN
	END