/*****************************************************************
**                                                              **
**      AlarmJoke.ecfg                  EuraConfig-Script       **
**      Kleiner Gag auf der Alarm-Seite                         **
**                                                              **
******************************************************************
**
**      V1.0 -- (C) 1997 Richard Körber -- All Rights Reserved
**
**/

OPTIONS RESULTS
OPTIONS FAILAT 6
IF Left(Address(),10)~='EURACONFIG' THEN ADDRESS 'EURACONFIG.1'

/*---- SCRIPT STARTS HERE --------------------------------------*/

'VERSION CHECK=2'               /* Richtige Kommando-Version? */

'PAGE'; oldpg = RESULT          /* Alte Seite merken */
'PAGE 4'                        /* Auf die "Alarm"-Seite wechseln */

DO i = 1 TO 1439 BY 2           /* Startzeit hochzählen */
  'ALARM FIELD=0 N="'||i||'"'
  'ALARM FIELD=1 N="'||1439-i||'"'
END

DO i = 1438 TO 0 BY -2          /* Startzeit herunterzählen */
  'ALARM FIELD=0 N="'||i||'"'
  'ALARM FIELD=1 N="'||1439-i||'"'
END

'PAGE' oldpg                    /* Auf alte Seite setzen */

/*---- SCRIPT ENDS HERE ----------------------------------------*/

EXIT