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