$ set verify
$ allocate mta0: tape
$ mount/foreign/den=1600  tape
$ run nonsupt$disk:[nonsupt.copynl]copynl
attr
2000
80
n
y
y
write
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]CUBRT.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]DOT.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]EG.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]ELCPOT.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]F.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]GLEGEN.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]LINEQ.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]LMOLMO.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]LSTSQ.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]MAIN.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]MOMENT.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]PFUNC.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]PLM.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]PN.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]QUAD3.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]REP.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]RHOMOL.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]SECOND.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]SELFX.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]SLAFIT.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]SLATE.FOR;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL]VECSUM.FOR;1

attr
2640
132
n
y
y
write
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL.DATA]COCO.DAT;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL.DATA]COCO.OUT;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL.DATA]COCO.PUN;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL.DATA]POTSURF.COM;1
PARKER_DISK:[PARKER.POTENTIAL.MOLMOL.DATA]STRT.DAT;1

stop
$ dismount mta0:
$ deallocate mta0:
$ set noverify