SWITCH BASIC
! RVNET.CMD
! 
! Copy C to VMS (specific to DEC).
!
! This file is provided as an example of how a very large command
! file can be built using GETCMD.  It was used to copy the RSTS
! distribution to a VAX system over DECnet.  NOTE that it is
! specific to one particular installation, and has not been
! (and will not be) updated for the current release of Decus C.
!
!  -m = destination NODE::DISK:[DIRECTORY
CRUN PUB:GETCMD -m "RDVAX::DBA3:[CSUPPORT.DECUSC"
RVNET.TMP	?.COMMAND]*.*=[5,1]*.*		[5,1]*.*
		?]*.*=[5,2]*.*			[5,2]*.DOC [5,2]*.H
		?.COMP]*.*=[5,3]*.*		[5,3]*.*
		?.OTSCOM]*.*=[5,4]*.*		[5,4]*.*
		?.OTSIO]*.*=[5,5]*.*		[5,5]*.*
		?.RSTSLB]*.*=[5,6]*.*		[5,6]*.*
		?.RSXLIB]*.*=[5,7]*.*		[5,7]*.*
		?.TOOLS]*.*=[6,1]*.*		[6,1]*.*
		?.MISC]*.*=[6,2]*.*		[6,2]*.*
		?.CROSS]*.*=[6,3]*.*		[6,3]*.*
		?.LEX]*.*=[6,4]*.*		[6,4]*.*
		?.USEFUL]*.*=[6,6]*.*		[6,6]*.*
		?.VAXLIB]*.*=[6,7]*.*		[6,7]*.*
^Z
$allow warning errors
!
! Do a net file transfer, $@RVNET.TMP will drive NFT
!
NFT
$@RVNET.TMP
^Z
!
! Send mail to RDVAX::CSUPPORT
!
SEND RDVAX::CSUPPORT
C is transfered
All transfered.
^Z
^Z
