cI12 ;AANPASSEN TXT IN FRANS ;%I12;
 G 1
 ;
1 K  S F11="*27,""=  """,F1="*27,""Y""",I1=-1
15 W !,"VERGELIJKEN MET : [] = frans   H[] = hollands   E[] = engels " R K Q:K="-"  G 15:"HED"'[K!($L(K)>1) S W1=K S:K="" W1="F"
2 S I1=$N(^TXT(I1)) Q:I1=-1  W @F11,@F1
21 I '$D(^TXT(I1,W1)) F I=0:1 Q:'$D(^cTXT(I1,W1,I))  S ^TXT(I1,W1,I)=^(I)
23 S I=""
3 S I=$O(^TXT(I1,"N",I)) G 30:I=""
 W !,I,".",!,^(I),"#####" S:'$D(^TXT(I1,W1,I)) ^TXT(I1,W1,I)="" W !,^(I),"#####",! R:$L(^(I)) K S:'$L(^(I)) ^TXT(I1,W1,I)=^TXT(I1,"N",I),K=1 S:K="-" I=I-2,K="" I $L(K) D 31 S I=I-1
 G 3
30 W !!!,"EINDE ",I1," : " R K G 23:$L(K),2
31 S SW1=0,NAM="TXT",I(1)=I1,I(2)=W1,I(3)=I
32 S NM="^"_NAM_"(I(1),I(2),I(3))",A=^(I(3))
 ;
11 R !,"REPLACE   [] = Einde : ",A1 G 12:A1="END"!(A1="end") Q:A1=""
110 G 12:A[A1
111 I A1["..." S A2=A S:$L($P(A1,"...",1)) A2=$P(A,$P(A1,"...",1),2,999) S:$L($P(A1,"...",2)) A2=$P(A2,$P(A1,"...",2),1) S A1=$P(A1,"...",1)_A2_$P(A1,"...",2,999) G 110
112 I A'[A1 W "  ???" G 11
12 R !,"WITH                 : ",A2 S A=$P(A,A1,1)_A2_$P(A,A1,2,999) W !,A S ^(I(3))=A G 11
 ;
Z X ^cZ Q
ZZ ; 13.01.89 - 12 u 47