! DATES.COM - Build the TDATES program
!
r libr
obj:dates1=obj:tstlib/e
TstDates

obj:dates2=obj:tstlib/e
TstIdcomp

^C
R LINK
BIN:TDATES,MAP:TDATES=OBJ:TDATES/m:1110/b:1110//
OBJ:TSTLIB
SY:F77OTS
OBJ:DATES1/O:1
OBJ:DATES2/O:1
//
^C
DEL OBJ:DATES1.OBJ
DEL OBJ:DATES2.OBJ