home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 164.lha / ARexx / Example_ARexx / ports.rexx < prev    next >
OS/2 REXX Batch file  |  1988-04-28  |  287b  |  13 lines
  1. /* ports - test ports actions */
  2. say 'Waiting for packet from ports2.rexx'
  3. say ' '
  4. call openport("testport")
  5. call waitpkt('testport')
  6. packet = getpkt('testport')
  7. pktstring = getarg(packet)
  8. call reply(packet,0)
  9. say 'This is printed from ports.'
  10. say 'Packet string is:' pktstring
  11. exit(0)
  12.  
  13.