-49
	.MCALL	OPEN$R			;+++RMS
-60
TMPNAM:	.ASCIZ	/[OUTPUT FILE IS NAMED EDITOR.TMP]/
-91,99
	BNE	60$		;NO, DONT TRY TO DELETE
;			;DELETE ORIGINAL INPUT FILE AND TEMP INPUT +++RMS
;			;FILE WHEN REQUESTED.			   +++RMS
	BIT	#DELINP,SW2	;WAS DELETE INPUT REQUESTED?   +++RMS
	BEQ	55$		;NO, FORGET ABOUT ORIGINAL         +++RMS
	DELET$	#INPBLK		;YES,DELETE WHATEVER INPUT         +++RMS
	TST	OUTFIL+10	;WAS DEFAULT OUTFILE IN USE?       +++RMS
	BNE	60$		;NO, ORIG INPUT JUST DELETED       +++RMS
	TST	INPVER		;WAS THERE EVER AN ORIG INPUTFILE? +++RMS
	BEQ	60$		;NO, THEN THATS ALL TO DELETE      +++RMS
	MOV	INPVER,INFILN+10 ;YES, SET TO ORIGINAL INPUT VERS +++RMS
	OPEN$R	#INPBLK		;REOPEN THE ORIG INPUTFILE        +++RMS
	DELET$	#INPBLK 		;CLOSE/DELETE ORIG	   +++RMS
	MOV	OUTVER,INFILN+10	;RESET NO VER FILENAME DESC+++RMS
	BR	60$		;GO PROCESS OUTFILE NOW
55$:                            ;HERE TO DELETE TEMP INPUT FILE    +++RMS
	TST	OUTFIL+10	;USING A DEFAULT OUTFILE+          +++RMS
	BNE	60$		;NO, DONT DELETE ORIGNAL INPUT     +++RMS
	DELET$	#INPBLK 	;YES, CLOSE+DELETE TEMP INPUT FILE  +++RMS
60$:	MOVB	(SP)+,$BLKON	;RESTORE BLOCK ON/OFF FLAG
	CLOSE$	#INPBLK		;CLOSE INPUT FILE IF ANY
	TSTB	@CWDS		;SEE IF A NEW OUTPUT FILE NAME
	BNE	62$		;WAS GIVEN IN EXIT OR CLOSE.
        TST     OUTFIL+10       ;USING A DEFAULT FILE NAME,TEMP?   +++RMS
        BEQ     65$             ;YES, GO RENAME TO INPUT FILE NAME +++RMS
        BR      80$             ;NO, GO SET UP TO USE TEMP HEREAFTER++RMS
62$:                            ;HERE TO PARSE FILENAME AND RENAME +++RMS
	MOV	CWDS,R1		;  GET FILE NAME
-103
65$:                            ;HERE TO RENAME OUTFILE TO INFILE  +++RMS
-110,114
	TST	OUTFIL+10	;WAS DEFAULT NAME IN USE?	+++RMS
	BNE	80$		;NO, DONT NEED TMPNAME MESSAGE	+++RMS
	JSR	R0,TYPED	;YES, GIVE HIM A WARNING MSG	+++RMS
	TMPNAM			;= OUTFILE HAS EDITOR.TMP NAME	+++RMS
80$:				;+++001
	.IF	DF,R$$11D		;+++001
	CLOSE$	#INPBLK			;+++001
-150,154
        CLR     OUTFIL+10       ;CLEAR FILE NAME COUNT IN FN DESC   +++RMS
        CLR     OUTFIL+12       ;CLEAR FILENAME STRING POINTER      ++RMS
;                               ;WILL THUS CAUSE THE DEFAULT FILE  +++RMS
;                               ; NAME DESCRIPTER TO BE USED.   +++ +++      
	MOV	OUTVER,INFILN+10	;RESET TO IGNOR VERSION NUMBER
10$:	JMP	OKNSF		;REOPEN INPUT AND OUTPUT FILES
/