home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSLENS.FOR < prev    next >
Text File  |  1989-06-20  |  323b  |  14 lines
  1.         FUNCTION GSLENS(BSTRNG)
  2.         CHARACTER*1 BSTRNG(20)
  3. C
  4. C       This function returns the length in virtual coordinates of
  5. C          the string BSTRNG.   The current character size is assumed.
  6. C
  7.         INCLUDE GCCPAR.PRM
  8. C
  9.     EXTERNAL LEN
  10. C
  11.         GSLENS = (GSCWID()*CSIZE)*LEN(BSTRNG)
  12.         RETURN
  13.         END
  14.