/* ------------------------------------------------------------------ */ /* CDPLAY.CMD - simple text mode CD player */ /* */ /* (c) Copyright Bernd Schemmer 2000 */ /* */ /* Author: */ /* Bernd Schemmer */ /* Stalburgstr. 14 */ /* D-60318 Frankfurt am Main */ /* Germany */ /* Bernd.Schemmer@gmx.de */ /* */ /* History: */ /* 30.01.2000 /bs v1.00 */ /* - initial release */ /* */ /* */ /* */ /* Distribution: */ /* This code may be distributed freely and used in other programs. */ /* Please give credit where credit is due. */ /* If you need further help, feel free to contact me at the address */ /* noted above. */ /* */ /* Description: */ /* CDPLAY.CMD is a very simple CD play program using the REXX */ /* extension for multimedia. */ /* */ /* Usage: */ /* CDPLAY {/L:logfile} {/H} {/Silent} {/NoSound} {/NoAnsi} */ /* {/Trace} */ /* */ /* where: */ /* */ /* /L:logFile - logfile is the name of the logfile :-) */ /* This parameter is case-sensitive! */ /* Note: use /L:"logfile" if the name of the logfile */ /* contains blanks or special chars */ /* def.: do not use a logfile */ /* */ /* /H - show usage, you may also use */ /* /h, /?, /HELP, -h, -H, -HELP or -? */ /* (MAIN is not called!) */ /* */ /* /Silent - suppress all messages (except error messages) */ /* You should also use the parameter /L:logfile if you */ /* use this parameter! */ /* You may also set the environment variable SILENT to */ /* "1" to suppress all messages. */ /* */ /* /NoSound - suppress all sounds. You may also set the */ /* environment variable SOUND to "0" to suppress the */ /* sounds. */ /* */ /* /NoAnsi - do not use ANSI codes. You may also set the */ /* environment variable ANSI to "0" to suppress the */ /* use of ANSI codes. */ /* */ /* /Trace - turn TRACE on before calling MAIN. You may also */ /* set the environment variable RXTTRACE to ON to */ /* turn the TRACE mode for MAIN on. */ /* */ /* NOTE: */ /* You must use at least one blank to separate the parameter. */ /* */ /* */ /* returncodes: */ /* 0 - execution okay */ /* 240 ... 252 */ /* reserved for the runtime system */ /* 253 - syntax help called (parameter /h) */ /* 254 - user break (CTRL-C) */ /* 255 - internal runtime system error */ /* else - program specific errors */ /* */ /* Notes: */ /* */ /* */ /* Based on TEMPLATE.CMD v3.07, TEMPLATE is (c) 1997 Bernd Schemmer, */ /* Stalburgstr. 14, 60318 Frankfurt, Germany, Bernd.Schemmer@gmx.de */ /* */ /* Read the documentation for my REXX template TEMPLATE.CMD */ /* carefully before changing this program! */ /* ------------------------------------------------------------------ */ call trace 'off' /* turn interactive trace off */ /* use this statement as the first statement */ /* in your program, to ignore the value of */ /* the environment variable RXTRACE. */ global. = '' /* init the stem global. with '' */ /*** change the following values to your need ***/ /* additional parameter v3.06 */ /* (string for the usage routine) v3.06 */ global.__userUsage = '' /* v3.06 */ global.__Version = 1.0 /* Version of YOUR program */ global.__SignOnMsg = 1 /* set to 0 if you do not want the */ /* program start and end messages */ global.__NeedCID = 0 /* set to 1 if you need CID support */ global.__NeedColors = 1 /* set to 1 if you want colored msgs */ global.__NeedPatchCheck = 1 /* set to 1 if you want the program */ /* to search for a patched version of */ /* this program */ /* set default values for EXPOSELIST if necessary */ exposeList = 'msgStem.' /* base message number */ Global.__BaseMsgNo = 1000 /* name of the routine for the message handling */ /* Note: Use '' for hardcoded messages */ global.__GetMsg = '' /* note: set the variable prog.__STDOUT to "STDERR:" */ /* or "NUL" if your program is a filter program! */ prog.__STDOUT = 'STDOUT' /* necessary for Object REXX */ prog.__STDERR = 'STDOUT' /* necessary for Object REXX */ /*!*/ /*** End of variables to change ***/ /* HINT: The further program code is in the function MAIN */ /*** End of Part 1 of the source code of TEMPLATE.CMD ***/