.GOTO 10
 
	This module accepts a DECtape number and enters a loop,
replacing specified files on the DOS tape with the latest copies
from the disk.  At the end, it will print a directory, if requested.
 
.10: .ASKS N GIVE DT
.SETS NUL ""
.ENABLE SUBSTITUTION
DMO DT'N':
MOU DT'N':/CHA=[FOR]
.LOOP: .ASKS NAME GIVE FILE
     .IF NAME = NUL .GOTO DIR
     FLX DT'N':'NAME'/DE
     FLX DT'N':/DO='NAME'/RS
.GOTO LOOP
.DIR: .ASK X LIST DIRECTORY ON LP
     .IFT X FLX LP:=DT'N':/LI