home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / lilith / m2serv.def < prev    next >
Text File  |  2020-01-01  |  582b  |  15 lines
  1. DEFINITION MODULE KermServ;
  2. (************************************************************************)
  3. (* Handle server mode                                                   *)
  4. (* written:            14.12.85     Matthias Aebi                       *)
  5. (* last modification:  25.02.85     Matthias Aebi                       *)
  6. (************************************************************************)
  7.  
  8. EXPORT QUALIFIED Server;
  9.  
  10. PROCEDURE Server(): BOOLEAN;
  11. (* enter server mode and handle requests. Return TRUE after a LOGOUT command,
  12.    FALSE in any other case *)
  13.  
  14. END KermServ.
  15.