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 / LOGLAB.FOR < prev    next >
Text File  |  1989-06-20  |  509b  |  18 lines
  1.         SUBROUTINE LOGLAB(NUM,STRNG)
  2.         CHARACTER*1 STRNG(14), LLABS(6,8)
  3.         DATA LLABS / '.','0','0','1',2*0,
  4.      1   '.','0','1',3*0,
  5.      2   '.','1',4*0,
  6.      3   '1',5*0,
  7.      4   '1','0',4*0,
  8.      5   '1','0','0',3*0,
  9.      6   '1','0','0','0',2*0,
  10.      7   '1','0','0','0','0',0/
  11.         IF (NUM .GT. -4 .AND. NUM .LT. 5) GO TO 100
  12.         CALL SCOPY('1E'//CHAR(0),STRNG)
  13.         CALL NUMSTR(NUM,STRNG(3))
  14.         GO TO 200
  15. 100     CALL SCOPY(LLABS(1,4+NUM),STRNG)
  16. 200     RETURN
  17.         END
  18.