cTU61 ;UITSTELLEN SELECTIES ;;do uit %A306,%TU10,%TU15,%TU20,%TU24,%TU6 ;
 G 1
 ;
 ; input : R = nummer van de selektie
 ;
1 L @("^"_Q_"TUPP($I)") S:'$D(@("^"_Q_"TUPP($I,0)")) ^(0)=1 S RR=^(0),^(0)=RR+1,^(RR)=R_D_D_D
 ;
YZ L  K R,RR Q
 ;
Z X ^cZ Q
ZZ ; 19.07.90 - 11 u 36