
  PROCEDURE [XREF] avp$encrypt
    (VAR base: integer;
     VAR exponent: integer;
     VAR coefficient: integer;
     VAR prime: integer;
     VAR result: integer);

