cA245 ;UITKUISEN ACCENTEN ;%A245; [ 04/12/00   9:03 AM ]
 G 1
 ;
T0 ;Uitkuisen accenten ;
T1 ;Nummer bestand\"-[] = einde programma";
T2 ;Bevestiging\".[] = ok   ,[] = hernemen";
 ;
T0F ;Radiation des accents;
T1F ;Numéro fichier\"-[] = fin du programme";
T2F ;Confirmation\".[] = ok   ,[] = reprendre";
 ;
T0E ;Uitkuisen accenten ;
T1E ;Nummer bestand\"-[] = einde programma";
T2E ;Bevestiging\".[] = ok   ,[] = hernemen";
 ;
C1 ;a;131;132;133;134;160;224;
C2 ;c;135;155;
C3 ;e;130;136;137;138;166;167;248;249;
C4 ;f;159;
C5 ;i;139;140;141;161;
C6 ;j;245;
C7 ;n;164;234;239;252;
C8 ;o;147;148;149;162;229;
C9 ;u;129;150;151;163;230;
C10 ;y;152;
C11 ;A;142;143;146;
C12 ;B;225;
C13 ;C;128;226;
C14 ;E;144;228;238;
C15 ;L;156;
C16 ;N;165;
C17 ;O;153;
C18 ;S;235;
C19 ;T;227;231;
C20 ;U;154;
C21 ;V;251;
C22 ;Y;157;
C23 ;0;158;232;233;236;237;
C24 ;2;253;
C25 ;!;173;
C26 ;+;241;
C27 ;-;196;205;
C28 ;/;246;
C29 ;<;174;243;
C30 ;=;240;247;
C31 ;>;175;242;
C32 ;?;168;244;
C33 ;|;169;170;176;177;178;179;180;181;182;183;184;185;186;187;188;189;190;191;192;193;194;195;197;198;199;200;201;202;203;204;206;207;208;209;210;211;212;213;214;215;216;217;218;
 ;
S1 F S1=1:1:$L(X) S S2=$A(X,S1) I S2>127 D S2 S SW=1
S1Z K S1,S2 Q
 ;
S2 F S3=1:1 S S4=$P($T(@("C"_S3)),U,2,999) Q:S4=""  I S4[(U_S2_U) S S5=$P(S4,U) Q
S2A W ?25,X S $E(X,S1)=$G(S5," ") W " -> ",X,$C(7),!
S2Z K S3,S4,S5 Q
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 K A S A=0,Q1=""
13 S Q1=$O(@("^"_Q_"BA(""%A"",1,Q1)")) I $L(Q1) S:$D(@("^"_Q_Q1_"(0,0)")) A=A+1,A(A)=$P(^(0),U)_D_Q1 G 13
15 G YZ:'A S B="",FP=301 W @F,@F1
17 S B=$O(A(B)) I B W !,$J(B,3),". ",$P(A(B),D) G 17
19 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_D_$L(A)_"\\$L(K)" D R0 G YZ:K="-"!(K=",")
 ;
2 S K=+K G 19:'$D(A(K)) S Q1=$P(A(K),D,2),FP=403 W @F,@F1,$P(@("^"_Q_Q1_"(0,0)"),U)
21 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 15:K'="."
23 I Q1="PRVO"!(Q1="MPVO") S Q1="PR"
 ;
3 S I=0,FP=620 W @FS S FP=601 W @F,@F1,$$CR^cA334
31 S I=$O(@("^"_Q_Q1_"(I)")) G YZ:I="" S B(1)=^(I,0) F J=2:1:10 S B(J)=D I $D(^(J-1)) S B(J)=^(J-1)
33 W ?2,$P(B(1),D),?10,$P(B(1),D,2),! L @("^"_Q_Q1_"(I)")
35 S SW=0 F J=1:1:10 F L=1:1:$L(B(J),D) S X=$P(B(J),D,L) D S1 S $P(B(J),D,L)=X
37 I SW S ^(0)=B(1) F J=2:1:10 I B(J)'=D S ^(J-1)=B(J)
39 G 31
 ;
YZ S FP=124 W @FS 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 ; 05.02.01 - 16 u 23 * V7.84