S
PL_
PL_
PL_WRITE_STATE
*
      T$$$ = ST$IBUF
      ST$IBUF = ''
      MATWRITE ST$ARRAY ON PL$CONN.FD , ST$PLCB 'R%8'
      WRITE T$$$ ON PL$CONN.FD , ST$PLCB 'R%8' : '*IBUF'
      ST$IBUF = T$$$
      T$$$ = ''
