SUBROUTINE VTDOC BYTE LIGNE(80),REP C------ Assignation du fichier ---------------------------------------------- CALL ASSIGN(2,'VT.DOC',6) CALL VTWRAP(0) CALL VTSCRL(0) C------ Transcription du fichier -------------------------------------------- 10 DO 100 I = 1,24 READ (2,200,ERR=20,END=20) LIGNE 200 FORMAT(80A1) TYPE 300,LIGNE 300 FORMAT(1H ,80A1) 100 CONTINUE 30 CALL ASKS('Taper "C" pour CONTINUER ou "T" pour TERMINER',REP,1,1) IF (REP.EQ.'C') GO TO 10 IF (REP.EQ.'T') GO TO 20 GO TO 30 C------ Fin de fichier ou erreur -------------------------------------------- 20 CALL VTWRAP(1) CALL VTSCRL(1) CALL CLOSE(2) RETURN END