home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD2.img / d4xx / d499 / diglib / diglib.lzh / source / GSLENS.for < prev    next >
Text File  |  1991-05-22  |  394b  |  17 lines
  1.         REAL FUNCTION GSLENS(BSTRNG)
  2.         IMPLICIT NONE
  3.         CHARACTER*1 BSTRNG(20)
  4.         REAL GSCWID
  5. C
  6. C       This function returns the length in virtual coordinates of
  7. C          the string BSTRNG.   The current character size is assumed.
  8. C
  9.         INCLUDE DIGLIB$KOM:GCCPAR.PRM
  10. C
  11.     EXTERNAL LEN
  12.     INTEGER LEN
  13. C
  14.         GSLENS = (GSCWID()*CSIZE)*LEN(BSTRNG)
  15.         RETURN
  16.         END
  17.