C-----------------------------------------------------------------------
C  Common blocks for Colors Programs
C	Include file COLOR.DAT
C		Dale E. Coy         July, 1986
C		Los Alamos National Laboratory
C-----------------------------------------------------------------------

	Integer*2   Color_Value(64,3)
	Logical     Color_Selected(64)
	Common /CV/ Color_Value, Color_Selected

	Character*24 Color_Name(64)
	Common /CN/  Color_Name

        Character*1 Escape
	Character*2 CSI
	Character*4 Normal, Clear_Screen, Regis_In, Regis_Out
	Character*6 Bold, Rev, Bold_Rev, Home
	Character*7 Home23, Home24
	Character*12 H0,H1,H2,H3


C	Magic Numbers for VT241
        
	Parameter (Escape	=Char(27))
	Parameter (CSI		=Escape//'[')
	Parameter (Normal	=CSI//'0m')
	Parameter (Bold		=CSI//'0;1m')
	Parameter (Rev		=CSI//'0;7m')
	Parameter (Bold_Rev	=CSI//'1;7m')
	Parameter (Home  	=CSI//'1;1H')
	Parameter (Home23	=CSI//'23;1H')
	Parameter (Home24	=CSI//'24;1H')
        Parameter (Clear_Screen	=CSI//'2J')
        Parameter (Regis_In	=Escape//'Pp')
	Parameter (Regis_Out	=Escape//'\')

C------------------------------------------------------------------C
C	Definitions for SMG
C------------------------------------------------------------------C
	Include '($SMGDEF)'
	Include '($DVIDEF)'

	Integer*4 Pasteboard_ID, Keyboard_ID,
     1	  Main_Display,
     2      Background_Display, 
     3      Reverse_Display,
     4	    Normal_Display,
     5	    Bold_Display,
     6	  Bold_Reverse_Display

       Common /SMG_Stuff/Pasteboard_ID, Keyboard_ID,
     1	  Main_Display,
     2      Background_Display, 
     3      Reverse_Display,
     4	    Normal_Display,
     5	    Bold_Display,
     6	  Bold_Reverse_Display

       Integer*4 RU_Mask, BB_Mask, BR_Mask, BRB_Mask, RRB_Mask

       Parameter (RU_Mask  = SMG$M_Reverse .OR. SMG$M_Underline)
       Parameter (BB_Mask  = SMG$M_Bold    .OR. SMG$M_Blink    )
       Parameter (BR_Mask  = SMG$M_Bold    .OR. SMG$M_Reverse  )
       Parameter (BRB_Mask = BR_Mask       .OR. SMG$M_Blink    )
       Parameter (RRB_Mask = SMG$M_Reverse .OR. SMG$M_Blink    )