.IF P1 <> "" .GOTO 1
F77 TIMLOG=TIMLOG
.IF <EXSTAT> GT 1 .EXIT
.1:
.OPEN TIMBLD.CMD;1
.ENABLE DATA
TIMLOG/fp=TIMLOG,ACCSUB
/
LIBR=F77RES:RO
MAXBUF=512
UNITS=6
//
.DISABLE DATA
.CLOSE
TKB @TIMBLD
PIP TIMLOG.*/PU
PIP TIMLOG.OBJ;*/DE/NM
.EXIT:
BEL
