/*
**  $VER: ShowREXXCommands.rexx (23 Mar 1996)  **
**
**        © 1996 Kay Drangmeister
**
**
**  PROGRAMNAME:
**      ShowREXXCommands
**
**  FUNCTION:
**      Displays all IFFMaster REXX commands.
**
**  $HISTORY:
**
**   23 Mar 1996 : 1.0 : initial release
*/


PortName    = 'IFFMASTER.1'           /* portname, usually IFFMASTER.1 */
LF          = '0a'x                   /* linefeed */
iffmpath    = 'IFFMaster'             /* change this to your path */

ADDRESS VALUE PortName

IFFMACTIVE=1
IF ~SHOW('Ports',PortName) THEN DO
    IFFMACTIVE=0        /* indicate that we did start IFFMaster through the script */
    ADDRESS 'COMMAND' 'Run >NIL: 'iffmpath
    ADDRESS 'COMMAND' 'WaitForPort '||PortName
    IF ~SHOW('Ports',PortName) THEN EXIT 10
END


temp="env:iffmasterrexxvar"
'help 'temp
ADDRESS 'COMMAND' 'type 'temp
ADDRESS 'COMMAND' 'delete >NIL: 'temp


IF IFFMACTIVE=0 THEN DO
    ADDRESS Value portname
    'quit'     /* we started IFFMaster ourselves, so close it */
END

EXIT(0)