.;
.;	LISTS THE UN-DOCUMENTED C ROUTINES IN [5,1]
.;
.ENABLE SUBSTITUTION
.ENABLE QUIET
.DISABLE LOWERCASE
.;
.;
.SETS DEFDEV ""
.SETS DEFUIC ""
.SETS DEFEXT ".LIS"
@FNAMEPARS/LO 'P1'
.SETS INDFIL FILE+".IND"
.;
.OPEN TI:
.OPENR#1 'FILNAM'
.OPENR#2 'INDFIL'
.;
.; LOOP ARROUND HERE, READING IN THE LIS RECORD, AND SEEING IF IT EXISTS
.;	THE .IND FILE
.;
.RDLOOP:
	.; THIS WILL ALLWAYS BE IN THE OTHER FILE
	.READ#2 PRGNAM
	.IFT <EOF> .GOTO FINISH
	.SETS PNAM PRGNAM[1:6]+" "
	.TEST PNAM " "
	.SETS PNAM PNAM[1:<STRLEN>]
	.;
	.LISLP:
		.READ#1 PRGLIS
		.IFT <EOF> .GOTO FINISH
		.SETS PLIS PRGLIS[1:6]+" "
		.TEST PLIS " "
		.SETS PLIS PLIS[1:<STRLEN>]
		.IF PLIS EQ PNAM .GOTO RDLOOP
		.DATA 'PLIS' -------> 'PNAM'
		.GOTO LISLP
	.; END OF LISLP
.; END OF RDLOOP
.;
.FINISH:
	.CLOSE
	.CLOSE#1
	.CLOSE#2		
	.EXIT
