Trigger code: write of pur-ctrl

{trigs/wraud.i pur-ctrl}