/* $VER: 1.2 © 1994 by Frank Würkner. Show current position.               */

SIGNAL ON SYNTAX                            /* check syntax                */
SIGNAL ON ERROR                             /* check if command succeeds   */
OPTIONS FAILAT 6                            /* ignore warnings             */
ADDRESS 'YACDP'                             /* send to YACDP               */

/* -------------------------- BEGIN OF YOUR CODE ------------------------- */

'GETVAR STATUS'

if (STATUS > 2) then do

'PLAYTRACK 1'

end

/* --------------------------- END OF YOUR CODE -------------------------- */
EXIT

SYNTAX:
SAY "AREXX error at line" SIGL ":" ERRORTEXT(RC)
EXIT

ERROR:
SAY "YACDP error at line" SIGL ":" ERR
EXIT