cTU30 ;DRUKKEN BRIEVEN ;%TU20;Do uit %TU20 [ 12/12/91  11:07 AM ]
 G 1
 ;
T1 ;ADRESLIJN ;"-[] = einde programma";
T2 ;PLAATS HET VOLGEND DOCUMENT KLAAR OP DE PRINTER\"[] = ok";
 ;
S3 I S1 S S1=$P(K,D,S1#100) Q
S3Z S U3="" X S1 S S1=U3 Q
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),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,".",1) 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
 ;
1 S FP=503,I=1,TST=$E($P(@("^"_Q_"LI(Q1,0)"),D,2),2,999),CTN=PP(10) G 19:$L(NR) W @F,@F1
11 S R="L"_I_"\22\3\"_$P($T(T1),U,2)_I_"\\30" S:I=1 $P(R,D,5)=$P($T(T1),U,3)
13 D R0 S FP=I*100+503 I K="-" S I=I-1 W @F,@F2 G YZ:'I,11
15 W @F,K,@F2 S I=I+1 G 11:I<6
17 S EA=PP(9),I=5,R="K\22\3\"_$P($T(T2),U,2)_"\1\\""-,""[K" D R0 G 11:K="-",1:K="," X F70 W @F80 G 3
19 S I1X=PP(4),I1=0,K1=0 X F70 W @F80 I PP(3)'=0 S I1=PP(3) G 23
 ;
2 I NR S K1=$O(@("^"_Q_"LIH(NR,K1)")) G Y:K1="" S I1=^(K1) S:Q1="PR" PR=I1 G 23
21 S I1=$O(@("^"_Q_Q1_"(I1)")) G Y:I1=""!(I1]I1X)
23 G 2:'$D(@("^"_Q_Q1_"(I1,0)")) S K=-1 K B
25 S K=$O(^(K)) I K<99&(K?1N.N) S B(K+1)=^(K) G 25
26 S:PP(5) $P(^(13),D,7,9)=PP(5)_D_PP(6)_D_PP(7)
27 S K=B(1) X TST S L1=$P(K,D,4),L2=$P(K,D,3),L3=$P(K,D,5),L4=$P(K,D,6),L5=$P(K,D,8)
28 S:L4?4N L5="" S:$L(L1) L1=L1_" " S:$L(L4) L4=L4_"  " S:$L(L5) L5=^cBA(1,L5)
29 S EA=PP(9),L1=L1_$P(K,D,2),L4=L4_$P(K,D,7) D 6:$D(I2) G Y:K="-"
 ;
3 W ! W:A3 *13,?A1,@F82,@("^"_Q_"BA(99,1)"),@F83,*13,?A1,@F82,^(1),@F83,*13,?A1,@F82,^(1),@F83
31 W !! W:A3 ?A1,^(2),*13,?A1,^(2) W ! W:A3 ?A1,^(3),*13,?A1,^(3)
33 F K=1:1:7 W !?A1 W:A3 ^(K+3) I K<6 W ?40+A1,@("L"_K)
35 S I2=0,K=@("^"_Q_"LIB(J2,0)"),L=12 W !
 ;
4 S I2=I2+1 I '$D(@("^"_Q_"LIB(J2,I2)")) W # S EA=EA-1 G 3:EA>0,2:$L(NR) D Y G 1
41 S J=I2,TEKST=^(J) I L>55 W # D 6 G Y:K="-"
42 W !,$J("",A1+A2) S L=L+1
43 W $P(TEKST,"#") G 4:TEKST'["#" S J=J+.01,I="" S:$D(@("^"_Q_"LIB(J2,J)")) I=^(J)
45 S U3="",R=$P(I,U,6) G 51:'$L(NR)
47 I $L(R) X $P(I,U,7) G 5: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 5
49 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
 ;
5 I $L($P(I,U,3)) S K=U3,U3="S U3="_$P(I,U,3) X U3
51 S U3=$E(U3,1,I),TEKST=$P(TEKST,"#",2,99) I $L($P(I,U,5)) S R="R=+U3_D_D_D_"_$P(I,U,5),@R D R3 G 43
53 S TEKST=U3_TEKST G 43
 ;
6 S L=0,K=D I CTN X F71 S R="K\22\3\"_$P($T(T2),U,2)_"\1\\""-""[K" D R0 X:K="" F70
61 Q
 ;
Y X F71
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 ; 25.03.91 - 12 u 09