-49
	.MCALL	DELET$,OPEN$R				;+++RMS
-597,599
.TIDY1::		
	CLOSE$	#INPBLK		;CLOSE THE INPUT FILE
	CLOSE$	#OUTBLK		;CLOSE THE OUTPUT FILE
;
;+++RMS		DELETE THE TEMP SAVE FILE IF IT IS STILL OPEN.
;+++RMS
;
	CMP	#SAVDFN,SAVBLK+F.DFNB	;WAS DEFAULT NAME IN USE?+++RMS
	BNE	20$			;NO, DONT TRY TO DELETE	+++RMS
	OPEN$R	#SAVBLK		;OPEN FOR DELETE	+++RMS
	DELET$	#SAVBLK			;DELETE IF YOU CAN	+++RMS
20$:	CLOSE$	#SAVBLK			;CLOSE FOR GOOD MEASURE	+++RMS
/