SELPR ;BEPAAL PRODUKT ;SELPR; [ 10/18/93  4:34 PM ]
 ;
 S (K,@$P(R,D))=$$SELECT^PRODUKT6(),FP=2101 W @F,@F1
 Q