0011# TEST10038   INTEGER SNUMBR, N, NCOL, I, NUM0021   BYTE INPUT(50)0015   REPEAT [0020      WRITE(5,1)0025      1 FORMAT ("$>")0033      READ(5,2,END=100) INPUT0025      2 FORMAT (50A1)0042      N=SNUMBR(INPUT, 1, 3, NUM, NCOL)0048      WRITE(5,3) N, (INPUT(I),I=NCOL,NCOL+9)0031      3 FORMAT (I7,2X,10A1)0011      ]0015   100 STOP0010   END^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^