$! Send the archive to P1
$	was_verify := 'f$verify(1)'
$	p1[0,0] = 0
$	if p1 .eqs. "" then inquire P1 "Destination"
$	define address	"''P1'"
$	nmail/notime	NL:	"address"	"foo"