{
     Example library
   }
   library subs;

  const
    StringLength = 30;       {maximum string length}

//  Procedure  pascal_(var i:integer; var a:real; var z:boolean; var p:char); export;
//  Procedure  pascal_(var p:char); export;
//  Procedure  pascal(var p:char); export;
  Procedure  pascal(); export;

 begin

//  WriteLn('Hello...in Pascal routine....p=',p);
  WriteLn('Hello...in Pascal routine....p=');
//  WriteLn('i=',i,' a=',' z=',z,' p=',p);
    
 end;

exports
 //  pascal_;
   pascal;

   end.