KY0 ; INSTELLEN MUNTPARITEITEN 
1 G 10
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_","_$P(R,D,8) S:$P(R,D,7)'="" R7=R7_","_$P($T(@$P(R,D,7))," ",2,99) S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
 S R0=$L(R4)+R3+3,FP=R2*100+R3+F60 W @F W:R3<35 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5 W @F1
R0A S FP=R2*100+R0+F60 W @F,@F2 W $E("....................",1,R6),@F,*7 R K S:$P(R,D,7)="DCTR" D1=$P(K,".",1),D2=$P(K,".",2),D3=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0B
 G R0A
R0B K R2,R3,R4,R5,R6,R7,R0 Q
T0 F X=9,15,35,43,52,61,78 S FP=$P(L(CD),D,7)*100+X W @F,"|"
 Q
T1 W !,?2,"A(ankoopkoers)  V(erkoopkoers)  F(inanciele/diverse koers)  <NL>=ALLE" Q
T2 S FP=$P(L(CD),D,7)*100+11 W @F,$P(L(CD),D,1) S FP=FP+6 W @F,$P(L(CD),D,2)
T20 S FP=FP+21 W @F,$P(L(CD),D,3) S FP=FP+7 W @F,$J($P(L(CD),D,4),6) S FP=FP+9 W @F,$J($P(L(CD),D,5),6) S FP=FP+12 W @F,$J($P(L(CD),D,6),6) Q
Y Q
10 W @F11,@F1,@F61
15 S FR=0,FP=116 W @F,@F4,$P($T(KY0),";",2),@F5 S L=3,LX=L,I2=-1,K=$N(@("^"_Q_"BA(11,I2)"))
20 S FP=308 W @F,@F4,"| AFK.| OMSCHRIJVING      |EENHEID| AANKOOP| VERKOOP|FINANC.+DIVERSEN|",@F5 G 110:K=-1
40 S I2=$N(^(I2)) G:I2<0 110 S A=^(I2)
50 S L=L+1,L(I2)=^(I2)_D_L,CD=I2 D T0,T2
80 G 40
110 S R="KE\20\3\<NL>=WIJZIGEN PARITEIT  +<NL>=TOEVOEGEN PARITEIT  -<NL>EINDE PROGRAMMA\\1\\""+-""[K\" D R0 G Y:K="-",150:K=""
115 S R="CD\20\3\GEEF DE MUNTCODE\\3\\K=K\" D R0
120 S R="OM\21\3\GEEF DE OMSCHRIJVING\\16\\K=K\" D R0
125 S R="EH\22\3\GEEF DE EENHEID  1 of 100\\3\\K=""1""!(K=""100"")\" D R0
130 S R="PA\23\3\GEEF DE PARITEIT PER EENHEID\\7\\K?.N1""."".N\" D R0
135 S R="K\24\3\<NL>=REGISTRATIE OK  -<NL>=HERNEMEN\\1\\""-""[K\" D R0 G 115:K="-"
140 S (A1,A2,A3)=PA
145 S L=L+1,L(CD)=CD_D_OM_D_EH_D_A1_D_A2_D_A3_D_L,@("^"_Q_"BA(11,CD)")=$P(L(CD),D,1,6) D T2,T0 G 110
150 S R="KEU\20\3\GEEF DE TE BEHANDELEN SOORT PARITEIT  <NL>=NAAR VORIGE KEUZE\T1\1\\""AVF""[K\" D R0 G 110:K=""
155 S R="CD\20\3\GEEF DE GEWENSTE MUNTCODE\""-<NL>=NAAR VORIGE KEUZE""\3\\K=K\" D R0
160 G 150:K="-" I '$D(L(CD)) S FP=2403 W @F,@F2,@F4,"CODE STAAT NIET OP HET SCHERM ",@F5,*7 H 2 G 155
165 S R="PA\21\3\GEEF DE GEWENSTE PARITEIT\\7\\K?.N1""."".N!(K?.N)\" D R0
170 S A1=$P(L(CD),D,4),A2=$P(L(CD),D,5),A3=$P(L(CD),D,6) S:KEU="A" A1=PA S:KEU="V" A2=PA S:KEU="F" A3=PA
175 S:KEU="" (A1,A2,A3)=PA S L(CD)=$P(L(CD),D,1,3)_D_A1_D_A2_D_A3_D_$P(L(CD),D,7) D T2,T0 S @("^"_Q_"BA(11,CD)")=$P(L(CD),D,1,6) G 155
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 36