A317 ;DRUKKEN HOOFDING ;%A317; [ 06/25/2002  11:07 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
 ;
S1 I $D(@("^"_Q_"BA(183)")),^(183) F R=1:1:^(183) W !
S1Z Q
 ;
1 K X F X=1:1:17 S X(X)=$P(R,D,X)
11 K N,R S X=@("^"_Q_"BA(39)") S:X(8)=$P(X,D,3) X(8)="" S:'$L(X(16)) X(16)=3 S:'$L(X(17)) X(17)=$P(X,D,2)
13 I 'X(13) S N(1)=@("^"_Q_"BA(99,1)"),X=1 F I=1:1 S X=$N(^(X)) Q:X=-1!(X?.A)  S N(X)=^(X)
 ;
2 D S1 W @F83 I $D(N(1)) F X=1:1:X(15) W $C(13),$J("",X(16)+1),@F82,N(1),@F83
21 F N=1.1,2,3 W ! I $D(N(N)) F X=1:1:X(15) W $C(13),$J("",X(16)+1),N(N)
29 F N=4,5,6 I 'X(14) W ! I $D(N(N)) F X=1:1:X(15) W $C(13),$J("",X(16)+1),N(N)
39 W ! I 'X(14),$D(N(7)) F X=1:1:X(15) W $C(13),$J("",X(16)+1),N(7)
4 I X(14) F X=1:1:X(15) W $C(13),@F81,$J("",X(16)*2+1) W:$D(N(4)) N(4) W @F83,$C(13),@F81,$J("",X(16)+14*2+1) W:$D(N(7)) N(7) W @F83
41 W $C(13),$J("",X(16)+38) W:$L(X(4)) X(4)," " W X(2)
43 W ! I 'X(14),$D(N(8)) F X=1:1:X(15) W $C(13),$J("",X(16)+1),N(8)
45 I X(14) F X=1:1:X(15) W $C(13),@F81,$J("",X(16)*2+1) W:$D(N(5)) N(5) W @F83,$C(13),@F81,$J("",X(16)+14*2+1) W:$D(N(8)) N(8) W @F83
47 W $C(13),$J("",X(16)+38),X(3)
49 W ! I 'X(14),$D(N(9)) F X=1:1:X(15) W $C(13),$J("",X(16)+1),N(9)
5 I X(14) F X=1:1:X(15) W $C(13),@F81,$J("",X(16)*2+1) W:$D(N(6)) N(6) W @F83,$C(13),@F81,$J("",X(16)+14*2+1) W:$D(N(9)) N(9) W @F83
51 W $C(13),$J("",X(16)+38),X(5)
53 W !,$J("",X(16)+38) W:$L(X(6)) X(6),"    " W X(7)
55 W ! F X=1:1:X(15) W $C(13),@F85,$C(13),$J("",X(16)+1),X(11) S R=X(12) D:+R R3 W @F83
57 W $C(13) I $L(X(8)) W $J("",X(16)+38),$$LAND^vhRtn1(X(8),2,X(17))
59 W $J("",X(16)+62),X(1),!
 ;
6 K N,R,X
 ;
YZ Q
 ; dit is een test