Continued from previous message.

        else if key='TIMEFMT' then
                TIMEFMT=value

return

/*  -- help --
** Display help text
*/
Help:
   say
   say 'This command file plays a file or device using the MultiMedia'
   say 'REXX string interface.'
   say
   say 'play [FILE="filename"] [DEV=device] [TIMEFMT=timefmt]'
   say '         [FROM=from_position] [TO=to_position]'
return

/*  --- ErrExit --
** Common routine for error clean up/program exit.
** Gets called when commands to DLL fail.
*/
ErrExit:
   MacRC = mciRxExit()   /* Tell the DLL we're going away        */
   exit 1;               /* exit, tell caller things went poorly */


/*   ---- error --
** Routine gets control when any command to the external
** environment (usually OS/2) returns a non-zero RC.
** This routine does not get called when the macapi.dll
** returns non-zero as it is a function provider rather
** than a command environment.
*/
error:
   ErrRC = rc
   say 'Error' ErrRC 'at line' sigl ', sourceline:' sourceline(sigl)
   MacRC = mciRxExit()       /* Tell the DLL we're going away */
   exit ErrRC                /* exit, tell caller things went poorly */

/*   ---- halt --
** Routine gets control when user hits ctrl break to end
*/
halt:
   say 'Halting...'
   MacRC = SendString("close rexxalias wait")
   if MacRC  0 then signal ErrExit
   exit 0



David Johnson


 * With foxes we must play the fox.
---
 * RoseReader 2.50* P004198 Entered at [PROGRAMMERS GLD]

--- QScan v1.067b