.ENABLE SUBSTITUTION

	.TESTFILE SY:CHAPA.SAV
	.IF <FILERR> = 1 .GOTO CHAP
	;File not found - SY:CHAPA.SAV
	.EXIT

.CHAP:
	.ENABLE QUIET
	DIR/BR/COL:1/OUT:CHAPA.TMP *.SAV

	.OPENR #0 CHAPA.TMP
	.OPEN #1 CHAPA.RUN
	.SETN N 0
.LOOP:
	.READ #0 S
	.IFT <EOF> .GOTO CLOS
	.SETS C S[1:1]
	.IF C = " " .GOTO LOOP

	.PARSE S " " NAME JUNK
	.IF JUNK = "" .GOTO FSET
	.PARSE JUNK "." JUNK EXT
	.SETS S "'NAME'.'EXT'"
.FSET:
	.IF N = 0 .SETS F S
	.IF N <> 0 .SETS F "'F','S'"
	.INC N
	.IF N = 6 .DATA #1 CHAPA 'F'
	.IF N = 6 .SETN N 0
	.GOTO LOOP
.CLOS:
	.IF N <> 0 .DATA #1 CHAPA 'F'
	.CLOSE #1
	.CLOSE #0

	$@CHAPA.RUN
	DEL/NOQ CHAPA.(TMP,RUN)