/*****************************************************************
**                                                              **
**      Version.ecall               EuraCall-Script             **
**      Liefert die Version von EuraCall                        **
**                                                              **
******************************************************************
**
**      V1.0 -- (C) 1997 Richard Körber -- All Rights Reserved
**
**/

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

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

'VERSION'
PARSE VAR result ver '.' rev '(' date ')'

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

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

EXIT