cTU19 ;BEHEER BRIEVEN ;%TU17;
 G 1
 ;
T1 ; - AANTAL POSITIES\"maximum ";
T2 ;WELKE RUBRIEK\"xx[] = rubrieknummer";WELK SCHERM VAN ;SCHERM ;\"er zijn "_SAS_" schermen   ";
 ;
S1 G S1Z:$P(I,U,23) S K=U S:$D(@("^"_Q_"LI(SQ1,S1)")) K=$P(^(S1),U,10,13) S:SQ1'=Q1 K=U_U_$P(K,U,3,9)
S1A S K=$P(I,U,1)_U_($P(I,U,9)+$P(I,U,13))_U_$P(I,U,8)_U_$P(I,U,16)_U_$P(K,U,4)_U_$P(K,U,1,2) S:$P(I,U,22) T=T+1,A(T)=K
S1B S FP=$P(I,U,5)*100+$P(I,U,6)-3 W @F,@F9,":" S FP=$P(I,U,2)*100+$P(I,U,3) W @F W:$P(I,U,22) $J(T,2) S FP=FP+2 W @F,@F6,$P(I,U,1),@F9
S1Z Q
 ;
1 S OS=0,SQ1=Q1 D S1^cTU4 S OM=SOM,AS=SAS
11 S SNR="",K=1 G 4
 ;
3 I SQ1=Q1 G YZ
31 S SNR="",SOM=OM,SQ1=Q1,SAS=AS,OS=0,FP=250 W @F,OM,@F1
 ;
4 S NS=SAS,R="NS\22\3\"_$P($T(T2),U,3)_SOM_$P($T(T2),U,5) S:OS R=R_"_""[] = ""_OS" S R=R_"\1\\K?1N&K&(K'>SAS)!(K=""""&OS)!(K=""-"")" D:SAS'=1 R0 G 3:K="-" S:K="" NS=OS
41 G 45:OS=NS K A S FP=250,OS=NS,T=0,K=SOM S:SAS>1 K=$P($T(T2),U,4)_NS_" "_K W @F,$J(K,28),@F1
42 S S1=101,I=@("^"_Q_SQ1_"(0,S1)") D S1 S S1=102,I=@("^"_Q_SQ1_"(0,S1)") D S1 S:NS>1 S1=NS*100 S S2=S1
43 S I=D,S1=$O(@("^"_Q_SQ1_"(0,S1)")) S:S1\100=NS I=^(S1) S S2=$O(@("^"_Q_"LI(SQ1,S2)")) S:S2\100=NS&(S2<S1!'S1) I=^(S2)
44 I I'=D S:S1<S2!'S2&S1 S2=S1 S S1=S2 D S1 G 43
45 S FP=2003 W @F,$E(TEKST,1,POS-1)
 ;
5 S R="K\22\3\"_$P($T(T2),U,2)_"\2\\K?.N&$E(K,1)&(K'>T)!(K=""."")!(K=""-"")" D R0 G 4:K="-" S NR=A(K) S:'$P(NR,U,2) $P(NR,U,2)=1
51 S:$P(NR,U,2)'<MAX $P(NR,U,2)=MAX-1 I $L($P(NR,U,6)) S SNR=$P(NR,U,1)_U_$P(NR,U,6,7),OS=0,SQ1=$P(NR,U,6) D S1^cTU4 G 4
52 S S1=$P(NR,U,1) S:$L(SNR)&$L(S1) S1=S1_" "_$P(SNR,U,1) S R="I\22\3\"_S1_$P($T(T1),U,2)_"_(MAX-1)_""   [] = ""_$P(NR,U,2)\3\\K?.N&K&(K<MAX)!(""-""[K)" D R0 G 5:K="-" S:'K I=$P(NR,U,2)
53 I $L(S1)<I S S1="-"_S1_"-" G 53
54 S K=I_U_$E(S1,1,I)_U_$P(NR,U,3,5)_U_$P(SNR,U,2,3),I=@("^"_Q_"LIB(I1,L-1)"),I=L-1
55 S I=I+.01 G 55:$D(^(I)) S ^(I)=K,TEKST=$E(TEKST,1,POS-1)_$P(K,U,2)_$E(TEKST,POS+1,99)
 ;
YZ S FP=250 W @F,@F1 K A,B Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
Z X ^cZ Q
ZZ ; 18.10.88 -  9 u 30