      subroutine ANNOUN
      include 'SIZE.INC'
      include 'LOCAL.INC'
      include 'UNITS.INC'
      double precision CURE
      write (TTYOUT(MACHNO),5000) VERSN
5000  format (//                                                        
     &10x,'             Welcome to EXAMS Release',F5.2/                 
     &10x,'           Exposure Analysis Modeling System'//              
     &10x,'      Technical Contact: Lawrence A. Burns, Ph.D.'/          
     &10x,'          U.S. Environmental Protection Agency'/             
     &10x,'                960 College Station Road'/                   
     &10x,'               Athens, GA 30605-2700 USA'/                   
     &10x,'         Phone: (706) 546-3511  (Fax) 546-3252'/             
     &10x,'        Internet: burns.lawrence@epamail.epa.gov'//          
     &10x,'            Latest Maintenance  09-Feb-1996'//               
     &10x,' Type HELP and press the RETURN key for command names,'/     
     &10x,'      HELP USER  for a summary of command functions,'/       
     &10x,'      HELP PAGES for a list of information pages,'/          
     &10x,' or   HELP EXAMS for introductory information.')
      write (TTYOUT(MACHNO),5010)
5010  format (/                                                         
     &' Please stand by while EXAMS checks the computational precision'/
     &' of this computer and initializes the Activity Data Base.'/)
      CURE = 1.0D+00
100   continue
      CURE = CURE/2.0
      if ((1.0D+00+CURE).gt.1.0D+00) go to 100
      FOURU = 8.0D+00*CURE
      return
      end
