home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / NUMSTR.FOR < prev    next >
Text File  |  1989-06-20  |  371b  |  23 lines
  1.         SUBROUTINE NUMSTR(NVAL,STRNG)
  2.         CHARACTER*8 BSTRNG
  3.     CHARACTER*1 TSTRNG(8),STRNG(8),BNULL
  4.     EQUIVALENCE (BSTRNG,TSTRNG(1))
  5.     DATA BNULL /0/
  6. C
  7. C
  8.     WRITE(BSTRNG,100) NVAL
  9. 100    FORMAT(I8)
  10. C
  11.     I=1
  12.     J=1
  13. 10    IF(ICHAR(TSTRNG(I)).EQ.32)GO TO 20
  14.     STRNG(J)=TSTRNG(I)
  15.     J=J+1
  16. 20    I=I+1
  17.     IF(I.LE.8) GO TO 10
  18.     DO 30 I = J,8
  19.     STRNG(I)=BNULL
  20. 30    CONTINUE
  21.         RETURN
  22.         END
  23.