cTU18 ;BEHEER BRIEVEN ;%TU17;Do naar %TU19 [ 01/15/93  5:24 PM ]
 G 1
 ;
T1 ;LIJNNUMMER;xxx[] = bepaalde lijn          [] = overzicht       -[] = einde ingave;xx-[] = verwijderen lijn    xx+[] = tussenvoegen lijn voor lijn xx;
T2 ;-[] = hernemen vorige lijn      een # wordt vervangen door een rubriek;+[] = volgende lijn (zonder wijziging huidige lijn)     .[] = einde;
 ;
S1 S FP=2303+F60 W @F,$P($T(T1),U,3) S FP=FP+100 W @F,$P($T(T1),U,4) Q
S2 S FP=2303+F60 W @F,$P($T(T2),U,2) S FP=FP+100 W @F,$P($T(T2),U,3) Q
 ;
1 S ST=0,K=@("^"_Q_"LIB(I1,0)"),FP=401 W @F,@F1 I '$D(^(1)) S L=1 G 4
 ;
2 S L=ST
21 S L=L+1 G 29:'$D(^(L)) S T=L,K=^(L),FP=L*100+301 I L>17 S FP=401 W @F,@FDL S FP=2001
22 F POS=1:1:70-A2 I $E(K,POS)="#" S I="",T=T+.01 S:$D(^(T)) I=$P(^(T),U,2) S K=$P(K,"#",1)_I_$P(K,"#",2,99)
23 W @F,$J(L,7),". ",K,@F1 G 3:ST+16<L,21
29 S ST=L-18 S:ST<0 ST=0
 ;
3 S R="K\22\3\"_$P($T(T1),U,2)_"\S1\4\\K?1N.N!(K?1N.N1""+"")!(K?1N.N1""-"")!(""-""[K)" D R0 G YZ:K="-",3:K=0
31 I K="" S ST=ST+17 G 1:'$D(^(ST+1)),2
32 I K?.N1"+" S L=+K G F1:L'>ST!(L-17>ST),5
33 I K?.N1"-" S L=+K G F1:L'>ST!(L-17>ST),6
38 I '$D(^(K-1)) S K=K-1 G 38
39 S L=K G F1:L'>ST!(L-18>ST)
 ;
4 S K=70-A2 S:K<1 K=1 S R="K\22\3\"_$J(L#1000,3)_".\S2\"_K D R0 G 3:K="."
41 I K="-" G 3:L<2 S L=L-1 G 4:L>ST S FP=2001 W @F,@F1,@FDL S ST=ST-1,FP=401 W @F,@FIN,@F,$J(L,7),". ",^(L) G 4
42 I K="+" G 4:'$D(^(L)) S L=L+1 G 4:L-ST<18 S FP=2101 W @F,@F1 S FP=401,ST=ST+1 W @F,@FDL S FP=2001 W:$D(^(L)) @F,$J(L,7),". ",^(L) G 4
45 S ^(L)=K,FP=L-ST*100+301,L=L+1 I FP>2100 W @F,@F1 S FP=401 W @F,@FDL S FP=2001,ST=ST+1
46 W @F,$J(L-1,7),". ",K,@F2 S MAX=0,TEKST=K F K=L-.99:.01 Q:'$D(^(K))  K ^(K)
47 F POS=1:1:70-A2 S K=$E(TEKST,POS) G 1:K=""&MAX I K="#" S MAX=71-A2-$L(TEKST) D ^cTU19 G 1:K="-"
49 G 4
 ;
5 S FP=2001 W @F,@F1,@FDL S FP=L-ST*100+301 W @F,@FIN,$J(L,7),".",@F2 F K=L:1:ST+17 S FP=K-ST*100+301 W:$D(^(K-1)) @F,$J(K,7)
51 F K=L:1 Q:'$D(^(K))
52 F K=K:-1:L+1 F I=K-1:.01 Q:'$D(^(I))  S ^(I+1)=^(I) K ^(I)
53 S ^(L)="" G 3
 ;
6 S FP=2101 W @F,@F1 S FP=L-ST*100+301 W @F,@FDL F K=L:1:ST+17 S FP=K-ST*100+301 W:$D(^(K+1)) @F,$J(K,7),"." W:'$D(^(K+1)) @F,@F2
61 F K=L:.01 Q:'$D(^(K))  K ^(K)
62 F K=L:1 Q:'$D(^(K+1))  F I=K+1:.01 Q:'$D(^(I))  S ^(I-1)=^(I) K ^(I)
63 S FP=2010 W @F,@F2 W:$D(^(ST+17)) ^(ST+17) G 3
 ;
F1 X ^cTXT(0,"N",58) R K S K=@("^"_Q_"LIB(I1,0)") G 3
 ;
YZ 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 ; 14.12.87 - 15 u 40