.T#C ----            .T#C ..SCH #A 8#JB0

               .1NEXE #A
              .4PS D'[MB*S
    
  -- .9S3IVZ L'1N=E D'[POS[ VIS=E ? >
    CAS: CI-DE!US4
  -- .9 L':PACE : 9SUFFIS?1 J)7Z UN
    F"I_E 4T9CTE4

.NOTE 8 03IPT.3
  8.L'1NEXE #A : 5 COL+N:1 DT #A ( #B
  COL+N: 7DES3IPTIV:7 ) #E COL+N:
  7NUM=ROT=:74 .L'[6IM= A D L':PACE & #A
  ( #B 50=:40

.RQ3
  .N'UTILISZ PS CT 1NEXE & D=D2RE UN
  P8TE D=DUCTI^E K T0 D'U $CM D'50E6ISE
  SUBIE L;S D'UN 4P D'A#S \ D 3=1C: D'UN
  SOCI=T= X$)T? UN PEE 50E6ISE4 .LISZ '
  L7 #BE 8 G2DE4


                                      #A
      .A#S ADMI!I^: D PEE 50E6ISE
    
.NB D'A#S ----
.NW D ' SOCI=T= ) CAT=GORIE D'A#S ----
8#A0 .1N=E D L'ACQIS[ ----
8#B0 .6D D 4P ----
8#C0 .6X D BASE RAJUST= ---- ^S
8#D0 .D=P5S: EFFECTU=: RTVS KX 4PS
  ---- ^S
8#E0 .GA9 8P8TE0 8COL+NE #B M9 COL+N: #C
  ) #D0 ---- ^S
8#AJAA0 .TOTAL 8.TOTAL DS 50=: 0 '
  COL+NE #B0 ---- ^S
8#A0 ) 8#AJAB0 .GA9 8P8TE0 8.TOTAL DS
  50=: 0 ' COL+NE #E0 ---- ^S

          .BS A]ICOL: ADMI!I^:
    
.A?E!E \ D=SI7* OFLL ----
8#A0 .1N=E D L'ACQIS[ ----
8#B0 .6D D 4P ----
8#C0 .6X D BASE RAJUST= ---- ^S
8#D0 .D=P5S: EFFECTU=: RTVS KX 4PS
  ---- ^S
                                      #B
               .1NEXE #A
8#E0 .GA9 8P8TE0 8COL+NE #B M9 COL+N: #C
  ) #D0 ---- ^S
8#AJBA0 .TOTAL 8.TOTAL DS 50=: 0 '
  COL+NE #B0 ---- ^S
8#B0 ) 8#AJBB0 .GA9 8P8TE0 8.TOTAL DS
  50=: 0 ' COL+NE #E0 ---- ^S

      .UNTS D F+DS -N D $CM ) K0S
                  A#S
    
.NB D'A#S ----
.NW D ' SOCI=T= \ 8 F+DS ) CAT=GORIE
  D'A#S ----
8#A0 .1N=E D L'ACQIS[ ----
8#B0 .6D D 4P ----
8#C0 .6X D BASE RAJUST= ---- ^S
8#D0 .D=P5S: EFFECTU=: RTVS KX 4PS
  ---- ^S
8#E0 .GA9 8P8TE0 8COL+NE #B M9 COL+N: #C
  ) #D0 ---- ^S
8#AJCA0 .TOTAL 8.TOTAL DS 50=: 0 '
  COL+NE #B0 ---- ^S
8#C0 ) 8#AJCB0 .GA9 8\ P8TE0 8.TOTAL DS
  50=: 0 ' COL+NE #E0 ---- ^S         #C
      .O^IG*S1 D=B5TUR:1 BI_ETS (
              ;?E ) K0S BS
    
.V. NOMINALE ----
.DATE D'=(=1CE ----
.NW D L'=MEW. ----
8#A0 .1N=E D L'ACQIS[ ----
8#B0 .6D D 4P ----
8#C0 .6X D BASE RAJUST= ---- ^S
8#D0 .D=P5S: EFFECTU=: RTVS KX 4PS
  ---- ^S
8#E0 .GA9 8P8TE0 8COL+NE #B M9 COL+N: #C
  ) #D0 ---- ^S
8#AJDA0 .TOTAL 8.TOTAL DS 50=: 0 '
  COL+NE #B0 ---- ^S
8#D0 ) 8#AJDB0 .GA9 8\ P8TE0 8.TOTAL DS
  50=: 0 ' COL+NE #E0 ---- ^S

         .BS [M"^:1 BS AM;TI!^S
    
  8N'9%UZ PS > P8T: H DS BS AM;TI!^S0
.A?E!E \ D=SI7* OFLL ----
8#A0 .1N=E D L'ACQIS[ ----
8#B0 .6D D 4P ----
8#C0 .6X D BASE RAJUST= ---- ^S       #D
               .1NEXE #A
8#D0 .D=P5S: EFFECTU=: RTVS KX 4PS
  ---- ^S
8#E0 .GA9 8P8TE0 8COL+NE #B M9 COL+N: #C
  ) #D0 ---- ^S
8#AJEA0 .TOTAL 8.TOTAL DS 50=: 0 '
  COL+NE #B0 ---- ^S
