cA206 ;KONTROLELIJST ;;;%A200 ;do naar %A306 ;go naar %A212 [ 04/06/00  8:58 AM ]
 ;
T0 ;Controlelijst ;
T1 ;Alfabetische\alfabetische;numerieke\numerieke;
T2 ;Aantal kolommen\"1[] = 1   [] = 2";
T3 ;Plaats ;breed;smal; blanko papier op de printer en schakel hem aan\"[] = ok   ,[] = hernemen";,"   .[] = later drukken";
 ;
T0F ;Liste de vérification ;
T1F ;Alphabétique\alphabétique;numérique\numérique;
T2F ;Nombre des colonnes\"1[] = 1   [] = 2";
T3F ;Placez du papier blanc ;large;A4; dans l'imprimante et mettez-la en marche\"[] = ok   ,[] = reprendre";,"   .[] = impression différée";
 ;
T0E ;Controlelijst ;
T1E ;Alfabetische\alfabetische;numerieke\numerieke;
T2E ;Aantal kolommen\"1[] = 1   [] = 2";
T3E ;Plaats ;breed;smal; blanko papier op de printer en schakel hem aan\"[] = ok   ,[] = hernemen";,"   .[] = later drukken";
 ;
1 S:'QP LIM1=PP(1),LIM2=PP(2),AK=PP(4),Q1=PP(5),Q2=PP(6) S NAAM=$P(@("^"_Q_Q1_"(0,0)"),U) G 4:'QP
11 S K=$P($T(@("T0"_QT)),U,2)_NAAM_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 ;
2 S:'$D(X3) X3=0 S TXT=X1_D_NAAM_D_$P($T(@("T1"_QT)),U,X3+2)_D_Q1_D_Q2_D_1 D ^cA306 G YZ:K="-"
21 S R="AK\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\-12[K" D R0 G 2:K="-" S:K=2 AK=0
 ;
3 S K=$T(@("T3"_QT)),R="K\22\3\"_$P(K,U,2)_$P(K,U,AK+3)_$P(K,U,5)_$P(K,U,6+'$L(LIM1))_"\1\\"",-""[K!(K="".""&$L(LIM1))" D R0 G 21:K="-",2:K=","
31 I K="." S PP(4)=AK,PP(5)=Q1,PP(6)=Q2,QPT="#"_$P($T(@("T0"_QT)),U,2)_NAAM D R9 G 2
 ;
4 S (MAX,BLZ,K)=0,Q0="^"_Q_Q1_"(LIM1)",X=100 K ^HULP(boot,$J+(200/10000))
45 S X=$O(@("^"_Q_Q1_"(0,X)")) G 5:X="" S X1=^(X),K=K+1,A=$E($P(X1,U),1,20),P=$P(X1,U,8)
47 S R=$L(A) S:R>MAX MAX=R S I=$P(X1,U,16),J=I#100,I=I\100,^HULP(boot,$J+(200/10000),K)=A_U_P_U_I_U_J,$P(^(K),U,21)=$P(X1,U,21) G 45
 ;
5 I 'AK S:K#2 K=K+1,^HULP(boot,$J+(200/10000),K)=U_U_1_U_99 S TR=K,TS=K\2,MAX=MAX+1 G 55
51 S TS=K,X1=U_U_1_U_99,X2=K F I=1:1:K S X2=X2+1,^HULP(boot,$J+(200/10000),X2)=X1
53 S TR=K*2,MAX=MAX+1
55 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3) K X1,X2,X3,X4 S:AK AK=50
57 G ^cA212
 ;
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
 ;
R9 S QPT=$T(+0) D ^cA109
R9Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84