Introduction
Statistics
Contact
Development
Disclaimer
Help
sdf.org home page
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