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