	.ENABLE QUIET
	.;
	.; This command file is used to reformat macro listing file(s)
	.; using Teco so they can be transmitted using RSXNET.
	.;
	SRD TEC.DAT=*.LST/NA
	.OPENR #1 TEC.DAT
	.READ #1 FILE
	.DISABLE QUIET
.LOOP:
	.READ #1 FILE
	.IFT <EOF> .GOTO 100
	TEC 'FILE'
	.GOTO LOOP
.100:	.CLOSE #1
	.ENABLE QUIET
	DELETE TEC.DAT;*
	PURGE *.LST
	.DISABLE QUIET
	;
	; All finished... time to RSXNET .....
	;
