/*****************************************************************
**                                                              **
**      ShowGlobal.ecfg                 EuraConfig-Script       **
**      Zeigt globale Informationen                             **
**                                                              **
******************************************************************
**
**      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=3'               /* Richtige Kommando-Version? */

flags.0 = "Nein"                /* BOOL -> Text */
flags.1 = "Ja"

modus.0 = "Einzelanlage"        /* Anlagenmodus */
modus.1 = "Nah-Unteranlage"
modus.2 = "Fern-Unteranlage"
modus.3 = "Vernetzt (Master)"
modus.4 = "Vernetzt (Slave)"

moh.0   = "Aus"                 /* Wartemusik */
moh.1   = "Intern"
moh.2   = "Extern"

ava.0   = "Variante 1"          /* Anrufvariante */
ava.1   = "Variante 2"


/*--- Die Auswertung beginnt hier ---*/
DO ix = 0 TO 13                  /* Alle Daten auslesen und in einen Stem eintragen */
  'GLOBAL "'||ix||'"'
  glb.ix = result
END

hilf = glb.0
SAY Left("Modus",30)||":" modus.hilf
SAY Left("Hauptanlagen-Nr",30)||":" glb.1
SAY Left("Rufweiterschaltung",30)||":" glb.2 "s"
hilf = glb.3
SAY Left("Autom. Amtsholung",30)||":" flags.hilf
SAY Left("Gebühren-Grundpreis",30)||":" glb.4 "Pfg"
SAY Left("Zeilen pro Seite",30)||":" glb.5
hilf = glb.6
SAY Left("Wartemusik",30)||":" moh.hilf
hilf = glb.7
SAY Left("Rufweitergabe",30)||":" flags.hilf
hilf = glb.8
SAY Left("98,99 reserviert",30)||":" flags.hilf
hilf = glb.9
SAY Left("Privatgespräche",30)||":" flags.hilf
hilf = glb.10
SAY Left("Anrufvariante",30)||":" ava.hilf
SAY Left("Nachricht",30)||":" glb.11
/* SAY Left("Geheimcode",30)||":" glb.12 */
SAY Left("Hotline",30)||":" glb.13

SAY ""
SAY ""

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

EXIT