$!++
$! Facility:
$!  bitTorrent ReTracker
$!
$! Abstract:
$!
$! Author:
$!      Ruslan R. Laishev
$!
$! Creation Date: 31-MAR-2010
$!
$! Modification History:
$!--
$!
$!
$	set	noon
$	set	verify
$       env             = f$environment("PROCEDURE")
$       home            = f$parse("Z.Z;", env,,,"NO_CONCEAL") - "Z.Z;"
$       arch            = f$getsyi("arch_name")
$
$	if "".eqs.f$search("''home':retracker.dat")
$	then
$		create/fdl='home'retracker.fdl 'home'retracker.dat
$	endif
$
$!	define/nolog          retracker$watch       1
$!	define	sys$output	'home'retracker.log
$!	define	sys$error	'home'retracker.err
$	run/nodebug	wasd_exe:retracker.exe