.ENABLE SUBSTITUTION
	.SETS S$PROC <FILSPC>
	.SETS S$MCR ""
	.IF <CLI> <> "MCR"	.SETS S$MCR ""
;+
;		'S$PROC'
;
;	Build READ - an ad-hoc indexed file reader
;-
	.ASKS [0:3:"F77"] S$F77 What is your F77 compiler
	.ASKS [::"LB:[1,1]F77RMSOTS"] S$OTS Where is your F77 RMS OTS

	;
	'S$MCR''S$F77' READ,READ/-SP=READ
	'S$MCR''S$F77' UPCASE,UPCASE/-SP=UPCASE
	.OPEN READBLD.CMD
	.DATA READ/CP/FP = READ
	.DATA UPCASE
	.DATA 'S$OTS'/LB
	.DATA LB:[1,1]RMSLIB/LB:R0AUTL:R0IMPA:RMSSYM
	.DATA LB:[1,1]RMSLIB/LB:R0EXSY
	.DATA /
	.DATA UNITS	= 6
	.DATA ASG	= NL:4
	.DATA LIBR	= RMSRES:RO
	.DATA MAXBUF	= 4096
	.DATA TASK	= ...REA
	.DATA //
	.CLOSE
	'S$MCR'TKB @READBLD