cANU401 ;Z-diagram ;%ANU40 ; [ 04/12/00   9:06 AM ]
 G 1
 ;
T0 ;Z-diagram ;
 ;
T0F ;Diagramme 'Z' ;
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),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,".") 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 S FP=2317 W @F,@F7,@$P(FG,D,8) F I=1:1:61 W @$P(FG,D,9)
S1A W @$P(FG,D,8) S T=0 F K=2217:-200:417 S FP=K W @F,@$P(FG,D,10) S FP=K+62 W @F,@$P(FG,D,10) S FP=K-100 W @F,@$P(FG,D,6) S FP=K-38 W @F,@$P(FG,D,7)
S1B W @F8 F I=1:1:12 S K=BP#1*100+I S:K>12 K=K-12 S:T<B(I) T=B(I) S FP=I*5+2315+(K<10) W @F,K
S1C S:T<5 T=5 S:$E(T,2)=9 T=($E(T,1,2)+1)_$E(T,3,99) S T=T+.5\1,I=$E(1E15,1,$L(T)-1),T=$E(T)_(I*$E(T,2)+I)/20 F I=0:2:20 S FP=23-I*100+1 W @F S R=T*I_"\15\\"_QD D R3
S1Z Q
 ;
S2 F I=1:1:12 S FP=-$J(B(I)/T,0,0)*100+(I*5)+2316-LN S:FP<100 FP=I*5-LN+16 D:FP<2300&(FP>100) S5 F FP=FP+100:100:2300 W @F,@F7,@$P(FG,D,LN=2*11+10),@F8,$J("",LN),@F7,@$P(FG,D,LN=2*11+10),@F8
S2Z Q
 ;
S3 S C(1)=A(13) F I=2:1:12 S C(I)=A(I+12)+C(I-1)
S3A S B(12)=C(12) F I=11:-1:1 S B(I)=B(I+1)-A(I+13)+A(I+1)
S3Z Q
 ;
S4 S ^HULP(boot,$J,0)="",T=0 F I=1:1:12 S:T<B(I) T=B(I) S ^(I*2-2)="|"_$J("|",64),^(I*2-1)="+"_$J("+",64)
S4A S:$E(T,2)=9 T=($E(T,1,2)+1)_$E(T,3,99) S T=T+.5\1,I=$E(1E15,1,$L(T)-1),T=$E(T)_(I*$E(T,2)+I)/20
S4B S:'T T=1 F I=1:1:12 S K=-$J(B(I)/T,0,0)+23 S:K<2 K=2 S:$D(^(K)) C=^(K),^(K)=$E(C,1,I*5)_LN_$E(C,I*5+2,99) I LN="*" F K=K:1:23 S:$D(^(K)) C=^(K),^(K)=$E(C,1,I*5)_LN_$E(C,I*5+2,99)
S4Z Q
 ;
S5 W @F,@F7,@$P(FG,D,LN=2*11+1) F K=1:1:LN W @$P(FG,D,LN=2*11+9)
S5Z W @$P(FG,D,LN=2*11+2),@F8 Q
 ;
1 S K=0 F I=1:1:24 S:A(I)<0 K=K+1 S:A(I)>0 K=K-1
11 I K>0 F I=1:1:24 S A(I)=-A(I)
 ;
2 G 4:SW=1,5:SW=2
 ;
3 S LN=2 D S3,S1 S FP=2478 W @F,@F4 D S2 S FP=2478 W @F,@F5 F I=1:1:12 S B(I)=C(I)
33 S LN=1,FP=2478 W @F,@F92 D S2 S FP=2478 W @F,@F93 F I=1:1:12 S B(I)=A(I+12)
37 S LN=0,FP=2478 W @F,@F94 D S2 S FP=2478 W @F,@F95
39 G 49
 ;
4 S LN=2 F I=1:1:12 S B(I)=A(I+12)
41 D S1,S2
49 D TXT^cAFA1(4) G YZ
 ;
5 S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3) X F70 W @F80 K ^HULP(boot,$J)
51 W !,QN,?72,$P($T(@("T3"_QT)),U,2),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334,?72,DT,!,NM3,?30,@F82,BP,@F83,$$CR^cA334,?73,TD,!
53 S K=$$UC^cAFA1($E(UTOP(1)))_$E(UTOP(1),2,99)_" : "_UTOP(1.1) W !,$E(K,1,78),!
 ;
6 S LN="J" D S3,S4 F I=1:1:12 S B(I)=C(I)
61 S LN="C" D S4B F I=1:1:12 S B(I)=A(I+12)
62 S LN="M" D S4B F I=2:1:22 W ! S R=$P(23-I*T,D,I+1#2+1)_"\13\\"_QD D R3:R W:'R $J("",14) W " ",^(I)
63 W !,?13,"0 |" F I=1:1:12 S K=BP#1*100+I S:K>12 K=K-12 W $E("----"_K,$L(K),9)
64 W "---|" S LN="*" D S4 F I=2:1:22 W ! S R=$P(23-I*T,D,I+1#2+1)_"\13\\"_QD D R3:R W:'R $J("",14) W " ",^(I)
65 W !,?13,"0 |" F I=1:1:12 S K=BP#1*100+I S:K>12 K=K-12 W $E("----"_K,$L(K),9)
67 W "---|",! F I=1:1:6 W !,?3 F K=1:1:4 S R=30-(K*6)-I/-100+BP S:R#1>.13!'(R#1) R=R-.88 S:R#1>.13!'(R#1) R=R-.88 S:R<9 R=R#1*100 W $J(R#100,5,R#1&1*2) S R=A(K*6+I-6)_"\11\\"_QD D R3 W:K<4 " | "
69 W $$FF^cA334 X F71
 ;
YZ K NM2,NM3,^HULP(boot,$J) Q
 ;
ZZ ; 19.04.00 - 14 u 04 * V7.3