cTU20 ;DRUKKEN BRIEVEN ;%TU20 ;go naar %TU30 ; [ 08/08/94  2:28 PM ]
 G 1
 ;
T1 ;DE BRIEF;
T2 ;DE SELECTIE;
T3 ;INGAVE SELECTIE\"[] = ok   .[] = zonder bepaalde selectie    1[] = manueel adres";
T4 ;LAATSTE SELECTIE OP ;ER WAREN ER ; GESELECTEERD OP DE ;DE SELECTIE DUURDE ;
T5 ;PLAATS PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = ok   ,[] = hernemen   .[] = later drukken";
T6 ;VANAF\"-[] = hernemen   .[] = vanaf het begin   [] = specifieke ingave";
T7 ;TOT\"I[] = idem als vorige   .[] = tot het einde   [] = specifieke ingave";
T8 ;PASWOORD;
T9 ;SELEKTIE OPNIEUW UITVOEREN \"[] = neen   1[] = onmiddellijk   .[] = later uitvoeren";
T10 ;Even geduld - uitvoering selektie ...;
T11 ;AANTAL EXEMPLAREN\"[] = 1";Aantal exemplaren : ;
T12 ;CONTINU-DOCUMENTEN\"[] = continu   1[] = individuele documenten";Continu;Individueel;
 ;
1 G 5:'QP
11 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 ;
2 S R="I1\2000\"_$P($T(T1),U,2)_"\LIB\LIB1" D ^cA101 G YZ:K="-"
21 S FP=403,K=^(K,0),PP(1)=+K,Q1=$P(K,D,3) W @F,$P(K,D,2),@F1
23 S FP=440 W @F,$J($P(@("^"_Q_"LI(Q1,0)"),D),35) S SN=$P(^(0),D,3,99)
25 I $D(^("PW")) S FP=2203+F60 W @F,@F92,$P($T(T8),U,2),@F93,": ",@F0 U 0:(::::1) R R:30 U 0:(:::::1) G 2:^("PW")'=R
 ;
