	.ENABLE QUIET
	.ENABLE SUBSTITUTION
	.SETF NOFILE
	.IF P1 EQ "" .ASKS $FILE FILE?
	.IF P1 NE "" .SETS $FILE P1
	.SETS FILNAM $FILE
	.SETS NAME FILNAM+".OBJ"
	.SETS TSKNAM FILNAM+".TSK;1"
	.TESTFILE 'NAME'
	.IF <FILERR> NE 1 .SETT NOFILE
	.IFT NOFILE .DISABLE QUIET
	.IFT NOFILE ; OBJECT FILE MISSING FOR  'NAME'
	.IFT NOFILE  .EXIT
	.OPEN 'FILNAM'.BLD;1
	.DATA 'TSKNAM'/CP/FP='FILNAM',LB:[1,1]F4POTS/LB
	.DATA /
	.DATA LIBR=F4PRES:RO
	.DATA //
	.CLOSE
	TKB @'FILNAM'.BLD
	PIP 'FILNAM'.BLD;1/DE
.EXIT:
