/*****************************************************************
**                                                              **
**      Version.ecfg                EuraConfig-Script           **
**      Liefert die Version von EuraConfig                      **
**                                                              **
******************************************************************
**
**      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'
PARSE VAR result ver '.' rev '(' date ')'

SAY "Version" ver "Revision" rev "vom" date ||"."

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

EXIT