home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / orionful.zip / Msgtouseron.Cmd < prev    next >
OS/2 REXX Batch file  |  1996-12-12  |  329b  |  11 lines
  1. /* Sample Example of Using MsgToUserOn.CMD */
  2. ARG line
  3. Call AdeptInitRexx line
  4. Node = AdeptConvert(line, "{DD")
  5. String = AdeptConvert(line, "{DC")
  6. Name = AdeptGetVar(line,2)
  7. cr = X2C('0D')
  8. lf = X2C('0A')
  9. Call AdeptComWrite Node, cr lf Name || " On Node - " || Line ||" Just wrote you a message in area " || String
  10. exit
  11.