.SETF FCS
.ASK FCS USE FCSRES
PIP MSTRMD.OBJ;*/DE/NM,MSTRMD.TSK;*
F77 MSTRMD=MSTRMD/NOCK/NOTR
.OPEN MSTRMD.BLD
.ENABLE DATA
MSTRMD=MSTRMD
/
TASK=MSTRMD
PRI=60
.DISABLE DATA
.IFT FCS .DATA LIBR=FCSRES:RO:7
.DATA //
.CLOSE
TKB @MSTRMD.BLD
PIP MSTRMD.BLD;*/DE/NM,MSTRMD.OBJ;*