/*****************************************************************
**                                                              **
**      KW-Compress.ecfg                EuraConfig-Script       **
**      Komprimiert die Kurzwahlliste                           **
**                                                              **
******************************************************************
**
**      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 --------------------------------------*/

entries = 0

DO i=100 TO 299                 /* Alle Plätze durchgehen */
  'KWNUMBER '||i
  IF result~="" THEN DO         /* Rufnummer gefunden? */
    number.entries = result     /* diese merken */
    'KWNAME '||i
    name.entries   = result     /* und den Namen dazu */
    entries = entries + 1       /* ein Eintrag mehr! */
  END
END

'KWCLEAR ALL QUICK'             /* Ganze Liste löschen */

DO i=0 TO entries-1             /* Zurückschreiben */
  'KWNUMBER '||i+100||' "'||number.i||'" QUICK'
  'KWNAME '||i+100||' "'||name.i||'" QUICK'
END

'REFRESH ALL'                   /* WICHTIG! */

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

EXIT