cA112 ;Ingeven van global voor later op schijf te plaatsen via %1 op schijf ;
 ;
T0 ;Ingeven van global voor later op schijf te plaatsen via %1 op schijf ;
 ;
T0F ;Ingeven van global voor later op schijf te plaatsen via %1 op schijf ;
 ;
T0E ;Ingeven van global voor later op schijf te plaatsen via %1 op schijf ;
 ;
R12 S R1=("^"_Q_"HCEN($I,0)") S:'$D(@R1) @R1=1 S R2=@R1,@R1=R2+1,^(R2)=R K R,R1,R2 Q  ;V1 09.10.84
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84