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