home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ZMD6112B.ZIP / ZMD6.INT < prev    next >
Encoding:
Text File  |  1992-07-05  |  2.0 KB  |  71 lines
  1. {$A+,B-,D-,E+,F-,G-,I+,L-,N-,O-,R-,S-,V-,X+}
  2. {$M 8192,49152,49152}
  3. UNIT ZMD6;
  4. INTERFACE
  5. CONST
  6.       ZMDVersion = '1.12ß';
  7.  
  8.       TYPE
  9.       ZFilesRec = record
  10.          Name : string;
  11.          Status : word;
  12.       end;
  13.  
  14.       Z_FileList = array[1..20] of ZFilesRec;
  15.  
  16.  
  17. VAR
  18.  
  19.       Z_DiskBufSize : word;
  20.          {
  21.           Z_DiskBufSize sets the size of the buffer that files are
  22.           read into before transfer.  The buffer is allocated from
  23.           the heap when the transfer begins and released afterwards.
  24.          }
  25.  
  26.       Z_Files : ^Z_FileList;
  27.          {
  28.           This is a pointer to the Z_FileList structure that ZMD6
  29.           uses to send/receive files.
  30.          }
  31.  
  32.       Z_SRPort,Z_SRBaud : word;
  33.          {
  34.           Z_SRPort is the port used to transfer the files.
  35.           Z_SRBaud is the baud rate that Z_SRPort is operating at.
  36.          }
  37.  
  38.       Z_ReceivePath : string;
  39.          {
  40.           Z_ReceivePath is the path to the directory that you wish to
  41.           have received files written to.
  42.          }
  43.  
  44.       CurFNum : word;
  45.          {
  46.           CurFNum is the number of files that were received as a
  47.           result of the last Z_GetFiles procedure
  48.          }
  49.  
  50. procedure Z_SendFiles(Num : word);
  51. {
  52.     This is the procedure used to send one or more files
  53.   using the Zmodem protocol.  The files to be sent are specified
  54.   in the Z_Files^ array which is allocated from the heap at
  55.   unit initialization.  After the files have been transfered
  56.   the Z_Files^[].Status word will contain a numeric value
  57.   representing the status of the transfer for the respective
  58.   file.
  59. }
  60. procedure Z_GetFiles;
  61. {
  62.     This is the procedure used to receive one or more files
  63.   using the Zmodem protocol.  The files that are received will
  64.   have their names stored in the Z_Files^ array which is allocated
  65.   from the heap at unit initilization.  After all files have
  66.   been received the Z_Files^[].Status will contain a numeric
  67.   value representing the status of the transfer for the respective
  68.   file.
  69. }
  70. IMPLEMENTATION
  71.