Integer*2 Color_HLS (3,0:3) Logical Display Character*96 Original Common /CS/ Color_HLS