home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / LEN.FOR < prev    next >
Text File  |  1989-06-20  |  302b  |  14 lines
  1.       FUNCTION LEN(STRNG)
  2.       CHARACTER*1 STRNG(40)
  3.       IPTR = 1
  4. 95001 CONTINUE
  5.       IF (STRNG(IPTR).EQ.CHAR(126)) GOTO 95002
  6.       IF (STRNG(IPTR).EQ.CHAR(0)) GOTO 95002
  7.       IPTR = IPTR + 1
  8.       GOTO 95001
  9. 95002 CONTINUE
  10.       STRNG(IPTR) = CHAR(0)
  11.       LEN = IPTR - 1
  12.       RETURN
  13.       END
  14.