KLA0 G 1 ;BEHEER LEVERINGSADRESSEN ;Quit naar %FA13,%FA14 [ 02/21/2001  11:57 AM ]
 ;
S1 S FP=$P(A(I),U,5)*100+$P(A(I),U,6) W @F,$J("",$P(A(I),U,9)),$J("",$P(A(I),U,13))
S1Z Q
 ;
1 G YZ:$D(SW99)
3 G 9:'$L(K) S B(1)=$P(B(1),D,1)_"\\\\\\\\"_$P(B(1),D,9,99) F I=103:1:108 D S1 W @F,$P(^KKL(KCL,0),D,I-101)
5 S I=109 D S1 W @F,$S($P(^KKL(KCL,0),D,I-101)="":"",1:$E($$LAND^vhRtn1($P(^KKL(KCL,0),D,I-101),2),1,20))
7 S I=110 D S1 W @F,$P("NEDERL.\FRANS\ENGELS\DUITS",D,$F("NFED",$P(^KKL(KCL,0),D,I-101))-1) G YZ
9 F I=103:1:110 S FP=$P(A(I),U,5)*100+$P(A(I),U,6) W @F,$J("",$P(A(I),U,9)),$J("",$P(A(I),U,13))
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 31