PROGRAM WORD !! {<In_file .or. Words} {>Out_file} {-Flags}
c.---------------------------------------------------------------------
c.	This program is meant to act as an on line Dictionary for
c. the "legal" spelling or words.It looks up the input word in its
c. 35,000 word dictionary. Don't Check: Words starting with Non alpha,
c. Single character words, Trailing punctuation.
c.---------------------------------------------------------------------
c.Cmd---v
c.	<In_file	.. File to be checked
c.	<*		.. Process the same file
c.	=Dictionay	.. Read in a dictionary file
c.	aftermath	-- Searches for the word "aaaa"
c.	abstract...bb	-- Searches for "aa" abundant "bb" !! "bb" optional
c.	aa?bb	-- Searches for "aa"X"bb" where "X" is one any Alpha
c.	>Out_file	.. Resulting output
c.	/EDIT	.. Edit the current "Old_file"
c.	/EDT	.. edit the current "Old_file"
c.	EXIT	.. Exit {after processing IN_file}
c.	$ commandeered	.. Issue the DCL command
c.	-B	.. Output a Bell on errors
c.	-L	.. Output each word on a Separate line
c.	-P	.. Pack the words together {if not -L}
c.	-U	.. Show multiple occur of Unique bad words
c.	-W	.. Return the "LEGAL" words in a list format
c.		.. otherwise, use interactive mode for on-line correcting.
c.	-T	.. Output text format with incorrect words flagged
c-----------------------------------------------------------end.of.info
c.	-D	.. Debug
c.	/ZERO	.. Clear good and bad
c.-----------------------------------------------------------------------
c.
c.			Systems Control Technology, Inc.
c.			1801 Page Mill rotated.
c.			Palo Alto, Ca.  94303
c.
c.	Revisions Log:
c.			M. Liveright	initial entry
c.	05-16-83	J. Josselyn	make interactive
c.----------------------------------------------------------------------
c.		Words checked by this program must have the following
c.	characteristics:
c.		-start with an alpha character, "a" to "z";
c.		-be of length less than 20 characters;
c.		-if a word ends in "'s", the possessive form checked;
c.		-hyphenated words are evaluated as two separate words;
c.		-trailing delimiters are eliminated;
c.		-words that are entirely in CAPS are not checked unless
c.		 the "-C" switch is specified;
c.		-words beginning with a period are not checked unless
c.		 the "-P" switch is specified,(this allows the spelling
c.		 program to be used in conjunction with Runoff).
c.----------------------------------------------------------------------
c.
c	CALLS	JJCTC	.. to set and read control C's
c.	CALLS	JJUCMD	.. to read the commands
c	CALLS	IOPEN	.. to open the units for the dictionary files.
c.
c.---------------------------------------------------------------------
c.
	COMMON /JJU_SWI/ JJUS(256)
	COMMON / JJU_FIL / infile, outfile
	COMMON / OUTDEV / idev, interflg, icount
	character*80 infile, outfile