C Collection of code snippets by Arne Vajhøj C posted to INFO-VAX, INFO-TPU, MACRO32 and other (1990-1999) 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