.ENABLE SUBSTITUTION
.SETS $UIC "'<UIC>'"
.SETS $DEV ""
.IFNINS ...F4P INS $F4P
.IFNINS ...TKB INS $BIGTKB
.IFNINS ...SRD INS $SRD
.TESTFILE WTR.FTN
.IF <FILERR> = 1 .GOTO 10
.5: .ASKS $DEV ON WHICH DISK IS THE SOURCE (DDn:)
.TESTFILE '$DEV'WTR.FTN
.IF <FILERR> = 1 .GOTO 10
.SETS $DEV "'$DEV':"
.TESTFILE '$DEV'WTR.FTN
.IF <FILERR> <> 1 .GOTO 5
.10:
.XQT F4P '$DEV'WTR,WTR/-SP='$DEV'WTR
.OPEN '$DEV'WTR.BLD
.DATA ;	WTR.BLD
.DATA ;
.DATA '$DEV'WTR/CP,WTR/-SP='$DEV'WTR,LB:[1,1]F4POTS/LB
.DATA /
.DATA MAXBUF=512
.DATA //
.CLOSE
.WAIT F4P
TKB @'$DEV'WTR.BLD
SRD '$DEV'WTR.BLD/DE
SRD '$DEV'WTR/PU
