.....F*ilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++++++Comments+++++++++++
     FRPGI07D   CF   E             WORKSTN
     F                                     SFILE(SFL:RANG)
     FFICH1L1   IF   E           K DISK
     FFICH2P1   IF   E           K DISK
      * PGM PRINCIPAL (BOUCLE SUR IMAGE 1)
      * ==================================
.....C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq....Comments+++++++++++
     C                   WRITE     TITRE
     C                   EXFMT     F1
     C     *IN03         DOWEQ     *OFF
     C                   EXSR      TRTF1
     C                   EXFMT     F1
     C                   ENDDO
     C                   MOVE      *ON           *INLR
      * DEBUT DES SOUS PROGRAMMES
      * =========================
     C     TRTF1         BEGSR
     C     CODE          CHAIN     FICH1F1                            50
     C     *IN50         IFEQ      *OFF
     C     CODE          CHAIN     FICH2F1                            51
     C                   EXSR      RAZSF
     C     *IN90         DOUEQ     *ON
     C                   EXSR      ECRSF
     C     CODE          READE     FICH1F1                                90
     C                   ENDDO
     C                   WRITE     PIED
     C                   EXFMT     CTL
     C                   ENDIF
     C                   ENDSR
      *
     C     RAZSF         BEGSR
     C                   MOVEA     '00'          *IN(30)
     C                   WRITE     CTL
     C                   MOVE      *ON           *IN31
     C                   Z-ADD     0             RANG              4 0
     C                   ENDSR
      *
     C     ECRSF         BEGSR
     C                   ADD       1             RANG
     C                   WRITE     SFL
     C                   MOVE      *ON           *IN30
     C                   ENDSR