KT60 G 1 ;INSTELLEN MUNTPARITEITEN ; KT60; Do naar KPWAMP
 ;
T1 ;AFK.  OMSCHRIJVING         EENHEID   AANKOOP      VERKOOP    FINANCIEEL 
T2 ;[] = vervolg    ,[] = einde
T3 ;+[] = toevoegen pariteit     [] = wijzigen pariteit\".[] = overzicht op scherm   V[] = verwijderen munt   -[] = einde programma"
T4 ;GEEF DE TE BEHANDELEN SOORT PARITEIT\"A(ankoopkoers)  V(erkoopkoers)  F(inanciele/diverse koers)  [] = ALLE"
T5 ;GEEF DE MUNTCODE\
T6 ;GEEF DE OMSCHRIJVING
T7 ;GEEF DE EENHEID  1 of 100\
T8 ;GEEF DE PARITEIT PER EENHEID\
T9 ;[] = registratie ok   ,[] = hernemen
T10 ;VERWIJDEREN MUNTCODE, GEEF DE MUNT
T11 ;,[] = hernemen    V[] = verwijderen
T12 ;,[] = hernemen    V[] = DEFINITIEF verwijderen
T13 ;LET OP HET PRODUKTENBESTAND WORDT AANGEPAST
T14 ;[] = ok   ,[] = hernemen
 ;
9 S FP=$P(L(CD),D,7)*100+5 W @F,@F2,$P(L(CD),D,1) S FP=FP+6 W @F,$P(L(CD),D,2)
91 S FP=FP+23 W @F,$J($P(L(CD),D,3),3) S FP=FP+8 W @F,$J($P(L(CD),D,4),8,4) S FP=FP+13 W @F,$J($P(L(CD),D,5),8,4) S FP=FP+13 W @F,$J($P(L(CD),D,6),8,4)
92 F X=3,9,31,39,52,65,78 S FP=$P(L(CD),D,7)*100+X W @F,@F7,@$P(FG,D,10),@F8
93 Q
 ;
 ; begin programma
1 S U=";",Q1="^"_Q_"BA(11,CD)",K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
10 S FP=303 W @F,@F7,@$P(FG,D,1) F K=1:1:74 W @$P(FG,D,9)
11 W @$P(FG,D,2),@F8 F FP=309,331,339,352,365 W @F,@F7,@$P(FG,D,5),@F8
12 S CD=0,L(CD)="\\\\\\4",FP=477 W @F,@F5 S FP=404 W @F,@F4,$P($T(T1),U,2),@F5 D 92
2 S CD=-1,K=$N(@Q1)
20 K L S L=4,FP=501 W @F,@F1 G 3:(K=-1)
21 S CD=$N(^(CD)) G 3:CD=-1 S A=^(CD)
22 S L=L+1,L(CD)=$P(^(CD),D,1,6)_D_L D 9
23 G 21:(F60\100+19)>L S R="K\22\3\"_$P($T(T2),U,2)_"\\1\\"",-""[K" D R0 G 20:K=""
 ;
3 S FP=2001+F60,R="KE\22\3\"_$P($T(T3),U,2)_"\1\\""+-V.""[K" W @F,@F1 D R0 G YZ:K="-",2:K=".",5:K="",6:K="V"
 ; toevoegen muntpariteit
4 S R="CD\20\3\"_$P($T(T5),U,2)_"\3\\K?1A.E!(K=""-"")" D R0 G 3:K="-" I $D(@Q1) X ^cTXT(0,"N",48) R K G 4
40 S R="OM\21\3\"_$P($T(T6),U,2)_"\\19\\K?1A.E!(K=""-"")" D R0 G 4:K="-"
41 S R="EH\22\3\"_$P($T(T7),U,2)_"\3\\K=""1""!(K=""-"")!(K=""100"")" D R0 G 40:K="-"
42 S R="PA\23\3\"_$P($T(T8),U,2)_"\7\\K?1N.N!(K?.N1""."".N)!(K=""-"")" D R0 G 41:K="-",42:K'<1000
43 S R="K\24\3\"_$P($T(T9),U,2)_"\\1\\""-,""[K" D R0 G 42:K="-",4:K=","
47 S L=L+1 I (F60\100+19)<L K L S L=5,FP=501 W @F,@F1
48 S L(CD)=CD_D_OM_D_EH_D_PA_D_PA_D_PA_D_L,@%Q1=0,@Q1=$P(L(CD),D,1,6),@%Q1=1 D 9 G 3
 ; wijzigen muntpariteit
5 S R="KEU\20\3\"_$P($T(T4),U,2)_"\1\\""-AVF""[K" D R0 G 3:K="-"
500 S FP=2042+F60 W @F,@F1,$S(K="A":"AANKOOPKOERS",K="V":"VERKOOPKOERS",K="F":"FINANCIELE/DIVERSE KOERS",1:"ALLE")
50 S R="CD\21\3\"_$P($T(T5),U,2)_"\3\\$L(K)" D R0 G 5:K="-"
51 I '$D(L(CD)) X ^cTXT(0,"N",49) R K G 50
52 S R="PA\22\3\"_$P($T(T8),U,2)_"\7\\(K?.N1""."".N!(K?.N)&(K))!(K=""-"")" D R0 G 50:K="-",52:K'<1000
520 I "A"[KEU S R="K\23\3\"_$P($T(T13),U,2)_"\"""_$P($T(T14),U,2)_"""\1\\""-,""[K" D R0 G 52:K="-",5:K=","
53 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
54 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 9 S @%Q1=0,@Q1=$P(L(CD),D,1,6)
56 D:"A"[KEU ^KPWAMP S @%Q1=1 G 50
 ; verwijderen muntcode
6 S R="CD\22\3\"_$P($T(T10),U,2)_"\\3\\K?1A.E!(K=""-"")" D R0 G 3:K="-" I '$D(L(CD)) X ^cTXT(0,"N",50) R K G 6
61 S R="K\23\3\"_$P($T(T11),U,2)_"\\1\\""V,-""[K&$L(K)" D R0 G 3:K'="V"
62 S R="K\24\3\"_$P($T(T12),U,2)_"\\1\\""V,-""[K&$L(K)" D R0 G 3:K'="V"
63 S FP=$P(L(CD),D,7)*100+2,@%Q1=0 K @Q1,L(CD) S @%Q1=1 W @F,@F2 G 3
 ;
YZ Q
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)_")"
R0A 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)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 36