!* Machine: PDP-11/70 System: IAS V3.0 Author: John Guidi Date: 25-July-80 Residence: [?,?]CTLIMP.TES Version: V1 Language: TECO V34 Useage: PDS> MUNG [?,?]CTLIMP.TES,filespec Effect: All files matching the filespec are duplicated. The duplicate files having varying length records, and implied carriage control. Note that wildcards are allowed, but that neither wild UIC's nor explicit versions are allowed. (If this were permissible, this macro would act like a breeder reactor) Note: This macro uses register Qa as a working register. *! This macro will create duplicates of all files matching the given file-specification. The duplicate files will have varying length records, and implied carriage control. The duplicate files are: -----------------------------------------  !* First see if a version was specified *! j :s; "N *** version cannot be specified! 13 10 oend ' !* Load :G* with the wildcard specification *! j iEN zj @i/ / hxa hk ma !file! :en "E oend ' !* fetch next wildcard spec *! iEB g* @i/ ec / hxa hk ma !* open and then close file *! :g* !* display the file name *! 13 10 ofile !* go see if there are more matches *! !end! !* terminate this macro *! ex