home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e050 / 1.ddi / HELLO2.OPS < prev    next >
Encoding:
Text File  |  1986-08-19  |  248 b   |  20 lines
  1. module hello2 (start)
  2. {
  3.  
  4. type msg = element(value:symbol);
  5.  
  6. rule putmsg
  7.   {
  8.     &1    (msg);
  9.     -->
  10.         write() &1.value, '\n';
  11.     remove &1;
  12.   };
  13.  
  14. procedure start()
  15.   {
  16.     make (msg    value=|Hello world|);
  17.     fire 1;
  18.   };
  19.  
  20. };