writing output listing onto screen (or not) and onto file

Is it possible to simplify my code by putting only one
WRITE statement when I want to write output results onto screen
(or not) and onto a file :

I put :

CHARACTER*1 SEL


OPEN( 8,FILE='sosout')

WRITE(6,*) ' Sorties en ligne (o | n ou >)?'
READ (5,'(A)') SEL
IF(SEL.NE.'o') OPEN(6,FILE='NO')

WRITE(6,200) A, B, C
WRITE(8,200) A, B, C
200 FORMAT(' A B C=', 3F12.4)
............;

Thanks for your help!

Bernard Bru
.