.; [XXX,YYY]FLE.CMD		MAO		8-MAY-80
.;
.; INDIRECT MCR FILE TO TRANSLATE AND COMPILE FLECS MODULES
.;
.; CALLING SEQUENCE:  @FLE NAME F4PSW
.;	WHERE	NAME=FILE NAME (WITHOUT EXTENSION) FOR FLECS INPUT FILE.
.;		F4PSW=ANY F4P SWITCHES TO BE USED (MAY BE BLANK).
.;
.; IF NAME IS NOT GIVEN (EG. @FLE<CR>), INFORMATION IS PROMPTED FOR
.;	UNTIL A ^Z IS GIVEN.
.; IF NAME IS GIVEN, THE GIVEN MODULE IS PROCESSED AND FLE.CMD EXITS.
.;
.; NOTE:  USES ..AT. FEAUTRES UNSUPPORTED UNDER 11M V3.2.  SEE
.;	MULTITASKER V11, #4, P 102.
.;
.; REVISIONS
.;
.;
	.ENABLE SUBSTITUTION
.;
	.IF P1 EQ "" .GOTO 10$		;MUST PROMPT FOR INPUT
.;
	.SETT WASCMD			;INPUT WAS IN COMMAND LINE
	.SETS NAM "'P1'"
	.SETS SW  "'P2'"
	.GOTO TRAN
.;
.10$:	.SETF WASCMD			;NO COMMAND LINE GIVEN, PROMPT
.;
.QUERY:
;
	.ASKS NAM GIVE FLE FILE NAME (^Z TO EXIT)
	.ASKS SW GIVE F4P SWITCHES
.;
.TRAN:
;
	FLE 'NAM','NAM'/-SP='NAM'
	.IF <EXSTAT> LE 1 .GOTO FORT
;
	.IF <EXSTAT> EQ 2 ;	FLECS TRANSLATION ERROR
	.IF <EXSTAT> EQ 4 ;	FLECS COMMAND LINE ERROR
	.GOTO FINI
.;
.FORT:
;
	F4P 'NAM','NAM'='NAM''SW'/-SP
;
	PIP 'NAM'.FLL='NAM'.LST/AP
	PIP 'NAM'.LST;*,'NAM'.FTN;*/DE
.;
.FINI:
	.IFF WASCMD .GOTO QUERY	;IF WAS NO CMD LINE, PROMPT FOR MORE
	.EXIT
.;
.; END OF FILE
