S
PL_
PL_
PL_WRITEN{%},{%}ON{%}{WTHEN\ELSE}
*
      S$ = CALLFN(                 \
                 '08':OCONV({%2},'MCDX')'R%4':      \
                 FNR.WRITE:                         \
                 OCONV({%3},'MCDX')'R%4':           \
                 OCONV({%2},'MCDX')'R%4':           \
                 {%1}                               \
                )
*
      IF S$[7,4] = IPX.SOCKET.NO THEN
         RES = OCONV(S$[11,4],'MCXD')
         IF RES > 32768 THEN
            RES = RES - 65536
         END
         ERR = 0
      END ELSE
         ERR = 1
         RES = 0
      END
*
      IF NOT(ERR) AND RES >= 0 {%4}
