PARAMETER ISSUC=1, IEEOF="366, IEBBE="310, IEDAO="363,
     *		  IEEOV="365, IEVER="374, IEDNR="375, IEOFL="277,
     *		  IEEOT="302, IORLB="1000, IORWD="2400, IOSPB="2420,
     *		  VOL1=1, HDR1=2, HDR2=3, MARK=4, FILE=5, EOF1=6,
     *		  EOF2=7, NEWF=8, EOV1=9, EOV2=10, UNKNWN=11
	BYTE B,FNAME,MODE
	LOGICAL*1 COPY,FILOPN,SLOWLY,COPYAL,DISPLD,RT11
	INTEGER*4 NBLOCK,NREC
	COMMON//NBLOCK,NREC,ISB(2),IPR(6),B(512),FNAME(36),
     *		COPY,FILOPN,MODE,SLOWLY,COPYAL,DISPLD,RT11