home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / www / afc / afc-dir / rexxer_examples.lha / Examples / Rexxer_Sender.e < prev   
Text File  |  1997-09-07  |  714b  |  36 lines
  1. /*
  2.  
  3.    $VER: Rexxer Sender Example 1.0
  4.  
  5.    Written By Fabio Rotondo
  6.  
  7.    (C)Copyright Amiga Foundation Classes
  8.  
  9.    NOTES: Run this program AFTER you have run 'Rexxer Receiver'.
  10.  
  11.           This program will communicate using ARexx with 'RECEIVE.1'.
  12.           If the "RECEIVE.1" port is not found, the program will raise
  13.           an exception.
  14.  
  15. */
  16.  
  17. MODULE 'afc/rexxer', 'afc/explain_exception'
  18.  
  19. PROC main() HANDLE
  20.   DEF rx=NIL:PTR TO rexxer
  21.  
  22.  
  23.   IF FindPort('RECEIVE.1')=NIL THEN Raise("recv")
  24.   NEW rx.rexxer('SENDER')
  25.  
  26.   rx.send('RECEIVE.1', 'QUIT')
  27.  
  28.   WriteF('RC:\d - Result:\s\n', rx.rc(), rx.result())
  29.   WriteF('ARexx Sender port terminating...\n')
  30. EXCEPT DO
  31.   explain_exception()
  32.   END rx
  33.   CleanUp(0)
  34. ENDPROC
  35.  
  36.