swi
assign db2:[1,8] in
run $link 
edrt1/z,edrt1/a,edrt1=in:edrt,in:ed,in:edio,in:edins/x/h:#177776/u:#4000/c
in:rsxovr/c
in:edrep,in:edupd,in:edtlib,in:edtrap,in:edgetarg,in:edcore/c
in:edpage,in:edswi,in:edmi/c
in:sc,in:schelp,in:lnfill,in:edinit,in:dsklup/c
in:edlasc,in:edsrch,in:edend,in:edfind,in:edjrn/c
in:edbig
.99998
^Z
run $silus
edrt1.rts=edrt1
^Z
exe ut remove edrt1
pip (0,1)*.*/mo:16=edrt1.rts
exe ut add edrt1
pip
edrt1.sav,edrt1.lst,edrt1.stb/de
^Z
swi