cTU12 ;OVERZICHT LISTINGS ;%TU12 ; [ 08/08/94  2:23 PM ]
 G 1
 ;
T1 ;VANAF LISTING\"-[] = einde programma   .[] = vanaf het begin   [] = specifieke listing";
T2 ;TOT LISTING\"I[] = idem als vorige   .[] = tot het einde   [] = specifieke listing";
T3 ;PLAATS BREED BLANCO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = ok   ,[] = hernemen   .[] = later drukken";
T4 ;VANAF HET BEGIN;TOT HET EINDE;
T5 ;DE LISTING;
T6 ;BLZ :;
 ;
1 B 1 S U=";",NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),BLZ=0
11 I 'QP S I1=PP(1),I1X=PP(2) G 29
12 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
19 F K=1,2 S FP=K*200+717 W @F,@F9,":",@F2 S FP=FP-15 W @F,@F6,$P($P($T(@("T"_K)),U,2),D,1),@F9
 ;
2 S R="K\22\3\"_$P($T(T1),U,2)_"\1\\"".-""[K" D R0 G YZ:K="-"
21 I K="." S K=$P($T(T4),U,2),I1=1
22 E  S R="I1\2000\"_$P($T(T5),U,2)_"\LIL\LIL1" D ^cA101 G 2:K="-" S K=$P(^(K,0),D,2)
23 S FP=920 W @F,K,@F2
24 S R="K\22\3\"_$P($T(T2),U,2)_"\1\\"".-""[K!(K=""I""&'I1)\\\1" D R0 G 2:K="-"
25 I K="." S K=$P($T(T4),U,3),I1X="~" G 27
26 S I1X=I1,R="I1X\2000\"_$P($T(T5),U,2)_"\LIL\LIL1" D:K'="I" ^cA101 G 24:K="-",26:I1]I1X S K=$P(@("^"_Q_"LIL(I1X,0)"),D,2)
27 S PP(1)=I1,PP(2)=I1X,FP=1120 W @F,K,@F2
28 S R="K\22\3\"_$P($T(T3),U,2)_"\1\\""-,.""[K" D R0 G 24:K="-",19:K="," I K="." D R9 G 19
29 X F70 W @F80 D 8 G 31:$D(@("^"_Q_"LIL(I1)"))
 ;
3 S I1=$N(@("^"_Q_"LIL(I1)")) I I1=-1!(I1]I1X) W # G YZ
31 S S1=0,N1=^(I1,0),OM=$P(@("^"_Q_"LI($P(N1,D,3),0)"),D,1),K=@("^"_Q_"LIL(I1,0)"),I2=100,S2=0,MAX=79
32 S X2=I2,I2=$N(^(I2)) I I2'=-1 S:X2\100'=(I2\100) S2=0 S S1=I2\100,S2=S2+^(I2)+3 S:S2>MAX MAX=S2 G 32
33 G 3:'S1 S L=L+5+S1 I L>53 W # D 8 S L=5+S1
34 S S1="",I2=100,T=0 W:MAX>132 @F81 D 85 W !,": ",$P(N1,D,1)," ",$P(N1,D,2),?MAX-39,$J(OM,38)," :" D 85
 ;
4 S X2=I2,I2=$N(^(I2)) I I2=-1 W !,S1,?MAX,":" D 85,5 W @F83,! G 3
41 I I2\100'=(X2\100) W !,S1,?MAX,":" S S1=""
42 S K=^(I2),S2=$P(K,U,2) S:$L($P(K,U,5)) S2=$J(S2,+K) S S2=": "_S2_$J("",+K-$L(S2)+1),S1=S1_S2
43 S:$P(K,U,8) T=1 G 4
 ;
5 S S1="",I2=100 Q:'T
51 S X2=I2,I2=$N(^(I2)) I I2=-1 W !,S1,?MAX,":" D 85 Q
53 I I2\100'=(X2\100) W !,S1,?MAX,":" S S1=""
55 S K=^(I2),S2="" S:$P(K,U,8) $P(S2,"*",+K)="*" S S2=": "_S2_$J("",+K-$L(S2)+1),S1=S1_S2 G 51
 ;
8 S L=0,BLZ=BLZ+1 W !,QN,?124,$P($T(T6),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(+1),U,2),@F83,*13,?124,DT,!,NM3,?125,TD,! Q
85 W !,":" F I=2:1:MAX W "-"
86 W ":" Q
 ;
YZ X F71 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
 ;
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