c
c	Common Block For Flags
c
	Integer*2	FTP$CHANNEL
c
	Logical*1	FTP$LCK_FLG	,	FTP$LST_FLG
	Logical*1	FTP$EOT_FLG	,	FTP$EOF_FLG
	Logical*1	FTP$BOT_FLG	,	FTP$MOUNTED_FLG
	Logical*1	FTP$MNTFOR_FLG	,	FTP$DEVAVL_FLG
	Logical*1	FTP$TAPDEV_FLG	,	FTP$IOWN_FLG
	Logical*1	FTP$READY_FLG	,	FTP$ASSIST_FLG
	Logical*1	FTP$ASCEBC_FLG	,	FTP$EBCASC_FLG
	Logical*1	FTP$OTHER_FLG	,	FTP$TRANSLATE_FLG
	Logical*1	FTP$LOG_FLG	,	FTP$INDIRECT_FLG
	Logical*1	FTP$REC_PADCHAR	,	FTP$BLK_PADCHAR
	Logical*1	FTP$READALL_FLG	,	FTP$TRMREC_FLG
	Logical*1	FTP$TRMBLK_FLG
c
	COMMON	/FTP$FLAGS/
	1		FTP$CHANNEL	,	FTP$LCK_FLG
	1	,	FTP$LST_FLG	,	FTP$EOT_FLG
	1	,	FTP$EOF_FLG	,	FTP$BOT_FLG
	1	,	FTP$MOUNTED_FLG	,	FTP$MNTFOR_FLG
	1	,	FTP$DEVAVL_FLG	,	FTP$TAPDEV_FLG
	1	,	FTP$IOWN_FLG	,	FTP$READY_FLG
	1	,	FTP$ASSIST_FLG	,	FTP$ASCEBC_FLG
	1	,	FTP$EBCASC_FLG	,	FTP$LOG_FLG
	1	,	FTP$OTHER_FLG	,	FTP$TRANSLATE_FLG
	1	,	FTP$REC_PADCHAR	,	FTP$BLK_PADCHAR
	1	,	FTP$READALL_FLG	,	FTP$INDIRECT_FLG
	1	,	FTP$TRMREC_FLG	,	FTP$TRMBLK_FLG
c
