-- FTPUserMailNub.mesa, Edit: HGM July 31, 1980  5:36 PM  

-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  FTPPrivateDefs USING [LocateFtpSystemObject];

FTPUserMailNub: PROGRAM
  IMPORTS FTPPrivateDefs
  EXPORTS FTPPrivateDefs =
BEGIN


UserMailLoaded: PUBLIC PROCEDURE =
  BEGIN
  FTPPrivateDefs.LocateFtpSystemObject[]↑.userMailLoaded ← TRUE;
  END;
 

END. -- of FTPUserMailNub