home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / pibterm / pibt41s3.arc / PT4KERM.PAS < prev    next >
Pascal/Delphi Source File  |  1988-02-21  |  3KB  |  98 lines
  1. UNIT PT4KERM;
  2.  
  3. INTERFACE
  4.  
  5. USES
  6.    Dos, Crt, GlobType, StringMan, GlobRout, PibTimer, PibAsync,
  7.    PT4DISPC;
  8.  
  9. (* EXPORTS *)
  10.    PROCEDURE Do_Kermit( Transfer_Direction : CHAR );
  11.  
  12. IMPLEMENTATION
  13.  
  14. CONST
  15.    Kermit_Mess1_Line = 11;
  16.    Kermit_Mess2_Line = 12;
  17.    Kermit_Mess3_Line = 13;
  18.    Kermit_Title_Line = 14;
  19.  
  20. CONST
  21.    Send_Offset    = 1100;
  22.    Receive_Offset = 1100;
  23.  
  24. (* STRUCTURED *) CONST
  25.    Kermit_Screen_Write    : BOOLEAN = FALSE;
  26.    Save_Display_Status    : BOOLEAN = TRUE;
  27.    Kermit_Attributes      : BOOLEAN = FALSE;
  28.    Kermit_Do_Long_Blocks  : BOOLEAN = FALSE;
  29.    Kermit_Do_Sliding_Win  : BOOLEAN = FALSE;
  30.    Kermit_Do_File_Size    : BOOLEAN = FALSE;
  31.    Kermit_Do_File_Time    : BOOLEAN = FALSE;
  32.    Kermit_Do_File_Date    : BOOLEAN = FALSE;
  33.    His_Kermit_Window_Size : INTEGER = 0;
  34.    His_Kermit_MaxLX1      : INTEGER = 0;
  35.    His_Kermit_MaxLX2      : INTEGER = 0;
  36.    Kermit_File_Size       : LONGINT = 0;
  37.    Kermit_File_Time       : WORD = 0;
  38.    Kermit_File_Date       : WORD = 0;
  39.    Kermit_CFile_Size      : STRING[10] = '';
  40.    Kermit_CFile_Time      : STRING[10] = '';
  41.    Kermit_CFile_Date      : STRING[10] = '';
  42.    Kermit_Window_Used     : INTEGER = 0;
  43.    Kermit_Window_Errors   : INTEGER = 0;
  44.    Kermit_Doing_Transfer  : BOOLEAN = FALSE;
  45.    Window_Size_Used       : INTEGER = 0;
  46.    Initial_SOH_Received   : BOOLEAN = FALSE;
  47.  
  48. (* STRUCTURED *) CONST
  49.    Send_Titles    : ARRAY[1..5] OF STRING[22] =
  50.                     ('Packets sent         :',
  51.                      'Bytes sent           :',
  52.                      'Retries              :',
  53.                      'Bytes to send        :',
  54.                      'Current block window :' );
  55.  
  56.    Receive_Titles : ARRAY[1..5] OF STRING[22] =
  57.                     ('Packets received     :',
  58.                      'Bytes received       :',
  59.                      'Retries              :',
  60.                      'Bytes to receive     :',
  61.                      'Current block window :' );
  62.  
  63.    Line_Titles    : ARRAY[6..14] OF STRING[22] =
  64.                     ('8th bit quoting      :',
  65.                      'Block check type     :',
  66.                      'Compression          :',
  67.                      'Sliding windows      :',
  68.                      'Long blocks          :',
  69.                      'Last status message  :',
  70.                      '',
  71.                      '',
  72.                      '' );
  73.  
  74.    Key_Title   : STRING[60]
  75.                  = ' ^F=abort file   ^B=abort batch   ^K=abort Kermit   ^R=retry';
  76.  
  77.   {executable code local to this module follows}
  78.  
  79. {$I KDEBUG.MOD     }
  80. {$I KINIT.MOD      }
  81. {$I KERMCRC.MOD    }
  82. {$I KDISPLAY.MOD   }
  83. {$I KADJUSTF.MOD   }
  84. {$I KFIXFNAM.MOD   }
  85. {$I KOPEN.MOD      }
  86. {$I KREC.MOD       }
  87. {$I KSEND.MOD      }
  88. {$I KFINSERV.MOD   }
  89. {$I KREMCOMM.MOD   }
  90. {$I KCHECKAC.MOD   }
  91. {$I SENDKER1.MOD   }
  92. {$I SENDKER2.MOD   }
  93. {$I RECEIVK1.MOD   }
  94. {$I RECEIVK2.MOD   }
  95. {$I DOKERM.MOD     }
  96.  
  97. END   (* PT4KERM *).
  98.