#MCRLINE.RAT
#
# This is a template file to allow a program to respond to a command line
#  following normal MCR conventions. 
#  If the program is installed as ...PRG it may be call from MCR
#   by "PRG"  which will cause prompting for a command line,
#   by PRG INPUT_FILE_SPEC = OUTPUT_FILE_SPEC,
#   or by PRG @INDIRECT_COMMAND_FILE_NAME
#
#  The input file is read from STDLUNIN and the output file written on
#	STDLUNOUT
#
#  This becomes the top level routine and user code is called as a subroutine.
#  See the RATFOR Library discussion of SETFLT for more details.
#
# To use this template:
#
#	Fill in the indicated definitions.  Place this either at the beginning
#	of your main program file and define your main program as a
#   	subroutine. 
#
#******************* DEFINITIONS TO BE SUPPLIED *************************
#
DEFINE (PROMPT= )	# 3 CHARACTER PROMPT STRING (E.G. "PMP")
DEFINE (INPUTEXT= )	# DEFAULT EXTENSION FOR INPUT FILE (E.G. ".IN")
DEFINE (OUTPUTEXT= )	# DEFAULT EXTENSION FOR OUTPUT FILE (E.G. ".OUT")
DEFINE (PROGNAME= )	# NAME OF YOUR PROGRAM TO BE CALLED AS A SUBROUTINE
			# (E.G. SUBROU)
#
#******************* END OF DEFINITIONS TO BE SUPPLIED ******************
#
INCLUDE DEFN/NL		# STANDARD DEFINITIONS
#
INTEGER SETFLT
#
    WHILE( SETFLT(STDLUNTI, PROMPT,INPUTEXT,OUTPUTEXT,STDLUNIND) == YES)
    	CALL PROGNAME
    CALL EXIT
    END