cTU11 ;DRUKKEN LISTINGS ;%TU10 ;Go uit %TU10 ; [ 09/12/95  10:13 AM ]
 G 1
 ;
T1 ;BLZ :;DRUK CTRL-C OM TE STOPPEN   --- VERVOLG ---;EINDE   ;
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=$S($P(R,D,5):"",1:" "),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  ;V3 05.07.88
 ;
S3 I S1 S S1=$P(K,D,S1#100) Q
S3Z S U3="" X S1 S S1=U3 Q
 ;
1 S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),T=0 I 'TP S:F71'[" S F70=" F71=F71_" S F70="""_F70_"""" S AL=79,F70="D ^cA611"
11 S L=A(1)_$J("",AL-$L(A(1))),K="" F I=1:1:$L(L) S J="-" S:$E(L,I)=":" J=":" S K=K_J
19 S A(0)=K,BLZ=0,I1=0,K1="" X F70 W @F80 I PP(3)'=0 S (I1,K1,K)=PP(3) X $P(SN,U,2):$L($P(SN,U,2)) S I1=K G 22
 ;
2 I NR S K1=$O(@("^"_Q_"LIH(NR,K1)")) G Y:K1="" S I1=^(K1) S:Q1="PR" PR=I1 G 22
20 I $L($P(SN,U,3)) X $P(SN,U,3) G Y:I1=-1!(I1=""),22
21 S I1=$O(@("^"_Q_Q1_"(I1)")) G Y:I1=""!(I1]I1X)
22 G 2:'$D(@("^"_Q_Q1_"(I1,0)")) S K="" K B
23 S K=$O(^(K)) I K?1.2N S B(K+1)=^(K) G 23
24 S:PP(5) $P(^(13),D,1,3)=PP(5)_D_PP(6)_D_PP(7)
25 D 8:'BLZ I (1&T+1*MAX+L)>LNMAX D 85,9 W:TP # D 8
27 S (I2,J,T)=0,L=L+MAX
 ;
3 S I2=$O(@("^"_Q_"LIL(J2,I2)")) I I2="" W ?AL,":" G 25:$D(SWKL)!$D(SWLE) S (K5,K9)="" G 2
31 S I=^(I2) I I2\100'=J W:J ?AL,":" W ! S J=I2\100
32 S U3="",R=$P(I,U,6) I $L(R) X $P(I,U,7) G 35:J1="" S S1=$P(I,U,4),K=D S:$D(@("^"_Q_R_"(J1,S1\100-1)")) K=^(S1\100-1) D S3 S (U3,K)=S1 G 35
33 S J1=I1,S1=$P(I,U,4),K=D S:$D(B(S1\100)) K=B(S1\100) D S3 S (U3,K)=S1
35 I $L($P(I,U,3)) X "S U3="_$P(I,U,3)
39 I $P(I,U,8) S T=T+1 S:'$D(T(T)) T(T)=0 S T(T)=T(T)+U3
 ;
4 I 'TP,$X+I+3>AL G 3
41 W ":" I $L($P(I,U,5)) S U3=+U3,R="R=U3_D_(I+1)_D_D_"_$P(I,U,5),@R D R3 G 3
43 S U3=$E(U3,1,I) W " ",U3,$J("",I+1-$L(U3)) G 3
 ;
8 S I="",BLZ=BLZ+1,L=MAX,FP=101 W:AL>132 @F81 W:TP ! W:'TP @F,@F1,@F,*13 W QN,?AL-7,$P($T(T1),U,2),$J(BLZ,3)
81 W !,?AL-7,DT,*13,NM2,?20+(AL>80*10),@F82,$E(TIT,1,AL-38\2)," ",@F83 W:AL>132 @F81 W !,NM3,?AL-6,TD,!
83 S I=$O(A(I)) I I'="" W !,$E(A(I),1,AL),?AL,":" G 83
85 W !,$E(A(0),1,AL),?AL,":" Q
 ;
9 S (I2,J,T)=0 I '$D(T(1)) D F0:'TP Q
91 S I2=$O(@("^"_Q_"LIL(J2,I2)")) I I2="" W ?AL,":" D 85,F0:'TP Q
93 S I=^(I2) I I2\100'=J W:J ?AL,":" W ! S J=I2\100
95 I 'TP,$X+I+3>AL S:$P(I,U,8) T=T+1 G 91
97 W ":" I $P(I,U,8) S T=T+1,U3=+T(T),R="R=U3_D_(I+1)_D_D_"_$P(I,U,5),@R D R3 G 91
99 W $J("",I+2) G 91
 ;
Y I BLZ D 85,9 W:TP #
YZ W @F83 X F71 Q
 ;
F0 S K=$P($T(T1),U,$S(I1=-1!(I1="")!(I1]I1X)!(K1=-1)!(K1=""):4,1:3))
F1 S R=250
F2 X ^cTXT(0,"N",R) R K
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 14.01.99 - 21 u 28 * V5.7