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