cA3171 ;Printen hoofding  : NBN Z 01-003 ;%A317 ; [ 04/12/00   9:03 AM ]
 G 1
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V2 20.11.86
 ;
1 N POS
 S POS=43
 W !
 ; printen hoofding
2 W @F83 I $D(N(1)) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+POS),@F82,N(1),@F83
21 F N=1.1,2,3 W:'X(13) ! I $D(N(N)) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+POS),N(N)
29 F N=4,5,6 I 'X(14) W:'X(13) ! I $D(N(N)) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+POS),N(N)
39 W:'X(13) ! I 'X(14),$D(N(7)) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+POS),N(7)
 ; I X(14) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)*2+POS) W @F81 W:$D(N(4)) N(4) W @F83,$$CR^cA334 W  $J("",X(16)+14*2+POS) W @F81 W:$D(N(7)) N(7) W @F83
4 I X(14) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+POS) W @F81,$G(N(4)),$J("",25+4-$L($G(N(4)))) W:$D(N(7)) N(7) W @F83
43 W ! I 'X(14),$D(N(8)) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+POS),N(8)
45 I X(14) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+POS) W @F81,$G(N(5)),$J("",25+4-$L($G(N(5)))) W:$D(N(8)) N(8) W @F83
49 W ! I 'X(14),$D(N(9)) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+POS),N(9)
5 I X(14) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+POS) W @F81,$G(N(6)),$J("",25+4-$L($G(N(6)))) W:$D(N(9)) N(9) W @F83
 W !,$J("",X(16)+6) W:$L(X(4)) X(4)," " W X(2)
47 W !,$J("",X(16)+6),X(3)
51 W !,$J("",X(16)+6),X(5)
53 W !,$J("",X(16)+6) W:$L(X(6)) X(6),"    " W X(7)
55 W ! F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+POS+5),@F85,X(11) S R=X(12) D:+R R3 W @F83
57 W $$CR^cA334 I $L(X(8)) W $J("",X(16)+6),$$LAND^cAFO1(X(8)),$$CR^cA334
59 W $J("",X(16)+30),X(1),!
 ;
6 K N,R,X
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84