NORMAL MODE IS INTEGER
            DIMENSION M(1000)

            M(1) = 1
            THROUGH GENMRT, FOR N=2, 1, N.G.1000
            M(N) = 1
            THROUGH GENMRT, FOR K=2, 1, K.G.N
GENMRT      M(N) = M(N) - M(N/K)

            PRINT COMMENT $ FIRST 99 MERTEN NUMBERS ARE$
            VECTOR VALUES F9 = $S3,9(I2,S1)*$
            VECTOR VALUES F10 = $10(I2,S1)*$

            PRINT FORMAT F9, M(1), M(2), M(3), M(4), M(5), M(6),
          0                  M(7), M(8), M(9)

            THROUGH SHOW, FOR N=10, 10, N.GE.100
SHOW        PRINT FORMAT F10, M(N), M(N+1), M(N+2), M(N+3), M(N+4),
          0   M(N+5), M(N+6), M(N+7), M(N+8), M(N+9), M(N+10)

            ZERO = 0
            CROSS = 0
            THROUGH ZC, FOR N=1, 1, N.G.1000
            WHENEVER M(N).E.0, ZERO = ZERO + 1
ZC          WHENEVER M(N).E.0 .AND. M(N-1).NE.0, CROSS = CROSS + 1

            VECTOR VALUES FZ = $13HM(N) IS ZERO ,I2,S1,5HTIMES*$
            PRINT FORMAT FZ, ZERO

            VECTOR VALUES FC = $18HM(N) CROSSES ZERO ,I2,S1,5HTIMES*$
            PRINT FORMAT FC, CROSS

            END OF PROGRAM