Index: cFA14.mac.rou
===================================================================
diff -u -r38078 -r40587
--- cFA14.mac.rou	(.../cFA14.mac.rou)	(revision 38078)
+++ cFA14.mac.rou	(.../cFA14.mac.rou)	(revision 40587)
@@ -9,7 +9,7 @@
 T6 ;,[] = hernemen   V[] = verwijderen DEFINITIEF : 
 T7 ;NUMMER ELEMENT, -[] = einde : 
  ;
-1 S U1=100,B(1)=^(KI2),K=$P(B(1),D,19) G 11:K="." I $D(@("^"_Q_"K1(K)")) S KCL=^(K),B(0)=@("^"_Q_"KL(KCL,0)")
+1 S U1=100,B(1)=^(KI2),K="." G 11
 10 E  S KCL=0,B(0)=$P(B(1),D,1)_$P($T(T1),";",2)_K_$P($T(T2),";",2)_$P(B(1),D,4,99)
 11 G 13:SW7 S U1=$N(A(U1)) I U1>0 D S2 G 11
 13 S FP=2203+F60 W @F,@F1,$P($T(T3),";",2),!?2,$P($T(T4),";",2)
@@ -56,4 +56,3 @@
 Z X ^cZ Q
 ZZ ; 25.04.88 - 14 u 20
 
-