.SETF INSZAP
.ENABLE SUBSTITUTION
MAC FCSRES.OBJ;1=FCSRES
.OPEN FCSRESBLD.CMD;1
.DATA FCSRES.TSK;1,TI:,SY:FCSRES.STB;1/-HD/PI=FCSRES
.DATA /
.DATA STACK=0
.DATA PAR=FCSRES:0:20000
.DATA //
.CLOSE
TKB @FCSRESBLD.CMD
.OPEN ZAPFCSRES.CMD;1
.DATA FCSRES.STB/AB
.DATA 24%
.DATA 
.SRES.STB
.DATA 21105
.DATA 26%
.DATA X
.CLOSE
.IFNINS ZAP .SETT INSZAP
.IFT INSZAP INS $ZAP
ZAP @ZAPFCSRES.CMD
.IFT INSZAP REM ZAP
PIP FCSRESBLD.CMD;1/DE,FCSRES.OBJ;1,ZAPFCSRES.CMD;1