; 18 jly 85 esj converted
;;;       CTOI          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      E'F A:S(NWLS)
      E'O CTOI.(IN, I)
      I'R IN(1)
      I'R I, S
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
LBL0 W'R (.NOT.(IN(I) .EQ. 32 .OR. IN(I) .EQ. 9)), T'O LBL1
      I = I + 1
      T'O LBL0
LBL1 C'E
      W'R (.NOT.(IN(I) .EQ. 45 .OR. IN(I) .EQ. 43)), T'O LBL2
      S = IN(I)
      I = I + 1
      T'O LBL3
LBL2 C'E
      S = 0
LBL3 C'E
      LCLCTOI = 0
LBL4 W'R (.NOT.(IN(I) .NE. 10002)), T'O LBL6
      W'R (.NOT.(IN(I) .LT. 48 .OR. IN(I) .GT. 57)), T'O LBL7
      T'O LBL6
LBL7 C'E
      LCLCTOI = 10 * LCLCTOI + IN(I) - 48
LBL5 I = I + 1
      T'O LBL4
LBL6 C'E
      W'R (.NOT.(S .EQ. 45)), T'O LBL9
      LCLCTOI = -LCLCTOI
LBL9 C'E
      F'N LCLCTOI
      E'N