/********************************************************************
 **                                                                **
 **  This script gives the address of the current mail to          **
 **  Barney. The phonebook must be active!                         **
 **                                                                **
 **  $VER: 2Barney.spot 1.0 (22.03.94)                             **
 **                                                                **
 **  (c) 03/1994 by J.Schmitz [SOFT] - Freeware                    **
 **  may only published within the Barney package!!                **
 **                                                                **
 ********************************************************************/

ToBarneyPath="c:2Barney"  /* change this to your path */

address spot
options results

'ismessages'
if RC=5 then
 EXIT

'getfromaddress'

fidoaddress=RESULT

address Command

ToBarneyPath' 'fidoaddress