.ENABLE SUBSTITUTION
.ASKS DK DIRECTORY OF DEVICE ( DDn )
.ASK WW CLEAN IT UP?
.ASKS NAME DIRECTORY FILENAME?
ASN 'DK':=AA:
.IFF WW .GOTO DIR
PIP AA:[*,*]*.*;*/PR/FO
PIP AA:[*,*]*.*;*/TR
SRD AA:[0,0]/-LI/WB
SRD AA:[*,*]/-LI/WB
.DIR:
PIP 'NAME'=AA:[*,*]/LI
PIP TECO.TEC=ONEDEL.TEC
TEC 'NAME'='NAME'
PIP 'NAME'/SP
PIP TECO.TEC;*/DE
PIP 'NAME';*/DE
PIP 'NAME'/DE