home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff267.lzh / Diglib / diglib.zoo / diglib / GSPSTR.FOR < prev    next >
Text File  |  1989-06-20  |  654b  |  40 lines
  1.     SUBROUTINE GSPSTR(BSTRNG)
  2.     CHARACTER*1 BSTRNG(80)
  3. C
  4. C    THIS SUBROUTINE STROKES OUT THE CHARACTER STRING "BSTRNG" (A BYTE
  5. C    ARRAY WITH 0 AS A TERMINATOR) AT THE CURRENT POSITION.
  6. C
  7.     INCLUDE GCVPOS.PRM
  8.     INCLUDE GCCOFF.PRM
  9.     INCLUDE GCLTYP.PRM
  10. C
  11. C    DON'T DRAW CHARACTERS IN LINETYPES
  12. C
  13.     IOLD = ILNTYP
  14.     ILNTYP = 1
  15. C
  16.     NBYTE = 0
  17. 100    NBYTE = NBYTE + 1
  18. C
  19. C    SAVE THE (0,0) POSITION OF THE CHARACTER
  20. C
  21.     XOFF = XVPOS
  22.     YOFF = YVPOS
  23. C
  24. C    GET THE CHARACTER TO STROKE
  25. C
  26.     IICHAR = ICHAR(BSTRNG(NBYTE))
  27.     IF (IICHAR .EQ. 0) GO TO 200
  28. C
  29. C    STROKE THE CHARACTER
  30. C
  31.     CALL GSSTRK(IICHAR)
  32.     GO TO 100
  33. C
  34. C    RETURN LINE TYPE TO THAT OF BEFORE
  35. C
  36. 200    CONTINUE
  37.     ILNTYP = IOLD
  38.     RETURN
  39.     END
  40.