home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / lilith / m2kerm.def < prev    next >
Text File  |  2020-01-01  |  751b  |  19 lines
  1. DEFINITION MODULE M2Kermit;
  2. (************************************************************************)
  3. (* This is the main body of the Modula-2 Kermit version. It reads a     *)
  4. (* command line and interprets it                                       *)
  5. (* written:            09.01.86     Matthias Aebi                       *)
  6. (* last modification:  17.03.86     Matthias Aebi                       *)
  7. (************************************************************************)
  8.  
  9. EXPORT QUALIFIED Param1, Param2, VersionStr;
  10.  
  11. CONST
  12.     VersionStr = "Modula-2 Kermit, Version 1.0 / Lilith";
  13.  
  14. VAR
  15.     Param1 : ARRAY [0..31] OF CHAR; (* 1st & 2nd parameter we found *)
  16.     Param2 : ARRAY [0..31] OF CHAR; (* on the command line          *)
  17.  
  18. END M2Kermit.
  19.