home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / e / amigae / src / tools / arexx / arexxtest.e < prev    next >
Text File  |  1992-09-02  |  228b  |  12 lines
  1. -> test arexx module, the easy way out
  2.  
  3. MODULE 'tools/arexx'
  4.  
  5. PROC main()
  6.   rx_HandleAll({process},'AREXXTESTPORT')
  7. ENDPROC
  8.  
  9. PROC process(s)
  10.   WriteF('Received message "\s" from Arexx!\n',s)
  11. ENDPROC StrCmp(s,'quit'),0,'result!'
  12.