DEFINITION MODULE M2Kermit; (************************************************************************) (* This is the main body of the Modula-2 Kermit version. It reads a *) (* command line and interprets it *) (* written: 09.01.86 Matthias Aebi *) (* last modification: 17.03.86 Matthias Aebi *) (************************************************************************) EXPORT QUALIFIED Param1, Param2, VersionStr; CONST VersionStr = "Modula-2 Kermit, Version 1.0 / Lilith"; VAR Param1 : ARRAY [0..31] OF CHAR; (* 1st & 2nd parameter we found *) Param2 : ARRAY [0..31] OF CHAR; (* on the command line *) END M2Kermit.