.ENABLE SUBSTITUTION
	.SETS SWITCH "/NOTR"
	.SETF NOFILE
	.SETT $NOSUB
	.SETS LSTSWT "/LIST"
	.SETF LST
	;'P1'
	.IF P1 EQ "" .ASKS $FILE FILE?
	.IFDF P1 .SETS $FILE P1
	.SETS REPORT $FILE
	.SETS NAME REPORT+".FTN"
	.TESTFILE 'NAME'
	.IF <FILERR> NE 1 .SETT NOFILE
	.IFT NOFILE .DISABLE QUIET
	.IFT NOFILE ; SOURCE FILE MISSING
	.IFT NOFILE  .GOTO EXIT
	.IF P2 NE "" .SETS SWITCH P2
	.IF P2 NE "" .AND  .IF P2 EQ LSTSWT[1:5]  .SETT LST
	.IFF LST F4P '$FILE'.OBJ;1='$FILE''SWITCH'
.10:	.IFT LST .XQT F4P ,TI:='$FILE'
.EXIT:	TCF 7