Index: KKAA20A.mac.rou
===================================================================
diff -u -r1700 -r1705
--- KKAA20A.mac.rou	(.../KKAA20A.mac.rou)	(revision 1700)
+++ KKAA20A.mac.rou	(.../KKAA20A.mac.rou)	(revision 1705)
@@ -1,18 +1,10 @@
 KKAA20A ;Tussentijds voorbereieden REGIO/OMZET ANALYSE ;KKAA20A; Go naar KKAA21A [ 03/25/97  5:17 PM ]
- G 1
  ;
 1 D ^cA604 K @("^"_Q_"KAAM"),@("^"_Q_"KAAMA")
  Set (@("^"_Q_"KAAM"),@("^"_Q_"KAAMA"))=$H
 13 S FBP=-1,LBP=DJ_"."_DM
 15 S Q0="^"_Q_"KL(KL)",Q1="^"_Q_"KL(KL,0)",Q2="^"_Q_"STKL(KC)",Q3="^"_Q_"STKL(KC,PR)",Q4="^"_Q_"STKL(KC,PR,BP)",Q5="^"_Q_"PR(PR,0)"
-17 S KL=0,KLX="ZZZZZ",FBP=FBP_" ",LBP=LBP_" ",RegPos=21 D ^KKAA21A
- Kill ^KKAAM20 Merge ^KKAAM20=^KKAAM
- ;
-2 D ^cA604 K @("^"_Q_"KAAM"),@("^"_Q_"KAAMA")
- Set (@("^"_Q_"KAAM"),@("^"_Q_"KAAMA"))=$H
-23 S FBP=-1,LBP=DJ_"."_DM
-25 S Q0="^"_Q_"KL(KL)",Q1="^"_Q_"KL(KL,0)",Q2="^"_Q_"STKL(KC)",Q3="^"_Q_"STKL(KC,PR)",Q4="^"_Q_"STKL(KC,PR,BP)",Q5="^"_Q_"PR(PR,0)"
-27 S KL=0,KLX="ZZZZZ",FBP=FBP_" ",LBP=LBP_" ",RegPos=20 D ^KKAA21A
+17 S KL=0,KLX="ZZZZZ",FBP=FBP_" ",LBP=LBP_" ",RegPos=20 D ^KKAA21A
  
 YZ Q
  ;