.ENABLE SUBSTITUTION
.; 'P1' is the suffix for the filenames
.; 'P2' is S for single precision, D for double precision
PIP FCSTS'P1'.MAP;*/DE/NM
PIP FCSTS'P1'.TSK;*/DE/NM
.OPEN FCSTKB.TMP
.DATA SY:FCSTS'P1'/CP/FP,FCSTS'P1'/-SP=SY:FCSTS'P1'/MP
.DATA UNITS = 33
.DATA ASG = TI:13:18:19
.DATA ASG = SY:5:6:7:8:9:10:11:12
.DATA EXTTSK= 952 
.DATA //
.CLOSE
.OPEN FCSTS'P1'.ODL
.DATA .ROOT DEC
.DATA DEC: .FCTR SY:FCSTS'P1'-FCS'P2'PL/LB-LB:[1,1]BASIC2/LB
.DATA .END
.CLOSE
TKB	@FCSTKB.TMP
PIP	FCSTKB.TMP;*/DE
PIP FCSTS'P1'.OBJ;*/DE/NM
PIP FCSTS'P1'.ODL;*/DE