cTU10 ;DRUKKEN LISTINGS ;%TU10 ;go naar %TU11 ; [ 08/08/94 2:23 PM ] G 1 ; T1 ;DE LISTING; T2 ;DE SELECTIE; T3 ;INGAVE SELECTIE\"[] = ok .[] = zonder bepaalde selectie "; 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 ;HOOFDING LISTING\"[] = "; T12 ;INFORMATIE\"[] = op het scherm .[] = op de printer"; ; 1 I 'QP S TP=1 G 5 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)_"\LIL\LIL1" D ^cA101 G YZ:K="-" S FP=403,K=^(K,0),PP(1)=+K,Q1=$P(K,D,3),OM=$P(K,D,2),Q1X=$P(K,D,4) 21 W @F,OM,@F1 S FP=440 W @F,$J($P(@("^"_Q_"LI(Q1,0)"),D,1),35) S SN=$P(^(0),D,3,99) 23 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 25 S K=@("^"_Q_"LIL(I1,0)"),(MAX,AL,L)=0,K=99 27 S K=$O(^(K)) I $L(K) S:K\100'=MAX MAX=K\100,L=0 S L=L+^(K)+3 S:AL50 AL=50 ; 3 S PP(8)=0,I1=0,I1X="~",R="NR\22\3\"_$P($T(T3),U,2)_"\1\\""-.""[K" D R0 G 2:K="-" I K="." D 7:$L($P(SN,U,1)) 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,1) ; 4 S R="K\22\3\"_$P($T(T11),U,2)_"_$E(OM,1,AL)\"_AL D R0 G 3:K="-" S:$L(K) OM=K S PP(9)=OM,FP=403 W @F,OM,$J("",AL-$L(OM)) 41 S PP(3)=I1,PP(4)=I1X,PP(2)=NR,S1="LIL" D ^cTU29 G 4:K="-" 43 I QP,'$D(PP(8)) S R="K\22\3\"_$P($T(T9),U,2)_"\1\\""-1.""[K" D R0,S1:K="." G 41:K="-" S PP(8)=+K 45 S R="K\22\3\"_$P($T(T12),U,2)_"\1\\""-,.""[K" D R0 G 3:K="-",2:K="," S TP=$L(K) 47 I TP S R="K\22\3\"_$P($T(T5),U,2)_"\1\\""-.,""[K" D R0 G 45:K="-",2:K="," 49 I K="." S QPT=$T(+0)_"#"_OM D ^cA109 G YZ ; 5 I 'QP G YZ:'$D(@("^"_Q_"LIL1(PP(1))")) S I1=^(PP(1)),NR=".",OM=PP(9) S:$D(@("^"_Q_"LIS1(PP(2))")) NR=PP(2) 51 S I1X=PP(4),J2=@("^"_Q_"LIL1(PP(1))"),K=@("^"_Q_"LIL(J2,0)"),Q1=$P(K,D,3),TIT=OM,I1=99,MAX=0,L=0,AL=0,Q1X=$P(K,D,4) 53 S I1=$O(^(I1)) I $L(I1) S:I1\100'=MAX MAX=I1\100,L=0,A(MAX)="" S K=^(I1),L=L+K+3,R=$P(K,U,2) S:$L($P(K,U,5)) R=$J(R,+K) S A(MAX)=A(MAX)_": "_R_$J("",K-$L(R)+1) S:AL50 MAX=50 I NR S K=$P(@("^"_Q_"LIS(^"_Q_"LIS1(NR),0)"),D,3) S:K'=Q1 NR=D 57 S K="L (^"_Q_"LIL1(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:$L(Q1X) Q1Y=Q1,Q1=Q1X G ^cTU11 ; 7 F K=1,2 S FP=K*200+703 W @F,$P($P($T(@("T"_(K+5))),U,2),D,1),@F1 S FP=FP+10 W @F,":" 71 S R="K\22\3\"_$P($T(T6),U,2)_"\1\\""-.""[K" D R0 Q:K="-" 72 I K="." S I1=0,K=$P($T(T6),".[] = ",2),K=$P(K," ",1) 73 E X $P(SN,U,1) G 71:K="-" S I1=K X $P(SN,U,2):$L($P(SN,U,2)) S K=@("^"_Q_Q1_"(K,0)"),K=$P(K,D,1)_" "_$P(K,D,2) 74 S FP=920 W @F,K,@F2 75 S R="K\22\3\"_$P($T(T7),U,2)_"\1\\""-.""[K!(K=""I""&(I1'=0))\\\1" D R0 G 71:K="-" 76 I K="." S I1X="~",K=$P($T(T7),".[] = ",2),K=$P(K," ",1) G 79 77 I K="I" S (I1X,K)=I1 X $P(SN,U,2):$L($P(SN,U,2)) S K=@("^"_Q_Q1_"(K,0)"),K=$P(K,D,1)_" "_$P(K,D,2) G 79 78 X $P(SN,U,1) G 75:K="-",78:I1]K S I1X=K X $P(SN,U,2):$L($P(SN,U,2)) S K=@("^"_Q_Q1_"(K,0)"),K=$P(K,D,1)_" "_$P(K,D,2) 79 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 ; Z X ^cZ Q ZZ ; 21.09.94 - 11 u 43 * V5.5