home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / h / house_ii.zip / FOR / DISCLAIM.FOR < prev    next >
Text File  |  1992-05-12  |  3KB  |  85 lines
  1.       SUBROUTINE DISCLAIM
  2.  
  3. C***    The following line must be used with Microsoft FORTRAN
  4. C      INTEGER*2 IHR,IMIN,ISEC,I100TH
  5.  
  6.       WRITE(*,1001)
  7.       WRITE(*,1000)
  8.       WRITE(*,1001)
  9.       WRITE(*,1002)
  10.       WRITE(*,1003)
  11.       WRITE(*,1004)
  12.       WRITE(*,1005)
  13.       WRITE(*,1006)
  14.       WRITE(*,1007)
  15.       WRITE(*,1008)
  16.       WRITE(*,1009)
  17.       WRITE(*,1010)
  18.       WRITE(*,1011)
  19.       WRITE(*,1012)
  20.       WRITE(*,1013)
  21.       WRITE(*,1014)
  22.       WRITE(*,1015)
  23.       WRITE(*,1001)
  24. 1000  FORMAT("                                  LEGAL ",
  25.      +       "NOTICE                                  ")
  26. 1001  FORMAT("                                        ",
  27.      +       "                                        ")
  28. 1002  FORMAT("      Neither Battelle, officers, truste",
  29.      +       "es, or staff of Battelle, nor any person")
  30. 1003  FORMAT(" acting on behalf of Battelle:          ",
  31.      +       "                                        ")
  32. 1004  FORMAT("      a.  Makes any warranty or represen",
  33.      +       "tation, expressed or implied, with      ")
  34. 1005  FORMAT("          respect to the accuracy, compl",
  35.      +       "eteness,or usefulness of the information")
  36. 1006  FORMAT("          contained in this product, or ",
  37.      +       "that the use of any information,        ")
  38. 1007  FORMAT("          apparatus, software, method, o",
  39.      +       "r process disclosed in this product may ")
  40. 1008  FORMAT("          not infringe privately owned r",
  41.      +       "ights; or                               ")
  42. 1009  FORMAT("      b.  Assumes any liability with res",
  43.      +       "pect to the use of, or for damages      ")
  44. 1010  FORMAT("          resulting from the use of, any",
  45.      +       " information, apparatus, software,      ")
  46. 1011  FORMAT("          method, or process disclosed i",
  47.      +       "n this product.                         ")
  48. 1012  FORMAT("      Reference to trade names or specif",
  49.      +       "ic commercial products, commodities, or ")
  50. 1013  FORMAT(" services in this product does not repre",
  51.      +       "sent nor constitute an endorsement,     ")
  52. 1014  FORMAT(" recommendation, or favoring by Battelle",
  53.      +       " of the specific commercial product,    ")
  54. 1015  FORMAT(" commodity, or service.                 ",
  55.      +       "                                        "//
  56.      +   15X,6(1H*),' WAITING 10 SEC .... ',6(1H*))
  57.  
  58. C***    Use the following four lines for Lahey F77L only
  59.       CALL TIMER(IT1)
  60. 100   CALL TIMER(IT2)
  61.       IF (IT2-IT1-1000) 100,101,101
  62. 101   CONTINUE
  63.  
  64. C***    Use the following four lines for Language Systems FORTRAN
  65. c      IT1 = JSECNDS(0)
  66. c100   IT2 = JSECNDS(IT1)
  67. c      IF (IT2 - 10) 100,101,101
  68. c101   CONTINUE
  69.  
  70. C***    Use the following lines for FORTRAN implementations with VAX extensions
  71. c      T1 = SECNDS(0.0)
  72. c100   T2 = SECNDS(T1)
  73. c      IF (T2 - 10.0) 100,101,101
  74. c101   CONTINUE
  75.  
  76. C***    Use the following lines for Microsoft FORTRAN
  77. c      CALL GETTIM(IHR,IMIN,ISEC,I100TH)
  78. c      T1 = IHR*3600. + IMIN*60. + ISEC + I100TH/100.
  79. c100   CALL GETTIM(IHR,IMIN,ISEC,I100TH)
  80. c      T2 = IHR*3600. + IMIN*60. + ISEC + I100TH/100.
  81. c      IF (T2 - T1 - 10.0) 100,101,101
  82. c101   CONTINUE
  83.  
  84.       END
  85.