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