home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / extra / ndkerm.pas < prev    next >
Pascal/Delphi Source File  |  1988-08-16  |  2KB  |  71 lines

  1. (* tab p; *)        (* Initial tab. pos. for PED/ED     *)
  2. (*$c+ *)            (* allow 8-bit character assignment *)
  3. PROGRAM Kermit(Input,Output);
  4.  
  5. (*
  6.  *      Kermit for ND-100 & ND-10 machines running Sintran III.
  7.  *      The essential parts are written in Pascal (ND-Pascal).
  8.  *
  9.  *      This version is based on Kermit protocol Version 3.
  10.  *
  11.  *      The "inner" parts of this program was transformed from
  12.  *      the "C" source program in the protocol manual.
  13.  *      
  14.  *      Authors involved in version:
  15.  *      3.0
  16.  *          H}vard Eidnes   :   Main parts of this program,
  17.  *                              translated from the original "C" source.
  18.  *          Anund Lie       :   Got the first version running, and wrote
  19.  *                              the time-out and file-open routines.
  20.  *          Erlend Dahl     :   Help-utility.
  21.  *      3.1
  22.  *          Rabbe Fogelholm :   Bug-fix from version 3.0 to 3.1.
  23.  *                              Corrected unpacking of 8-bit quoted files.
  24.  *                              Corrected initial negotiation.
  25.  *
  26.  *      In addition come the persons who wrote the macine-dependent routines
  27.  *      in MAC, but none of these (except "he") was directly involved in writing
  28.  *      Kermit.
  29.  *
  30.  *                  NTH, Trondheim,  Norway     31.01.84
  31.  *)
  32. $INCLUDE KERMIT-CONST
  33.  
  34. $INCLUDE KERMIT-TYPE
  35.  
  36. $INCLUDE KERMIT-VAR
  37.  
  38. $INCLUDE KERMIT-EXTERN
  39.  
  40. (*$t- *)  (* No testing HERE! *)
  41. $INCLUDE KERMIT-BASIS
  42. (*$t+ *)
  43.  
  44. $Include Kermit-command
  45.  
  46. $Include Kermit-debug
  47.  
  48. (*$t- *)
  49. $INCLUDE KERMIT-UTILS
  50. (*$t+ *)
  51.  
  52. $INCLUDE KERMIT-FILE
  53.  
  54. (*$t- *)
  55. $INCLUDE KERMIT-SEND
  56.  
  57. $INCLUDE KERMIT-READ
  58. (*$t+ *)
  59.  
  60. $Include Kermit-Do-Comm
  61.  
  62. $Include Kermit-Fault
  63.  
  64. begin
  65.     InitializeKermit;
  66.     writeln('NTH Kermit for ND-10/100 Version ',Version);
  67.     writeln;
  68.     DoCommands;
  69. end.
  70. 
  71.