.ENABLE SUBSTITUTION
.ASKS ANS ASSEMBLIES? ["Y"es/"N"o/"S"ome]:
.IF ANS EQ "N" .GOTO 20
.IF ANS EQ "S" .GOTO 10
.SETT S1
.SETT S2
.SETT S3
.SETT S4
.SETT S5
.SETT S6
.SETT S7
.SETT S8
.SETT S9
.SETT S10
.SETT S11
.SETT S12
.SETT S13
.SETT S14
.10:
.IFNDF S2 .ASK S2 ASSEMBLE CILDAT
.IFT S2 MAC CILDAT,CILDAT/CRF/-SP=CILCOM,CILDAT
.IFNDF S3 .ASK S3 ASSEMBLE CILTIO
.IFT S3 MAC CILTIO,CILTIO/CRF/-SP=CILCOM,CILTIO
.IFNDF S1 .ASK S1 ASSEMBLE CILINI
.IFT S1 MAC CILINI,CILINI/CRF/-SP=CILCOM,CILINI
.IFNDF S4 .ASK S4 ASSEMBLE CILLST
.IFT S4 MAC CILLST,CILLST/CRF/-SP=CILCOM,CILLST
.IFNDF S8 .ASK S8 ASSEMBLE CILDMP
.IFT S8 MAC CILDMP,CILDMP/CRF/-SP=CILCOM,CILDMP
.IFNDF S10 .ASK S10 ASSEMBLE CILBLD
.IFT S10 MAC CILBLD,CILBLD/CRF/-SP=CILCOM,CILBLD
.IFNDF S11 .ASK S11 ASSEMBLE CILLOD
.IFT S11 MAC CILLOD,CILLOD/CRF/-SP=CILCOM,CILLOD
.IFNDF S13 .ASK S13 ASSEMBLE CILEDT
.IFT S13 MAC CILEDT,CILEDT/CRF/-SP=CILCOM,CILEDT
.IFNDF S14 .ASK S14 ASSEMBLE CILPAT
.IFT S14 MAC CILPAT,CILPAT/CRF/-SP=CILCOM,CILPAT
.IFNDF S12 .ASK S12 ASSEMBLE CILMKE
.IFT S12 MAC CILMKE,CILMKE/CRF/-SP=CILCOM,CILMKE
.IFNDF S6 .ASK S6 ASSEMBLE CILDIR
.IFT S6 MAC CILDIR,CILDIR/CRF/-SP=CILCOM,CILDIR
.IFNDF S5 .ASK S5 ASSEMBLE CILDTE
.IFT S5 MAC CILDTE,CILDTE/CRF/-SP=CILCOM,CILDTE
.IFNDF S7 .ASK S7 ASSEMBLE CILIND
.IFT S7 MAC CILIND,CILIND/CRF/-SP=CILCOM,CILIND
.IFNDF S9 .ASK S9 ASSEMBLE CILREG
.IFT S9 MAC CILREG,CILREG/CRF/-SP=CILCOM,CILREG
.20:
.ERASE LOCAL
.ASK ANS BUILD
.IFT ANS TKB @CILUS.BLD
.ASK ANS INSTALL
.IFF ANS .GOTO 25
REM ...CIL
INS CILUS
.25:
.ASK ANS FCSRES BUILD
.IFT ANS TKB @CILFCS.BLD
.ASK ANS INSTALL
.IFF ANS .GOTO 30
REM ...CIL
INS CILUS
.30:
.EXIT
