INCLUDE (SCANLIB.PARAMS)
INCLUDE (SCANLIB.CMLIST)
INCLUDE (SCANLIB.CMTABL)
NOLINEUP
      CHARACTER*1 LINE(360)
    1 CONTINUE
      CALL CMREAD(359,  LINE,IEOF)
      WRITE(6,1001) (LINE(I),I=1,EOL)
 1001 FORMAT(6(1X,72A1/))
      CALL CMINIT
      IF (IEOF.EQ.0) THEN
      CALL CMSCAN(LINE)
      DO FOR ICMD=1,CMTBSZ
      IF (CMDFND(ICMD).EQ.1) THEN
      WRITE(6,2001) ICMD
 2001 FORMAT(' CMD=',I4)
      ENDIF
      END FOR
      DO FOR I=1,9
      DO FOR J=1,6
      IF (ILIST(J,I).NE.0) WRITE(6,2002) J,I,ILIST(J,I)
      IF (RLIST(J,I).NE.0) WRITE(6,2003) J,I,RLIST(J,I)
      IF (NLIST(J,I).NE.0) WRITE(6,2004) J,I,NLIST(J,I)
      ILEN = STLENG(J,I)
      IF (ILEN.NE.0) WRITE(6,2005) J,I,ILEN,(SLIST(K,J,I),K=1,ILEN)
 2002 FORMAT(' J,I,ILIST=',2I3,I9)
 2003 FORMAT(' J,I,RLIST=',2I3,E15.9)
 2004 FORMAT(' J,I,NLIST=',2I3,I9)
 2005 FORMAT(' J,I,LEN,SLIST=',3I3,1X,72A1)
      END FOR
      END FOR
      ELSE
      WRITE(6,9000) IEOF
 9000 FORMAT(' IEOF=',I3)
      ENDIF
      IF (IEOF.EQ.0) GOTO 1
      STOP
      END