QUOTES
Random Quotes

QUOTES is a FORTRAN90 program which extracts and displays a random "quote" from a file.

This can be a cheerful utility to invoke at login time. It's best used with a file of your favorite quotes, jokes, fortunes or song lyrics. To produce a quote, the program first examines a file containing a list of quote files. It selects one of these at random. Then it opens the selected quote file, and chooses a block of text at random (delimited by blank lines), and prints it.

Licensing:

The computer code and data files made available on this web page are distributed under the GNU LGPL license.

Languages:

QUOTES is available in a FORTRAN90 version.

Source Code:

• quotes.f90, the source code;

Quote Files:

• quote_files.txt, a file containing a list of the available quote files; the program needs to read this first!
• deep_thoughts.txt, Deep Thoughts;
• music_quotes.txt, Dave Moses's Music Lyric Quotes;
• my_quotes.txt, John Burkardt's Quotes of Note;
• plimpton.txt, Steve Plimpton's Sandia Quotebook;
• star_trek.txt, Star Trek Quotes;
• steven_wright.txt, Steven Wright;

List of Routines:

• MAIN is the main program.
• FILE_LINE_COUNT counts the number of lines in a file.
• FILE_LINE_GET gets a particular line of a file.
• FILE_PARA_COUNT counts the number of paragraphs in a file.
• GET_SEED returns a seed for the random number generator.
• GET_UNIT returns a free FORTRAN unit number.
• I4_UNIFORM returns a scaled pseudorandom I4.
• QUOTE_FILE_PRINT prints a given quote from a quote file.
• TIMESTAMP prints the current YMDHMS date as a time stamp.
• WORD_NEXT2 returns the first word in a string.

You can go up one level to the FORTRAN90 source codes.