INTEGER FUNCTION ITOC(INT, STR, SIZE)
      INTEGER IABS, MOD
      INTEGER I, INT, INTVAL, J, K, SIZE
      INTEGER STR(10000)
      INTVAL = IABS(INT)
      STR(1) = 10002
      I = 1
23000 CONTINUE
      I = I + 1
      STR(I) = 48 + MOD(INTVAL,10)
      INTVAL = INTVAL / 10
23001 IF(.NOT.(INTVAL .EQ. 0 .OR. I .GE. SIZE))GOTO 23000
23002 CONTINUE
      IF(.NOT.(INT .LT. 0 .AND. I .LT. SIZE))GOTO 23003
      I = I + 1
      STR(I) = 45
23003 CONTINUE
      ITOC = I - 1
      J = 1
23005 IF(.NOT.(J .LT. I))GOTO 23007
      K = STR(I)
      STR(I) = STR(J)
      STR(J) = K
      I = I - 1
23006 J = J + 1
      GOTO 23005
23007 CONTINUE
      RETURN
      END