      REM PLW.COMMON
*PIC-LAN
*INCLUDE
*
*
*Y
*
*
*
*
*
      COMMON /TS/ TS$COMMON(20)
*
      EQUATE TS$LISTEN.LIST      TO TS$COMMON(1)
      EQUATE TS$SERVER.NAME      TO TS$COMMON(2)
*
      EQUATE TS$ST$STATE         TO ST$ARRAY(11)
      EQUATE TS$ST$AUTH          TO ST$ARRAY(12)
