KLA1 G 1 ;TONEN LEVERINGSADRES ORDERS-UITLEVERINGEN
 ;
1 I $L(K) S B(1)=$P(B(1),D,1)_"\\\\\\\\"_$P(B(1),D,9,99) F I=103:1:109 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)),@F,$P(^(0),D,I-101)
3 I '$L(K) F I=103:1:109 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