$! procedure sendcopy3.COM
$! stops LOOP1
$! copies IFP:SENDNET3.COM (must be W:R on R3)
$! purges IFP:SENDNET3.COM
$! restarts LOOP1
$  @ifp:sendinit
$  STOPLOOP1
$  set ver
$  on severe_eror then continue
$  if f$GETDVI( f$parse( "ifp:sendnet3.COM",,, "DEVICE" ), "SWL" )-
		then goto good
$  copy R3::"ifp:sendnet3.COM" ifp:sendnet3.com
$  purge ifp:sendnet3.com
$  good:
$  LOOP1
$  exit