/*
**  $VER: empty-IFFMaster.rexx (00 xxx 0000)  **
**
**        © 1996 your name
**
**
**  PROGRAMNAME:
**      name of program
**
**  FUNCTION:
**      Use to write your own arexx scripts for IFFMaster
**
**  $HISTORY:
**
**   00 xxx 000 : 0.01 : initial release
*/


PortName    = 'IFFMASTER.1'           /* portname, usually IFFMASTER.1 */
LF          = '0a'x                   /* linefeed */
iffmpath    = 'Gfx:Tools/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: GFX:Tools/IFFMaster'
    ADDRESS 'COMMAND' 'WaitForPort '||PortName
    IF ~SHOW('Ports',PortName) THEN EXIT 10
END

SIGNAL ON SYNTAX
SIGNAL ON ERROR
OPTIONS RESULTS

/* ------------------------- insert your code here ------------------------- */

'load env:mui/IFFMASTER.1.prefs'
'entries'
SAY "Entries: " || RESULT

/* -------------------------    end of your code --------------------------- */

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

EXIT(0)


/* what to do on an error */
ERROR:
SYNTAX:

    SAY '+++ Error' rc 'in line' sigl '-' ERRORTEXT(rc)
    SAY SOURCELINE(sigl)

EXIT(rc)