-!-- back color is white flag.
+!-- back color is white flag. Ver.5.4.2
 
-  if(black==999.or.white==999)then
-     call DclSetParm( 'LCLCNV' , .FALSE. )
-  end if
+!  if(black==999.or.white==999)then
+!     call DclSetParm( 'LCLCNV' , .FALSE. )
+!  end if
+
+  if(black==999)then
+     call SGIGET( 'IBGCLI', black )
+     black=black*1000+999
+  end if
+  if(white==999)then
+     call SGIGET( 'IBGCLI', white )
+     white=white*1000+999
+   end if