8#E0 ) 8#AJEB0 .GA9 8P8TE0 8.TOTAL DS
  50=: 0 ' COL+NE #E0 ---- ^S

              .BS ( UG PNL
    
  8D+NZ UN DES3IPT# -T0 ----
8#A0 .1N=E D L'ACQIS[ ----
8#B0 .6D D 4P ----
8#C0 .6X D BASE RAJUST= ---- ^S
8#D0 .D=P5S: EFFECTU=: RTVS KX 4PS
  ---- ^S
8#E0 .GA9 8P8TE0 8COL+NE #B M9 COL+N: #C
  ) #D0 ---- ^S
8#AJFA0 .TOTAL 8.TOTAL DS 50=: 0 '
  COL+NE #B0 ---- ^S
8#F0 ) 8#AJFB0 8.9 N=GATIF1 9S3IVZ 7#J70
  8.TOTAL DS 50=: 0 ' COL+NE #E0 ---- ^S
                                      #E
       .BS M"^: D=T8MIN=S 8..BMD0
    
  8D+NZ UN DES3IPT# -T0 ----
8#A0 .1N=E D L'ACQIS[ ----
8#B0 .6D D 4P ----
8#C0 .6X D BASE RAJUST= ---- ^S
8#D0 .D=P5S: EFFECTU=: RTVS KX 4PS
  ---- ^S
8#E0 .GA9 8P8TE0 8COL+NE #B M9 COL+N: #C
  ) #D0 ---- ^S
8#AJGA0 .TOTAL 8.TOTAL DS 50=: 0 '
  COL+NE #B0 ---- ^S
8#G0 ) 8#AJGB0 8.TOTAL DS 50=: 0 '
  COL+NE #E0 ---- ^S

.RQ3
  .V P\VZ D=D2RE DS P8T: D ..BMD SLM H
  DS GA9S D ..BMD4

8#H0 ) 8#AJHJ0 .9S3IVZ > P8T: H
  > ..BMD D ' L7 #G 8 F;MUL/RE
  .T#AJEE ) > P8T: H > ..BMD
  9UTILIS=: D'K0S 1N=: 8D+NZ DS
  6=CIS#S04 """""""""""""""""""" ---- ^S
                                      #F
               .1NEXE #A
8#I0 _.GA9 _NET 8L7 #G M9 L7 #H0 ---- ^S

8#AJ0 ) 8#AAJJ0 .F"I_ETS D R5S
  -- 3_.GA9S 8P8T:0 5 _CAPITAL
  8J)7Z > F"I_ETS .T#C1 .T#E1
  .T#D..PS ) .T#EJAC0 """""""""" ---- ^S
8#AA0 ) 8#AACJ0 .P8T: 5 CAPITAL
  D=C\L? D'UN R=DUCT# DS P8T: K
  T0 D $CMS D'50E6ISE """""""""" ---- ^S
8#AB0 ) 8#AADB0 .R=DUCT# DS GA9S
  5 CAPITAL 6VEN? D ' 4P
  D'5TIT=S 9T8M=DI/R: """""""""" ---- ^S
8#AC0 3_.TOTAL DS M+T?S D '
  COL+NE #E AV > _6VIS#S
  8ADDIT#NZ > L7S #A ( #F1 #I )
  #AJ1 6 S\S0AYZ > L7S #AA )
  #AB0 """"""""""""""""""""""""" ---- ^S
8#AD0 ) 8#AAGJ0 .GA9S 8P8T:0 5
  CAPITAL 6VEN? DS 6VIS#S 8L7 #E
  D ' COL+NE #C D L'1NEXE #B0
  8.9 C M+T? : UN P8TE 5
  CAPITAL1 3_N L'9DIQZ _PS 50E
  PAR5TH!S:40 """""""""""""""""" ---- ^S
                                      #G
               .1NEXE #A
8#AE0 _.TOTAL _P@TIEL 8L7 #AC $
  L7 #AD0 """""""""""""""""""""" ---- ^S
8#AF0 .GA9S 5 CAPITAL RAJUST=S
  R=SULT? 8 D+ D CNS [MB*S 8L7
  #F D L'1NEXE #A,.A0 """""""""" ---- ^S
8#AG0 ) 8#AAIA0 3_.GA9S
  5 CAPITAL R=SULT? D'U
  D+ D'K0S _[MB*S 8.LISZ
  ' L7 #AF 8 G2DE0 """"" ---- ^S
8#AH0 ) 8#AFDF0 .TOTAL
  DS P8T: 0F=R=: SEL+
  #AFD8#F0 8_N'_9DIQZ
  _PS C M+T? 50E
  PAR5TH!S:0 """"""""""""""""""" ---- ^S
8#AI0 _.TOTAL _P@TIEL
  8ADDIT#NZ > L7S #AE1
  #AF1 ) #AH0 """""""""""""""""" ---- ^S
  MULTI$I= P """""""""""""""""""" U-DEMI
8#BA0 ) 8#ABBJ0 3_.TOTAL
  DS GA9S 5 CAPITAL
  [POS^S 8\ P8T: 5
  CAPITAL _NEW:0 8L7 #AI
  MULTI$I=E P U-DEMI0 """""""""" ---- ^S
                                      #H
               .1NEXE #A
  .9 L M+T? D ' L7 #BA : POSITIF1
9S3IVZ-L ( ' L7 #JA D ' D=%AR*4 .S'I :
N=GATIF1 LISZ ' L7 #JA 8 G2DE4




















                                      #I