.IFACT SPY RES SPY
.IFINS SPY REM SPY
.ENABLE SUBSTITUTION
.SETS LDEV ""
.SETS OLD <UIC>
.ASK LIST LISTINGS
.IFF LIST .GOTO 10$
.ASKS LDEV LISTING DEVICE [DDU:]
.10$: .ASK RES DOES YOUR SYSTEM HAVE AN FCSRES
.ASKS DEV ENTER DEVICE FOR SPY.DAT [DDU:]
.IFT LIST ASN 'LDEV'=LI:
.IFF LIST ASN NL:=LI:
MAC SPY,LI:SPY=[200,200]RSXMC/PA:1,[1,1]EXEMC/ML,'OLD'SPY
.OPEN SPYBLD.CMD
.ENABLE DATA
SPY/CP/-FP/PR,LI:SPY=
[1,54]RSX11M.STB
'OLD'SPY,[1,24]MCR/LB:LKLST
/
UNITS=2
ASG='DEV'1
ASG=CO:2
TASK=SPY
UIC=[6,10]
PRI=69
STACK=200
.DISABLE DATA
.IFT RES .DATA LIBR=FCSRES:RO
.DATA //
.CLOSE
SET /UIC=[6,10]
TKB @'OLD'SPYBLD
SET /UIC='OLD'
PIP SPYBLD.CMD;*/DE,*.OBJ;*