C*    SFSLP - LIST PROGRAMS
      SUBROUTINE SFSLP (INAME)

      INCLUDE 'SFSCM.FTN/NOLIST'

      DIMENSION INAME(3,102), ISHVC(36), JBUF(40)

      DATA IBLKS/'  '/, NOUT/6/
 510  FORMAT (' ', I5, ':' , 4X, 40A2)

      CALL SIVMV (IHVEC, ISHVC, 36)
      CALL SIVFL (IBLKS, IHVEC, 36)

      DO 200 I=1, NFILE
        IF (ILGFL .EQ. 0) NFID = I
        CALL SIVMV (INAME(1,I), IHVEC(17), 3)
        CALL SFSPI
        NL = NRFIL(I)
        NREC = 1 + NROFS(I)

        DO 100 J=1, NL
          CALL SFSPP(1)
          CALL SFS1DR (FID(1,1), NREC, 40, JBUF)
          NCH = (IRNSC (JBUF, 1, 80)+1)/2
          WRITE (NOUT, 510)  J, (JBUF(II),II=1,NCH)
 100    CONTINUE

 200  CONTINUE
      CALL SIVMV (ISHVC, IHVEC, 36)

      RETURN
      END