OUTPUT>   Expert System to Decide Who Pays
OUTPUT> 
OUTPUT>The program reads its DATA commands to generate this library:
OUTPUT> 
OUTPUT> Name     Weeks Since Payer    Balance
OUTPUT> 
OUTPUT>Y. Urstruly           8            -44.44 
OUTPUT>J. Jones              5             47.95 
OUTPUT>S. Spade              3             66.66 
OUTPUT>C. Gable              11           -2.95 
OUTPUT>P. Lomoco             1             99.5 
OUTPUT>J. Tightwad           48           -112.24 
OUTPUT>E. Fhutton            1             19.32 
OUTPUT>P. Ricketts           202          -8.95 
OUTPUT>U. Heep               63            2.1 
OUTPUT>C. Dickens            404          -43.21 
OUTPUT>How many eligible persons at the table 
 INPUT> 6 
OUTPUT>First initial and last name
 INPUT>J. Jones
OUTPUT>      
OUTPUT>First initial and last name
 INPUT>D. Scott
OUTPUT>D. Scott can't pay. It is the first time
OUTPUT>First initial and last name
 INPUT>E. Fhutton
OUTPUT>      
OUTPUT>First initial and last name
 INPUT>C. Dickens
OUTPUT>      
OUTPUT>First initial and last name
 INPUT>J. Jones
OUTPUT>      
OUTPUT>First initial and last name
 INPUT>P. Lomoco
OUTPUT>      
OUTPUT>
OUTPUT>The person who has gone longest pays,
OUTPUT>unless there is a large positive balance.
OUTPUT>
OUTPUT>In this case, the payer is C. Dickens