.ENABLE SUBSTITUTION
	.ENABLE QUIET
	.OPENR	#1	FILES.DAT
.LOOP:	.READ #1 FILE
	.IFT <EOF> .GOTO DONE
	.PARSE FILE "." FILE1 FILE2
	F4P 'FILE1','FILE1'='FILE'/NOSP/NOWR/CO:30/LI:1/TR:NONE
	PRI 'FILE1'.LST/DELETE
	PIP 'FILE1'.OBJ/PU
	.GOTO LOOP
.DONE:	.EXIT