IMPLEMENTATION MODULE KermVers;
(************************************************************************)
(*  Version displays information about the current version of M2-Kermit *)
(*  written:            25.02.86     Matthias Aebi                      *)
(*  last modification:  17.03.86     Matthias Aebi                      *)
(************************************************************************)

FROM Terminal IMPORT WriteString, WriteLn;
FROM M2Kermit IMPORT VersionStr;

(************************************************************************)
                        PROCEDURE Version;
(************************************************************************)
BEGIN
    WriteLn;
    WriteString(VersionStr);
    WriteLn;
    WriteString("by Matthias Aebi, March 1986");
    WriteLn;
    WriteString("Institut f. Informatik, University of Zuerich");
    WriteLn;
    WriteLn;
END Version;

END KermVers.