home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FORUM25C.ZIP / ECHONET.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-02-05  |  523 b   |  30 lines
  1. {$O+,F+}
  2.  
  3. UNIT EchoNet;
  4. INTERFACE
  5. USES GenTypes,
  6.      Subs1,
  7.      Subs2;
  8.  
  9. Procedure Echo_net_mail;
  10.  
  11. IMPLEMENTATION
  12.  
  13. {=============================================================================}
  14.  
  15. Procedure Echo_net_mail;
  16. VAR q : INTEGER;
  17. Begin
  18.   If Ulvl < 90 THEN Exit;
  19.   REPEAT
  20.     q := Menu('Forum-Net','FrmNet','Q');
  21.     CASE q OF
  22.       1 : ;   { Exit }
  23.     End;
  24.   UNTIL (q=1) OR (HungUpon);
  25. End;
  26.  
  27. {=============================================================================}
  28.  
  29. Begin
  30. End.