home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 339.lha / SerMod / rexx / chat.rexx < prev    next >
OS/2 REXX Batch file  |  1990-02-08  |  182b  |  13 lines
  1.  /* chat.rexx - chat over ROBBS serial */
  2.  
  3. ports = showlist('p')
  4. if pos('ROBBS_ser',ports) = 0 then exit 0
  5. address 'ROBBS_ser'
  6.  
  7. do forever
  8.     x = readln(stdin)
  9.     lsend '15'x || x
  10. end
  11.  
  12.  
  13.