home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / E_v3.2a / 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.