home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 241_01 / rpd_fall.cs < prev    next >
Text File  |  1987-08-31  |  896b  |  36 lines
  1. /*
  2. HEADER:         CUG241;
  3. TITLE:          Simple weather predictor expert system to demonstrate
  4.                 the IFRUN, ANDTHENRUN, etc., keywords. 
  5. DATE:           12/30/85;
  6. VERSION:
  7. DESCRIPTION:   "Source code for a simple Expert System.";
  8. KEYWORDS:       Artificial Intelligence, expert systems, weather predictor;
  9. SYSTEM:         MS-DOS or UNIX System V;
  10. FILENAME:       RPD_FALL.C;
  11. WARNINGS:      "User-supported, non-commercial"
  12. AUTHORS:        George Hageman; 
  13. COMPILERS:      Microsoft C V3.00 or UNIX System V Portable C Compiler;
  14. REFERENCES:     ;
  15. ENDREF
  16. */
  17.  
  18. #include <stdio.h>
  19. #include "routine.h"
  20. #include "weather.h"
  21.  
  22. main()
  23. {
  24. FILE *dataFile ;
  25. int    value[20] ;
  26.  
  27. dataFile = fopen("WEATHER.DAT","rb") ;
  28. fread(value,2,20,dataFile) ;
  29. fclose(dataFile) ;
  30. if(value[1]==FALL_FAST)
  31.     return(RETURN_ROUTINE_TRUE) ;
  32. else
  33.     return(RETURN_ROUTINE_FALSE) ;
  34. }
  35.  
  36.