home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / LEN.for < prev    next >
Encoding:
Text File  |  1991-05-22  |  349 b   |  16 lines
  1.       INTEGER FUNCTION LEN(STRNG)
  2.       IMPLICIT NONE
  3.       INTEGER IPTR
  4.       CHARACTER*1 STRNG(40)
  5.       IPTR = 1
  6. 95001 CONTINUE
  7.       IF (STRNG(IPTR).EQ.CHAR(126)) GOTO 95002
  8.       IF (STRNG(IPTR).EQ.CHAR(0)) GOTO 95002
  9.       IPTR = IPTR + 1
  10.       GOTO 95001
  11. 95002 CONTINUE
  12.       STRNG(IPTR) = CHAR(0)
  13.       LEN = IPTR - 1
  14.       RETURN
  15.       END
  16.