.; [201,14]FLECMP.CMD		MAO	20-FEB-80
.ENABLE SUBSTITUTION
.ENABLE GLOBAL
.;
.; INDIRECT MCR FILE TO TRANSLATE, COMPILE AND ASSEMBLE FLE MODULES.
.;
.;*****************************************************************************
.; NEVER DELETE FLECS FTN FILES.  SAVE FOR TRANSPORTING FLECS TO OTHER COMPUTERS
.;*****************************************************************************
.;
.; REVISIONS
.; 14-FEB-80 (MAO) ADD LAMPFI
.; 20-FEB-80 (MAO) ADD ASUB
.; 09-MAY-80 (MAO) CONVERT FROM 11D TO 11M
.; 12-MAY-80 (MAO) CALL AFF ONLY IF IT IS INSTALLED
.; 22-DEC-82 (MAO) DEFINE AND USE SYMBOL $VMS
.; 13-Jun-83 (MAO) Create both versions of ASUB at one time.
.; 07-MAR-84 (MAO) ADD ISUB.
.; 13-AUG-84 (MAO) SEPARATE FLECS AND ALECS.
.; 850304mao Ask if user wants to FLECS .FLX sources.
.;
.IFNDF $DV .ASKS $DV WHICH DEVICE ARE FILES ON
.SETS UIC "[201,14]"
.SETS DIR "'$DV''UIC'"
.SETS SRCUIC "[201,13]"
.;
.5$:
.IF P1 EQ "Y" .OR .IF P1 EQ "N" .GOTO 10$
.ASKS P1 Should existing FLE.TSK be used on .FLX sources?
.GOTO 5$
.;
.10$:
.;
SET /UIC='UIC'
TIM
;
MAC 'DIR'FILERSX,'DIR'FILERSX/-SP='$DV''SRCUIC'FILERSX
PIP 'DIR'FILERSX.LST,FILERSX.OBJ/PU
;
F77 'DIR'FSUB,'DIR'FSUB/-SP='$DV''SRCUIC'FSUB.FFF
PIP 'DIR'FSUB.LST,FSUB.OBJ/PU
;
.IF P1 EQ "Y" FLE 'DIR'A,'DIR'A/-SP='$DV''SRCUIC'A/CO:FLECS
F77 'DIR'A,'DIR'A/-SP='DIR'A
PIP 'DIR'A.FLL,'DIR'A.OBJ,'DIR'A.LST/PU
;
.IF P1 EQ "Y" FLE 'DIR'L,'DIR'L/-SP='$DV''SRCUIC'L/CO:FLECS
F77 'DIR'L,'DIR'L/-SP='DIR'L
PIP 'DIR'L.FLL,'DIR'L.OBJ,'DIR'L.LST/PU
;
.IF P1 EQ "Y" FLE 'DIR'M,'DIR'M/-SP='$DV''SRCUIC'M/CO:FLECS
F77 'DIR'M,'DIR'M/-SP='DIR'M
PIP 'DIR'M.FLL,'DIR'M.OBJ,'DIR'M.LST/PU
;
.IF P1 EQ "Y" FLE 'DIR'LAMPFI,'DIR'LAMPFI/-SP='$DV''SRCUIC'LAMPFI/CO:FLECS:PDP
F77 'DIR'LAMPFI,'DIR'LAMPFI/-SP='DIR'LAMPFI
PIP 'DIR'LAMPFI.FLL,'DIR'LAMPFI.OBJ,'DIR'LAMPFI.LST/PU
;
.IF P1 EQ "Y" FLE 'DIR'ISUB,'DIR'ISUB/-SP='$DV''SRCUIC'ISUB/CO:PDP
F77 'DIR'ISUB,'DIR'ISUB/-SP='DIR'ISUB
PIP 'DIR'ISUB.FLL,'DIR'ISUB.OBJ,'DIR'ISUB.LST/PU
;
.IF P1 EQ "Y" FLE 'DIR'STRING,'DIR'STRING/-SP='$DV''SRCUIC'STRING
F77 'DIR'STRING,'DIR'STRING/-SP='DIR'STRING
PIP 'DIR'STRING.FLL,'DIR'STRING.OBJ,'DIR'STRING.LST/PU
;
.IF P1 EQ "Y" FLE 'DIR'FILE,'DIR'FILE/-SP='$DV''SRCUIC'FILE/CO:FLECS:PDP
F77 'DIR'FILE,'DIR'FILE/-SP='DIR'FILE
PIP 'DIR'FILE.FLL,'DIR'FILE.OBJ,'DIR'FILE.LST/PU
;
TIM
.;
.; SAVE MOST RECENT COPY OF .FTN FILES FOR EXPORT TO PLACES W/O FLE.TSK
.;
PIP *.FTN;*/PR:0
PIP *.FTN/PU
PIP *.FTN;*/PR/SY:RWE/OW:RWE/GR:RWE/WO:R
.;
.; END OF FILE FLECMP.CMD