.;DTRDLIST.CMD
.;COMMAND FILE TO GET DTR LISTING OF MAC REPLACEMENT DOCUMENTS
.;MODIFIED BY T LAHEY 3-24-80
.;
	.ENABLE SUBSTITUTION
	.SETS OPER ":DOCLISTALL"
	.SETF D
	.ASK LISTT DO YOU WANT INFORMATION ONLY ON DISTRUBUTED DOCUMENTS
	.IFT LISTT .SETS OPER ":DOCLISTDIS"
	.ASK TYPE DO YOU WANT THE INFO DISPLAYED AT THE TERMINAL
	.OPEN DTR.CMD
.ENABLE DATA
SET DICTIONARY [20,25]LIB.DIC
READY MACRDOCS SHARED READ
'OPER'
.DISABLE DATA
	.CLOSE
	DTR @DTR
	PIP DTR.CMD;*/DE
	.IFT TYPE TYPE A.TMP
	.IFT TYPE .ASK D SAVE OUTPUT
	.IFT TYPE .IFF D  PIP A.TMP;*/DE
	.IFF TYPE PRINT A.TMP
	/