home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / sound / chaneler.sit / Channelizer.ƒ / Xfer.p < prev   
Text File  |  1989-09-08  |  822b  |  46 lines
  1. unit Xfer;
  2. { Copyright ⌐ 1989 Chris Muir, Entropy Engineering.        }
  3. { Internet:    (hplabs,pacbell,ucbvax,apple) !well!cbm     }
  4. { Pan:        ZMS                                            }
  5. { US Mail:    360 Elizabeth St. San Francisco, CA 94114    }
  6.  
  7.  
  8. interface
  9.  
  10.     function GetXfer: boolean;
  11.  
  12.     procedure LaunchIt (mode: integer; var fname: str255);
  13.     inline
  14.         $204F, $A9F2;
  15.  
  16.     var
  17.         XferVRef: integer;
  18.         theXferName: str255;
  19.  
  20. implementation
  21.  
  22.     function GetXfer: boolean;
  23.         var
  24.             where: point;
  25.             reply: SFReply;
  26.             textType: SFTypeList;
  27.         const
  28.             null = '';
  29.     begin
  30.         GetXfer := false;
  31.         where.h := 80;
  32.         where.v := 55;
  33.         textType[0] := 'APPL';
  34.         SFGetFile(where, 'Select NeXT Program to Run╔', nil, 1, textType, nil, reply);
  35.         with reply do
  36.             if good then
  37.                 begin
  38.                     GetXfer := true;
  39.                     theXferName := fName;
  40.                     XferVRef := vRefNum
  41.                 end;
  42.     end;    { DoXfer }
  43.  
  44.  
  45.  
  46. end.