home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
164.lha
/
ARexx
/
VariableInterface
/
testRVI.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1988-04-28
|
709b
|
26 lines
/* Tests the direct variable interface */
/* Assumes WShell is available; if not, */
/* issue "run vartestC" separately */
trace r
if left(address(),4) ~== "WSH_" /* WShell host? */
then signal SendComm /* guess not ... */
'waitforport -i VarTest' /* vartest started? */
if rc ~= 0 then do /* apparently not ...*/
'runwsh vartestC' /* launch host */
end
'waitforport VarTest' /* wait for host */
if rc ~= 0 then do
say "Couldn't start VarTest host"
exit 20
end
SendComm: /* send a command to the VarTest host */
a.1 = "Just a test"
address 'VarTest' hello
say 'After command status=' status
address 'VarTest' close