.ENABLE SUBSTITUTION
.ASK SLB SUPERVISOR MODE LIBRARY
.ASK RLB FCSRES LIBRARY
F77 DTCAT=DTCAT.FOR/F77/NOTR
F77 DANY=DANY.FOR/F77/NOTR
F77 DAY=DAY.FOR/F77/NOTR
F77 DATMUN=DATMUN.FOR/F77/NOTR
F77 DTC=DTC.FOR/F77/NOTR
F77 GABY=GABY.FOR/F77/NOTR
F77 DHELP=DHELP.FOR/F77/NOTR
F77 MENU=MENU.FOR/F77/NOTR/CO:25.
F77 MISCHY=MISCHY.FOR/F77/NOTR
F77 MONTH=MONTH.FOR/F77/NOTR
F77 OUTPT=OUTPT/F77/NOTR
F77 STRIP=STRIP.FOR/F77/NOTR
F77 TIMINC=TIMINC.FOR/F77/NOTR
F77 WEEK=WEEK.FOR/F77/NOTR
F77 YEAR=YEAR.FOR/F77/NOTR
.OPEN DTCBLD.CMD
.DATA DTC/CP/FP=DTCAT,DANY,DAY,DTC,GABY,DHELP,TIMINC
.DATA MENU,MISCHY,MONTH,WEEK,STRIP,YEAR,DATMUN,OUTPT
.DATA /
.DATA TASK=...DTC
.IFT RLB .DATA LIBR=FCSRES:RO
.IFT SLB .DATA SUPLIB=FCSFSL:SV
.DATA ACTFIL=4
.DATA //
.CLOSE
TKB @DTCBLD