-- 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