# TEST1
   INTEGER SNUMBR, N, NCOL, I, NUM
   BYTE INPUT(50)
   REPEAT [
      WRITE(5,1)
      1 FORMAT ("$>")
      READ(5,2,END=100) INPUT
      2 FORMAT (50A1)
      N=SNUMBR(INPUT, 1, 3, NUM, NCOL)
      WRITE(5,3) N, (INPUT(I),I=NCOL,NCOL+9)
      3 FORMAT (I7,2X,10A1)
      ]
   100 STOP
   END