C CTITRE SOURCE CHAT 05/01/12 22:32:05 5004 C ECRITURE DU TEXTE ENCADRE PAR DES ETOILES SUBROUTINE CTITRE(TEXTE) C IMPLICIT INTEGER(I-N) -INC PPARAM -INC CCOPTIO CHARACTER*(*) TEXTE CHARACTER BLAN CHARACTER*105 BUFF CHARACTER*76 STAR PARAMETER (BLAN=' ') PARAMETER (STAR='************************************************* #**************************') NN=MIN(72,LEN(TEXTE)) DO 10 I=NN,1,-1 IF (TEXTE(I:I).NE.BLAN) GOTO 20 10 CONTINUE 20 CONTINUE NN=I C BUFF=BLAN NDEV=(132-NN-4)/2 BUFF(NDEV+1:NDEV+NN+4)=STAR WRITE (IOIMP,999) 999 FORMAT (//) WRITE (IOIMP,1000) BUFF 1000 FORMAT (1X,A105) BUFF(NDEV+2:NDEV+NN+3)=BLAN WRITE (IOIMP,1000) BUFF BUFF(NDEV+3:NDEV+NN+2)=TEXTE(1:NN) WRITE (IOIMP,1000) BUFF BUFF(NDEV+2:NDEV+NN+3)=BLAN WRITE (IOIMP,1000) BUFF BUFF(NDEV+1:NDEV+NN+4)=STAR WRITE (IOIMP,1000) BUFF WRITE (IOIMP,999) END