C------------------------------------------------------------------------
C  Common.For - Block Data: Initialization for DM variables.
C------------------------------------------------------------------------
	BLOCK DATA COMMON

	Include 'Common.Dat'

	Data IncluCount       /0/
	Data SrchSize         /0/
	Data File_attr_pos    /33/
	Data ReLoad           /.FALSE./
	Data Do_DCL           /.FALSE./
	Data DM_Exit          /.FALSE./
	Data Have_More        /.FALSE./
	Data Have_SubProcess  /.FALSE./
	Data Have_DCL_Setup   /.FALSE./
	Data Have_Broadcast   /.FALSE./
	Data Line23_Dirty     /.TRUE./
	Data Line23_Later     /.FALSE./
	Data Line24_Dirty     /.TRUE./
	Data Highlight	      /.TRUE./
	Data TopLine          /1/
	Data Current_Line     /4/
	Data Menu             /Not_Set/
	Data Line23MSG_On     /.FALSE./
	Data Line24MSG_On     /.FALSE./
	Data Line24BBMSG_On   /.FALSE./
	Data Blocks_On        /.FALSE./
	Data Purge_On         /.FALSE./
	Data Window1_On       /.FALSE./
	Data Window2_On       /.FALSE./
	Data Wait_Time        /0.4/
	Data Pasteboard_ID    /0/
	Data Keyboard_ID      /0/

	Data Have_Delete_Windows /.FALSE./
	Data Quit_Delete         /.FALSE./
	Data Confirm_Delete      /.FALSE./
	Data All_Delete          /.FALSE./
	Data Remainder_Delete    /.FALSE./
                                                            
	Data CmdLine1 
	1   /'Assign/User/NoLog ''F$Logical("SYS$OUTPUT")'' TT'/
	Data CmdLine2 
	1   /'Assign/User/NoLog ''F$Logical("SYS$OUTPUT") SYS$INPUT'/
	
	Data Broadcast_Msg
	1   /' You have received a Broadcast Message.     
	2                ( press ! to read ) '/
	
	Data Exit_Com         /'zzzz'/
	Data Current_Device   /'SYS$DISK:'/
	Data Original_Device  /'SYS$DISK:'/

	Data Msgstart(1) 	/1/
	Data Msgstart(2) 	/1/
	Data Num_Message	/0/
	
	End
