      INTEGER*4 I,N,L(1000)
      CHARACTER*255 S(1000)
      CALL LOGICAL_LOOKUP(S,L,N,'LNM$PROCESS_TABLE')
      DO 100 I=1,N
        WRITE(*,*) S(I)(1:L(I))
100   CONTINUE
      CALL LOGICAL_LOOKUP(S,L,N,'LNM$SYSTEM_TABLE')
      DO 200 I=1,N
        WRITE(*,*) S(I)(1:L(I))
200   CONTINUE
      END
