3 calls to
WRTREE
WRITSA
WRITSB
IBFMS