/*

    Simples ARexx-Demo                      Simple ARexx-Demo

    Voraussetzungen:                        Requirements:

    LControl muß aktiv sein                 LControl must be started.

*/

options results             /* Wird für LC_GetCounter       Is needed by LC_Getcoutner.
                               benötigt, damit in           Only if this option is active
                               RESULT auch der Couter-      Result codes are passed through
                               stand übergeben wird         by AREXX*/

ADDRESS 'LControl_rexx'     /* Neues Ziel für AREXX-        New host address: LControl
                               Kommandos: LControl          */


ADDRESS COMMAND WAIT 2      /* Warte 2 Sekunden             Wait 2 secs*/

SAY "PLAY"
LC_PLAY
ADDRESS COMMAND WAIT 2      /* Warte 2 Sekunden             Wait 2 secs*/
SAY "STOP"
LC_STOP

SAY "QUIT"
LC_QUIT


exit