! DEVIS.COM - Build the TDEVIS program
!
r libr
obj:dev1=obj:tstlib/e
TstIasign

obj:dev2=obj:tstlib/e
TstFIcsi

^C
R LINK
BIN:TDEVIS,MAP:TDEVIS=OBJ:TDEVIS//
OBJ:TSTLIB
SY:F77OTS
OBJ:DEV1/O:1
OBJ:DEV2/O:1
//
^C
DEL OBJ:DEV1.OBJ
DEL OBJ:DEV2.OBJ