cT843 ;Fin & div: vraag anal. ;%T80 ; [ 01/04/01  2:08 PM ]
 ;
T0 ;Fin & div: vraag anal. ;
T1 ;An.rek. : ;
T2 ;Curve : ;
 ;
T0F ;Fin & div: quest.anal. ;
T1F ;Cmp.an. : ;
T2F ;Courbe: ;
 ;
T0E ;Financial & miscellaneous transactions: demand anal. ;
T1E ;An.acc. : ;
T2E ;Curve : ;
 ;
1 S SWAV=0,FP=2051 W @F,@F1 G YZ:'SWAN
11 S AVE=$P(@Q41,D,6),SWAV="\1\A\K\"[(D_$P(AVE,"#")_D) G YZ:'SWAV
13 D ^cTA7 G YZ:K="-" S FP=2052 W @F S R1=$E(BRA),R2=$E(BRA,2,99)
15 I R1="A" W $E($P($T(@("T1"_QT)),U,2)_R2_$P(@("^"_Q_"ARA(R2,0)"),D,2),1,27)
17 I R1="K" W $E($P($T(@("T2"_QT)),U,2)_R2_" "_$P(@("^"_Q_"AK(^"_Q_"AK1(R2),0)"),D,2),1,27)
 ;
YZ K R1,R2 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84