8556 IF ABS(CC-CJ)<.0001*ABS(CC) THEN L=100