cTU24 ;OPMAKEN BESTAND ;%TU24 ;go naar %TU25 ; [ 06/30/94 3:42 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 ;HET BESTAND MAG OPGEMAAKT WORDEN\"[] = ok ,[] = hernemen"; 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 ...; ; 1 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="-" 21 S FP=403,K=^(K,0),PP(1)=+K,Q1=$P(K,D,3) W @F,$P(K,D,2),@F1 S FP=440 W @F,$J($P(@("^"_Q_"LI(Q1,0)"),D),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 ; 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)) 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 PP(2)=NR,PP(3)=I1,PP(4)=I1X,S1="LIL" D ^cTU29 G 3:K="-" 41 I '$D(PP(8)) S R="K\22\3\"_$P($T(T9),U,2)_"\1\\""-1.""[K" D R0,S1:K="." G 4:K="-" S PP(8)=+K 43 S R="K\22\3\"_$P($T(T5),U,2)_"\1\\""-.,""[K" D R0 G 3:K="-",2:K="," ; 5 S (I1,J2)=@("^"_Q_"LIL1(PP(1))"),K=@("^"_Q_"LIL(J2,0)"),TIT=$P(K,D,2),S4=TIT D:QP ^cA701 G 1:K="-" 51 S I1X=PP(4),J2=@("^"_Q_"LIL1(PP(1))"),K=@("^"_Q_"LIL(J2,0)"),Q1=$P(K,D,3),I1=99,MAX=0,L=0,AL=0,NR=PP(2) 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 G ^cTU25 ; 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="-" 72 I K="." S I1=0,K=$P($T(T6),".[] = ",2),K=$P(K," ") 73 E X $P(SN,U) 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)_" "_$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," ") G 79 77 I K="I" S I1X=I1,K=@("^"_Q_Q1_"(I1,0)"),K=$P(K,D)_" "_$P(K,D,2) G 79 78 X $P(SN,U) 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)_" "_$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