c greet - Greet User program 

      program greet

      character*80 text

      write(5) 'What is your name? '
      read(5,10) text
   10 format(a80)
      write(5,20) text, len(text)
   20 format(' Hello, ',a20,'! (Length: ',i,')')
      stop
      end