-- FTPUserFileNub.mesa, Edit: HGM July 31, 1980 5:29 PM -- Copyright Xerox Corporation 1979, 1980 DIRECTORY FTPPrivateDefs USING [LocateFtpSystemObject]; FTPUserFileNub: PROGRAM IMPORTS FTPPrivateDefs EXPORTS FTPPrivateDefs = BEGIN UserFilesLoaded: PUBLIC PROCEDURE = BEGIN FTPPrivateDefs.LocateFtpSystemObject[]↑.userFilesLoaded ← TRUE; END; END. -- of FTPUserFileNub