KKAA20A ;Tussentijds voorbereieden REGIO/OMZET ANALYSE ;KKAA20A; Go naar KKAA21A [ 03/25/97  5:17 PM ]
 ;
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=20 D ^KKAA21A
 
YZ Q
 ;
Z X ^cZ Q
ZZ ; 04.07.90 - 10 u 02