3 S PP(8)=0,I1=0,I1X="~",R="NR\22\3\"_$P($T(T3),U,2)_"\1\\""-.1""[K" D R0 S:K NR="" G 4:K,2:K="-" I K="." D 7:$L(SN) G 3:K="-",4
31 S R="K\2000\"_$P($T(T2),U,2)_"\LIS\LIS1" D ^cA101 G 3:K="-"
33 S FP=903,K=^(K,0),NR=+K I $P(K,D,3)'=Q1 X ^cTXT(0,"N",252) R K G 31
34 W @F,$P(K,D,2),@F1  I '$L($P(K,D,9)) S PP(8)=1 G 39
35 S I=$T(T4),FP=1103 W @F,$P(I,U,2),$P(K,D,9)," - ",$P(K,D,10) K PP(8)
37 S FP=1303 W @F,$P(I,U,3),$P(K,D,11),$P(I,U,4),$P(K,D,12) S FP=1503 W @F,$P(I,U,5),$P(K,D,8)
39 S K=$P(K,D,4) S:'K K=1 S K=@("^"_Q_"LI(Q1,K)"),FP=1803 W @F,$P(K,D)
 ;
4 S R="EA\22\3\"_$P($T(T11),U,2)_"\2\\K?.N&K!(""-""[K)" D R0 G 3:K="-" S:'K EA=1 S FP=603 W @F,$P($T(T11),U,3),EA,@F2
41 S R="CTN\22\3\"_$P($T(T12),U,2)_"\1\\""-1""[K" D R0 G 4:K="-" S FP=665 W @F,$P($T(T12),U,K+3),@F2
43 S PP(3)=I1,PP(4)=I1X,PP(2)=NR,PP(9)=EA,PP(10)=CTN,S1="LIB" D:$L(NR) ^cTU29 G 41:K="-"
45 I QP,'$D(PP(8)) S R="K\22\3\"_$P($T(T9),U,2)_"\1\\""-1.""[K" D R0,S1:K="." G 43:K="-" S PP(8)=+K
47 S R="K\22\3\"_$P($T(T5),U,2)_"\1\\""-.,""[K" D R0 G 3:K="-",2:K=",",47:K="."&'$L(NR)
49 I K="." S QPT="#"_$P(@("^"_Q_"LIB(^"_Q_"LIB1(PP(1)),0)"),D,2) D R9 G YZ
 ;
5 I 'QP G YZ:'$D(@("^"_Q_"LIB1(PP(1))")) S I1=^(PP(1)),NR="." S:$D(@("^"_Q_"LIS1(PP(2))")) NR=PP(2)
51 S J2=@("^"_Q_"LIB1(PP(1))"),K=@("^"_Q_"LIB(J2,0)"),Q1=$P(K,D,3),TIT=$P(K,D,2),A1=$P(K,D,8),A2=$P(K,D,9),A3=$P(K,D,10)
53 G YZ:'$D(^(1)) I NR S K=$P(@("^"_Q_"LIS(^"_Q_"LIS1(NR),0)"),D,3) S:K'=Q1 NR=D
55 S K="L (^"_Q_"LIB1(PP(1))" S:NR K=K_",^"_Q_"LIS1(NR)" S K=K_"):2" X K E  G YZ:'QP X ^cTXT(0,"N",14) R K G 2
59 S:'QP SN=$P(@("^"_Q_"LI(Q1,0)"),D,3,99) I PP(8) S FP=2203 W:QP @F,$P($T(T10),U,2),@F1 S (QP,PP(8))=0 D ^cTU6 G 5
 ;
6 S QP=0 G ^cTU30
 ;
7 F K=1,2 S FP=K*200+703 W @F,$P($P($T(@("T"_(K+5))),U,2),D),@F1 S FP=FP+10 W @F,":"
71 S R="K\22\3\"_$P($T(T6),U,2)_"\1\\""-.""[K" D R0 Q:K="-"
73 I K="." S I1=0,K=$P($T(T6),".[] = ",2),K=$P(K,"   ",1)
75 E  X SN G 71:K="-" S I1=K,K=@("^"_Q_Q1_"(K,0)"),K=$P(K,D)_" "_$P(K,D,2)
79 S FP=920 W @F,K,@F2
 ;
8 S R="K\22\3\"_$P($T(T7),U,2)_"\1\\""-.""[K!(K=""I""&(I1'=0))\\\1" D R0 G 71:K="-"
81 I K="." S I1X="~",K=$P($T(T7),".[] = ",2),K=$P(K,"   ",1) G 89
83 I K="I" S I1X=I1,K=@("^"_Q_Q1_"(I1,0)"),K=$P(K,D)_" "_$P(K,D,2) G 89 
85 X SN G 8:K="-",85:I1]K S I1X=K,K=@("^"_Q_Q1_"(K,0)"),K=$P(K,D)_" "_$P(K,D,2)
89 S FP=1120 W @F,K,@F2 Q
 ;
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
 ;
S1 S R=NR D ^cTU61 Q
 ;
R9 S R1=$P($T(+1)," ",1) I $D(QPT) F I=1,2 I $L($P(QPT,"#",I)) S $P(R1,"#",I)=$P(QPT,"#",I)
R9A F R2=1:1 Q:'$D(PP(R2))  S R1=R1_D_PP(R2)
R9B S R2="^"_Q_"PP($I,0)",@%Q1=0 L @("^"_Q_"PP($I)") S:'$D(@R2) @R2=1 S R3=^(0),^(0)=R3+1,^(R3)=R1,@%Q1=1
R9Z K R1,R2,R3 L  Q  ; V3  14.10.87
 ;
Z X ^cZ Q
ZZ ; 21.09.94 - 11 u 43 * V5.5