home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / lilith / m2vers.mod < prev   
Text File  |  2020-01-01  |  921b  |  26 lines
  1. IMPLEMENTATION MODULE KermVers;
  2. (************************************************************************)
  3. (*  Version displays information about the current version of M2-Kermit *)
  4. (*  written:            25.02.86     Matthias Aebi                      *)
  5. (*  last modification:  17.03.86     Matthias Aebi                      *)
  6. (************************************************************************)
  7.  
  8. FROM Terminal IMPORT WriteString, WriteLn;
  9. FROM M2Kermit IMPORT VersionStr;
  10.  
  11. (************************************************************************)
  12.                         PROCEDURE Version;
  13. (************************************************************************)
  14. BEGIN
  15.     WriteLn;
  16.     WriteString(VersionStr);
  17.     WriteLn;
  18.     WriteString("by Matthias Aebi, March 1986");
  19.     WriteLn;
  20.     WriteString("Institut f. Informatik, University of Zuerich");
  21.     WriteLn;
  22.     WriteLn;
  23. END Version;
  24.  
  25. END KermVers.
  26.