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