.IFNDF $FCS .ASK $FCS LINK WITH FCS RESIDENT LIBRARY
.ENABLE SUBSTITUTION
.START:
MAC F4PLAS.OBJ;1=F4PLAS
.OPEN F4PLASBLD.CMD;1
.DATA F4PLAS.TSK;1,TI:,SY:F4PLAS.STB;1/-HD/-PI=F4PLAS,SY:[1,1]SHORT,F4POTS/LB,
.DATA SY:[1,1]SYSLIB/LB
.DATA /
.DATA STACK=0
.IFT $FCS.DATA LIBR=FCSRES:RO:7
.IFT $FCS .DATA PAR=F4PLAS:140000:20000
.IFF $FCS .DATA PAR=F4PLAS:140000:40000
;.DATA GBLXCL=$OTI
.DATA //
.CLOSE
TKB @F4PLASBLD.CMD;1
.OPEN ZAPSTB.CMD;1
.ENABLE DATA
F4PLAS.STB/AB
656%
660/
60352
660%
X
.DISABLE DATA
.CLOSE
INS $ZAP
ZAP @ZAPSTB.CMD
REM ZAP
PIP F4PLASBLD.CMD;1/DE,F4PLAS.OBJ;1,ZAPSTB.CMD;1
.EXIT:EOF F4PLAS