helpimcinv;
 TYPE
   alfa3 = String(3);
 .
procedure connect(var p:port; index:1..maxint; var compl, disc: reference;
                  inspect remote_name:string; service: conn_service);
  procedure oldconnect = connect(var p:port; index:1..maxint;
                                 var compl, disc: reference;
                                 remote_name:alfa;
                                 service: conn_service);
   external;
VAR a : alfa;
BEGIN
  a := remote_name;
  oldconnect(p,index,compl,disc,a,service);
END;
procedure openport(var p:port; var closebuf: reference;
                   inspect name:string; scope: scope_type;
                   no_of_cons: 0..maxint; cntrl: control_type);
  procedure oldopenport = openport(var p:port; var closebuf: reference;
                                   name:alfa; scope: scope_type;
                                   no_of_cons: 0..maxint; cntrl: control_type);
   external;
VAR a : alfa;
BEGIN
  a := name;
  oldopenport(p,closebuf,a,scope,no_of_cons,cntrl);
END;


Procedure masknames(VAR r : Reference; mask : string; 
                    imc_incno : 1..maxint); 
    Procedure oldmasknames = masknames(VAR r : Reference; mask : alfa3; 
                                       imc_incno : 1..maxint); EXTERNAL;
VAR
  a : alfa3;
BEGIN
 a := mask;
 oldmasknames(r,a,imc_incno);
END;

function alias( var p: port; inspect name: string ): boolean;
function oldalias = alias( var p: port; name: alfa ): boolean;
external;
VAR
  a : alfa;
BEGIN
 a := name;
 alias := oldalias(p,a);
END.