d $! DO	INDEX InputFile Outfile
È $!		Generate a cross reference index of a set of programs
,$!
$!	This program accepts a file of FORTRAN source and generates
ô$! an Index and thus Cross Reference to the usage of all sorts of
X$! things. More information can be found via:
¼$!
 $!		$ INFO INDEX CODES
„$!		$ INFO INDEX ERRORS
è$!
L$!	The command procedure prompts for the input file and output
°$! file if they are not given in the command.
$!
x$!	non ASCI FORTRAN is a problem, i.e.
Ü$! CHARACTER, TYPE*, etc.
@$!-end.of.info-
¤$
$ if(p1.eqs."" ) then inquire p1 "Input file {.FOR}"
l$ if(p1.eqs."" ) then exit
Ð$ if('f$locate(".",p1).eq.'f$length(p1) ) then p1 := 'p1'.for
4$ if(p2.eqs."" ) then inquire p2 "Output File {LP:}"
˜$ if(p2.eqs."" ) then p2 := "LP:"
ü$
`	$ assign/user 'p1' for005
Ä	$ assign/user 'p2' for006
(
$ run dra2:[sci]index
Œ
$
ð
$ delete for008.dat;0
T$ delete for009.dat;0