! Source of WHOIS

%external %routine WHOIS (%string (255) S)
   %external %routine %spec MAIL (%string (255) S)
   %external %routine %spec DEFINE (%string (255) S)

   DEFINE ("75,.NULL")
   SELECTINPUT (75)
   MAIL ("DIR,".S)
%end

%end %of %file